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

debug shows lines where functions were called

This commit is contained in:
Roberto Ierusalimschy 1994-11-21 19:41:09 -02:00
parent bba1ae427f
commit 52db68a600
2 changed files with 45 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
inout.c
View File

@ -5,12 +5,13 @@
** Also provides some predefined lua functions.
*/
char *rcs_inout="$Id: inout.c,v 2.10 1994/11/09 18:09:22 roberto Exp roberto $";
char *rcs_inout="$Id: inout.c,v 2.11 1994/11/14 21:40:14 roberto Exp roberto $";
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "mem.h"
#include "opcode.h"
#include "hash.h"
#include "inout.h"
@ -23,15 +24,21 @@ int lua_linenumber;
int lua_debug;
int lua_debugline = 0;
/* Internal variables */
#ifndef MAXFUNCSTACK
#define MAXFUNCSTACK 64
#define MAXFUNCSTACK 100
#endif
static struct {
typedef struct FuncStackNode {
struct FuncStackNode *next;
char *file;
int function;
int line;
} funcstack[MAXFUNCSTACK];
} FuncStackNode;
static FuncStackNode *funcStack = NULL;
static int nfuncstack=0;
static FILE *fp;
@ -110,30 +117,35 @@ void lua_closestring (void)
/*
** Called to execute SETFUNCTION opcode, this function pushs a function into
** function stack. Return 0 on success or 1 on error.
** function stack.
*/
int lua_pushfunction (char *file, int function)
void lua_pushfunction (char *file, int function)
{
if (nfuncstack >= MAXFUNCSTACK-1)
FuncStackNode *newNode;
if (nfuncstack++ >= MAXFUNCSTACK)
{
lua_error ("function stack overflow");
return 1;
lua_reportbug("function stack overflow");
}
funcstack[nfuncstack].function = function;
funcstack[nfuncstack].file = file;
funcstack[nfuncstack].line= lua_debugline;
nfuncstack++;
return 0;
newNode = new(FuncStackNode);
newNode->function = function;
newNode->file = file;
newNode->line= lua_debugline;
newNode->next = funcStack;
funcStack = newNode;
}
/*
** Called to execute RESET opcode, this function pops a function from
** Called to execute RESET opcode, this function pops a function from
** function stack.
*/
void lua_popfunction (void)
{
FuncStackNode *temp = funcStack;
if (temp == NULL) return;
--nfuncstack;
lua_debugline = funcstack[nfuncstack].line;
lua_debugline = temp->line;
funcStack = temp->next;
luaI_free(temp);
}
/*
@ -141,22 +153,24 @@ void lua_popfunction (void)
*/
void lua_reportbug (char *s)
{
char msg[1024];
char msg[MAXFUNCSTACK*80];
strcpy (msg, s);
if (lua_debugline != 0)
{
int i;
if (nfuncstack > 0)
if (funcStack)
{
sprintf (strchr(msg,0),
"\n\tin statement begining at line %d in function \"%s\" of file \"%s\"",
lua_debugline, lua_constant[funcstack[nfuncstack-1].function],
funcstack[nfuncstack-1].file);
sprintf (strchr(msg,0), "\n\tactive stack\n");
for (i=nfuncstack-1; i>=0; i--)
sprintf (strchr(msg,0), "\t-> function \"%s\" of file \"%s\"\n",
lua_constant[funcstack[i].function],
funcstack[i].file);
FuncStackNode *func = funcStack;
int line = lua_debugline;
sprintf (strchr(msg,0), "\n\tactive stack:\n");
do
{
sprintf (strchr(msg,0),
"\t-> function \"%s\" at file \"%s\":%d\n",
lua_constant[func->function], func->file, line);
line = func->line;
func = func->next;
lua_popfunction();
} while (func);
}
else
{

5
inout.h
View File

@ -1,11 +1,12 @@
/*
** $Id: inout.h,v 1.4 1994/11/03 22:34:29 roberto Exp roberto $
** $Id: inout.h,v 1.5 1994/11/08 20:06:15 roberto Exp roberto $
*/
#ifndef inout_h
#define inout_h
extern int lua_linenumber;
extern int lua_debug;
extern int lua_debugline;
@ -14,7 +15,7 @@ char *lua_openfile (char *fn);
void lua_closefile (void);
char *lua_openstring (char *s);
void lua_closestring (void);
int lua_pushfunction (char *file, int function);
void lua_pushfunction (char *file, int function);
void lua_popfunction (void);
void lua_reportbug (char *s);