实现（调用子程序）传参功能

demon

有人如是问：

易语言支持库自带的 调用子程序()  无法传递参数指针

请问通过子程序指针调用子程序怎么样才能传递真实的参数指针, （实现被调用子程序修改对应参数时同时反应到调用子程序时所提供的参数数据上，和易语言的 "参考" 属性效果一样）

具体想实现的效果：

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 Main
   
5. .局部变量 a, 文本型
   
6. 
   
7. a ＝ “1”
   
8. 调用子程序 (&test, , , a)
   
9. 调试输出 (a)  ' 此处输出为1   需要实现的效果为 此处输出为2
   
10. test (a)
    
11. 调试输出 (a)  ' 此处输出为2
    
12. 
    
13. .子程序 test
    
14. .参数 a, 文本型
    
15. 
    
16. a ＝ “2”
    

复制代码

以上是我截取某易论坛用户的提问，有兴趣的坛友不妨试试。环境是：多线程多并发

========
========
========
以下是我的解答：
代码文件：
实现（调用子程序）传参功能.rar (1.27 KB, 下载次数: 78)

2018-7-26 16:51 上传

点击文件名下载附件

代码测试图片：
（未修改之前的结果图片就不传了，和问问题的那个易友在代码注释中说的一样。如果浏览器有乱码的可以复制代码到易语言中查看）

代码文本：

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 Main
   
5. .局部变量 a, 文本型
   
6. 
   
7. a ＝ “1”
   
8. 调用子程序 (&test, , , a, 取变量地址 (a))
   
9. 调试输出 (a)  ' 此处输出为1   需要实现的效果为 此处输出为2
   
10. test (a, 取变量地址 (a))
    
11. 调试输出 (a)  ' 此处输出为2
    
12. 
    
13. .子程序 test
    
14. .参数 a, 文本型
    
15. .参数 指针, 整数型
    
16. 
    
17. a ＝ “2”
    
18. 交换变量地址 (指针, 取变量地址 (a))
    
19. ' 以下是分析过程
    
20. ' 调试输出 (“想要改变的”, 指针)
    
21. ' 调试输出 (“真有内容的”, 取变量地址 (a))
    
22. 
    
23. .子程序 交换变量地址, , , 以变量地址和变量地址的交换方式，来交换两个变量数据，注意两变量要是相同类型的 [汇编版]
    
24. .参数 变量地址1, 整数型, , 变量地址；可以用 取变量地址（）或 取变量数据地址（）取得地址
    
25. .参数 变量地址2, 整数型, , 变量地址；可以用 取变量地址（）或 取变量数据地址（）取得地址
    
26. 
    
27. 置入代码 ({ 139, 69, 8, 139, 77, 12, 139, 16, 135, 17, 137, 16 })
    
28. ' mov eax,[ebp+08h]
    
29. ' mov ecx,[ebp+0Ch]
    
30. ' mov edx,[eax]
    
31. ' xchg [ecx],edx
    
32. ' mov [eax],edx
    

复制代码

有其他想法欢迎回帖讨论。

demon

自顶一下

222

我也占个位置

1心1亿

我也看不懂，坐个飞机位。