From 5f0fbe51153e0ac855741bd1bb43b96e9901433d Mon Sep 17 00:00:00 2001 From: ivost Date: Sun, 1 Nov 2009 11:31:37 +0000 Subject: * updated testpackages to use newest version of libhandler git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13996 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/sqlite/src/sqlite3.inc | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'packages/sqlite') diff --git a/packages/sqlite/src/sqlite3.inc b/packages/sqlite/src/sqlite3.inc index efc150eeee..a9ea556cf0 100644 --- a/packages/sqlite/src/sqlite3.inc +++ b/packages/sqlite/src/sqlite3.inc @@ -5716,9 +5716,8 @@ const SQLITE_TESTCTRL_BITVEC_TEST = 8; {$IFDEF LOAD_DYNAMICALLY} -function InitializeSqlite: Integer; -function InitializeSqlite(const LibraryName: String): Integer; -function TryInitializeSqlite(const LibraryName: string): Integer; +function InitializeSqlite(const LibraryName: String = ''): Integer; +function TryInitializeSqlite(const LibraryName: string = ''): Integer; function ReleaseSqlite: Integer; var @@ -5910,11 +5909,6 @@ begin Result := TryInitializeLibrary(SqliteLibrary, LibraryName); end; -function InitializeSqlite: Integer; -begin - Result := InitializeLibrary(SqliteLibrary, sqlite3lib); -end; - function InitializeSqlite(const LibraryName: String): Integer; begin Result := InitializeLibrary(SqliteLibrary, LibraryName); @@ -5927,7 +5921,7 @@ end; function InitialiseSqlite: Integer; begin - Result := InitializeSqlite; + Result := InitializeSqlite(''); end; function InitialiseSqlite(const LibraryName: String): Integer; @@ -5941,7 +5935,7 @@ begin end; initialization - SqliteLibrary := LibraryHandler('sqlite', @sqlite3_symbols, Length(sqlite3_symbols)); + SqliteLibrary := LibraryHandler('sqlite', [sqlite3lib], @sqlite3_symbols, Length(sqlite3_symbols)); {$ENDIF} end. -- cgit v1.2.1