ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/IBExternals.pas
(Generate patch)

Comparing ibx/trunk/fbintf/IBExternals.pas (file contents):
Revision 55 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

# Line 32 | Line 32
32   {************************************************************************}
33  
34   unit IBExternals;
35 + {$IFDEF MSWINDOWS}
36 + {$DEFINE WINDOWS}
37 + {$ENDIF}
38 +
39 + {$IFDEF FPC}
40 + {$mode delphi}
41 + {$codepage UTF8}
42 + {$ENDIF}
43  
44   { Some structures, declarations that we need for the IB stuff to work, but
45    that aren't really part of the ib header file. }
46   interface
47  
40 uses
41 {$IFDEF WINDOWS }
42  Windows
43 {$ELSE}
44  unix
45 {$ENDIF}
46 ;
48   const
49    MaxuShort            = 65535;
50   type
51 <  Int                  = LongInt; { 32 bit signed }
52 <  UInt                 = DWord;   { 32 bit unsigned }
53 <  Long                 = LongInt; { 32 bit signed }
54 <  ULong                = DWord;   { 32 bit unsigned }
51 >  {$IF not declared(FixedInt)}
52 >  FixedInt             = LongInt;
53 >  FixedUInt            = LongWord;
54 >  {$IFEND}
55 >  Int                  = FixedInt; { 32 bit signed }
56 >  UInt                 = FixedUInt;   { 32 bit unsigned }
57 >  Long                 = FixedInt; { 32 bit signed }
58 >  ULong                = FixedUInt;   { 32 bit unsigned }
59    Short                = SmallInt;{ 16 bit signed }
60    UShort               = Word;    { 16 bit unsigned }
61    Float                = Single;  { 32 bit }
# Line 95 | Line 100 | type
100      tm_yday : integer;  { Day of year (0--365) }
101      tm_isdst : integer; { 0 if daylight savings time is not in effect) }
102      tm_gmtoff: longint;
103 <    tm_zone: PChar;
103 >    tm_zone: PAnsiChar;
104    end;
105    PCTimeStructure = ^TCTimeStructure;
106    TM              = TCTimeStructure;
# Line 103 | Line 108 | type
108  
109    TISC_VARYING = record
110      strlen: Short;
111 <    str: array[0..0] of Char;
111 >    str: array[0..0] of AnsiChar;
112    end;
113  
114    {***************************}
# Line 114 | Line 119 | type
119    {*    in original ibase.h  *}
120    {***************************}
121    TISC_BlobGetSegment = function(BlobHandle: PInt;
122 <                                 Buffer: PChar;
122 >                                 Buffer: PAnsiChar;
123                                   BufferSize: Long;
124                                   var ResultLength: Long): Short; cdecl;
125    TISC_BlobPutSegment = procedure(BlobHandle: PInt;
126 <                                  Buffer: PChar;
126 >                                  Buffer: PAnsiChar;
127                                    BufferLength: Short); cdecl;
128    TBlob = record
129      GetSegment         : TISC_BlobGetSegment;
# Line 130 | Line 135 | type
135    end;
136    PBlob = ^TBlob;
137  
133  {$IF FPC_FULLVERSION < 20700 }
134   RawByteString = string; {for backwards compatibility}
135   {$ENDIF}
136
138   const
139    { Delphi consts }
140    { Days of week }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines