paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 04:55:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

* also compare calling convention in proc_to_procvar_equal

Browse Source
This commit is contained in:
peter 2004-03-03 22:02:16 +00:00
parent 29c2944706
commit 44a2e03d81
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defcmp.pas
View File

@ -1257,7 +1257,8 @@ implementation
po_iocheck,po_varargs];
if (m_delphi in aktmodeswitches) then
exclude(po_comp,po_varargs);
if ((po_comp * def1.procoptions)= (po_comp * def2.procoptions)) and
if (def1.proccalloption=def2.proccalloption) and
((po_comp * def1.procoptions)= (po_comp * def2.procoptions)) and
equal_defs(def1.rettype.def,def2.rettype.def) then
begin
{ return equal type based on the parameters, but a proc->procvar
@ -1273,7 +1274,10 @@ implementation
end.
{
$Log$
Revision 1.47 2004-02-24 16:12:39 peter
Revision 1.48 2004-03-03 22:02:16 peter
* also compare calling convention in proc_to_procvar_equal
Revision 1.47 2004/02/24 16:12:39 peter
* operator overload chooses rewrite
* overload choosing is now generic and moved to htypechk