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

Fixes involving floating point constants and debugger support

Browse Source
This commit is contained in:
ceriel
1991-11-01 10:15:15 +00:00
parent 44cc075183
commit ab6d563a7b
7 changed files with 19 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lang/pc/comp/code.c
View File

@@ -52,9 +52,11 @@ RomString(nd)
RomReal(nd)
register struct node *nd;
{
C_df_dlb(++data_label);
C_rom_fcon(nd->nd_REL, nd->nd_type->tp_size);
nd->nd_RLA = nd->nd_RIV->r_lab = data_label;
if (! nd->nd_RLA) {
C_df_dlb(++data_label);
nd->nd_RLA = data_label;
C_rom_fcon(nd->nd_REL, nd->nd_type->tp_size);
}
}
BssVar()
@@ -291,10 +293,9 @@ CodeExpr(nd, ds, true_label)
C_loc(nd->nd_INT);
break;
case REAL:
RomReal(nd);
C_lae_dlb(nd->nd_RLA, (arith) 0);
C_loi(tp->tp_size);
if( nd->nd_RSI )
C_ngf(tp->tp_size);
break;
case STRING:
if( tp->tp_fund == T_CHAR )