浏览代码

- removed duplicate overloaded function that returned uninitialised results

git-svn-id: trunk@38811 -
Jonas Maebe 7 年之前
父节点
当前提交
93ce83fb62
共有 1 个文件被更改,包括 1 次插入7 次删除
  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}