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

* use compare_defs() instead of a plain "=" comparison to check that the

Browse Source 
return type of the interface and implementation declaration of a function
    match (so that in case the "real defs" match as described in the comment
    of r17201, they are accepted as being the same)

git-svn-id: trunk@17207 -
This commit is contained in:
Jonas Maebe 2011-03-29 18:51:36 +00:00
parent bc2bebfa16
commit bc46ea5cba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecsub.pas
View File

@ -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));