瀏覽代碼

"test trick" seems more useful with pointers instead of integers

Roberto Ierusalimschy 17 年之前
父節點
當前提交
93869acb2c
共有 2 個文件被更改,包括 5 次插入5 次删除
  1. 3 3
      ltests.c
  2. 2 2
      ltests.h

+ 3 - 3
ltests.c

@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 2.50 2008/06/13 14:15:59 roberto Exp roberto $
+** $Id: ltests.c,v 2.51 2008/06/13 17:07:10 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -37,7 +37,7 @@
 #if defined(LUA_DEBUG)
 
 
-int l_Trick = 0;
+void *l_Trick = 0;
 
 
 int islocked = 0;
@@ -507,7 +507,7 @@ static int mem_query (lua_State *L) {
 
 
 static int settrick (lua_State *L) {
-  l_Trick = lua_tointeger(L, 1);
+  l_Trick = (L->base)->value.gc;
   return 0;
 }
 

+ 2 - 2
ltests.h

@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.h,v 2.19 2007/09/30 13:09:43 roberto Exp roberto $
+** $Id: ltests.h,v 2.20 2007/11/12 16:28:45 roberto Exp roberto $
 ** Internal Header for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -36,7 +36,7 @@ LUAI_DATA Memcontrol l_memcontrol;
 /*
 ** generic variable for debug tricks
 */
-LUAI_DATA int l_Trick;
+LUAI_DATA void *l_Trick;
 
 
 void *debug_realloc (void *ud, void *block, size_t osize, size_t nsize);