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

The routine con_float now generates a dummy floating point constant

Browse source 
and gives a warning, instead of generating a fatal error + abort.
This commit is contained in:
bal 1984-11-06 12:50:21 +00:00
parent 58c679c94c
commit d07b17ca5c
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
mach/6500/cg/mach.c
View file

@ -26,10 +26,21 @@ con_mult(sz) word sz; {
fprintf(codefile,".short\t%d\n",(int) (l >> 16));
}
con_float() {
fatal("no reals");
}
con_float() {
static int been_here;
if (argval != 4 && argval != 8)
fatal("bad fcon size");
fprintf(codefile,".long\t");
if (argval == 8)
fprintf(codefile,"F_DUM,");
fprintf(codefile,"F_DUM\n");
if ( !been_here++)
{
fprintf(stderr,"Warning : dummy float-constant(s)\n");
}
}
prolog(nlocals) full nlocals; {