ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/runtime/IB.pas

Comparing ibx/trunk/runtime/IB.pas (file contents):
Revision 6 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