ViewVC Help

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

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

Comparing ibx/trunk/runtime/IBIntf.pas (file contents):
Revision 38 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 39 by tony, Tue May 17 08:14:52 2016 UTC

#	Line 35 | Line 35 | unit IBIntf;
35
36		{$Mode Delphi}
37
38	+	{$IF FPC_FULLVERSION >= 20700 }
39	+	{$codepage UTF8}
40	+	{$ENDIF}
41	+
42		interface
43
44		uses
#	Line 243 | Line 247 | procedure LoadIBLibrary;
247
248		LibName := '/Library/Frameworks/Firebird.framework/Firebird';
249		Result := LoadLibrary(LibName);
250	+	if Result = NilHandle then
251	+	begin
252	+	LibName := '/Library/Frameworks/Firebird.framework/Libraries/libfbclient.dylib';
253	+	Result := LoadLibrary(LibName);
254	+	end;
255		if Result <> NilHandle then
256		FBLibraryName := ExtractFileName(LibName);
257		end

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines