【蠢新学汇编】让 类方法 支持 启动线程

corking

结果约等于没解决 一个线程就要占一个变量

笨来无一悟

萧楚楠 发表于 2025-3-5 16:35
恩师，我想让子程序返回类型双精度小数，不知您有什么办法吗？
这样的话_除法（55，10）就可以是5.5了 （如 ...

自带的最快人家不讲武德 强制别人的子程序必须esp ebp压栈 他自己就直接计算不用call子程序

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (除法_X87 (-55, 10))

子程序名	返回值类型	公开	备 注
除法_寄存器	双精度小数型		SSE2
参数名	类 型	参考	可空	数组	备 注
被除	双精度小数型
除以	双精度小数型

' __asm{
' movsd xmm0, qword ptr ss:[ebp+0x08]
' divsd xmm0, qword ptr ss:[ebp+0x10]
' movd eax,xmm0
' pshufd xmm0, xmm0, 1
' movd edx,xmm0
' LEAVE
' RET 16
' }
返回 (0)

子程序名	返回值类型	公开	备 注
除法_栈	双精度小数型		SEE2
参数名	类 型	参考	可空	数组	备 注
被除	双精度小数型
除以	双精度小数型

' __asm{
' movsd xmm0, qword ptr ss:[ebp+0x08]
' divsd xmm0, qword ptr ss:[ebp+0x10]
' ; SUB ESP, 8
' MOVSD QWORD [EBP-8], XMM0
' MOV EDX, [EBP-4]
' MOV EAX, [EBP-8]
' ; ADD ESP, 8
' LEAVE
' RET 16
' }
返回 (0)  ' 标准的写法似乎需要 Sub esp 一下 不写不知道为不危险

子程序名	返回值类型	公开	备 注
除法_X87	双精度小数型
参数名	类 型	参考	可空	数组	备 注
被除	双精度小数型
除以	双精度小数型

' __asm{
' fld qword [EBP+8]
' fld qword [EBP+16]
' FDIVP
' FSTP qword [EBP-8]
' MOV EDX, [EBP-4]
' MOV EAX, [EBP-8]
' LEAVE
' RET 16
' }
返回 (0)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
T	整数型
N	双精度小数型
计次	整数型

T ＝ 取启动时间 ()
计次循环首 (12345678, 计次)
N ＝ 除法_寄存器 (-55.2, -10.8 ＋ 计次)
计次循环尾 ()
调试输出 (取启动时间 () － T, “寄存器”, N)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
T	整数型
N	双精度小数型
计次	整数型

T ＝ 取启动时间 ()
计次循环首 (12345678, 计次)
N ＝ 除法_栈 (-55.2, -10.8 ＋ 计次)
计次循环尾 ()
调试输出 (取启动时间 () － T, “栈”, N)

子程序名	返回值类型	公开	备 注
_按钮3_被单击			自带的也是X87不过不用压栈所以更快

变量名	类 型	静态	数组	备 注
T	整数型
N	双精度小数型
计次	整数型

T ＝ 取启动时间 ()
计次循环首 (12345678, 计次)
N ＝ -55.2 ÷ (-10.8 ＋ 计次)
计次循环尾 ()
调试输出 (取启动时间 () － T, “自带”, N)

子程序名	返回值类型	公开	备 注
_按钮4_被单击

变量名	类 型	静态	数组	备 注
T	整数型
N	双精度小数型
计次	整数型

