Browse Source

lexical #7/19, express verbosely where `wlist' and `cw' are NULL

rlar 14 years ago
parent
commit
3cbc4b0773
  1. 7
      src/frontend/parser/lexical.c

7
src/frontend/parser/lexical.c

@ -118,7 +118,9 @@ cp_lexer(char *string)
cp_ccon(TRUE); cp_ccon(TRUE);
prompt(); prompt();
} }
nloop: i = 0;
nloop:
wlist = cw = NULL;
i = 0;
j = 0; j = 0;
paren = 0; paren = 0;
bzero(linebuf, NEW_BSIZE_SP); bzero(linebuf, NEW_BSIZE_SP);
@ -165,6 +167,7 @@ gotchar:
return (NULL); return (NULL);
while (((c = input(cp_inp_cur)) != '\n') && (c != EOF)) while (((c = input(cp_inp_cur)) != '\n') && (c != EOF))
; ;
wlist = cw = NULL;
goto nloop; goto nloop;
} }
@ -258,6 +261,7 @@ gotchar:
#else #else
fputc(linebuf[j], cp_out); /* But you can't edit */ fputc(linebuf[j], cp_out); /* But you can't edit */
#endif #endif
wlist = cw = NULL;
goto nloop; goto nloop;
} else /* EOF during a source */ } else /* EOF during a source */
{ {
@ -281,6 +285,7 @@ gotchar:
// cp_ccom doesn't mess wlist, read only access to wlist->wl_word // cp_ccom doesn't mess wlist, read only access to wlist->wl_word
cp_ccom(wlist, buf, TRUE); cp_ccom(wlist, buf, TRUE);
wl_free(wlist); wl_free(wlist);
wlist = cw = NULL;
goto nloop; goto nloop;
} goto ldefault; /* else continue with default ... */ } goto ldefault; /* else continue with default ... */
case ',': case ',':

Loading…
Cancel
Save