哈希表修改值模块修改版

局_节点 ＝ HeapAlloc (堆句柄, 8, add_2 (#节点_值, 左移 (值数量, 2))) ' HASH 下节指针 上节指针 排序 值数量 键 值1 值2 值3……
.如果真 (局_节点 ≠ 0)
局_键指针 ＝ 哈希_创建键值 (堆句柄, 键)
.如果真 (局_键指针 ≠ 0)
局_值指针 ＝ 哈希_创建键值 (堆句柄, 数据类型_取值 (全_数据类型 [值类型].取值, 值))
.如果真 (局_值指针 ≠ 0)
写内存_整数 (局_节点, HASH, #节点_HASH)
写内存_整数 (局_节点, 上节指针, #节点_上节指针)
inc_线程 (排序)
写内存_整数 (局_节点, 排序, #节点_排序)
写内存_整数 (局_节点, 值数量, #节点_值数量)
写内存_整数 (局_节点, 局_键指针, #节点_键)
写内存_整数 (局_节点, 局_值指针, add_2 (#节点_键, 左移 (值序号, 2)))
写内存_整数 (上节指针, 局_节点, 0)
返回 (局_节点)
.如果真结束
HeapFree (堆句柄, 0, 局_键指针)
.如果真结束
HeapFree (堆句柄, 0, 局_节点)