godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
ceriel 1987-03-04 09:54:23 +00:00
parent 3f10da5472
commit 58a41cb1de
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/src/read_em/reade.c
View File

@ -280,6 +280,7 @@ getnumber(c, ap)
if (! isdigit(c)) { if (! isdigit(c)) {
ungetbyte(c); ungetbyte(c);
syntax("digit expected"); syntax("digit expected");
i_strings--;
return sp_cst4; return sp_cst4;
} }
@ -288,6 +289,7 @@ getnumber(c, ap)
for (;;) { for (;;) {
if (p >= &(s->str[STRSIZ])) { if (p >= &(s->str[STRSIZ])) {
syntax("number too long"); syntax("number too long");
i_strings--;
return sp_cst4; return sp_cst4;
} }
@ -582,6 +584,7 @@ line_line()
ap = gettyp(str_ptyp); ap = gettyp(str_ptyp);
btscpy(filebuf, ap->em_str, (int) ap->em_size); btscpy(filebuf, ap->em_str, (int) ap->em_size);
i_emargs--; i_emargs--;
i_strings--;
EM_filename = filebuf; EM_filename = filebuf;
} }