diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-10-17 12:12:45 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-10-17 12:12:45 -0200 |
| commit | d80659759bcbcabf8b964356e5c9c867cd55effd (patch) | |
| tree | 0b5df11f98eda46d3d2517402659f0863ef1dcab /opcode.c | |
| parent | d24253d92f1579032c7a6a30e50bba75ca56d4fe (diff) | |
| download | lua-d80659759bcbcabf8b964356e5c9c867cd55effd.tar.gz lua-d80659759bcbcabf8b964356e5c9c867cd55effd.tar.bz2 lua-d80659759bcbcabf8b964356e5c9c867cd55effd.zip | |
new module luadebug.h.
Diffstat (limited to 'opcode.c')
| -rw-r--r-- | opcode.c | 7 |
1 files changed, 4 insertions, 3 deletions
| @@ -3,7 +3,7 @@ | |||
| 3 | ** TecCGraf - PUC-Rio | 3 | ** TecCGraf - PUC-Rio |
| 4 | */ | 4 | */ |
| 5 | 5 | ||
| 6 | char *rcs_opcode="$Id: opcode.c,v 3.43 1995/10/13 15:16:25 roberto Exp roberto $"; | 6 | char *rcs_opcode="$Id: opcode.c,v 3.44 1995/10/17 11:58:41 roberto Exp roberto $"; |
| 7 | 7 | ||
| 8 | #include <setjmp.h> | 8 | #include <setjmp.h> |
| 9 | #include <stdlib.h> | 9 | #include <stdlib.h> |
| @@ -11,6 +11,7 @@ char *rcs_opcode="$Id: opcode.c,v 3.43 1995/10/13 15:16:25 roberto Exp roberto $ | |||
| 11 | #include <string.h> | 11 | #include <string.h> |
| 12 | #include <math.h> | 12 | #include <math.h> |
| 13 | 13 | ||
| 14 | #include "luadebug.h" | ||
| 14 | #include "mem.h" | 15 | #include "mem.h" |
| 15 | #include "opcode.h" | 16 | #include "opcode.h" |
| 16 | #include "hash.h" | 17 | #include "hash.h" |
| @@ -353,7 +354,7 @@ void lua_error (char *s) | |||
| 353 | } | 354 | } |
| 354 | 355 | ||
| 355 | 356 | ||
| 356 | lua_Object luaD_stackedfunction (int level) | 357 | lua_Object lua_stackedfunction (int level) |
| 357 | { | 358 | { |
| 358 | Object *p = top; | 359 | Object *p = top; |
| 359 | while (--p >= stack) | 360 | while (--p >= stack) |
| @@ -364,7 +365,7 @@ lua_Object luaD_stackedfunction (int level) | |||
| 364 | } | 365 | } |
| 365 | 366 | ||
| 366 | 367 | ||
| 367 | void luaD_funcInfo (lua_Object func, char **filename, char **funcname, | 368 | void lua_funcinfo (lua_Object func, char **filename, char **funcname, |
| 368 | char **objname, int *linedefined) | 369 | char **objname, int *linedefined) |
| 369 | { | 370 | { |
| 370 | return luaI_funcInfo(Address(func), filename, funcname, objname, linedefined); | 371 | return luaI_funcInfo(Address(func), filename, funcname, objname, linedefined); |