paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:49:17 +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; function TreeView_GetRoot(hwnd:hwnd) : HTREEITEM;inline;
begin begin
TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT); Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT);
end; end;
// Macro 177 // Macro 177
@ -12012,7 +12012,7 @@ end;
function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline; function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline;
begin begin
TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE) Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE)
end; end;
// Macro 178 // Macro 178

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

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