Fix for memory leak from Denis Perchine

diff --git a/src/backend/catalog/pg_proc.c b/src/backend/catalog/pg_proc.c
index 6ddc343aaa60b417957b52042ab47b74e59d9200..836790c82a6feb3a3b531ed338ffd742b20dcd0e 100644 (file)
--- a/src/backend/catalog/pg_proc.c
+++ b/src/backend/catalog/pg_proc.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *   $Header: /cvsroot/pgsql/src/backend/catalog/pg_proc.c,v 1.43 2000/05/28 17:55:54 tgl Exp $
+ *   $Header: /cvsroot/pgsql/src/backend/catalog/pg_proc.c,v 1.44 2000/06/14 04:53:44 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -67,6 +67,7 @@ ProcedureCreate(char *procedureName,
    Oid         toid;
    NameData    procname;
    TupleDesc   tupDesc;
+   Oid     retval;
 
    /* ----------------
     *  sanity checks
@@ -327,5 +328,7 @@ ProcedureCreate(char *procedureName,
        CatalogCloseIndices(Num_pg_proc_indices, idescs);
    }
    heap_close(rel, RowExclusiveLock);
-   return tup->t_data->t_oid;
+   retval = tup->t_data->t_oid;
+   heap_freetuple(tup);
+   return retval;
 }