struct map
{
char *m_addr;
char *m_size;
};
/* ------------------- */
/* coremap and swapmap
+----------------+-----------------+
| m_addr | m_size |
+----------------+-----------------+
| 0 | 9 |
+----------------+-----------------+
| 11 | 20 |
+----------------+-----------------+
| 40 | 25 |
+----------------+-----------------+
| 80 | 10 |
+----------------+-----------------+
*/
/*
* Allocate size units from the siven
* map. Return the base of the allocated
* space.
* Alsorithm is first fit.
*/
malloc(mp, size)
{
register int a;
register struct map *bp;
/* 使用寄存器可以提高程序的运行效率 */
for (bp = mp; bp->m_size; bp++){
if (bp->m_size >= size){ /* 寻找一块大于或等于所需内存大小的空闲区域 */
a = bp->m_addr; /* 若找到，则将地址赋给a */
bp->m_addr =+ size; /* 修改coremap或swapmap结构的值 */
if ((bp->m_size =- size) == 0)
/* UNIX C与ASCII C之间有一些不同，=+、=-和+=、-= 含义相同
根据 coremap 或者 swapmap 进行判断
do {
bp++;
(bp-1)->addr = bp->m_addr;
} while((bp-1)->m_size = bp->m_size);
return(a);
}
}
return(0);
}
/* ---------------------------------- */
/*
* Free the previonsly allocated space aa
* of size units into the specified map.
* Sort aa into map and combine on
* one or both ends if possible.
*/
mfree(mp, size, aa)
struct map *mp;
{
register struct map *bp;
register int t;
register int a;
a = aa;
for (bp = mp; bp->addr <= a && bp->m_size != 0; bp++); /* 寻找其始地址为a的内存块 */
if (bp>mp && (bp-1)>m_addr+(bp-1)->m_size == a) {
/* 该条件表示已存在的前一个空闲区域可以和释放以后的内存块合并，合并以后的空闲区域m_addr = (bp-1)->m_addr
m_size = (bp-1)->m_size+size */
(bp-1)->m_size =+ size; /* 合并空闲区域的大小 */
if (a+size == bp->m_addr) { /* 已存在的后一个空闲区域可以与该内存块合并 */
(bp-1)->m_size =+ bp->m_size; /* 合并后的连续空闲区域的大小 */
while (bp->m_size) { /* 是否到达coremap或swapmap的结束标志为循环条件 */
bp++;/* 因为合并的关系，coremap或swapmap的记录会减少一条 */
(bp-1)->m_addr = bp->m_addr; /* 记录依次向前移动 */
(bp-1)->m_size = bp->m_size;
}
}
} else {/* 与前一个空闲区域无法合并，则…… */
if (a+size == bp->m_addr && bp->m_size) {/* 与后一空闲区域可以合并且没有发现结束标志 */
bp->m_addr =- size;
bp->m_size =+ size;/* 合并过程 */
} else if (size)/* 与后一区域也无法合并且该内存块确实存在一定的空间，即size不为0 */
do {
t = bp->m_addr; /* 在 coremap 或者 swapmap 中
bp->m_addr = a; * 插入一条新的空闲区域的记录
a = t; * 直到 t 被赋值为0，
t = bp->m_size; * 即遇到了结束标志.
bp->m_size = size; */
bp++;
} while (size = t);
}
}
/* ------------------------------- */
malloc() 和 mfree() 的功能的正确实现依赖于 coremap 和 swapmap 的正确初始化
/* coremap 和 swapmap 的初始化 */
int swplo; /* block number of swap space */
int nswap; /* size of swap space */
main()
{
... ...
mfree(coremap, 1, i);
... ...
mfree(swapmap, nswap, swplo);
... ...
}
