lua

commit 4494094031d3785b4527a9baf572cb1e272aa9d2
parent 04bbd0117174911a489ca7d2603c1e8717565405
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed, 16 Mar 2005 17:02:26 -0300

detail

Diffstat:
M
ldo.c
 | 
3
++-
M
lgc.c
 | 
4
++--

2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/ldo.c b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 2.16 2005/03/08 20:10:05 roberto Exp roberto $
+** $Id: ldo.c,v 2.17 2005/03/09 16:28:07 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -74,6 +74,7 @@ void luaD_throw (lua_State *L, int errcode) {
     LUAI_THROW(L, L->errorJmp);
   }
   else {
+    L->status = errcode;
     if (G(L)->panic) G(L)->panic(L);
     exit(EXIT_FAILURE);
   }
diff --git a/lgc.c b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 2.28 2005/03/08 20:10:05 roberto Exp roberto $
+** $Id: lgc.c,v 2.29 2005/03/09 16:28:07 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -539,7 +539,7 @@ static void atomic (lua_State *L) {
   propagateall(g);  /* remark, to propagate `preserveness' */
   cleartable(g->weak);  /* remove collected objects from weak tables */
   /* flip current white */
-  g->currentwhite = otherwhite(g);
+  g->currentwhite = cast(lu_byte, otherwhite(g));
   g->sweepstrgc = 0;
   g->sweepgc = &g->rootgc;
   g->gcstate = GCSsweepstring;