|
8 | 8 | * |
9 | 9 | * |
10 | 10 | * IDENTIFICATION |
11 | | - * $Header: /cvsroot/pgsql/src/backend/catalog/pg_proc.c,v 1.43 2000/05/28 17:55:54 tgl Exp $ |
| 11 | + * $Header: /cvsroot/pgsql/src/backend/catalog/pg_proc.c,v 1.44 2000/06/14 04:53:44 momjian Exp $ |
12 | 12 | * |
13 | 13 | *------------------------------------------------------------------------- |
14 | 14 | */ |
@@ -67,6 +67,7 @@ ProcedureCreate(char *procedureName, |
67 | 67 | Oidtoid; |
68 | 68 | NameDataprocname; |
69 | 69 | TupleDesctupDesc; |
| 70 | +Oidretval; |
70 | 71 |
|
71 | 72 | /* ---------------- |
72 | 73 | *sanity checks |
@@ -327,5 +328,7 @@ ProcedureCreate(char *procedureName, |
327 | 328 | CatalogCloseIndices(Num_pg_proc_indices,idescs); |
328 | 329 | } |
329 | 330 | heap_close(rel,RowExclusiveLock); |
330 | | -returntup->t_data->t_oid; |
| 331 | +retval=tup->t_data->t_oid; |
| 332 | +heap_freetuple(tup); |
| 333 | +returnretval; |
331 | 334 | } |