paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ISC_STATUS to ptrint and all handles to 32-bit. Mantis #19116 related (but

Browse Source 
not fixing that?)

git-svn-id: trunk@20610 -
This commit is contained in:
marco 2012-03-24 09:31:05 +00:00
parent ff6c64ae70
commit d1c796a041
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
packages/ibase/src/ibase60.inc
View File

@ -68,7 +68,9 @@ type
Type Type
ISC_USHORT = word; ISC_USHORT = word;
ISC_STATUS = clong; ISC_STATUS = ptrint; { CLong according the sources but they ifdef
for win64, the only significant platform
where clong<>ptrint}
ISC_INT64 = int64; ISC_INT64 = int64;
ISC_UINT64 = qword; ISC_UINT64 = qword;
ISC_LONG = Longint; ISC_LONG = Longint;
@ -80,6 +82,13 @@ Type
PISC_UINT64 = ^ISC_UINT64; PISC_UINT64 = ^ISC_UINT64;
PISC_LONG = ^ISC_LONG; PISC_LONG = ^ISC_LONG;
{$IFDEF CPU64}
FB_API_HANDLE = cuint;
{$ELSE}
FB_API_HANDLE = pointer;
{$ENDIF}
const const
DSQL_close = 1; DSQL_close = 1;
DSQL_drop = 2; DSQL_drop = 2;
@ -327,15 +336,16 @@ type
{ } { }
type type
isc_att_handle = pointer;
isc_blob_handle = pointer; isc_att_handle = FB_API_HANDLE;
isc_db_handle = pointer; isc_blob_handle = FB_API_HANDLE;
isc_form_handle = pointer; isc_db_handle = FB_API_HANDLE;
isc_req_handle = pointer; isc_form_handle = FB_API_HANDLE; // can't find in 2.5.1
isc_stmt_handle = pointer; isc_req_handle = FB_API_HANDLE;
isc_svc_handle = pointer; isc_stmt_handle = FB_API_HANDLE;
isc_tr_handle = pointer; isc_svc_handle = FB_API_HANDLE;
isc_win_handle = pointer; isc_tr_handle = FB_API_HANDLE;
isc_win_handle = pointer; // can't find in 2.5.1
isc_callback = procedure ;extdecl; isc_callback = procedure ;extdecl;
isc_resv_handle = ISC_LONG; isc_resv_handle = ISC_LONG;
tisc_att_handle = isc_att_handle; tisc_att_handle = isc_att_handle;