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

13
lang/m2/comp/code.c
View File

@@ -127,13 +127,13 @@ CodeExpr(nd, ds, true_label, false_label)
switch(nd->nd_symb) {
case REAL:
C_df_dlb(++data_label);
if (! nd->nd_REAL) {
if (! nd->nd_RSTR) {
static char buf[FLT_STRLEN];
flt_flt2str(&nd->nd_RVAL, buf, FLT_STRLEN);
C_rom_fcon(buf, tp->tp_size);
}
else C_rom_fcon(nd->nd_REAL, tp->tp_size);
else C_rom_fcon(nd->nd_RSTR, tp->tp_size);
c_lae_dlb(data_label);
C_loi(tp->tp_size);
break;
@@ -481,7 +481,7 @@ subu(sz)
arith sz;
{
if (! options['R']) {
CAL((int) sz == (int) word_size ? "subuchk" : "subulchk", (int) sz);
C_cal((int) sz == (int) word_size ? "subuchk" : "subulchk");
}
C_sbu(sz);
}
@@ -491,7 +491,7 @@ addu(sz)
arith sz;
{
if (! options['R']) {
CAL((int) sz == (int) word_size ? "adduchk" : "addulchk", (int) sz);
C_cal((int) sz == (int) word_size ? "adduchk" : "addulchk");
}
C_adu(sz);
}
@@ -748,8 +748,9 @@ CodeOper(expr, true_label, false_label)
case T_CARDINAL:
case T_INTORCARD:
if (! options['R']) {
CAL((int)(tp->tp_size) <= (int)word_size ? "muluchk" : "mululchk",
(int)(tp->tp_size));
C_cal((int)(tp->tp_size) <= (int)word_size ?
"muluchk" :
"mululchk");
}
C_mlu(tp->tp_size);
break;