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

many minor fixes and modifications

Browse Source
This commit is contained in:
ceriel
1987-03-20 08:30:31 +00:00
parent 73818f1a53
commit 4e03fc78dd
9 changed files with 43 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/cem/cemcom/LLlex.c
View File

@@ -435,10 +435,10 @@ firstline:
buf[0] = '-'; /* good heavens... */
if (np == &buf[NUMSIZE+1]) {
lexerror("floating constant too long");
ptok->tk_fval = Salloc("0.0", 5) + 1;
ptok->tk_fval = Salloc("0.0",(unsigned) 5) + 1;
}
else
ptok->tk_fval = Salloc(buf, np - buf) + 1;
ptok->tk_fval = Salloc(buf,(unsigned) (np - buf)) + 1;
return ptok->tk_symb = FLOATING;
#endif NOFLOAT
}
@@ -489,7 +489,7 @@ string_token(nm, stop_char, plen)
{
register int ch;
register int str_size;
register char *str = Malloc(str_size = ISTRSIZE);
register char *str = Malloc((unsigned) (str_size = ISTRSIZE));
register int pos = 0;
LoadChar(ch);
@@ -514,7 +514,7 @@ string_token(nm, stop_char, plen)
}
str[pos++] = ch;
if (pos == str_size)
str = Srealloc(str, str_size += RSTRSIZE);
str = Srealloc(str, (unsigned) (str_size += RSTRSIZE));
LoadChar(ch);
}
str[pos++] = '\0'; /* for filenames etc. */