diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-08-06 12:32:22 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-08-06 12:32:22 -0300 |
| commit | a2fa48a570b01b2a2cd37f01799f08f693fc5892 (patch) | |
| tree | b41fc7e88f7f941ae1589921f8d7c0ff57146f4d /lstate.c | |
| parent | 8b2b8790b5c419282f4fa0c7faa168379647b3b9 (diff) | |
| download | lua-a2fa48a570b01b2a2cd37f01799f08f693fc5892.tar.gz lua-a2fa48a570b01b2a2cd37f01799f08f693fc5892.tar.bz2 lua-a2fa48a570b01b2a2cd37f01799f08f693fc5892.zip | |
new (old?) error handling scheme
Diffstat (limited to 'lstate.c')
| -rw-r--r-- | lstate.c | 8 |
1 files changed, 2 insertions, 6 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lstate.c,v 1.100 2002/08/05 17:36:24 roberto Exp roberto $ | 2 | ** $Id: lstate.c,v 1.101 2002/08/05 18:45:45 roberto Exp roberto $ |
| 3 | ** Global State | 3 | ** Global State |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -47,8 +47,6 @@ static void stack_init (lua_State *L, lua_State *OL) { | |||
| 47 | L->ci->top = L->top + LUA_MINSTACK; | 47 | L->ci->top = L->top + LUA_MINSTACK; |
| 48 | L->size_ci = BASIC_CI_SIZE; | 48 | L->size_ci = BASIC_CI_SIZE; |
| 49 | L->end_ci = L->base_ci + L->size_ci; | 49 | L->end_ci = L->base_ci + L->size_ci; |
| 50 | L->toreset = luaM_newvector(OL, 2, Protection); | ||
| 51 | L->size_toreset = 2; | ||
| 52 | } | 50 | } |
| 53 | 51 | ||
| 54 | 52 | ||
| @@ -102,8 +100,7 @@ static void preinit_state (lua_State *L) { | |||
| 102 | L->openupval = NULL; | 100 | L->openupval = NULL; |
| 103 | L->size_ci = 0; | 101 | L->size_ci = 0; |
| 104 | L->base_ci = L->ci = NULL; | 102 | L->base_ci = L->ci = NULL; |
| 105 | L->toreset = NULL; | 103 | L->errfunc = 0; |
| 106 | L->size_toreset = L->number_toreset = 0; | ||
| 107 | setnilvalue(defaultmeta(L)); | 104 | setnilvalue(defaultmeta(L)); |
| 108 | setnilvalue(gt(L)); | 105 | setnilvalue(gt(L)); |
| 109 | setnilvalue(registry(L)); | 106 | setnilvalue(registry(L)); |
| @@ -154,7 +151,6 @@ void luaE_closethread (lua_State *OL, lua_State *L) { | |||
| 154 | L->previous->next = L->next; | 151 | L->previous->next = L->next; |
| 155 | L->next->previous = L->previous; | 152 | L->next->previous = L->previous; |
| 156 | luaM_freearray(OL, L->base_ci, L->size_ci, CallInfo); | 153 | luaM_freearray(OL, L->base_ci, L->size_ci, CallInfo); |
| 157 | luaM_freearray(OL, L->toreset, L->size_toreset, Protection); | ||
| 158 | luaM_freearray(OL, L->stack, L->stacksize, TObject); | 154 | luaM_freearray(OL, L->stack, L->stacksize, TObject); |
| 159 | luaM_freelem(OL, L); | 155 | luaM_freelem(OL, L); |
| 160 | } | 156 | } |
