From 6030d5fed4e754eec9b891aa09d37e15d5ae2562 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 18 Sep 2000 16:39:26 -0300
Subject: [PATCH] avoid assignment to local structure

---
 lapi.c | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/lapi.c b/lapi.c
index bde6eca8..e664ea43 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.97 2000/09/12 13:47:46 roberto Exp $
+** $Id: lapi.c,v 1.98 2000/09/14 14:09:31 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -76,12 +76,11 @@ void lua_remove (lua_State *L, int index) {
 
 
 void lua_insert (lua_State *L, int index) {
-  TObject temp = *(L->top-1);
   StkId p = Index(L, index);
   StkId q;
-  for (q = L->top-1; q>p; q--)
+  for (q = L->top; q>p; q--)
     *q = *(q-1);
-  *p = temp;
+  *p = *L->top;
 }
 
 
@@ -249,16 +248,16 @@ void lua_getglobal (lua_State *L, const char *name) {
 }
 
 
-void lua_gettable (lua_State *L, int tableindex) {
-  StkId t = Index(L, tableindex);
+void lua_gettable (lua_State *L, int index) {
+  StkId t = Index(L, index);
   StkId top = L->top;
   *(top-1) = *luaV_gettable(L, t);
   L->top = top;  /* tag method may change top */
 }
 
 
-void lua_rawget (lua_State *L, int tableindex) {
-  StkId t = Index(L, tableindex);
+void lua_rawget (lua_State *L, int index) {
+  StkId t = Index(L, index);
   LUA_ASSERT(ttype(t) == TAG_TABLE, "table expected");
   *(L->top - 1) = *luaH_get(L, hvalue(t), L->top - 1);
 }
@@ -313,16 +312,16 @@ void lua_setglobal (lua_State *L, const char *name) {
 }
 
 
-void lua_settable (lua_State *L, int tableindex) {
-  StkId t = Index(L, tableindex);
+void lua_settable (lua_State *L, int index) {
+  StkId t = Index(L, index);
   StkId top = L->top;
   luaV_settable(L, t, top-2);
   L->top = top-2;  /* pop index and value */
 }
 
 
-void lua_rawset (lua_State *L, int tableindex) {
-  StkId t = Index(L, tableindex);
+void lua_rawset (lua_State *L, int index) {
+  StkId t = Index(L, index);
   LUA_ASSERT(ttype(t) == TAG_TABLE, "table expected");
   *luaH_set(L, hvalue(t), L->top-2) = *(L->top-1);
   L->top -= 2;
@@ -406,8 +405,8 @@ void lua_unref (lua_State *L, int ref) {
 }
 
 
-int lua_next (lua_State *L, int tableindex) {
-  StkId t = Index(L, tableindex);
+int lua_next (lua_State *L, int index) {
+  StkId t = Index(L, index);
   Node *n;
   LUA_ASSERT(ttype(t) == TAG_TABLE, "table expected");
   n = luaH_next(L, hvalue(t), Index(L, -1));