单元内存池直接扩展为动态内存池 - 精易论坛

子程序名	返回值类型	公开	备注
内存池_写入	整数型		数据链表
参数名	类型	参考	可空	数组	备注
数据句柄	整数型
数据缓存	整数型
数据长度	整数型

变量名	类型	静态	数组	备注
块尺寸	整数型
数据尺寸	整数型
索引句柄	整数型
剩余长度	整数型
写指针	整数型
下一个	整数型
写入地址	整数型

' ┎┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┒
' ┟  +0    首地址, 整数型
' .                ┟┄┄下一个块
' .                ┖┄┄剩余长度
' .          ┟┄┄数据
' .          ┖┄┄...
' ┖┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┚

如果真 (数据长度＝ 0)

返回 (0)

块尺寸＝读整数 (数据句柄, #内存池_块尺寸 )
数据尺寸＝ Sub (块尺寸, 8)
索引句柄＝ _内存池_申请 (数据句柄)
写入地址＝索引句柄

变量循环首 (0, Dec (数据长度), 数据尺寸, 写指针)

剩余长度＝ Sub (数据长度, 写指针)

如果 (剩余长度＞数据尺寸)

RtlMoveMemory_Nt (Add (写入地址, 8), Add (数据缓存, 写指针), 数据尺寸)

下一个＝ _内存池_申请 (数据句柄)

RtlMoveMemory_Nt (Add (写入地址, 8), Add (数据缓存, 写指针), 剩余长度)

下一个＝ 0

写整数 (写入地址, 0, 下一个)

写整数 (写入地址, 4, 剩余长度)

写入地址＝下一个

变量循环尾 ()
返回 (索引句柄)

.版本 2<br />
<br />
.子程序 内存池_写入, 整数型, 公开, 数据链表<br />
.参数 数据句柄, 整数型<br />
.参数 数据缓存, 整数型<br />
.参数 数据长度, 整数型<br />
.局部变量 块尺寸, 整数型<br />
.局部变量 数据尺寸, 整数型<br />
.局部变量 索引句柄, 整数型<br />
.局部变量 剩余长度, 整数型<br />
.局部变量 写指针, 整数型<br />
.局部变量 下一个, 整数型<br />
.局部变量 写入地址, 整数型<br />
<br />
<br />
' ┎┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┒<br />
' ┟  +0      首地址, 整数型<br />
' .                   ┟┄┄下一个块<br />
' .                   ┖┄┄剩余长度<br />
' .            ┟┄┄数据<br />
' .            ┖┄┄...<br />
' ┖┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┚<br />
.如果真 (数据长度 ＝ 0)<br />
    返回 (0)<br />
.如果真结束<br />
<br />
块尺寸 ＝ 读整数 (数据句柄, #内存池_块尺寸)<br />
数据尺寸 ＝ Sub (块尺寸, 8)<br />
<br />
索引句柄 ＝ _内存池_申请 (数据句柄)<br />
写入地址 ＝ 索引句柄<br />
.变量循环首 (0, Dec (数据长度), 数据尺寸, 写指针)<br />
    剩余长度 ＝ Sub (数据长度, 写指针)<br />
    .如果 (剩余长度 ＞ 数据尺寸)<br />
        RtlMoveMemory_Nt (Add (写入地址, 8), Add (数据缓存, 写指针), 数据尺寸)<br />
        下一个 ＝ _内存池_申请 (数据句柄)<br />
<br />
    .否则<br />
        RtlMoveMemory_Nt (Add (写入地址, 8), Add (数据缓存, 写指针), 剩余长度)<br />
        下一个 ＝ 0<br />
    .如果结束<br />
<br />
    写整数 (写入地址, 0, 下一个)<br />
    写整数 (写入地址, 4, 剩余长度)<br />
<br />
    写入地址 ＝ 下一个<br />
.变量循环尾 ()<br />
返回 (索引句柄)