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

Comparing ibx/trunk/runtime/IB.pas (file contents):
Revision 5 by tony, Fri Feb 18 16:26:16 2011 UTC vs.
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC

# Line 24 | Line 24
24   {       Corporation. All Rights Reserved.                                }
25   {    Contributor(s): Jeff Overcash                                       }
26   {                                                                        }
27 + {    IBX For Lazarus (Firebird Express)                                  }
28 + {    Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29 + {    Portions created by MWA Software are copyright McCallum Whyman      }
30 + {    Associates Ltd 2011                                                 }
31 + {                                                                        }
32   {************************************************************************}
33  
34   unit IB;
# Line 33 | Line 38 | unit IB;
38   interface
39  
40   uses
41 < {$IFDEF LINUX }
37 <  unix,
38 < {$ELSE}
41 > {$IFDEF WINDOWS }
42    Windows,
43 + {$ELSE}
44 +  unix,
45   {$ENDIF}
46    SysUtils, Classes, IBExternals, IBUtils, DB, IBXConst;
47  
# Line 179 | Line 184 | type
184      ibxeInvalidOnErrorResult,
185      ibxeInvalidOnStatusResult,
186      ibxeDPBConstantUnknownEx,
187 <    ibxeTPBConstantUnknownEx
187 >    ibxeTPBConstantUnknownEx,
188 >    ibxeSV5APIError,
189 >    ibxeThreadFailed,
190 >    ibxeFieldSizeError
191      );
192  
193    TStatusVector              = array[0..19] of ISC_STATUS;
# Line 310 | Line 318 | const
318      SInvalidOnErrorResult,
319      SInvalidOnStatusResult,
320      SDPBConstantUnknownEx,
321 <    STPBConstantUnknownEx
321 >    STPBConstantUnknownEx,
322 >    SSV5APIError,
323 >    SThreadFailed,
324 >    SFieldSizeError
325    );
326  
327   var
# Line 500 | Line 511 | begin
511   end;
512  
513   initialization
514 <  IsMultiThread := True;
514 > //  IsMultiThread := True;
515    InitCriticalSection(IBCS);
516    IBDataBaseErrorMessages := [ShowSQLMessage, ShowIBMessage];
517  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines