diff options
Diffstat (limited to 'ldo.c')
-rw-r--r-- | ldo.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldo.c,v 1.69 2000/03/10 18:37:44 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.70 2000/03/29 20:19:20 roberto Exp roberto $ |
3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -55,7 +55,7 @@ void luaD_checkstack (lua_State *L, int n) { | |||
55 | lua_error(L, "BAD STACK OVERFLOW! DATA CORRUPTED!"); | 55 | lua_error(L, "BAD STACK OVERFLOW! DATA CORRUPTED!"); |
56 | } | 56 | } |
57 | else { | 57 | else { |
58 | lua_Dbgactreg dummy; | 58 | lua_Debug dummy; |
59 | L->stack_last += EXTRA_STACK; /* to be used by error message */ | 59 | L->stack_last += EXTRA_STACK; /* to be used by error message */ |
60 | if (lua_getstack(L, L->stacksize/SLOTS_PER_F, &dummy) == 0) { | 60 | if (lua_getstack(L, L->stacksize/SLOTS_PER_F, &dummy) == 0) { |
61 | /* too few funcs on stack: doesn't look like a recursion loop */ | 61 | /* too few funcs on stack: doesn't look like a recursion loop */ |
@@ -103,7 +103,7 @@ void luaD_openstack (lua_State *L, StkId pos) { | |||
103 | 103 | ||
104 | void luaD_lineHook (lua_State *L, StkId func, int line) { | 104 | void luaD_lineHook (lua_State *L, StkId func, int line) { |
105 | if (L->allowhooks) { | 105 | if (L->allowhooks) { |
106 | lua_Dbgactreg ar; | 106 | lua_Debug ar; |
107 | struct C_Lua_Stack oldCLS = L->Cstack; | 107 | struct C_Lua_Stack oldCLS = L->Cstack; |
108 | StkId old_top = L->Cstack.lua2C = L->Cstack.base = L->top; | 108 | StkId old_top = L->Cstack.lua2C = L->Cstack.base = L->top; |
109 | L->Cstack.num = 0; | 109 | L->Cstack.num = 0; |
@@ -119,10 +119,10 @@ void luaD_lineHook (lua_State *L, StkId func, int line) { | |||
119 | } | 119 | } |
120 | 120 | ||
121 | 121 | ||
122 | static void luaD_callHook (lua_State *L, StkId func, lua_Dbghook callhook, | 122 | static void luaD_callHook (lua_State *L, StkId func, lua_Hook callhook, |
123 | const char *event) { | 123 | const char *event) { |
124 | if (L->allowhooks) { | 124 | if (L->allowhooks) { |
125 | lua_Dbgactreg ar; | 125 | lua_Debug ar; |
126 | struct C_Lua_Stack oldCLS = L->Cstack; | 126 | struct C_Lua_Stack oldCLS = L->Cstack; |
127 | StkId old_top = L->Cstack.lua2C = L->Cstack.base = L->top; | 127 | StkId old_top = L->Cstack.lua2C = L->Cstack.base = L->top; |
128 | L->Cstack.num = 0; | 128 | L->Cstack.num = 0; |
@@ -179,7 +179,7 @@ void luaD_callTM (lua_State *L, const TObject *f, int nParams, int nResults) { | |||
179 | */ | 179 | */ |
180 | void luaD_call (lua_State *L, StkId func, int nResults) { | 180 | void luaD_call (lua_State *L, StkId func, int nResults) { |
181 | StkId firstResult; | 181 | StkId firstResult; |
182 | lua_Dbghook callhook = L->callhook; | 182 | lua_Hook callhook = L->callhook; |
183 | retry: /* for `function' tag method */ | 183 | retry: /* for `function' tag method */ |
184 | switch (ttype(func)) { | 184 | switch (ttype(func)) { |
185 | case TAG_LCLOSURE: { | 185 | case TAG_LCLOSURE: { |