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

* proc_to_procvar_equal fixed for procvar-procvar

Browse Source
This commit is contained in:
peter 2002-01-06 21:50:44 +00:00
parent 3175676917
commit 142b4fb7f8
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/types.pas
View File

@ -432,13 +432,15 @@ implementation
if not(assigned(def1)) or not(assigned(def2)) then
exit;
{ check for method pointer }
ismethod:=assigned(def1.owner) and
(def1.owner.symtabletype=objectsymtable);
{ I think methods of objects are also not compatible }
{ with procedure variables! (FK)
and
assigned(def1.owner.defowner) and
(tobjectdef(def1.owner.defowner)^.is_class); }
if def1.deftype=procvardef then
begin
ismethod:=(po_methodpointer in def1.procoptions);
end
else
begin
ismethod:=assigned(def1.owner) and
(def1.owner.symtabletype=objectsymtable);
end;
if (ismethod and not (po_methodpointer in def2.procoptions)) or
(not(ismethod) and (po_methodpointer in def2.procoptions)) then
begin
@ -1921,7 +1923,10 @@ implementation
end.
{
$Log$
Revision 1.61 2002-01-06 12:08:16 peter
Revision 1.62 2002-01-06 21:50:44 peter
* proc_to_procvar_equal fixed for procvar-procvar
Revision 1.61 2002/01/06 12:08:16 peter
* removed uauto from orddef, use new range_to_basetype generating
the correct ordinal type for a range