godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some fixes

Browse Source
This commit is contained in:
ceriel
1988-01-11 18:24:34 +00:00
parent 538896f0a3
commit a58740c4ee
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
util/led/memory.c
View File

@@ -422,6 +422,7 @@ hard_alloc(piece, size)
case ALLOSYMB:
case ALLOARCH:
case ALLOMODL:
case ALLORANL:
break; /* Do not try to deallocate this. */
default:
dealloc(i);
@@ -499,8 +500,16 @@ core_free(piece, p)
char *q = address(piece, mems[piece].mem_full);
assert(p < q);
mems[piece].mem_full -= ((ind_t)q - (ind_t)p);
mems[piece].mem_left += ((ind_t)q - (ind_t)p);
switch(sizeof(unsigned) == sizeof(char *)) {
case 1:
mems[piece].mem_full -= (unsigned) (q - p);
mems[piece].mem_left += (unsigned) (q - p);
break;
default:
mems[piece].mem_full -= (ind_t) q - (ind_t) p;
mems[piece].mem_left += (ind_t) q - (ind_t) p;
break;
}
}
/*