paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 05:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Refactored so that identation-style is consistent within the unit

Browse Source 
git-svn-id: trunk@12976 -
This commit is contained in:
joost 2009-03-29 10:21:06 +00:00
parent d6f5df2572
commit 87c17a6ef8
1 changed files with 3 additions and 2 deletions

5
packages/mysql/src/mysql.inc
View File

@ -1511,7 +1511,7 @@ Function TryInitialiseMysql(Const LibraryName: String; argc: cint; argv: PPchar;
begin
Result := 0;
if (RefCount=0) then
begin
begin
MysqlLibraryHandle := loadlibrary(LibraryName);
if (MysqlLibraryHandle=nilhandle) then
Exit;
@ -1621,7 +1621,8 @@ begin
if mysql_library_init(argc, argv, groups) <> 0 then
Exit;
end else
end
else
inc(RefCount);
Result:=RefCount;