lua

commit ed80de37d9f61493daa50c28a9b427c19df17edf
parent 8ca980966ca383c120dadb2c6e6a0850d1bfff58
Author: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date:   Wed, 13 Apr 1994 19:10:03 -0300

Correcao de bug: uma string ja' existente na tabela de string nao
estava sendo liberada.

Diffstat:
M
table.c
 | 
7
+++++--

1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/table.c b/table.c
@@ -3,7 +3,7 @@
 ** Module to control static tables
 */
 
-char *rcs_table="$Id: table.c,v 1.3 1994/03/28 15:15:59 celes Exp celes $";
+char *rcs_table="$Id: table.c,v 1.4 1994/04/06 12:55:08 celes Exp celes $";
 
 #include <stdlib.h>
 #include <string.h>
@@ -232,7 +232,10 @@ char *lua_createstring (char *s)
  
  for (i=0; i<lua_nstring; i++)
   if (streq(s,lua_string[i]))
-   return s;
+  {
+   free(s-1);
+   return lua_string[i];
+  }
 
  if (lua_nstring >= MAXSTRING-1)
  {