hedgewars/LuaPas.pas
changeset 10293 201ea4989985
parent 10238 7e20804db6a2
child 11826 d8844d4c67de
equal deleted inserted replaced
10292:1c6639b49afc 10293:201ea4989985
   520     LUA_MASKLINE  = 1 shl LUA_HOOKLINE;
   520     LUA_MASKLINE  = 1 shl LUA_HOOKLINE;
   521     LUA_MASKCOUNT = 1 shl LUA_HOOKCOUNT;
   521     LUA_MASKCOUNT = 1 shl LUA_HOOKCOUNT;
   522 
   522 
   523 type
   523 type
   524     lua_Debug = packed record
   524     lua_Debug = packed record
   525     event : LongInt;
   525     event : LUA_INTEGER_;
   526     name : PChar;          (* (n) *)
   526     name : PChar;               (* (n) *)
   527     namewhat : PChar;      (* (n) `global', `local', `field', `method' *)
   527     namewhat : PChar;           (* (n) `global', `local', `field', `method' *)
   528     what : PChar;          (* (S) `Lua', `C', `main', `tail' *)
   528     what : PChar;               (* (S) `Lua', `C', `main', `tail' *)
   529     source : PChar;        (* (S) *)
   529     source : PChar;             (* (S) *)
   530     currentline : LongInt; (* (l) *)
   530     currentline : LUA_INTEGER_; (* (l) *)
   531     nups : LongInt;        (* (u) number of upvalues *)
   531     nups : LUA_INTEGER_;        (* (u) number of upvalues *)
   532     linedefined : LongInt; (* (S) *)
   532     linedefined : LUA_INTEGER_; (* (S) *)
   533     short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *)
   533     short_src : array [0..LUA_IDSIZE-1] of Char; (* (S) *)
   534     (* private part *)
   534     (* private part *)
   535     i_ci : LongInt;        (* active function *)
   535     i_ci : LUA_INTEGER_;        (* active function *)
   536     end;
   536     end;
   537     Plua_Debug = ^lua_Debug;
   537     Plua_Debug = ^lua_Debug;
   538 
   538 
   539   (* Functions to be called by the debuger in specific events *)
   539   (* Functions to be called by the debuger in specific events *)
   540   lua_Hook = procedure (L : Plua_State; ar : Plua_Debug); cdecl;
   540   lua_Hook = procedure (L : Plua_State; ar : Plua_Debug); cdecl;