From bd758df76ae7a34a18c6da755b46be1959abeb79 Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Mon, 21 Nov 2011 20:50:27 +0100
Subject: [PATCH] Replace stack slot for implicit number->string conv. in Lua/C
 API.

---
 src/lj_api.c | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/src/lj_api.c b/src/lj_api.c
index a6fbb1c6..5ef2dff1 100644
--- a/src/lj_api.c
+++ b/src/lj_api.c
@@ -437,6 +437,7 @@ LUA_API const char *lua_tolstring(lua_State *L, int idx, size_t *len)
     lj_gc_check(L);
     o = index2adr(L, idx);  /* GC may move the stack. */
     s = lj_str_fromnumber(L, o);
+    setstrV(L, o, s);
   } else {
     if (len != NULL) *len = 0;
     return NULL;
@@ -455,6 +456,7 @@ LUALIB_API const char *luaL_checklstring(lua_State *L, int idx, size_t *len)
     lj_gc_check(L);
     o = index2adr(L, idx);  /* GC may move the stack. */
     s = lj_str_fromnumber(L, o);
+    setstrV(L, o, s);
   } else {
     lj_err_argt(L, idx, LUA_TSTRING);
   }
@@ -476,6 +478,7 @@ LUALIB_API const char *luaL_optlstring(lua_State *L, int idx,
     lj_gc_check(L);
     o = index2adr(L, idx);  /* GC may move the stack. */
     s = lj_str_fromnumber(L, o);
+    setstrV(L, o, s);
   } else {
     lj_err_argt(L, idx, LUA_TSTRING);
   }
@@ -499,16 +502,19 @@ LUALIB_API int luaL_checkoption(lua_State *L, int idx, const char *def,
 LUA_API size_t lua_objlen(lua_State *L, int idx)
 {
   TValue *o = index2adr(L, idx);
-  if (tvisstr(o))
+  if (tvisstr(o)) {
     return strV(o)->len;
-  else if (tvistab(o))
+  } else if (tvistab(o)) {
     return (size_t)lj_tab_len(tabV(o));
-  else if (tvisudata(o))
+  } else if (tvisudata(o)) {
     return udataV(o)->len;
-  else if (tvisnumber(o))
-    return lj_str_fromnumber(L, o)->len;
-  else
+  } else if (tvisnumber(o)) {
+    GCstr *s = lj_str_fromnumber(L, o);
+    setstrV(L, o, s);
+    return s->len;
+  } else {
     return 0;
+  }
 }
 
 LUA_API lua_CFunction lua_tocfunction(lua_State *L, int idx)