source/include/ldebug.h

0001 /*
0002 ** $Id: ldebug.h $
0003 ** Auxiliary functions from Debug Interface module
0004 ** See Copyright Notice in lua.h
0005 */
0006
0007 #ifndef ldebug_h
0008 #define ldebug_h
0009
0010
0011 #include "lstate.h"
0012
0013
0014 #define pcRel(pc, p)    (cast_int((pc) - (p)->code) - 1)
0015
0016
0017 /* Active Lua function (given call info) */
0018 #define ci_func(ci)     (clLvalue(s2v((ci)->func.p)))
0019
0020
0021 #define resethookcount(L)   (L->hookcount = L->basehookcount)
0022
0023 /*
0024 ** mark for entries in 'lineinfo' array that has absolute information in
0025 ** 'abslineinfo' array
0026 */
0027 #define ABSLINEINFO (-0x80)
0028
0029
0030 /*
0031 ** MAXimum number of successive Instructions WiTHout ABSolute line
0032 ** information. (A power of two allows fast divisions.)
0033 */
0034 #if !defined(MAXIWTHABS)
0035 #define MAXIWTHABS  128
0036 #endif
0037
0038
0039 LUAI_FUNC int luaG_getfuncline (const Proto *f, int pc);
0040 LUAI_FUNC const char *luaG_findlocal (lua_State *L, CallInfo *ci, int n,
0041                                                     StkId *pos);
0042 LUAI_FUNC l_noret luaG_typeerror (lua_State *L, const TValue *o,
0043                                                 const char *opname);
0044 LUAI_FUNC l_noret luaG_callerror (lua_State *L, const TValue *o);
0045 LUAI_FUNC l_noret luaG_forerror (lua_State *L, const TValue *o,
0046                                                const char *what);
0047 LUAI_FUNC l_noret luaG_concaterror (lua_State *L, const TValue *p1,
0048                                                   const TValue *p2);
0049 LUAI_FUNC l_noret luaG_opinterror (lua_State *L, const TValue *p1,
0050                                                  const TValue *p2,
0051                                                  const char *msg);
0052 LUAI_FUNC l_noret luaG_tointerror (lua_State *L, const TValue *p1,
0053                                                  const TValue *p2);
0054 LUAI_FUNC l_noret luaG_ordererror (lua_State *L, const TValue *p1,
0055                                                  const TValue *p2);
0056 LUAI_FUNC l_noret luaG_runerror (lua_State *L, const char *fmt, ...);
0057 LUAI_FUNC const char *luaG_addinfo (lua_State *L, const char *msg,
0058                                                   TString *src, int line);
0059 LUAI_FUNC l_noret luaG_errormsg (lua_State *L);
0060 LUAI_FUNC int luaG_traceexec (lua_State *L, const Instruction *pc);
0061 LUAI_FUNC int luaG_tracecall (lua_State *L);
0062
0063
0064 #endif