paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Different default mechanism

Browse Source 
git-svn-id: trunk@25748 -
This commit is contained in:
michael 2013-10-11 08:04:08 +00:00
parent 481b0e7260
commit 376259cc8e
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/oracle/src/oci.inc
View File

@ -3378,7 +3378,8 @@ uses ctypes,
{$include ociap.inc} {$include ociap.inc}
{$IFDEF LinkDynamically} {$IFDEF LinkDynamically}
Function InitialiseOCI(const LibraryName: AnsiString = ocilib): integer; Function InitialiseOCI(const LibraryName: AnsiString): integer;
Function InitialiseOCI(): integer;
Procedure ReleaseOCI; Procedure ReleaseOCI;
var OCILibraryHandle : TLibHandle; var OCILibraryHandle : TLibHandle;
@ -3394,7 +3395,16 @@ implementation
var var
RefCount : integer; RefCount : integer;
function InitialiseOCI(const LibraryName: AnsiString = ocilib): integer; Function InitialiseOCI(): integer;
begin
if (OCILoadedLibrary='') then
Result:=InitialiseOCI(OCILib)
else
Result:=InitialiseOCI(OCILoadedLibrary);
end;
function InitialiseOCI(const LibraryName: AnsiString): integer;
begin begin
inc(RefCount); inc(RefCount);