paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:42:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Set result of functions calling RunError to avoid useless warnings

Browse Source 
git-svn-id: trunk@34335 -
This commit is contained in:
pierre 2016-08-19 12:21:17 +00:00
parent 44f00c2bf4
commit 2ec79b3606
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win64/classes.pp
View File

@ -54,6 +54,7 @@ uses
function MakeObjectInstance(Method: TWndMethod): Pointer; function MakeObjectInstance(Method: TWndMethod): Pointer;
begin begin
runerror(211); runerror(211);
MakeObjectInstance:=nil;
end; end;
@ -66,6 +67,7 @@ procedure FreeObjectInstance(ObjectInstance: Pointer);
function AllocateHWnd(Method: TWndMethod): HWND; function AllocateHWnd(Method: TWndMethod): HWND;
begin begin
runerror(211); runerror(211);
AllocateHWnd:=0;
end; end;