new implementation for userdatas, without `keys'

lstring.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lstring.h,v 1.30 2001/02/20 18:15:33 roberto Exp roberto $
+** $Id: lstring.h,v 1.31 2001/02/23 17:17:25 roberto Exp roberto $
 ** String table (keep all strings handled by Lua)
 ** See Copyright Notice in lua.h
 */
@@ -13,6 +13,16 @@
 
 
 
+/*
+** type equivalent to Udata, but with maximum alignment requirements
+*/
+union L_UUdata {
+  Udata u;
+  union L_Umaxalign dummy;  /* ensures maximum alignment for `local' udata */
+};
+
+
+
 /*
 ** any TString with mark>=FIXMARK is never collected.
 ** Marks>=RESERVEDMARK are used to identify reserved words.
@@ -24,16 +34,14 @@
 #define sizestring(l)	((lu_mem)sizeof(union L_UTString)+ \
                          ((lu_mem)(l)+1)*sizeof(l_char))
 
-#define sizeudata(l)	((lu_mem)sizeof(union L_UTString)+(l))
+#define sizeudata(l)	((lu_mem)sizeof(union L_UUdata)+(l))
 
 #define luaS_new(L, s)	(luaS_newlstr(L, s, strlen(s)))
 #define luaS_newliteral(L, s)	(luaS_newlstr(L, l_s("") s, \
                                  (sizeof(s)/sizeof(l_char))-1))
 
-void luaS_init (lua_State *L);
-void luaS_resize (lua_State *L, stringtable *tb, int newsize);
-TString *luaS_newudata (lua_State *L, size_t s, void *udata);
-int luaS_createudata (lua_State *L, void *udata, TObject *o);
+void luaS_resize (lua_State *L, int newsize);
+Udata *luaS_newudata (lua_State *L, size_t s);
 void luaS_freeall (lua_State *L);
 TString *luaS_newlstr (lua_State *L, const l_char *str, size_t l);