取指针_通用型 基本通用型

代码人生

用了 精易模块的取指针_通用型 做示范下面是源码= =

  

调试输出 (取指针_通用型 (123, 1, #子程序指针型 ))
调试输出 (取指针_通用型 (123, , #子程序指针型 ))

子程序名	返回值类型	公开	备 注
取指针_通用型	通用型		基本类型
参数名	类 型	参考	可空	数组	备 注
变量	通用型
方式	整数型				0 1
返回类型	整数型

如果真 (方式 ＜ 0)
方式 ＝ 0
如果真 (方式 ＞ 1)
方式 ＝ 1
判断 (方式 ＝ 0)
置入代码 ({ 139, 69, 8 })  ' mov eax , dword ptr [ebp+08]
如果 (返回类型 ＜ 0)
返回类型_通用型 ( #整数型 )
返回类型_通用型 (返回类型)
置入代码 ({ 201 })  ' leave
置入代码 ({ 194, 12, 0 })  ' retn 000C
判断 (方式 ＝ 1)
置入代码 ({ 139, 69, 8 })  ' mov eax , dword ptr [ebp+08]
置入代码 ({ 139, 0 })  ' mov eax , dword ptr [eax]
如果 (返回类型 ＜ 0)
返回类型_通用型 ( #整数型 )
返回类型_通用型 (返回类型)
置入代码 ({ 201 })  ' leave
置入代码 ({ 194, 12, 0 })  ' retn 000C


返回 (0)

子程序名	返回值类型	公开	备 注
返回类型_通用型			基本类型
参数名	类 型	参考	可空	数组	备 注
返回类型	整数型				1、#字节型； 2、#短整数型； 3、#整数型； 4、#长整数型； 5、#小数型； 6、#双精度小数型； 7、#逻辑型； 8、#日期时间型； 9、#子程序指针型； 10、#文本型 11、#字节集型

如果真 (返回类型 ＜ 1)
返回类型 ＝ 1
如果真 (返回类型 ＞ 11)
返回类型 ＝ 11
判断 (返回类型 ＝ #字节型 )
置入代码 ({ 185, 1, 1, 0, 128 })  ' #字节型
判断 (返回类型 ＝ #短整数型 )
置入代码 ({ 185, 1, 2, 0, 128 })  ' #短整数型
判断 (返回类型 ＝ #整数型 )
置入代码 ({ 185, 1, 3, 0, 128 })  ' #整数型
判断 (返回类型 ＝ #长整数型 )
置入代码 ({ 185, 1, 4, 0, 128 })  ' #长整数型
判断 (返回类型 ＝ #小数型 )
置入代码 ({ 185, 1, 5, 0, 128 })  ' #小数型
判断 (返回类型 ＝ #双精度小数型 )
置入代码 ({ 185, 1, 6, 0, 128 })  ' #双精度小数型
判断 (返回类型 ＝ #逻辑型 )
置入代码 ({ 185, 2, 0, 0, 128 })  ' #逻辑型
判断 (返回类型 ＝ #日期时间型 )
置入代码 ({ 185, 3, 0, 0, 128 })  ' #日期时间型
判断 (返回类型 ＝ #子程序指针型 )
置入代码 ({ 185, 6, 0, 0, 128 })  ' #子程序指针型
判断 (返回类型 ＝ #文本型 )
置入代码 ({ 185, 4, 0, 0, 128 })  ' #文本型
判断 (返回类型 ＝ #字节集型 )
置入代码 ({ 185, 5, 0, 0, 128 })  ' #字节集型

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

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (取指针_通用型 (123, 1, #子程序指针型))<br /> 调试输出 (取指针_通用型 (123, , #子程序指针型))<br /> <br /> .子程序 取指针_通用型, 通用型, 公开, 基本类型<br /> .参数 变量, 通用型, 参考<br /> .参数 方式, 整数型, 可空, 0 1<br /> .参数 返回类型, 整数型, 可空<br /> <br /> .如果真 (方式 ＜ 0)<br />     方式 ＝ 0<br /> .如果真结束<br /> .如果真 (方式 ＞ 1)<br />     方式 ＝ 1<br /> .如果真结束<br /> .判断开始 (方式 ＝ 0)<br />     置入代码 ({ 139, 69, 8 })  ' mov eax , dword ptr [ebp+08]<br />     .如果 (返回类型 ＜ 0)<br />         返回类型_通用型 (#整数型)<br />     .否则<br />         返回类型_通用型 (返回类型)<br />     .如果结束<br />     置入代码 ({ 201 })  ' leave<br />     置入代码 ({ 194, 12, 0 })  ' retn 000C<br /> .判断 (方式 ＝ 1)<br />     置入代码 ({ 139, 69, 8 })  ' mov eax , dword ptr [ebp+08]<br />     置入代码 ({ 139, 0 })  ' mov eax , dword ptr [eax]<br />     .如果 (返回类型 ＜ 0)<br />         返回类型_通用型 (#整数型)<br />     .否则<br />         返回类型_通用型 (返回类型)<br />     .如果结束<br />     置入代码 ({ 201 })  ' leave<br />     置入代码 ({ 194, 12, 0 })  ' retn 000C<br /> .默认<br /> <br /> .判断结束<br /> 返回 (0)<br /> <br /> .子程序 返回类型_通用型, , 公开, 基本类型<br /> .参数 返回类型, 整数型, , 1、#字节型； 2、#短整数型； 3、#整数型； 4、#长整数型； 5、#小数型； 6、#双精度小数型； 7、#逻辑型； 8、#日期时间型； 9、#子程序指针型； 10、#文本型 11、#字节集型<br /> <br /> .如果真 (返回类型 ＜ 1)<br />     返回类型 ＝ 1<br /> .如果真结束<br /> .如果真 (返回类型 ＞ 11)<br />     返回类型 ＝ 11<br /> .如果真结束<br /> .判断开始 (返回类型 ＝ #字节型)<br />     置入代码 ({ 185, 1, 1, 0, 128 })  ' #字节型<br /> .判断 (返回类型 ＝ #短整数型)<br />     置入代码 ({ 185, 1, 2, 0, 128 })  ' #短整数型<br /> .判断 (返回类型 ＝ #整数型)<br />     置入代码 ({ 185, 1, 3, 0, 128 })  ' #整数型<br /> .判断 (返回类型 ＝ #长整数型)<br />     置入代码 ({ 185, 1, 4, 0, 128 })  ' #长整数型<br /> .判断 (返回类型 ＝ #小数型)<br />     置入代码 ({ 185, 1, 5, 0, 128 })  ' #小数型<br /> .判断 (返回类型 ＝ #双精度小数型)<br />     置入代码 ({ 185, 1, 6, 0, 128 })  ' #双精度小数型<br /> .判断 (返回类型 ＝ #逻辑型)<br />     置入代码 ({ 185, 2, 0, 0, 128 })  ' #逻辑型<br /> .判断 (返回类型 ＝ #日期时间型)<br />     置入代码 ({ 185, 3, 0, 0, 128 })  ' #日期时间型<br /> .判断 (返回类型 ＝ #子程序指针型)<br />     置入代码 ({ 185, 6, 0, 0, 128 })  ' #子程序指针型<br /> .判断 (返回类型 ＝ #文本型)<br />     置入代码 ({ 185, 4, 0, 0, 128 })  ' #文本型<br /> .判断 (返回类型 ＝ #字节集型)<br />     置入代码 ({ 185, 5, 0, 0, 128 })  ' #字节集型<br /> .默认<br /> <br /> .判断结束

阿汤哥

代码人生 发表于 2021-8-9 00:48
长整数超过20e还是长整数吗 长整数的范围字节也就占用8位字节 不出错有鬼咯 双精度小数我没试过 哈哈哈{:7 ...

.版本 2
.支持库 spec

aa ＝ 20000000000

c ＝ 取指针_通用型 (#长整数型, aa)

调试输出 (c, aa)

*  -17589365913600 | 20000000000
*  -17589365913600 | 20000000000


双精度无效果，怎么返回也是0.000000    其他的基本类型暂时没发现什么问题

代码人生

阿汤哥 发表于 2021-8-9 00:09
长整型超20+E会出错，和双精度小数型是无效的。

长整数超过20e还是长整数吗 长整数的范围字节也就占用8位字节 不出错有鬼咯 双精度小数我没试过 哈哈哈

阿汤哥

长整型超20+E会出错，和双精度小数型是无效的。

kobefu

感谢分享，很给力！~

盖亚啊

可以可以

xing340

感谢666666666666666

网络注册会员

支持开源

醉卧美人膝

感谢分享，很给力！~

hmyroot

感谢分享