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); ... ... }

|