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

Some fixes

Browse source
This commit is contained in:
ceriel 1996-11-19 09:12:36 +00:00
parent d0587ef3ab
commit 322c1c1b4c
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lang/m2/comp/LLlex.c
View file

@ -528,7 +528,15 @@ lexwarning(W_ORDINARY, "character constant out of range");
CheckForLet(); CheckForLet();
return tk->tk_symb = INTEGER; return tk->tk_symb = INTEGER;
} }
if (ch == 'D' && base == 10) { if (options['l']) {
if (base != 10) {
LoadChar(ch);
if (ch != 'D') {
PushBack();
}
}
}
if (ch == 'D' && (options['l'] || base == 10)) {
if (options['l']) { if (options['l']) {
/* Local extension: LONGCARD exists, /* Local extension: LONGCARD exists,
so internally also longintorcard_type so internally also longintorcard_type

2
lang/m2/comp/code.c
View file

@ -60,7 +60,7 @@ CodeString(nd)
{ {
if (nd->nd_type->tp_fund != T_STRING) { if (nd->nd_type->tp_fund != T_STRING) {
/* Character constant */ /* Character constant */
C_loc(nd->nd_INT); CodeConst(nd->nd_INT, nd->nd_type->tp_size);
return; return;
} }
C_df_dlb(++data_label); C_df_dlb(++data_label);