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

* use realname for abstract procs found

Browse Source
This commit is contained in:
peter 2004-09-13 20:29:00 +00:00
parent 67548d9f91
commit 384e764831
1 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/ncal.pas
View File

@ -977,20 +977,11 @@ type
hp:=tprocsym(p).procdef[j]; hp:=tprocsym(p).procdef[j];
{ If this is an abstract method insert into the list } { If this is an abstract method insert into the list }
if (po_abstractmethod in hp.procoptions) then if (po_abstractmethod in hp.procoptions) then
AbstractMethodsList.Insert(hp.procsym.name) AbstractMethodsList.Insert(hp.procsym.realname)
else else
{ If this symbol is already in the list, and it is { If this symbol is an overriding method, then remove it from the list }
an overriding method or dynamic, then remove it from the list
}
begin
{ symbol was found }
if AbstractMethodsList.Find(hp.procsym.name) <> nil then
begin
if po_overridingmethod in hp.procoptions then if po_overridingmethod in hp.procoptions then
AbstractMethodsList.Remove(hp.procsym.name); AbstractMethodsList.Remove(hp.procsym.realname);
end;
end;
end; end;
end; end;
end; end;
@ -2393,7 +2384,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.246 2004-08-28 20:00:50 peter Revision 1.247 2004-09-13 20:29:00 peter
* use realname for abstract procs found
Revision 1.246 2004/08/28 20:00:50 peter
* use objrealname in Message1 * use objrealname in Message1
Revision 1.245 2004/08/22 10:17:13 peter Revision 1.245 2004/08/22 10:17:13 peter