paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed duplicate overloaded function that returned uninitialised results

Browse Source 
git-svn-id: trunk@38811 -
This commit is contained in:
Jonas Maebe 2018-04-22 17:03:03 +00:00
parent 2a80d2ada0
commit 93ce83fb62
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1164,7 +1164,6 @@ Const
function InitializeSqliteANSI(const LibraryName: AnsiString = ''): Integer; //needed as TLibraryLoadFunction
function InitializeSqlite(const LibraryName: UnicodeString = ''): Integer;
function TryInitializeSqlite(const LibraryName: Unicodestring = ''): Integer;
function ReleaseSqlite: Integer;
procedure ReleaseSqlite; //needed as TLibraryUnLoadFunction
function InitialiseSQLite: Integer; deprecated;
@ -1450,7 +1449,7 @@ begin
result:=InitializeSqlite(LibraryName);
end;
function ReleaseSQLite:integer;
procedure ReleaseSQLite;
begin
if InterlockedDecrement(RefCount) <= 0 then
begin
@ -1462,9 +1461,4 @@ begin
end;
end;
procedure ReleaseSQLite;
begin
ReleaseSQLite;
end;
{$ENDIF}