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

many minor corrections

Browse Source
This commit is contained in:
ceriel
1987-05-18 15:57:33 +00:00
parent e0c3807b29
commit 946006fb08
15 changed files with 193 additions and 186 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -156,13 +156,6 @@ getch()
return ch;
}
STATIC
linedirective() {
/* Read a line directive
*/
register int ch;
}
CheckForLineDirective()
{
register int ch = getch();
@@ -529,7 +522,7 @@ lexwarning(W_ORDINARY, "character constant out of range");
tk->TOK_REL = Salloc("0.0", 5);
lexerror("floating constant too long");
}
else tk->TOK_REL = Salloc(buf, np - buf) + 1;
else tk->TOK_REL = Salloc(buf, (unsigned) (np - buf)) + 1;
toktype = real_type;
return tk->tk_symb = REAL;