d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix in reference counts for sets

Browse source
This commit is contained in:
ceriel 1987-10-20 13:32:18 +00:00
parent a24c90f5a9
commit 688567a532
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lang/m2/comp/chk_expr.c
View file

@ -311,11 +311,6 @@ ChkExLinkOrName(expp)
if (df->df_kind & (D_ENUM | D_CONST)) {
/* Replace an enum-literal or a CONST identifier by its value.
*/
if (df->df_type->tp_fund == T_SET) {
expp->nd_class = Set;
inc_refcount(expp->nd_set);
}
else expp->nd_class = Value;
if (df->df_kind == D_ENUM) {
expp->nd_INT = df->enm_val;
expp->nd_symb = INTEGER;
@ -327,6 +322,11 @@ ChkExLinkOrName(expp)
expp->nd_token = df->con_const;
expp->nd_lineno = ln;
}
if (df->df_type->tp_fund == T_SET) {
expp->nd_class = Set;
inc_refcount(expp->nd_set);
}
else expp->nd_class = Value;
}
if (!(df->df_kind & D_VALUE)) {
@ -426,7 +426,7 @@ MkSet(size)
{
register arith *s;
size = ((size + (int)word_size - 1) / (int)word_size + 1) * sizeof(arith);
size = (size / (int) word_size + 1) * sizeof(arith);
s = (arith *) Malloc(size);
clear((char *) s , size);
s++;
@ -439,6 +439,7 @@ FreeSet(s)
{
dec_refcount(s);
if (refcount(s) <= 0) {
assert(refcount(s) == 0);
free((char *) (s-1));
}
}

2
lang/m2/comp/cstoper.c
View file

@ -251,7 +251,7 @@ cstset(expp)
assert(expp->nd_symb == IN || expp->nd_left->nd_class == Set);
set2 = expp->nd_right->nd_set;
setsize = (unsigned) expp->nd_right->nd_type->tp_size / (unsigned) word_size;
setsize = (unsigned) (expp->nd_right->nd_type->tp_size) / (unsigned) word_size;
if (expp->nd_symb == IN) {
unsigned i;