Fix for libpgtcl from Constantin Teodorescu.

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index c26b3ebdc351b0a379a9c2897cc4ae545a50e512..f747869ebd3171ab8668d7418f27d8d04d5007bc 100644 (file)
--- a/src/interfaces/libpgtcl/pgtclCmds.c
+++ b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *   $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.15 1997/09/08 02:40:15 momjian Exp $
+ *   $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.16 1997/09/25 15:48:51 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -1339,9 +1339,11 @@ Pg_select(ClientData cData, Tcl_Interp * interp, int argc, char **argv)
 
        if ((r = Tcl_Eval(interp, argv[4])) != TCL_OK && r != TCL_CONTINUE)
        {
-           if (r == TCL_BREAK)
+           if (r == TCL_BREAK) {
+               /* I suppose that memory used by info and result must be released */
+               free(info); PQclear(result);Tcl_UnsetVar(interp, argv[3], 0);
                return TCL_OK;
-
+           }
            if (r == TCL_ERROR)
            {
                char        msg[60];
@@ -1350,12 +1352,15 @@ Pg_select(ClientData cData, Tcl_Interp * interp, int argc, char **argv)
                        interp->errorLine);
                Tcl_AddErrorInfo(interp, msg);
            }
-
+           /* also, releasing memory used by info and result */
+           free(info); PQclear(result);Tcl_UnsetVar(interp, argv[3], 0);
            return r;
        }
    }
 
    free(info);
+   /* Release memory used by result */
+   PQclear(result);
    Tcl_UnsetVar(interp, argv[3], 0);
    Tcl_AppendResult(interp, "", 0);
    return TCL_OK;