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