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; |