From 333a4f13d084b99c3729414c9c2d66222a8a1fc7 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 18 Nov 1994 17:46:21 -0200
Subject: [PATCH] lua_lock receives its parameter via stack

---
 fallback.c | 10 +++++-----
 fallback.h |  3 ++-
 mathlib.c  |  4 ++--
 3 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/fallback.c b/fallback.c
index 5690be64..f99fe63d 100644
--- a/fallback.c
+++ b/fallback.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
  
-char *rcs_fallback="$Id: fallback.c,v 1.5 1994/11/10 17:36:54 roberto Exp roberto $";
+char *rcs_fallback="$Id: fallback.c,v 1.6 1994/11/16 17:38:08 roberto Exp roberto $";
 
 #include <stdio.h>
  
@@ -112,16 +112,16 @@ static void GDFB (void) { }
 static Object *lockArray = NULL;
 static int lockSize = 0;
 
-int lua_lock (lua_Object object)
+int luaI_lock (Object *object)
 {
   int i;
   int oldSize;
-  if (lua_isnil(object))
+  if (tag(object) == LUA_T_NIL)
     return -1;
   for (i=0; i<lockSize; i++)
     if (tag(&lockArray[i]) == LUA_T_NIL)
     {
-      lockArray[i] = *luaI_Address(object);
+      lockArray[i] = *object;
       return i;
     }
   /* no more empty spaces */
@@ -138,7 +138,7 @@ int lua_lock (lua_Object object)
   }
   for (i=oldSize; i<lockSize; i++)
     tag(&lockArray[i]) = LUA_T_NIL;
-  lockArray[oldSize] = *luaI_Address(object);
+  lockArray[oldSize] = *object;
   return oldSize;
 }
 
diff --git a/fallback.h b/fallback.h
index bde3c5ce..d447ce04 100644
--- a/fallback.h
+++ b/fallback.h
@@ -1,5 +1,5 @@
 /*
-** $Id: fallback.h,v 1.3 1994/11/10 17:11:52 roberto Exp roberto $
+** $Id: fallback.h,v 1.4 1994/11/10 17:36:54 roberto Exp roberto $
 */
  
 #ifndef fallback_h
@@ -23,6 +23,7 @@ extern struct FB {
 #define FB_GC 8
 
 void luaI_setfallback (void);
+int luaI_lock (Object *object);
 Object *luaI_getlocked (int ref);
 void luaI_travlock (void (*fn)(Object *));
 
diff --git a/mathlib.c b/mathlib.c
index f0e84b98..4042834d 100644
--- a/mathlib.c
+++ b/mathlib.c
@@ -3,7 +3,7 @@
 ** Mathematics library to LUA
 */
 
-char *rcs_mathlib="$Id: mathlib.c,v 1.4 1994/10/11 13:06:47 celes Exp roberto $";
+char *rcs_mathlib="$Id: mathlib.c,v 1.5 1994/11/17 19:43:34 roberto Exp roberto $";
 
 #include <stdio.h>		/* NULL */
 #include <math.h>
@@ -310,5 +310,5 @@ void mathlib_open (void)
  lua_register ("exp",   math_exp);
  lua_register ("deg",   math_deg);
  lua_register ("rad",   math_rad);
- old_pow = lua_lock(lua_setfallback("arith", math_pow));
+ old_pow = lua_lockobject(lua_setfallback("arith", math_pow));
 }