paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:59:25 +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 with cursor as TIBCursor do
begin begin
TransactionHandle := aTransation.Handle; TransactionHandle := aTransation.Handle;
blobhandle := nil; blobhandle := FB_API_NULLHANDLE;
if isc_create_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, @blobId) <> 0 then if isc_create_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, @blobId) <> 0 then
CheckError('TIBConnection.CreateBlobStream', FStatus); CheckError('TIBConnection.CreateBlobStream', FStatus);
@ -1269,7 +1269,7 @@ begin
blobId := PISC_QUAD(@(ABlobBuf^.ConnBlobBuffer)); blobId := PISC_QUAD(@(ABlobBuf^.ConnBlobBuffer));
TransactionHandle := Atransaction.Handle; TransactionHandle := Atransaction.Handle;
blobHandle := nil; blobHandle := FB_API_NULLHANDLE;
if isc_open_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, blobId) <> 0 then if isc_open_blob(@FStatus[0], @FSQLDatabaseHandle, @TransactionHandle, @blobHandle, blobId) <> 0 then
CheckError('TIBConnection.CreateBlobStream', FStatus); CheckError('TIBConnection.CreateBlobStream', FStatus);