diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index 9efb4e0265..72aa6524a0 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -3084,7 +3084,7 @@ const can be in a different location because of the calling convention, eg. L-R vs. R-L order (PFV) } ( (compare_paras(currpd.paras,fwpd.paras,cp_none,[cpo_comparedefaultvalue,cpo_ignorehidden,cpo_openequalisexact,cpo_ignoreuniv])=te_exact) and - (fwpd.returndef=currpd.returndef) + (compare_defs(fwpd.returndef,currpd.returndef,nothingn)=te_exact) ) then begin { Check if we've found the forwarddef, if found then @@ -3155,7 +3155,7 @@ const if ((m_repeat_forward in current_settings.modeswitches) or not is_bareprocdef(currpd)) and ((compare_paras(currpd.paras,fwpd.paras,cp_all,paracompopt)<>te_exact) or - (fwpd.returndef<>currpd.returndef)) then + (compare_defs(fwpd.returndef,currpd.returndef,nothingn)<>te_exact)) then begin MessagePos1(currpd.fileinfo,parser_e_header_dont_match_forward, fwpd.fullprocname(false));