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

* Several functions had their results unassigned, fixed.

Browse Source 
git-svn-id: trunk@16811 -
This commit is contained in:
sergei 2011-01-25 07:32:39 +00:00
parent 58f37dc952
commit 2b6fea065d
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-base/src/commctrl.pp
View File

@ -12003,7 +12003,7 @@ end;
function TreeView_GetRoot(hwnd:hwnd) : HTREEITEM;inline;
begin
TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT);
Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT);
end;
// Macro 177
@ -12012,7 +12012,7 @@ end;
function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline;
begin
TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE)
Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE)
end;
// Macro 178

8
packages/winunits-base/src/comserv.pp
View File

@ -219,17 +219,17 @@ end;
function TComServer.CountObject(Created: Boolean): Integer;
begin
if Created then
InterLockedIncrement(fCountObject)
Result:=InterLockedIncrement(fCountObject)
else
InterLockedDecrement(fCountObject);
Result:=InterLockedDecrement(fCountObject);
end;
function TComServer.CountFactory(Created: Boolean): Integer;
begin
if Created then
InterLockedIncrement(fCountFactory)
Result:=InterLockedIncrement(fCountFactory)
else
InterLockedDecrement(fCountFactory);
Result:=InterLockedDecrement(fCountFactory);
end;
function TComServer.GetHelpFileName: string;