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

improved domacro when NOPP defined

Browse source
This commit is contained in:
eck 1989-10-24 15:02:02 +00:00
parent 8740dcc72e
commit 9286928275
2 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/cem/cemcom.ansi/Makefile
View file

@ -56,7 +56,7 @@ COPTIONS =
# What parser generator to use and how # What parser generator to use and how
GEN = $(EMHOME)/bin/LLgen GEN = $(EMHOME)/bin/LLgen
GENOPTIONS = -vvvx GENOPTIONS = #-vvvx
# tabgen # tabgen
TABGEN = $(EMHOME)/bin/tabgen TABGEN = $(EMHOME)/bin/tabgen

14
lang/cem/cemcom.ansi/domacro.c
View file

@ -720,19 +720,15 @@ domacro()
EoiForNewline = 1; EoiForNewline = 1;
if ((tok = GetToken(&tk)) == IDENTIFIER) { if ((tok = GetToken(&tk)) == IDENTIFIER) {
if (! strcmp(tk.tk_idf->id_text, "line")) { if (! strcmp(tk.tk_idf->id_text, "pragma")) {
tok = GetToken(&tk);
if (tok == INTEGER) {
do_line((unsigned int) tk.tk_ival);
EoiForNewline = 0;
return;
}
}
else if (! strcmp(tk.tk_idf->id_text, "pragma")) {
do_pragma(); do_pragma();
EoiForNewline = 0; EoiForNewline = 0;
return; return;
} }
} else if (tok == INTEGER) {
do_line((unsigned int) tk.tk_ival);
EoiForNewline = 0;
return;
} }
error("illegal # line"); error("illegal # line");
EoiForNewline = 0; EoiForNewline = 0;