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

Added macro's for long selections

Browse Source
This commit is contained in:
ceriel
1991-03-06 10:52:34 +00:00
parent 2a8682bf68
commit 94d759700a
10 changed files with 38 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -617,12 +617,12 @@ lexwarning(W_ORDINARY, "overflow in constant");
tk->tk_data.tk_real = new_real();
if (np >= &buf[NUMSIZE]) {
tk->TOK_REAL = Salloc("0.0", 4);
tk->TOK_RSTR = Salloc("0.0", 4);
lexerror("real constant too long");
}
else tk->TOK_REAL = Salloc(buf, (unsigned) (np - buf));
else tk->TOK_RSTR = Salloc(buf, (unsigned) (np - buf));
CheckForLet();
flt_str2flt(tk->TOK_REAL, &(tk->TOK_RVAL));
flt_str2flt(tk->TOK_RSTR, &(tk->TOK_RVAL));
if (flt_status == FLT_OVFL) {
lexwarning(W_ORDINARY, "overflow in floating point constant");
}