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

changed UnGetChar() to ChPushBack() in domacro.c

Browse source
This commit is contained in:
eck 1990-01-05 09:28:54 +00:00
parent 369a99fe3a
commit abcaa3e669
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -336,7 +336,8 @@ do_define()
/* read the replacement text if there is any */
ch = skipspaces(ch,0); /* find first character of the text */
ASSERT(ch != EOI);
UnGetChar();
/* UngetChar() is not right when replacement starts with a '/' */
ChPushBack(ch);
repl_text = get_text((nformals > 0) ? formals : 0, &length);
macro_def(id, repl_text, nformals, length, NOFLAG);
LineNumber++;
@ -626,11 +627,10 @@ get_text(formals, length)
c = GetChar();
if (c == '*') {
skipcomment();
if(blank++) add2repl(repl, ' ');
if (!blank++) add2repl(repl, ' ');
c = GetChar();
continue;
}
else add2repl(repl, '/');
} else add2repl(repl, '/');
} else if (formals
&& (class(c) == STIDF || class(c) == STELL)) {
char id_buf[IDFSIZE + 1];

3
lang/cem/cpp.ansi/domacro.c
View file

@ -347,7 +347,8 @@ do_define()
/* read the replacement text if there is any */
ch = skipspaces(ch,0); /* find first character of the text */
assert(ch != EOI);
UnGetChar();
/* UngetChar() is not right when replacement starts with a '/' */
ChPushBack(ch);
repl_text = get_text((nformals > 0) ? formals : 0, &length);
macro_def(str2idf(str, 0), repl_text, nformals, length, NOFLAG);
LineNumber++;