From ed80de37d9f61493daa50c28a9b427c19df17edf Mon Sep 17 00:00:00 2001
From: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date: Wed, 13 Apr 1994 19:10:21 -0300
Subject: [PATCH] Correcao de bug: uma string ja' existente na tabela de string
 nao estava sendo liberada.

---
 table.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/table.c b/table.c
index a59e501f..abbb8850 100644
--- 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)
  {