汇编_调用子程序 优化分享

大漠小鸟

效率会比易语言自带的快一倍多，可自行根据代码，自行封装任意参数数量的版本，参数数量越少速度会越快。
实际上易语言自带的：调用子程序()效率比精易的：程序_CALL（）快的多。

该版本的：汇编_调用子程序() 经过了N次的 1亿次 计次循环、判断循环、变量循环；未发现崩溃、内存增长等异常情况；其中被调用的子程序的参数数量可多可少，与传递进来的参数数量不一致也不崩溃。

由于对底层具体的回调过程机制不是很了解熟悉，不知道是否有其它意料之外的安全问题，有懂的前辈可以指出
测试源码： demo.e (8.02 KB, 下载次数: 86)

2024-8-12 02:12 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

子程序名	返回值类型	公开	备 注
汇编_调用子程序	整数型
参数名	类 型	参考	可空	数组	备 注
子程序地址	整数型
参数1	整数型
参数2	整数型
参数3	整数型
参数4	整数型
参数5	整数型
参数6	整数型
参数7	整数型
参数8	整数型
参数9	整数型
参数10	整数型
参数11	整数型
参数12	整数型
参数13	整数型
参数14	整数型
参数15	整数型

'  push dword [ebp+124] ;参数15
'  push dword [ebp+116]
'  push dword [ebp+108]
'  push dword [ebp+100]
'  push dword [ebp+92]
'  push dword [ebp+84]
'  push dword [ebp+76]
'  push dword [ebp+68]
'  push dword [ebp+60]
'  push dword [ebp+52]
'  push dword [ebp+44]
'  push dword [ebp+36]
'  push dword [ebp+28]
'  push dword [ebp+20] ;后面每多一个参数递增+8
'  push dword [ebp+12] ;参数1从12开始
'  call dword [ebp+8]
'  leave
'  retn 124 ;返回时会对push 压入堆栈的数据进行清理恢复的
置入代码 ({ 255, 117, 124, 255, 117, 116, 255, 117, 108, 255, 117, 100, 255, 117, 92, 255, 117, 84, 255, 117, 76, 255, 117, 68, 255, 117, 60, 255, 117, 52, 255, 117, 44, 255, 117, 36, 255, 117, 28, 255, 117, 20, 255, 117, 12, 255, 85, 8, 201, 194, 124, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 汇编_调用子程序, 整数型<br /> .参数 子程序地址, 整数型<br /> .参数 参数1, 整数型, 可空<br /> .参数 参数2, 整数型, 可空<br /> .参数 参数3, 整数型, 可空<br /> .参数 参数4, 整数型, 可空<br /> .参数 参数5, 整数型, 可空<br /> .参数 参数6, 整数型, 可空<br /> .参数 参数7, 整数型, 可空<br /> .参数 参数8, 整数型, 可空<br /> .参数 参数9, 整数型, 可空<br /> .参数 参数10, 整数型, 可空<br /> .参数 参数11, 整数型, 可空<br /> .参数 参数12, 整数型, 可空<br /> .参数 参数13, 整数型, 可空<br /> .参数 参数14, 整数型, 可空<br /> .参数 参数15, 整数型, 可空<br /> <br /> <br /> '  push dword [ebp+124] ;参数15<br /> '  push dword [ebp+116]<br /> '  push dword [ebp+108]<br /> '  push dword [ebp+100]<br /> '  push dword [ebp+92]<br /> '  push dword [ebp+84]<br /> '  push dword [ebp+76]<br /> '  push dword [ebp+68]<br /> '  push dword [ebp+60]<br /> '  push dword [ebp+52]<br /> '  push dword [ebp+44]<br /> '  push dword [ebp+36]<br /> '  push dword [ebp+28]<br /> '  push dword [ebp+20] ;后面每多一个参数递增+8<br /> '  push dword [ebp+12] ;参数1从12开始<br /> '  call dword [ebp+8]<br /> '  leave<br /> '  retn 124 ;返回时会对push 压入堆栈的数据进行清理恢复的<br /> <br /> 置入代码 ({ 255, 117, 124, 255, 117, 116, 255, 117, 108, 255, 117, 100, 255, 117, 92, 255, 117, 84, 255, 117, 76, 255, 117, 68, 255, 117, 60, 255, 117, 52, 255, 117, 44, 255, 117, 36, 255, 117, 28, 255, 117, 20, 255, 117, 12, 255, 85, 8, 201, 194, 124, 0 })<br /> 返回 (0)

熊不熊

感谢分享，很给力！~

alanwoo

学习学习

wenbb2021

6666666666666666666

看人看书

感谢您对论坛的支持！

胖子葛格

感谢大神分享~！

ΒΜΧ

杨明煜

感谢分享............

please

感谢分享，支持开源！！！

光影魔术

感谢分享源码