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

fixed behaviour on too long floating point constants

Browse Source
This commit is contained in:
ceriel
1989-07-26 11:16:59 +00:00
parent 90101c0dec
commit 5f35d0c644
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lang/m2/comp/LLlex.c
View File

@@ -582,7 +582,7 @@ lexwarning(W_ORDINARY, "overflow in constant");
PushBack();
if (np >= &buf[NUMSIZE]) {
tk->TOK_REL = Salloc("0.0", 5);
tk->TOK_REL = Salloc("-0.0", 5)+1;
lexerror("real constant too long");
}
else tk->TOK_REL = Salloc(buf, (unsigned) (np - buf)) + 1;