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

Added the possibility to disable range-checks

Browse Source
This commit is contained in:
ceriel
1987-08-11 10:50:30 +00:00
parent d0b452373b
commit a7b7fa4162
8 changed files with 71 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -34,6 +34,7 @@
extern char *long2str();
extern char *symbol2str();
extern int proclevel;
extern char options[];
int fp_used;
CodeConst(cst, size)
@@ -263,21 +264,21 @@ CodeCoercion(t1, t2)
C_cfi();
break;
case T_CARDINAL:
{
label lb = ++text_label;
if (! options['R']) {
label lb = ++text_label;
C_dup(t1->tp_size);
C_zrf(t1->tp_size);
C_cmf(t1->tp_size);
C_zge(lb);
C_loc((arith) ECONV);
C_trp();
C_df_ilb(lb);
C_dup(t1->tp_size);
C_zrf(t1->tp_size);
C_cmf(t1->tp_size);
C_zge(lb);
C_loc((arith) ECONV);
C_trp();
C_df_ilb(lb);
}
C_loc(t1->tp_size);
C_loc(t2->tp_size);
C_cfu();
break;
}
default:
crash("Funny REAL conversion");
}
@@ -583,6 +584,8 @@ RangeCheck(tpl, tpr)
arith llo, lhi, rlo, rhi;
if (options['R']) return;
if (bounded(tpl)) {
/* in this case we might need a range check */
if (!bounded(tpr)) {