汇编整除 参数返回类型对齐核心库

易造轮

编译后速度 比核心库快3倍样子

  

子程序名	返回值类型	公开	备 注
整除_	双精度小数型		ok
参数名	类 型	参考	可空	数组	备 注
a	双精度小数型
b	双精度小数型

' 利用 SSE2 指令 cvttsd2si 可以在单条指令内完成截断取整（Truncate Double to Int）
' pop ebp                      ; 93               平衡易语言栈jz
' sub esp, 8                   ; 131,236,8        栈上开辟 8 字节空间
' fld qword ptr [esp+12]       ; 221,68,36,12     加载参数 a (双精度)
' fdiv qword ptr [esp+20]      ; 220,116,36,20    除以参数 b (双精度)
' fstp qword ptr [esp]         ; 221,28,36        存入临时栈地址
' cvttsd2si eax, qword ptr [esp]; 242,15,44,4,36  将双精度浮点数截断取整为 32 位整数并存入 EAX
' add esp, 8                   ; 131,196,8        恢复栈指针
' ret 16                       ; 194,16,0         清理 2 个 double 参数（16 字节）并返回
' 置入代码 ({ 93, 131, 236, 8, 221, 68, 36, 12, 220, 116, 36, 20, 221, 28, 36, 139, 84, 36, 4, 139, 4, 36, 131, 196, 8, 194, 16, 0 })
置入代码 ({ 93, 131, 236, 8, 221, 68, 36, 12, 220, 116, 36, 20, 221, 28, 36, 242, 15, 44, 4, 36, 242, 15, 42, 192, 242, 15, 17, 4, 36, 139, 84, 36, 4, 139, 4, 36, 131, 196, 8, 194, 16, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 整除_, 双精度小数型, 公开, ok<br /> .参数 a, 双精度小数型<br /> .参数 b, 双精度小数型<br /> <br /> ' 利用 SSE2 指令 cvttsd2si 可以在单条指令内完成截断取整（Truncate Double to Int）<br /> ' pop ebp                      ; 93               平衡易语言栈jz<br /> ' sub esp, 8                   ; 131,236,8        栈上开辟 8 字节空间<br /> ' fld qword ptr [esp+12]       ; 221,68,36,12     加载参数 a (双精度)<br /> ' fdiv qword ptr [esp+20]      ; 220,116,36,20    除以参数 b (双精度)<br /> ' fstp qword ptr [esp]         ; 221,28,36        存入临时栈地址<br /> ' cvttsd2si eax, qword ptr [esp]; 242,15,44,4,36  将双精度浮点数截断取整为 32 位整数并存入 EAX<br /> ' add esp, 8                   ; 131,196,8        恢复栈指针<br /> ' ret 16                       ; 194,16,0         清理 2 个 double 参数（16 字节）并返回<br /> ' 置入代码 ({ 93, 131, 236, 8, 221, 68, 36, 12, 220, 116, 36, 20, 221, 28, 36, 139, 84, 36, 4, 139, 4, 36, 131, 196, 8, 194, 16, 0 })<br /> 置入代码 ({ 93, 131, 236, 8, 221, 68, 36, 12, 220, 116, 36, 20, 221, 28, 36, 242, 15, 44, 4, 36, 242, 15, 42, 192, 242, 15, 17, 4, 36, 139, 84, 36, 4, 139, 4, 36, 131, 196, 8, 194, 16, 0 })<br /> 返回 (0)

qreyyy

D:\将函数参数中的算术运算结果写入到全局数组变量\1.png

qreyyy

我仿Excel的AVERAGE函数时，出现一点问题，能否帮我看看我的代码

qreyyy

666,谢谢分享

lassgo

卧槽，汇编优化确实猛啊，3倍提升够狠的

dnxl

扣delphi除法函数代码，扣出来是fastcall约定，还得加一层封装

  

子程序名	返回值类型	公开	备 注
_整除	长整数型
参数名	类 型	参考	可空	数组	备 注
被除数_	长整数型
除数__	长整数型

' __asm{
' ; mov eax, dword [ebp+0x08]
' ; mov edx, dword [ebp+0x0C]
' ; push dword [ebp+0x14]
' ; push dword [ebp+0x10]
' ; call label1
' ; leave
' ; retn 0x0010
' ; label1:
' ; push ebx
' ; push esi
' ; push edi
' ; mov ebx, dword [esp+0x10]
' ; mov ecx, dword [esp+0x14]
' ; mov esi, edx
' ; mov edi, ecx
' ; sar esi, 0x1F
' ; xor eax, esi
' ; xor edx, esi
' ; sub eax, esi
' ; sbb edx, esi
' ; sar edi, 0x1F
' ; xor esi, edi
' ; xor ebx, edi
' ; xor ecx, edi
' ; sub ebx, edi
' ; sbb ecx, edi
' ; jne label3
' ; cmp edx, ebx
' ; jc label2
' ; mov ecx, eax
' ; mov eax, edx
' ; xor edx, edx
' ; div ebx
' ; xchg eax, ecx
' ; label2:
' ; div ebx
' ; mov edx, ecx
' ; jmp label4
' ; label3:
' ; sub esp, 0x0C
' ; mov dword [esp+0x00], eax
' ; mov dword [esp+0x04], ebx
' ; mov dword [esp+0x08], edx
' ; mov edi, ecx
' ; shr edx, 1
' ; rcr eax, 1
' ; ror edi, 1
' ; rcr ebx, 1
' ; bsr ecx, ecx
' ; shrd ebx, edi, cl
' ; shrd eax, edx, cl
' ; shr edx, cl
' ; rol edi, 1
' ; div ebx
' ; mov ebx, dword [esp+0x00]
' ; mov ecx, eax
' ; imul edi, eax
' ; mul dword [esp+0x04]
' ; add edx, edi
' ; sub ebx, eax
' ; mov eax, ecx
' ; mov ecx, dword [esp+0x08]
' ; sbb ecx, edx
' ; sbb eax, 0x00000000
' ; xor edx, edx
' ; add esp, 0x0C
' ; label4:
' ; xor eax, esi
' ; xor edx, esi
' ; sub eax, esi
' ; sbb edx, esi
' ; pop edi
' ; pop esi
' ; pop ebx
' ; retn 0x0008
置入代码 ({ 139, 69, 8, 139, 85, 12, 255, 117, 20, 255, 117, 16, 232, 4, 0, 0, 0, 201, 194, 16, 0, 83, 86, 87, 139, 92, 36, 16, 139, 76, 36, 20, 137, 214, 137, 207, 193, 254, 31, 49, 240, 49, 242, 41, 240, 25, 242, 193, 255, 31, 49, 254, 49, 251, 49, 249, 41, 251, 25, 249, 117, 19, 57, 218, 114, 9, 137, 193, 137, 208, 49, 210, 247, 243, 145, 247, 243, 137, 202, 235, 71, 131, 236, 12, 137, 4, 36, 137, 92, 36, 4, 137, 84, 36, 8, 137, 207, 209, 234, 209, 216, 209, 207, 209, 219, 15, 189, 201, 15, 173, 251, 15, 173, 208, 211, 234, 209, 199, 247, 243, 139, 28, 36, 137, 193, 15, 175, 248, 247, 100, 36, 4, 1, 250, 41, 195, 137, 200, 139, 76, 36, 8, 25, 209, 131, 216, 0, 49, 210, 131, 196, 12, 49, 240, 49, 242, 41, 240, 25, 242, 95, 94, 91, 194, 8, 0 })
' }
返回 (0)

.版本 2<br /> <br /> .子程序 _整除, 长整数型<br /> .参数 被除数_, 长整数型<br /> .参数 除数__, 长整数型<br /> <br /> ' __asm{<br /> ' ; mov eax, dword [ebp+0x08]<br /> ' ; mov edx, dword [ebp+0x0C]<br /> ' ; push dword [ebp+0x14]<br /> ' ; push dword [ebp+0x10]<br /> ' ; call label1<br /> ' ; leave<br /> ' ; retn 0x0010<br /> ' ; label1:<br /> ' ; push ebx<br /> ' ; push esi<br /> ' ; push edi<br /> ' ; mov ebx, dword [esp+0x10]<br /> ' ; mov ecx, dword [esp+0x14]<br /> ' ; mov esi, edx<br /> ' ; mov edi, ecx<br /> ' ; sar esi, 0x1F<br /> ' ; xor eax, esi<br /> ' ; xor edx, esi<br /> ' ; sub eax, esi<br /> ' ; sbb edx, esi<br /> ' ; sar edi, 0x1F<br /> ' ; xor esi, edi<br /> ' ; xor ebx, edi<br /> ' ; xor ecx, edi<br /> ' ; sub ebx, edi<br /> ' ; sbb ecx, edi<br /> ' ; jne label3<br /> ' ; cmp edx, ebx<br /> ' ; jc label2<br /> ' ; mov ecx, eax<br /> ' ; mov eax, edx<br /> ' ; xor edx, edx<br /> ' ; div ebx<br /> ' ; xchg eax, ecx<br /> ' ; label2:<br /> ' ; div ebx<br /> ' ; mov edx, ecx<br /> ' ; jmp label4<br /> ' ; label3:<br /> ' ; sub esp, 0x0C<br /> ' ; mov dword [esp+0x00], eax<br /> ' ; mov dword [esp+0x04], ebx<br /> ' ; mov dword [esp+0x08], edx<br /> ' ; mov edi, ecx<br /> ' ; shr edx, 1<br /> ' ; rcr eax, 1<br /> ' ; ror edi, 1<br /> ' ; rcr ebx, 1<br /> ' ; bsr ecx, ecx<br /> ' ; shrd ebx, edi, cl<br /> ' ; shrd eax, edx, cl<br /> ' ; shr edx, cl<br /> ' ; rol edi, 1<br /> ' ; div ebx<br /> ' ; mov ebx, dword [esp+0x00]<br /> ' ; mov ecx, eax<br /> ' ; imul edi, eax<br /> ' ; mul dword [esp+0x04]<br /> ' ; add edx, edi<br /> ' ; sub ebx, eax<br /> ' ; mov eax, ecx<br /> ' ; mov ecx, dword [esp+0x08]<br /> ' ; sbb ecx, edx<br /> ' ; sbb eax, 0x00000000<br /> ' ; xor edx, edx<br /> ' ; add esp, 0x0C<br /> ' ; label4:<br /> ' ; xor eax, esi<br /> ' ; xor edx, esi<br /> ' ; sub eax, esi<br /> ' ; sbb edx, esi<br /> ' ; pop edi<br /> ' ; pop esi<br /> ' ; pop ebx<br /> ' ; retn 0x0008<br /> 置入代码 ({ 139, 69, 8, 139, 85, 12, 255, 117, 20, 255, 117, 16, 232, 4, 0, 0, 0, 201, 194, 16, 0, 83, 86, 87, 139, 92, 36, 16, 139, 76, 36, 20, 137, 214, 137, 207, 193, 254, 31, 49, 240, 49, 242, 41, 240, 25, 242, 193, 255, 31, 49, 254, 49, 251, 49, 249, 41, 251, 25, 249, 117, 19, 57, 218, 114, 9, 137, 193, 137, 208, 49, 210, 247, 243, 145, 247, 243, 137, 202, 235, 71, 131, 236, 12, 137, 4, 36, 137, 92, 36, 4, 137, 84, 36, 8, 137, 207, 209, 234, 209, 216, 209, 207, 209, 219, 15, 189, 201, 15, 173, 251, 15, 173, 208, 211, 234, 209, 199, 247, 243, 139, 28, 36, 137, 193, 15, 175, 248, 247, 100, 36, 4, 1, 250, 41, 195, 137, 200, 139, 76, 36, 8, 25, 209, 131, 216, 0, 49, 210, 131, 196, 12, 49, 240, 49, 242, 41, 240, 25, 242, 95, 94, 91, 194, 8, 0 })<br /> ' }<br /> 返回 (0)

胖子葛格

感谢大神分享~！

fastdao

支持开源~！感谢分享

wh1234567

感谢分享

1184798949

感谢分享