xref: /netbsd-src/external/mit/lua/dist/src/ldebug.h (revision f89f6560d453f5e37386cc7938c072d2f528b9fa)
1 /*
2 ** $Id: ldebug.h,v 1.3 2015/02/02 14:03:05 lneto Exp $
3 ** Auxiliary functions from Debug Interface module
4 ** See Copyright Notice in lua.h
5 */
6 
7 #ifndef ldebug_h
8 #define ldebug_h
9 
10 
11 #include "lstate.h"
12 
13 
14 #define pcRel(pc, p)	(cast(int, (pc) - (p)->code) - 1)
15 
16 #define getfuncline(f,pc)	(((f)->lineinfo) ? (f)->lineinfo[pc] : -1)
17 
18 #define resethookcount(L)	(L->hookcount = L->basehookcount)
19 
20 /* Active Lua function (given call info) */
21 #define ci_func(ci)		(clLvalue((ci)->func))
22 
23 
24 LUAI_FUNC l_noret luaG_typeerror (lua_State *L, const TValue *o,
25                                                 const char *opname);
26 LUAI_FUNC l_noret luaG_concaterror (lua_State *L, const TValue *p1,
27                                                   const TValue *p2);
28 LUAI_FUNC l_noret luaG_opinterror (lua_State *L, const TValue *p1,
29                                                  const TValue *p2,
30                                                  const char *msg);
31 LUAI_FUNC l_noret luaG_tointerror (lua_State *L, const TValue *p1,
32                                                  const TValue *p2);
33 LUAI_FUNC l_noret luaG_ordererror (lua_State *L, const TValue *p1,
34                                                  const TValue *p2);
35 LUAI_FUNC l_noret luaG_runerror (lua_State *L, const char *fmt, ...);
36 LUAI_FUNC l_noret luaG_errormsg (lua_State *L);
37 LUAI_FUNC void luaG_traceexec (lua_State *L);
38 
39 
40 #endif
41