自定义数据new/delete源码

.版本 2
.支持库 spec

.程序集 程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _启动子程序, 整数型

_临时子程序 ()
返回 (0)

.子程序 _临时子程序
.局部变量 pdata, 整数型
.局部变量 data, type_VT
.局部变量 bin, 字节集
.局部变量 str, 文本型
.局部变量 vt, 变体型

pdata ＝ new_type_VT ()
swap_ (取变量地址 (pdata), 取变量地址 (data))
data.int ＝ 100
data.str ＝ “12345”
data.bin ＝ 到字节集 (“aaaaa”)
data.variant.赋值 (“44444444”, )
调试输出 (data.int, data.str, data.bin, data.variant.取文本 ())
swap_ (取变量地址 (pdata), 取变量地址 (data))
testfunc (pdata)
delete_type_VT (pdata)


.子程序 testfunc
.参数 arg, 整数型
.局部变量 pdata, 整数型
.局部变量 data, type_VT

pdata ＝ arg
swap_ (取变量地址 (pdata), 取变量地址 (data))
调试输出 (data.int, data.str, data.bin, data.variant.取文本 ())
swap_ (取变量地址 (pdata), 取变量地址 (data))


.子程序 swap_, , 公开, '传俩变量地址过来
.参数 a, 整数型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 b, 整数型

置入代码 ({ 139, 69, 8, 139, 93, 12, 139, 8, 135, 11, 137, 8 })

.子程序 new_type_VT, 整数型, 公开
.局部变量 data, type_VT

data.int ＝ 0
置入代码 ({ 139, 69, 252, 137, 236, 93, 195 })
返回 (0)

.子程序 delete_type_VT, 整数型, 公开
.参数 arg, 整数型
.局部变量 data, type_VT

data.int ＝ 0
置入代码 ({ 131, 236, 4, 139, 69, 8, 135, 69, 252, 137, 69, 248, 232, 0, 0, 0, 0, 88, 131, 192, 12, 135, 69, 4, 137, 69, 8, 235, 20, 131, 236, 12, 137, 229, 139, 69, 8, 137, 69, 4, 131, 236, 8, 139, 69, 248, 137, 69, 252 })
返回 (0)

@bookbar