From 73664eb7399655e7cf65132c91a1aa16191a1667 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 18 Nov 1994 17:27:38 -0200
Subject: function 'lua_createstring' moved from table.c to tree.c

---
 table.c | 12 +-----------
 table.h |  3 +--
 tree.c  |  5 +++--
 tree.h  |  4 ++--
 4 files changed, 7 insertions(+), 17 deletions(-)

diff --git a/table.c b/table.c
index ab5fd5e8..ced492a2 100644
--- a/table.c
+++ b/table.c
@@ -3,7 +3,7 @@
 ** Module to control static tables
 */
 
-char *rcs_table="$Id: table.c,v 2.19 1994/11/16 17:39:16 roberto Exp $";
+char *rcs_table="$Id: table.c,v 2.20 1994/11/17 13:58:57 roberto Exp roberto $";
 
 #include <string.h>
 
@@ -179,16 +179,6 @@ void lua_pack (void)
 } 
 
 
-/*
-** If the string isn't allocated, allocate a new string at string tree.
-*/
-char *lua_createstring (char *s)
-{
- if (s == NULL) return NULL;
- return lua_strcreate(s);
-}
-
-
 /*
 ** Add a file name at file table, checking overflow. This function also set
 ** the external variable "lua_filename" with the function filename set.
diff --git a/table.h b/table.h
index 1cc3fcca..0c2f0c0a 100644
--- a/table.h
+++ b/table.h
@@ -1,7 +1,7 @@
 /*
 ** Module to control static tables
 ** TeCGraf - PUC-Rio
-** $Id: table.h,v 2.6 1994/11/16 16:03:48 roberto Exp roberto $
+** $Id: table.h,v 2.7 1994/11/17 13:58:57 roberto Exp roberto $
 */
 
 #ifndef table_h
@@ -23,7 +23,6 @@ int   luaI_findconstant    (TreeNode *t);
 void  lua_travsymbol      (void (*fn)(Object *));
 void  lua_markobject      (Object *o);
 void  lua_pack            (void);
-char *lua_createstring    (char *s);
 char *lua_addfile         (char *fn);
 int   lua_delfile 	  (void);
 char *lua_filename        (void);
diff --git a/tree.c b/tree.c
index 58f25de4..0f3e021c 100644
--- a/tree.c
+++ b/tree.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
  
-char *rcs_tree="$Id: tree.c,v 1.7 1994/11/16 18:09:11 roberto Exp roberto $";
+char *rcs_tree="$Id: tree.c,v 1.8 1994/11/17 13:58:57 roberto Exp roberto $";
 
 
 #include <string.h>
@@ -53,9 +53,10 @@ static TreeNode *tree_create (TreeNode **node, char *str)
  }
 }
 
-char *lua_strcreate (char *str) 
+char *lua_createstring (char *str) 
 {
   StringNode *newString;
+  if (str == NULL) return NULL;
   lua_pack();
   newString = (StringNode *)luaI_malloc(sizeof(StringNode)+strlen(str));
   newString->mark = UNMARKED_STRING;
diff --git a/tree.h b/tree.h
index aa7a44c4..e8accc7e 100644
--- a/tree.h
+++ b/tree.h
@@ -1,7 +1,7 @@
 /*
 ** tree.h
 ** TecCGraf - PUC-Rio
-** $Id: tree.h,v 1.3 1994/11/16 16:03:48 roberto Exp roberto $
+** $Id: tree.h,v 1.4 1994/11/17 13:58:57 roberto Exp roberto $
 */
 
 #ifndef tree_h
@@ -28,7 +28,7 @@ typedef struct TreeNode
 #define indexstring(s) (*(((Word *)s)-1))
 
 
-char *lua_strcreate    (char *str);
+char *lua_createstring (char *str);
 TreeNode *lua_constcreate  (char *str);
 int  lua_strcollector (void);
 TreeNode *lua_varnext      (char *n);
-- 
cgit v1.2.3-55-g6feb