rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

improve of compiling error messages.

This commit is contained in:
Roberto Ierusalimschy 1996-02-05 11:26:01 -02:00
parent 98fe770cab
commit 1431b52e76
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lua.stx
View File

@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 3.26 1996/01/22 18:39:37 roberto Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 3.27 1996/01/23 17:50:29 roberto Exp $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -56,9 +56,12 @@ static int nfields=0;
static void yyerror (char *s) static void yyerror (char *s)
{ {
static char msg[256]; char msg[256];
sprintf (msg,"%s near \"%s\" at line %d in file `%s'", char *token = lua_lasttext();
s, lua_lasttext (), lua_linenumber, lua_parsedfile); if (token[0] == 0)
token = "<eof>";
sprintf (msg,"%s; last token read: \"%s\" at line %d in file `%s'",
s, token, lua_linenumber, lua_parsedfile);
lua_error (msg); lua_error (msg);
} }
@ -67,7 +70,7 @@ static void code_byte (Byte c)
if (pc>maxcurr-2) /* 1 byte free to code HALT of main code */ if (pc>maxcurr-2) /* 1 byte free to code HALT of main code */
{ {
if (maxcurr >= MAX_INT) if (maxcurr >= MAX_INT)
lua_error("code size overflow"); yyerror("code size overflow");
maxcurr *= 2; maxcurr *= 2;
if (maxcurr >= MAX_INT) if (maxcurr >= MAX_INT)
maxcurr = MAX_INT; maxcurr = MAX_INT;
@ -117,7 +120,7 @@ static void push_field (Word name)
if (nfields < MAXFIELDS) if (nfields < MAXFIELDS)
fields[nfields++] = name; fields[nfields++] = name;
else else
lua_error ("too many fields in nested constructors"); yyerror ("too many fields in nested constructors");
} }
static void flush_record (int n) static void flush_record (int n)
@ -142,7 +145,7 @@ static void flush_list (int m, int n)
code_byte(m); code_byte(m);
} }
else else
lua_error ("list constructor too long"); yyerror ("list constructor too long");
code_byte(n); code_byte(n);
} }
@ -151,7 +154,7 @@ static void add_localvar (TreeNode *name)
if (nlocalvar < MAXLOCALS) if (nlocalvar < MAXLOCALS)
localvar[nlocalvar++] = name; localvar[nlocalvar++] = name;
else else
lua_error ("too many local variables"); yyerror ("too many local variables");
} }
static void store_localvar (TreeNode *name, int n) static void store_localvar (TreeNode *name, int n)
@ -159,7 +162,7 @@ static void store_localvar (TreeNode *name, int n)
if (nlocalvar+n < MAXLOCALS) if (nlocalvar+n < MAXLOCALS)
localvar[nlocalvar+n] = name; localvar[nlocalvar+n] = name;
else else
lua_error ("too many local variables"); yyerror ("too many local variables");
} }
static void add_varbuffer (Long var) static void add_varbuffer (Long var)
@ -167,7 +170,7 @@ static void add_varbuffer (Long var)
if (nvarbuffer < MAXVAR) if (nvarbuffer < MAXVAR)
varbuffer[nvarbuffer++] = var; varbuffer[nvarbuffer++] = var;
else else
lua_error ("variable buffer overflow"); yyerror ("variable buffer overflow");
} }
static void code_number (float f) static void code_number (float f)