易语言没有64位，这样的转换，有办法处理吗？？？

kofwoool

Result := ((Int64(o1) shl 32) or Int64(o2));


正常来说就是 位或 (左移 (o1, 32), o2)

但是这个数比较大，到64位了，请问有办法转换吗？？

大司命

  

输出调试文本 (or64 (shl64 (o1, 32), o2))

输出调试文本 (or64 (shl64 (o1, 32), o2))

  

子程序名	返回值类型	公开	备 注
or64	长整数型		位或
参数名	类 型	参考	可空	数组	备 注
arg1	长整数型
arg2	长整数型

置入代码 ({ 139, 69, 8, 139, 85, 12, 11, 69, 16, 11, 85, 20, 201, 194, 16, 0 })
' mov eax, dword ptr [ebp+08h]
' mov edx, dword ptr [ebp+0Ch]
' or eax, dword ptr [ebp+10h]
' or edx, dword ptr [ebp+14h]
' leave
' retn 0010h
返回 (0)

子程序名	返回值类型	公开	备 注
shl64	长整数型		左移
参数名	类 型	参考	可空	数组	备 注
arg1	长整数型
arg2	整数型

置入代码 ({ 139, 69, 8, 139, 85, 12, 139, 77, 16, 128, 249, 64, 115, 14, 128, 249, 32, 115, 15, 15, 165, 194, 211, 224, 201, 194, 12, 0, 49, 192, 49, 210, 235, 246, 137, 194, 49, 192, 128, 225, 31, 211, 226, 235, 235 })
' mov eax, dword [ebp+0x08]
' mov edx, dword [ebp+0x0C]
' mov ecx, dword [ebp+0x10]
' cmp cl, 0x40
' jnc label2
' cmp cl, 0x20
' jnc label3
' shld edx, eax, cl
' shl eax, cl
' label1:
' leave
' retn 0x000C
' label2:
' xor eax, eax
' xor edx, edx
' jmp label1
' label3:
' mov edx, eax
' xor eax, eax
' and cl, 0x1F
' shl edx, cl
' jmp label1
返回 (0)

.版本 2<br /> .子程序 or64, 长整数型, 公开, 位或<br /> .参数 arg1, 长整数型<br /> .参数 arg2, 长整数型<br /> 置入代码 ({ 139, 69, 8, 139, 85, 12, 11, 69, 16, 11, 85, 20, 201, 194, 16, 0 })<br /> ' mov eax, dword ptr [ebp+08h]<br /> ' mov edx, dword ptr [ebp+0Ch]<br /> ' or eax, dword ptr [ebp+10h]<br /> ' or edx, dword ptr [ebp+14h]<br /> ' leave<br /> ' retn 0010h<br /> 返回 (0)<br /> .子程序 shl64, 长整数型, 公开, 左移<br /> .参数 arg1, 长整数型<br /> .参数 arg2, 整数型<br /> 置入代码 ({ 139, 69, 8, 139, 85, 12, 139, 77, 16, 128, 249, 64, 115, 14, 128, 249, 32, 115, 15, 15, 165, 194, 211, 224, 201, 194, 12, 0, 49, 192, 49, 210, 235, 246, 137, 194, 49, 192, 128, 225, 31, 211, 226, 235, 235 })<br /> ' mov eax, dword [ebp+0x08]<br /> ' mov edx, dword [ebp+0x0C]<br /> ' mov ecx, dword [ebp+0x10]<br /> ' cmp cl, 0x40<br /> ' jnc label2<br /> ' cmp cl, 0x20<br /> ' jnc label3<br /> ' shld edx, eax, cl<br /> ' shl eax, cl<br /> ' label1:<br /> ' leave<br /> ' retn 0x000C<br /> ' label2:<br /> ' xor eax, eax<br /> ' xor edx, edx<br /> ' jmp label1<br /> ' label3:<br /> ' mov edx, eax<br /> ' xor eax, eax<br /> ' and cl, 0x1F<br /> ' shl edx, cl<br /> ' jmp label1<br /> 返回 (0)

精易模块有的~