paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-10 02:21:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* call library handler function directly

Browse Source 
git-svn-id: trunk@13982 -
This commit is contained in:
ivost 2009-10-30 15:27:11 +00:00
parent 03b37dde50
commit 4a7f3de318
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/sqlite/src/sqlite3.inc
View File

@ -13,8 +13,8 @@ interface
uses
ctypes, dynlibs;
{$IFDEF LOAD_DYNAMICALLY}
{$ELSE}
{$IFNDEF LOAD_DYNAMICALLY}
{$IFDEF darwin}
{$linklib sqlite3}
{$ENDIF}
@ -5729,7 +5729,7 @@ var
function InitialiseSqlite: Integer; deprecated;
function InitialiseSqlite(const LibraryName: String): Integer; deprecated;
function TryInitialiseSqlite(const LibraryName: string): Integer; deprecated;
{$ENDIF LOAD_DYNAMICALLY}
{$ENDIF}
implementation
@ -5912,7 +5912,7 @@ end;
function InitializeSqlite: Integer;
begin
Result := InitializeSqlite(sqlite3lib);
Result := InitializeLibrary(SqliteLibrary, sqlite3lib);
end;
function InitializeSqlite(const LibraryName: String): Integer;