bug fix in getarea/freearea
authorceriel <none@none>
Wed, 13 May 1987 14:10:11 +0000 (14:10 +0000)
committerceriel <none@none>
Wed, 13 May 1987 14:10:11 +0000 (14:10 +0000)
util/ass/asscm.c

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