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

Added macro's for long selections

Browse Source
This commit is contained in:
ceriel
1991-03-06 10:52:34 +00:00
parent 2a8682bf68
commit 94d759700a
10 changed files with 38 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/m2/comp/cstoper.c
View File

@@ -269,7 +269,7 @@ cstfbin(expp)
expressions below it, and the result restored in expp.
This version is for REAL expressions.
*/
register struct real *p = expp->nd_left->nd_token.tk_data.tk_real;
register struct real *p = expp->nd_left->nd_REAL;
register flt_arith *o1 = &p->r_val;
register flt_arith *o2 = &expp->nd_right->nd_RVAL;
int compar = 0;
@@ -312,8 +312,8 @@ cstfbin(expp)
case '=': cmpval = (cmpval == 0); break;
case '#': cmpval = (cmpval != 0); break;
}
if (expp->nd_right->nd_REAL) free(expp->nd_right->nd_REAL);
free_real(expp->nd_right->nd_token.tk_data.tk_real);
if (expp->nd_right->nd_RSTR) free(expp->nd_right->nd_RSTR);
free_real(expp->nd_right->nd_REAL);
break;
default:
@@ -343,7 +343,7 @@ cstfbin(expp)
expp->nd_INT = cmpval;
}
else {
expp->nd_token.tk_data.tk_real = p;
expp->nd_REAL = p;
}
}