xref: /freebsd/sys/contrib/openzfs/module/lua/ldebug.h (revision 5ca8e32633c4ffbbcd6762e5888b6a4ba0708c6c)
1 /*
2 ** $Id: ldebug.h,v 2.7.1.1 2013/04/12 18:48:47 roberto 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] : 0)
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, StkId p1, StkId p2);
27 LUAI_FUNC l_noret luaG_aritherror (lua_State *L, const TValue *p1,
28                                                  const TValue *p2);
29 LUAI_FUNC l_noret luaG_ordererror (lua_State *L, const TValue *p1,
30                                                  const TValue *p2);
31 LUAI_FUNC l_noret luaG_runerror (lua_State *L, const char *fmt, ...);
32 LUAI_FUNC l_noret luaG_errormsg (lua_State *L);
33 
34 #endif
35