minor bug fix

This commit is contained in:
ceriel 1987-04-03 20:13:08 +00:00
parent a85ecb6719
commit 7af2ecb17f

View file

@ -173,7 +173,7 @@ skip_block()
*/ */
id = findidf(tk.tk_str); id = findidf(tk.tk_str);
free(tk.tk_str); free(tk.tk_str);
switch(id->id_resmac) { if (id) switch(id->id_resmac) {
case K_IF: case K_IF:
case K_IFDEF: case K_IFDEF:
case K_IFNDEF: case K_IFNDEF:
@ -298,6 +298,7 @@ do_define()
if ((nformals = getparams(formals, parbuf)) == -1) { if ((nformals = getparams(formals, parbuf)) == -1) {
PushBack(); PushBack();
skipline(); skipline();
free(str);
return; /* an error occurred */ return; /* an error occurred */
} }
LoadChar(ch); LoadChar(ch);
@ -306,10 +307,10 @@ do_define()
ch = skipspaces(ch); /* find first character of the text */ ch = skipspaces(ch); /* find first character of the text */
assert(ch != EOI); assert(ch != EOI);
if (class(ch) == STNL) { if (class(ch) == STNL) {
/* Treat `#define something' as `#define something ""' /* Treat `#define something' as `#define something "1"'
*/ */
repl_text = ""; repl_text = "1";
length = 0; length = 1;
} }
else { else {
PushBack(); PushBack();