aboutsummaryrefslogtreecommitdiff
path: root/lstate.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2002-08-06 12:32:22 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2002-08-06 12:32:22 -0300
commita2fa48a570b01b2a2cd37f01799f08f693fc5892 (patch)
treeb41fc7e88f7f941ae1589921f8d7c0ff57146f4d /lstate.c
parent8b2b8790b5c419282f4fa0c7faa168379647b3b9 (diff)
downloadlua-a2fa48a570b01b2a2cd37f01799f08f693fc5892.tar.gz
lua-a2fa48a570b01b2a2cd37f01799f08f693fc5892.tar.bz2
lua-a2fa48a570b01b2a2cd37f01799f08f693fc5892.zip
new (old?) error handling scheme
Diffstat (limited to 'lstate.c')
-rw-r--r--lstate.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/lstate.c b/lstate.c
index 1f1c73fe..4e281977 100644
--- a/lstate.c
+++ b/lstate.c
@@ -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}