fixed some minor problems

This commit is contained in:
ceriel
1987-11-03 12:44:09 +00:00
parent 1754a3d4a4
commit 9ac44925f8
3 changed files with 4 additions and 2 deletions

View File

@@ -560,7 +560,7 @@ noscale:
if (np >= &buf[NUMSIZE]) {
tk->TOK_REL = Salloc("0.0", 5);
lexerror("floating constant too long");
lexerror("real constant too long");
}
else tk->TOK_REL = Salloc(buf, (unsigned) (np - buf)) + 1;
return tk->tk_symb = REAL;