单元内存池直接扩展为动态内存池

猫神父 · 发表于 2022-7-17 08:22:08

单元内存池循环申请就等于动态内存,不必精确到字节，精确到“网格”即可

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

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

' ┎┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┒
' ┟  +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 />
返回 (索引句柄)

pjm123 · 发表于 2022-7-17 09:12:01

谢谢分享

mooo · 发表于 2022-7-17 09:18:34

谢谢分享

Conquer · 发表于 2022-7-17 09:24:24

谢谢分享

yzl666 · 发表于 2022-7-17 15:36:20

感谢分享

jysoft2022 · 发表于 2022-7-17 23:35:50

谢谢分享

大师兄是反派 · 发表于 2022-7-18 06:16:43

666666666666666

秋殇 · 发表于 2022-7-18 08:07:14

支持开源谢谢

a6546 · 发表于 2022-7-18 21:01:14

谢谢开源

蒙顺童 · 发表于 2022-7-19 02:18:05

感谢分享，很给力！~

		自动登录	找回密码
密码			注册

[易语言纯源码] 单元内存池直接扩展为动态内存池

评分