paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for mantis , memoryleaks as result from change of stmtprepare to ..stmtprepare2

Browse Source 
git-svn-id: trunk@19251 -
This commit is contained in:
marco 2011-09-27 10:49:35 +00:00
parent 604f9ba4b8
commit 79f54fb31a
1 changed files with 3 additions and 3 deletions

6
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -1,4 +1,4 @@
unit OracleConnection;
unit oracleconnection;
{$mode objfpc}{$H+}
@ -276,7 +276,6 @@ var tel : integer;
begin
with cursor as TOracleCursor do
begin
OciHandleAlloc(FOciEnvironment,FOciStmt,OCI_HTYPE_STMT,0,FUserMem);
if OCIStmtPrepare2(TOracleTrans(ATransaction.Handle).FOciSvcCtx,FOciStmt,FOciError,@buf[1],length(buf),nil,0,OCI_NTV_SYNTAX,OCI_DEFAULT) = OCI_ERROR then
HandleError;
if assigned(AParams) then
@ -354,7 +353,8 @@ end;
procedure TOracleConnection.UnPrepareStatement(cursor: TSQLCursor);
begin
OCIHandleFree(TOracleCursor(cursor).FOciStmt,OCI_HTYPE_STMT);
if OCIStmtRelease(TOracleCursor(cursor).FOciStmt,FOciError,nil,0,OCI_DEFAULT)<> OCI_SUCCESS then
HandleError();
cursor.FPrepared:=False;
end;