paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 08:19:22 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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