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

some minor fixes

Browse Source
This commit is contained in:
ceriel
1987-10-14 12:34:47 +00:00
parent 11e1b3ce15
commit fc6a8c5aa8
3 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lang/m2/comp/chk_expr.c
View File

@@ -422,7 +422,7 @@ MkSet(size)
{
register arith *s;
size += sizeof(arith);
size = ((size + (int)word_size - 1) / (int)word_size + 1) * sizeof(arith);
s = (arith *) Malloc(size);
clear((char *) s , size);
s++;
@@ -433,6 +433,7 @@ MkSet(size)
FreeSet(s)
register arith *s;
{
dec_refcount(s);
if (refcount(s) <= 0) {
free((char *) (s-1));
}
@@ -482,7 +483,7 @@ ChkSet(expp)
First allocate room for the set.
*/
expp->nd_set = MkSet((unsigned)(tp->tp_size) * (sizeof(arith) / (int) word_size));
expp->nd_set = MkSet((unsigned)(tp->tp_size));
/* Now check the elements, one by one
*/