fixed behaviour on too long floating point constants

1989-07-26 11:16:59 +00:00
parent 90101c0dec
commit 5f35d0c644
2 changed files with 2 additions and 2 deletions
--- a/lang/cem/cemcom/LLlex.c
+++ b/lang/cem/cemcom/LLlex.c
@@ -445,7 +445,7 @@ firstline:
 		buf[0] = '-';	/* good heavens...	*/
 		if (np == &buf[NUMSIZE+1]) {
 			lexerror("floating constant too long");
-			ptok->tk_fval = Salloc("0.0",(unsigned) 5) + 1;
+			ptok->tk_fval = Salloc("-0.0",(unsigned) 5) + 1;
 		}
 		else
 			ptok->tk_fval = Salloc(buf,(unsigned) (np - buf)) + 1;