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

bug fix in getarea/freearea

Browse Source
This commit is contained in:
ceriel 1987-05-13 14:10:11 +00:00
parent 2fcf3facf0
commit b767dd20a3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
util/ass/asscm.c
View File

@ -49,6 +49,7 @@ area_t getarea(size) unsigned size ; {
unsigned rqsize ; unsigned rqsize ;
char *malloc() ; char *malloc() ;
size = ((size + (sizeof(short) - 1)) / sizeof(short)) * sizeof(short);
#ifdef MEMUSE #ifdef MEMUSE
m_used += size ; m_used += size ;
m_free -= size ; m_free -= size ;
@ -87,6 +88,7 @@ area_t getarea(size) unsigned size ; {
freearea(ptr,size) register area_t ptr ; unsigned size ; { freearea(ptr,size) register area_t ptr ; unsigned size ; {
register struct freeblock *c_ptr, *l_ptr ; register struct freeblock *c_ptr, *l_ptr ;
size = ((size + (sizeof(short) - 1)) / sizeof(short)) * sizeof(short);
#ifdef MEMUSE #ifdef MEMUSE
m_free += size ; m_free += size ;
m_used -= size ; m_used -= size ;