mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
- removed duplicate overloaded function that returned uninitialised results
git-svn-id: trunk@38811 -
This commit is contained in:
parent
2a80d2ada0
commit
93ce83fb62
@ -1164,7 +1164,6 @@ Const
|
|||||||
function InitializeSqliteANSI(const LibraryName: AnsiString = ''): Integer; //needed as TLibraryLoadFunction
|
function InitializeSqliteANSI(const LibraryName: AnsiString = ''): Integer; //needed as TLibraryLoadFunction
|
||||||
function InitializeSqlite(const LibraryName: UnicodeString = ''): Integer;
|
function InitializeSqlite(const LibraryName: UnicodeString = ''): Integer;
|
||||||
function TryInitializeSqlite(const LibraryName: Unicodestring = ''): Integer;
|
function TryInitializeSqlite(const LibraryName: Unicodestring = ''): Integer;
|
||||||
function ReleaseSqlite: Integer;
|
|
||||||
procedure ReleaseSqlite; //needed as TLibraryUnLoadFunction
|
procedure ReleaseSqlite; //needed as TLibraryUnLoadFunction
|
||||||
|
|
||||||
function InitialiseSQLite: Integer; deprecated;
|
function InitialiseSQLite: Integer; deprecated;
|
||||||
@ -1450,7 +1449,7 @@ begin
|
|||||||
result:=InitializeSqlite(LibraryName);
|
result:=InitializeSqlite(LibraryName);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function ReleaseSQLite:integer;
|
procedure ReleaseSQLite;
|
||||||
begin
|
begin
|
||||||
if InterlockedDecrement(RefCount) <= 0 then
|
if InterlockedDecrement(RefCount) <= 0 then
|
||||||
begin
|
begin
|
||||||
@ -1462,9 +1461,4 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure ReleaseSQLite;
|
|
||||||
begin
|
|
||||||
ReleaseSQLite;
|
|
||||||
end;
|
|
||||||
|
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
Loading…
Reference in New Issue
Block a user