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

lua_debugline is kept in the stack 'funcstack' when debugging.

This commit is contained in:
Roberto Ierusalimschy 1994-11-09 16:09:22 -02:00
parent b8bfa9628d
commit fc0de64c2c
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
inout.c
View File

@ -5,7 +5,7 @@
** Also provides some predefined lua functions. ** Also provides some predefined lua functions.
*/ */
char *rcs_inout="$Id: inout.c,v 2.8 1994/11/07 16:34:44 roberto Exp roberto $"; char *rcs_inout="$Id: inout.c,v 2.9 1994/11/08 20:06:15 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -21,13 +21,17 @@ char *rcs_inout="$Id: inout.c,v 2.8 1994/11/07 16:34:44 roberto Exp roberto $";
/* Exported variables */ /* Exported variables */
int lua_linenumber; int lua_linenumber;
int lua_debug; int lua_debug;
int lua_debugline; int lua_debugline = 0;
/* Internal variables */ /* Internal variables */
#ifndef MAXFUNCSTACK #ifndef MAXFUNCSTACK
#define MAXFUNCSTACK 64 #define MAXFUNCSTACK 64
#endif #endif
static struct { char *file; int function; } funcstack[MAXFUNCSTACK]; static struct {
char *file;
int function;
int line;
} funcstack[MAXFUNCSTACK];
static int nfuncstack=0; static int nfuncstack=0;
static FILE *fp; static FILE *fp;
@ -117,6 +121,7 @@ int lua_pushfunction (char *file, int function)
} }
funcstack[nfuncstack].function = function; funcstack[nfuncstack].function = function;
funcstack[nfuncstack].file = file; funcstack[nfuncstack].file = file;
funcstack[nfuncstack].line= lua_debugline;
nfuncstack++; nfuncstack++;
return 0; return 0;
} }
@ -127,7 +132,8 @@ int lua_pushfunction (char *file, int function)
*/ */
void lua_popfunction (void) void lua_popfunction (void)
{ {
nfuncstack--; --nfuncstack;
lua_debugline = funcstack[nfuncstack].line;
} }
/* /*
@ -269,6 +275,6 @@ void luaI_error (void)
{ {
char *s = lua_getstring(lua_getparam(1)); char *s = lua_getstring(lua_getparam(1));
if (s == NULL) s = "(no message)"; if (s == NULL) s = "(no message)";
lua_error(s); lua_reportbug(s);
} }