From 93ce83fb6275a13368e68b710e9339a49fdd37ab Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 22 Apr 2018 17:03:03 +0000
Subject: [PATCH]   - removed duplicate overloaded function that returned
 uninitialised results

git-svn-id: trunk@38811 -
---
 packages/sqlite/src/sqlite3.inc | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/packages/sqlite/src/sqlite3.inc b/packages/sqlite/src/sqlite3.inc
index a16ff61260..b44b3e098f 100644
--- a/packages/sqlite/src/sqlite3.inc
+++ b/packages/sqlite/src/sqlite3.inc
@@ -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}