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

Many improvements by Hans van Eck

Browse Source
This commit is contained in:
ceriel
1989-05-03 10:30:22 +00:00
parent 19638876a1
commit a94dec52d8
37 changed files with 1743 additions and 381 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/pc/comp/LLmessage.c
View File

@@ -18,6 +18,7 @@
extern char *symbol2str();
extern char *Malloc(), *Salloc();
extern struct idf *gen_anon_idf();
extern int expect_label;
LLmessage(tk)
register int tk;
@@ -44,11 +45,14 @@ LLmessage(tk)
Malloc(sizeof (struct string));
dotp->TOK_SLE = 1;
dotp->TOK_STR = Salloc("", 1);
toktype = standard_type(T_STRING, 1, (arith) 1);
toktype = standard_type(T_STRINGCONST, 1, (arith) 1);
break;
case INTEGER:
dotp->TOK_INT = 1;
toktype = int_type;
if( !expect_label )
dotp->TOK_INT = 1;
else
dotp->TOK_INT = -1;
break;
case REAL:
dotp->tk_data.tk_real = (struct real *)