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

* use NULLHANDLE instead of NIL, since exact typing of handle type is unknown

Browse Source 
(ptr or integer iow nil or 0)

git-svn-id: trunk@20614 -
This commit is contained in:
marco 2012-03-24 12:22:29 +00:00
parent 981ebb4778
commit 14f9e3542d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -791,7 +791,7 @@ var ParNr,SQLVarNr : integer;
with cursor as TIBCursor do
begin
TransactionHandle := aTransation.Handle;
blobhandle := nil;
blobhandle := FB_API_NULLHANDLE;
if isc_create_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, @blobId) <> 0 then
CheckError('TIBConnection.CreateBlobStream', FStatus);
@ -1269,7 +1269,7 @@ begin
blobId := PISC_QUAD(@(ABlobBuf^.ConnBlobBuffer));
TransactionHandle := Atransaction.Handle;
blobHandle := nil;
blobHandle := FB_API_NULLHANDLE;
if isc_open_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, blobId) <> 0 then
CheckError('TIBConnection.CreateBlobStream', FStatus);