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

* simply disable warnings rather than initialise the function result in

Browse Source 
abstract method wrappers using default(resulttype), because "resulttype"
    may not be visible in the current unit. Fixes win32 build after r34127

git-svn-id: trunk@34137 -
This commit is contained in:
Jonas Maebe 2016-07-15 14:35:52 +00:00
parent 687adbefd7
commit 81b9928e31
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symcreat.pas
View File

@ -982,20 +982,21 @@ implementation
var
callpd: tprocdef;
str: ansistring;
warningson,
isclassmethod: boolean;
begin
{ avoid warnings about unset function results in these abstract wrappers }
warningson:=(status.verbosity and V_Warning)<>0;
setverbosity('W-');
str:='begin ';
callpd:=tprocdef(pd.skpara);
str:=str+def_unit_name_prefix_if_toplevel(callpd)+callpd.procsym.realname+'; ';
{ avoid warnings about unset function results }
if (pd.proctypeoption<>potype_constructor) and
not is_void(pd.returndef) then
str:=str+'result:=system.default('+def_unit_name_prefix_if_toplevel(pd.returndef)+pd.returndef.typename+'); ';
str:=str+'end;';
str:=str+def_unit_name_prefix_if_toplevel(callpd)+callpd.procsym.realname+'; end;';
isclassmethod:=
(po_classmethod in pd.procoptions) and
not(pd.proctypeoption in [potype_constructor,potype_destructor]);
str_parse_method_impl(str,pd,isclassmethod);
if warningson then
setverbosity('W+');
end;