易语言线程多参数传递模块源码

.版本 2
.支持库 spec

.程序集 PData, , 公开

.子程序 Push, 整数型, 公开
.参数 Data, 字节集
.局部变量 Length, 整数型
.局部变量 Add, 整数型

.如果 (Data ≠ {  })
    Length ＝ 取字节集长度 (Data)
    Add ＝ 申请内存 (4 ＋ Length, 真)
    写到内存 (Length, Add, 4)
    写到内存 (Data, Add ＋ 4, Length)
    返回 (Add)
.否则
    返回 (0)
.如果结束


.子程序 Pop, 字节集, 公开
.参数 Add, 整数型
.局部变量 Data, 字节集

Data ＝ 指针到字节集 (Add ＋ 4, 指针到整数 (Add))
释放内存 (Add)
返回 (Data)

@DeHby