瀏覽代碼

* Small fix from Laco to fix missinu ULONG type

git-svn-id: trunk@33683 -
michael 9 年之前
父節點
當前提交
ac1b59ef03
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      packages/ibase/src/ibase60.inc

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

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