--- ibx/trunk/runtime/IBExternals.pas 2000/07/31 16:43:00 1 +++ ibx/trunk/runtime/IBExternals.pas 2011/02/18 16:26:16 5 @@ -33,7 +33,11 @@ unit IBExternals; interface uses - Windows, IBUtils; +{$IFDEF LINUX } + unix; +{$ELSE} + Windows; +{$ENDIF} type Int = LongInt; { 32 bit signed } @@ -47,14 +51,17 @@ type ISC_LONG = Long; { 32 bit signed } UISC_LONG = ULong; { 32 bit unsigned } ISC_INT64 = Int64; { 64 bit signed } +{$IFDEF CPU64} + ISC_STATUS = Int64; { 64 bit signed } + UISC_STATUS = UInt64; { 64 bit unsigned} +{$ELSE} ISC_STATUS = Long; { 32 bit signed } UISC_STATUS = ULong; { 32 bit unsigned} +{$ENDIF} + FB_API_HANDLE = ^Pointer; Void = Pointer; { Delphi Pointer types } - PPChar = ^PChar; - PSmallInt = ^SmallInt; PInt = ^Int; - PInteger = ^Integer; PShort = ^Short; PUShort = ^UShort; PLong = ^Long; @@ -62,7 +69,6 @@ type PFloat = ^Float; PUChar = ^UChar; PVoid = ^Pointer; - PDouble = ^Double; PISC_LONG = ^ISC_LONG; PUISC_LONG = ^UISC_LONG; PISC_STATUS = ^ISC_STATUS; @@ -80,6 +86,8 @@ type tm_wday : integer; { Weekday (0--6) Sunday = 0) } tm_yday : integer; { Day of year (0--365) } tm_isdst : integer; { 0 if daylight savings time is not in effect) } + tm_gmtoff: longint; + tm_zone: PChar; end; PCTimeStructure = ^TCTimeStructure; TM = TCTimeStructure;