T ＝ 取启动时间 ()
计次循环首 (12345678, 计次)
N ＝ 除法_X87 (-55.2, -10.8 ＋ 计次)
计次循环尾 ()
调试输出 (取启动时间 () － T, “X87”, N)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (除法_X87 (-55, 10))<br /> <br /> .子程序 除法_寄存器, 双精度小数型, , SSE2<br /> .参数 被除, 双精度小数型<br /> .参数 除以, 双精度小数型<br /> <br /> ' __asm{<br /> ' movsd xmm0, qword ptr ss:[ebp+0x08]<br /> ' divsd xmm0, qword ptr ss:[ebp+0x10]<br /> ' movd eax,xmm0<br /> ' pshufd xmm0, xmm0, 1<br /> ' movd edx,xmm0<br /> ' LEAVE<br /> ' RET 16<br /> ' }<br /> 返回 (0)<br /> <br /> <br /> .子程序 除法_栈, 双精度小数型, , SEE2<br /> .参数 被除, 双精度小数型<br /> .参数 除以, 双精度小数型<br /> <br /> ' __asm{<br /> ' movsd xmm0, qword ptr ss:[ebp+0x08]<br /> ' divsd xmm0, qword ptr ss:[ebp+0x10]<br /> ' ; SUB ESP, 8<br /> ' MOVSD QWORD [EBP-8], XMM0<br /> ' MOV EDX, [EBP-4]<br /> ' MOV EAX, [EBP-8]<br /> ' ; ADD ESP, 8<br /> ' LEAVE<br /> ' RET 16<br /> ' }<br /> 返回 (0)  ' 标准的写法似乎需要 Sub esp 一下 不写不知道为不危险<br /> <br /> <br /> .子程序 除法_X87, 双精度小数型<br /> .参数 被除, 双精度小数型<br /> .参数 除以, 双精度小数型<br /> <br /> ' __asm{<br /> ' fld qword [EBP+8]<br /> ' fld qword [EBP+16]<br /> ' FDIVP<br /> ' FSTP qword [EBP-8]<br /> ' MOV EDX, [EBP-4]<br /> ' MOV EAX, [EBP-8]<br /> ' LEAVE<br /> ' RET 16<br /> ' }<br /> 返回 (0)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 T, 整数型<br /> .局部变量 N, 双精度小数型<br /> .局部变量 计次, 整数型<br /> <br /> T ＝ 取启动时间 ()<br /> .计次循环首 (12345678, 计次)<br />     N ＝ 除法_寄存器 (-55.2, -10.8 ＋ 计次)<br /> .计次循环尾 ()<br /> 调试输出 (取启动时间 () － T, “寄存器”, N)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 T, 整数型<br /> .局部变量 N, 双精度小数型<br /> .局部变量 计次, 整数型<br /> <br /> T ＝ 取启动时间 ()<br /> .计次循环首 (12345678, 计次)<br />     N ＝ 除法_栈 (-55.2, -10.8 ＋ 计次)<br /> .计次循环尾 ()<br /> 调试输出 (取启动时间 () － T, “栈”, N)<br /> <br /> <br /> .子程序 _按钮3_被单击, , , 自带的也是X87不过不用压栈所以更快<br /> .局部变量 T, 整数型<br /> .局部变量 N, 双精度小数型<br /> .局部变量 计次, 整数型<br /> <br /> T ＝ 取启动时间 ()<br /> .计次循环首 (12345678, 计次)<br />     N ＝ -55.2 ÷ (-10.8 ＋ 计次)<br /> .计次循环尾 ()<br /> 调试输出 (取启动时间 () － T, “自带”, N)<br /> <br /> <br /> .子程序 _按钮4_被单击<br /> .局部变量 T, 整数型<br /> .局部变量 N, 双精度小数型<br /> .局部变量 计次, 整数型<br /> <br /> T ＝ 取启动时间 ()<br /> .计次循环首 (12345678, 计次)<br />     N ＝ 除法_X87 (-55.2, -10.8 ＋ 计次)<br /> .计次循环尾 ()<br /> 调试输出 (取启动时间 () － T, “X87”, N)

笨来无一悟

萧楚楠 发表于 2025-3-5 16:35
恩师，我想让子程序返回类型双精度小数，不知您有什么办法吗？
这样的话_除法（55，10）就可以是5.5了 （如 ...

我开始测速 循环里面一直不变 结果速度易语言的遥遥领先 换成了会变的 也领先一点点 运算的时候他不用 push ebp mov ebp,esp这些压栈出栈的操作每计算一次就少四个指令 易语言哪怕有调用子程序 自带的都是另一套调用约定 比如 取数组成员数 自己写的就总是干不过原生的 目前快的那个只支持一维数组



这个就是易语言原生的写法 刚抠出来的 一看易语言这个老六 自己调用子程序的时候不执行 EBP ESP的出入栈 别人写的就强制自动加上

mov ebx,dword ptr ds:[数组变量]
call 取数组成员数

取数组成员数:
mov ecx,dword ptr ds:[ebx]
add ebx,4
xor eax,eax
test ecx,ecx
je 结束
mov eax,dword ptr ds:[ebx]
循环:
add ebx,4
dec ecx
je 结束
imul eax,dword ptr ds:[ebx]
jmp 循环
结束:
ret

笨来无一悟

萧楚楠 发表于 2025-3-5 16:35
恩师，我想让子程序返回类型双精度小数，不知您有什么办法吗？
这样的话_除法（55，10）就可以是5.5了 （如 ...

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (除法 (55, 10))

子程序名	返回值类型	公开	备 注
除法	双精度小数型
参数名	类 型	参考	可空	数组	备 注
被除	双精度小数型
除以	双精度小数型

' __asm{
' movsd xmm0, qword ptr ss:[ebp+0x08]
' divsd xmm0, qword ptr ss:[ebp+0x10]
' SUB ESP, 8
' MOVSD QWORD [EBP-8], XMM0
' MOV EDX, [EBP-4]
' MOV EAX, [EBP-8]
' ADD ESP, 8
' LEAVE
' RET 16
' }
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (除法 (55, 10))<br /> <br /> .子程序 除法, 双精度小数型<br /> .参数 被除, 双精度小数型<br /> .参数 除以, 双精度小数型<br /> <br /> ' __asm{<br /> ' movsd xmm0, qword ptr ss:[ebp+0x08]<br /> ' divsd xmm0, qword ptr ss:[ebp+0x10]<br /> ' SUB ESP, 8<br /> ' MOVSD QWORD [EBP-8], XMM0<br /> ' MOV EDX, [EBP-4]<br /> ' MOV EAX, [EBP-8]<br /> ' ADD ESP, 8<br /> ' LEAVE<br /> ' RET 16<br /> ' }<br /> 返回 (0)

萧楚楠

恩师，我想让子程序返回类型双精度小数，不知您有什么办法吗？
这样的话_除法（55，10）就可以是5.5了 （如果是返回整数型就只返回5，显得好奇怪）

  

子程序名	返回值类型	公开	备 注
_除法	双精度小数型		汇编除法 有符号
参数名	类 型	参考	可空	数组	备 注
被除数	整数型
除数	整数型

置入代码 ({ 139, 69, 8, 139, 93, 12, 49, 210, 247, 251, 201, 194, 8, 0 })
' mov eax,dword ptr[ebp+8]
' mov ebx,dword ptr[ebp+12]
' xor edx, edx  ; 清零EDX
' idiv ebx       ; 执行除法，其中EBX是除数
' leave
' ret 8
返回 (0)

.版本 2<br /> <br /> .子程序 _除法, 双精度小数型, 公开, 汇编除法 有符号<br /> .参数 被除数, 整数型<br /> .参数 除数, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 93, 12, 49, 210, 247, 251, 201, 194, 8, 0 })<br /> ' mov eax,dword ptr[ebp+8]<br /> ' mov ebx,dword ptr[ebp+12]<br /> ' xor edx, edx  ; 清零EDX<br /> ' idiv ebx       ; 执行除法，其中EBX是除数<br /> ' leave<br /> ' ret 8<br /> 返回 (0)

lqylbh

感谢分享，很给力！~

kyo9766

学习一下类 内部的调用，感谢分享

胖子葛格

感谢大神分享~！

futieming

结果约等于没解决 一个线程就要占一个变量

futieming

#在这里快速回复#目前市面上主流的解决方案 要么需要类的内部手动申请释放 要么需要使用特制的call 还无法访问类成员