From a41ccd5a70d30270025fdfc5e235da0ea83e86a9 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Tue, 2 Dec 2008 12:33:27 +0000
Subject: [PATCH]  * Fixed oracle-cursor leak

git-svn-id: trunk@12287 -
---
 packages/fcl-db/src/sqldb/oracle/oracleconnection.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
index b10561a77b..75bf37f404 100644
--- a/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
+++ b/packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
@@ -156,7 +156,7 @@ var tel : word;
 begin
   with cursor as TOracleCursor do
     begin
-    OCIHandleFree(FOciStmt,OCI_HTYPE_ERROR);
+    OCIHandleFree(FOciStmt,OCI_HTYPE_STMT);
     if Length(FieldBuffers) > 0 then
       for tel := 0 to high(FieldBuffers) do freemem(FieldBuffers[tel].buffer);
     end;