|
发表于 2013-8-10 09:50:17
|
显示全部楼层
广东省广州市
[e]
.版本 2
.支持库 shellEx
.支持库 spec
.子程序 _临时子程序
.局部变量 线程参数, 线程参数测试
.局部变量 任务索引, 整数型
.局部变量 计次, 整数型
.局部变量 参数地址, 整数型
线程参数.文本 = “abc”
线程参数.整数 = 22
参数地址 = 取指针地址 (线程参数)
线程池.创建 (500, 10)
.计次循环首 (10000, 计次)
线程池.添加任务 (&线程子程序, 参数地址, &获取自身索引子程序指针)
.如果真 (计次 > 500)
线程池.清空 (真)
跳出循环 ()
.如果真结束
.计次循环尾 ()
线程池.清空 ()
.子程序 线程子程序
.参数 参数指针, 整数型
.局部变量 i, 整数型
.局部变量 线程参数, 线程参数测试
API_变量内存拷贝 (取指针地址 (线程参数), 参数指针, API_取变量尺寸 (参数指针))
调试输出 (线程参数.线程索引, 线程参数.整数)
延时 (100000)
.子程序 获取自身索引子程序指针
.参数 参数指针, 整数型
.参数 索引号, 整数型
.局部变量 线程参数, 线程参数测试
API_变量内存拷贝 (取指针地址 (线程参数), 参数指针, API_取变量尺寸 (参数指针))
线程参数.线程索引 = 索引号
API_变量内存拷贝 (参数指针, 取指针地址 (线程参数), API_取变量尺寸 (参数指针))[/e] |
|