Bläddra i källkod

- removed duplicate overloaded function that returned uninitialised results

git-svn-id: trunk@38811 -
Jonas Maebe 7 år sedan
förälder
incheckning
93ce83fb62
1 ändrade filer med 1 tillägg och 7 borttagningar
  1. 1 7
      packages/sqlite/src/sqlite3.inc

+ 1 - 7
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}