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

Added support for constant floating point expressions

Browse Source
This commit is contained in:
ceriel
1989-12-19 09:40:25 +00:00
parent fe14fd11f4
commit 0c690061b3
13 changed files with 243 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -42,6 +42,7 @@ extern int cntlines;
#endif
extern char options[];
extern int flt_status;
STATIC
SkipComment()
@@ -391,10 +392,9 @@ again:
enum statetp {Oct,OptHex,Hex,Dec,OctEndOrHex,End,OptReal,Real};
register enum statetp state;
register int base = 8;
register char *np = &buf[1];
register char *np = &buf[0];
/* allow a '-' to be added */
buf[0] = '-';
*np++ = ch;
state = is_oct(ch) ? Oct : Dec;
LoadChar(ch);
@@ -489,7 +489,7 @@ again:
*/
arith ubound = max_int[sizeof(arith)]
/ (base >> 1);
np = &buf[1];
np = &buf[0];
while (*np == '0') np++;
tk->TOK_INT = 0;
while (*np) {
@@ -613,12 +613,17 @@ lexwarning(W_ORDINARY, "overflow in constant");
*np++ = '\0';
PushBack();
tk->tk_data.tk_real = new_real();
if (np >= &buf[NUMSIZE]) {
tk->TOK_REL = Salloc("-0.0", 5)+1;
tk->TOK_REAL = Salloc("0.0", 4);
lexerror("real constant too long");
}
else tk->TOK_REL = Salloc(buf, (unsigned) (np - buf)) + 1;
else tk->TOK_REAL = Salloc(buf, (unsigned) (np - buf));
CheckForLet();
flt_str2flt(tk->TOK_REAL, &(tk->TOK_RVAL));
if (flt_status == FLT_OVFL) {
lexwarning(W_ORDINARY, "overflow in floating point constant");
}
return tk->tk_symb = REAL;
/*NOTREACHED*/