mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-01-14 21:29:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

new type lua_Function for activation records

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1996-02-08 15:03:20 -02:00
parent bbb23048e3
commit 826d70fcba
2 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
luadebug.h
View File

@ -2,7 +2,7 @@
** LUA - Linguagem para Usuarios de Aplicacao
** Grupo de Tecnologia em Computacao Grafica
** TeCGraf - PUC-Rio
** $Id: luadebug.h,v 1.3 1996/01/09 20:22:44 roberto Exp roberto $
** $Id: luadebug.h,v 1.4 1996/02/07 18:10:27 roberto Exp roberto $
*/
@ -11,18 +11,20 @@
#include "lua.h"
typedef void (*lua_LHFunction) (int line);
typedef void (*lua_CHFunction) (lua_Object func, char *file, int line);
typedef lua_Object lua_Function;
lua_Object lua_stackedfunction (int level);
typedef void (*lua_LHFunction) (int line);
typedef void (*lua_CHFunction) (lua_Function func, char *file, int line);
lua_Function lua_stackedfunction (int level);
void lua_funcinfo (lua_Object func, char **filename, int *linedefined);
int lua_currentline (lua_Object func);
int lua_currentline (lua_Function func);
char *lua_getobjname (lua_Object o, char **name);
lua_LHFunction lua_setlinehook (lua_LHFunction hook);
lua_CHFunction lua_setcallhook (lua_CHFunction hook);
lua_Object lua_getlocal (lua_Object func, int local_number, char **name);
int lua_setlocal (lua_Object func, int local_number);
lua_Object lua_getlocal (lua_Function func, int local_number, char **name);
int lua_setlocal (lua_Function func, int local_number);
extern int lua_debug;

10
opcode.c
View File

@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio
*/
char *rcs_opcode="$Id: opcode.c,v 3.54 1996/01/30 15:25:23 roberto Exp roberto $";
char *rcs_opcode="$Id: opcode.c,v 3.55 1996/02/07 18:10:27 roberto Exp roberto $";
#include <setjmp.h>
#include <stdlib.h>
@ -423,7 +423,7 @@ void lua_error (char *s)
}
lua_Object lua_stackedfunction (int level)
lua_Function lua_stackedfunction (int level)
{
Object *p = top;
while (--p >= stack)
@ -434,14 +434,14 @@ lua_Object lua_stackedfunction (int level)
}
int lua_currentline (lua_Object func)
int lua_currentline (lua_Function func)
{
Object *f = Address(func);
return (f+1 < top && (f+1)->tag == LUA_T_LINE) ? (f+1)->value.i : -1;
}
lua_Object lua_getlocal (lua_Object func, int local_number, char **name)
lua_Object lua_getlocal (lua_Function func, int local_number, char **name)
{
Object *f = luaI_Address(func);
*name = luaI_getlocalname(f->value.tf, local_number, lua_currentline(func));
@ -455,7 +455,7 @@ lua_Object lua_getlocal (lua_Object func, int local_number, char **name)
return LUA_NOOBJECT;
}
int lua_setlocal (lua_Object func, int local_number)
int lua_setlocal (lua_Function func, int local_number)
{
Object *f = Address(func);
char *name = luaI_getlocalname(f->value.tf, local_number, lua_currentline(func));