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

* fixed is_equal for proc -> procvar which didn't check the

Browse Source 
callconvention and type anymore since the splitting of procoptions
This commit is contained in:
peter 1999-10-01 10:04:07 +00:00
parent 06a5a3eab8
commit 78246cf227
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/types.pas
View File

@ -876,7 +876,9 @@ implementation
{ poassembler isn't important for compatibility }
{ if a method is assigned to a methodpointer }
{ is checked before }
b:=((pprocvardef(def1)^.procoptions * po_compatibility_options)=
b:=(pprocvardef(def1)^.proctypeoption=pprocvardef(def2)^.proctypeoption) and
(pprocvardef(def1)^.proccalloptions=pprocvardef(def2)^.proccalloptions) and
((pprocvardef(def1)^.procoptions * po_compatibility_options)=
(pprocvardef(def2)^.procoptions * po_compatibility_options)) and
is_equal(pprocvardef(def1)^.retdef,pprocvardef(def2)^.retdef);
{ now evalute the parameters }
@ -993,7 +995,11 @@ implementation
end.
{
$Log$
Revision 1.88 1999-10-01 08:02:51 peter
Revision 1.89 1999-10-01 10:04:07 peter
* fixed is_equal for proc -> procvar which didn't check the
callconvention and type anymore since the splitting of procoptions
Revision 1.88 1999/10/01 08:02:51 peter
* forward type declaration rewritten
Revision 1.87 1999/09/15 22:09:27 florian