lua

commit ab52fc6097569cf51bc0c55dd5b6b1329eefd970
parent e68d0df1c6144551eedda90e0a99d850b1461df1
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 30 Apr 2002 10:01:26 -0300

new macro to `fix' strings

Diffstat:
M
lstring.h
 | 
4
+++-
M
ltm.c
 | 
4
++--

2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/lstring.h b/lstring.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lstring.h,v 1.34 2001/08/31 19:46:07 roberto Exp $
+** $Id: lstring.h,v 1.35 2001/11/28 20:13:13 roberto Exp roberto $
 ** String table (keep all strings handled by Lua)
 ** See Copyright Notice in lua.h
 */
@@ -30,6 +30,8 @@
 #define luaS_newliteral(L, s)	(luaS_newlstr(L, "" s, \
                                  (sizeof(s)/sizeof(char))-1))
 
+#define luaS_fix(s)	((s)->tsv.marked = FIXMARK)
+
 void luaS_resize (lua_State *L, int newsize);
 Udata *luaS_newudata (lua_State *L, size_t s);
 void luaS_freeall (lua_State *L);
diff --git a/ltm.c b/ltm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltm.c,v 1.88 2002/03/18 20:24:14 roberto Exp roberto $
+** $Id: ltm.c,v 1.89 2002/04/05 18:54:31 roberto Exp roberto $
 ** Tag methods
 ** See Copyright Notice in lua.h
 */
@@ -35,7 +35,7 @@ void luaT_init (lua_State *L) {
   int i;
   for (i=0; i<TM_N; i++) {
     G(L)->tmname[i] = luaS_new(L, luaT_eventname[i]);
-    G(L)->tmname[i]->tsv.marked = FIXMARK;  /* never collect these names */
+    luaS_fix(G(L)->tmname[i]);  /* never collect these names */
   }
 }