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

adjusted sources for NOPP

Browse source
This commit is contained in:
eck 1989-10-16 12:38:25 +00:00
parent 4c4b47a902
commit aa2bfa7738
2 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -691,6 +691,28 @@ macroeq(s, t)
}
}
#else NOPP
struct idf *
GetIdentifier(skiponerr)
int skiponerr; /* skip the rest of the line on error */
{
/* returns a pointer to the descriptor of the identifier that is
read from the input stream. When the input doe not contain
an identifier, the rest of the line is skipped when
skiponerr is on, and a null-pointer is returned.
The substitution of macros is disabled.
*/
int tok;
struct token tk;
tok = GetToken(&tk);
if (tok != IDENTIFIER) {
if (skiponerr && tok != EOI) SkipToNewLine(0);
return (struct idf *)0;
}
return tk.tk_idf;
}
domacro()
{
int tok;

2
lang/cem/cemcom.ansi/error.c
View file

@ -211,7 +211,6 @@ lexerror(va_alist) /* fmt, args */
va_end(ap);
}
#ifndef NOPP
/*VARARGS*/
lexwarning(va_alist) /* fmt, args */
va_dcl
@ -224,7 +223,6 @@ lexwarning(va_alist) /* fmt, args */
}
va_end(ap);
}
#endif NOPP
/*VARARGS*/
crash(va_alist) /* fmt, args */