Procházet zdrojové kódy

* Small fix from Laco to fix missinu ULONG type

git-svn-id: trunk@33683 -
michael před 9 roky
rodič
revize
ac1b59ef03
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      packages/ibase/src/ibase60.inc

+ 2 - 1
packages/ibase/src/ibase60.inc

@@ -92,6 +92,7 @@ Type
    ISC_INT64     = int64;
    ISC_INT64     = int64;
    ISC_UINT64    = qword;
    ISC_UINT64    = qword;
    ISC_LONG      = Longint;
    ISC_LONG      = Longint;
+   ISC_ULONG     = dword;
 
 
    PISC_USHORT = ^ISC_USHORT;
    PISC_USHORT = ^ISC_USHORT;
    PISC_STATUS = ^ISC_STATUS;
    PISC_STATUS = ^ISC_STATUS;
@@ -155,7 +156,7 @@ Type
 
 
    GDS_QUAD = record
    GDS_QUAD = record
       gds_quad_high : ISC_LONG;
       gds_quad_high : ISC_LONG;
-      gds_quad_low : ISC_LONG;
+      gds_quad_low : ISC_ULONG;
    end;
    end;
    TGDS_QUAD = GDS_QUAD;
    TGDS_QUAD = GDS_QUAD;
    PGDS_QUAD = ^GDS_QUAD;
    PGDS_QUAD = ^GDS_QUAD;