paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +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

22
compiler/ncal.pas
View File

@ -977,20 +977,11 @@ type
hp:=tprocsym(p).procdef[j];
{ If this is an abstract method insert into the list }
if (po_abstractmethod in hp.procoptions) then
AbstractMethodsList.Insert(hp.procsym.name)
AbstractMethodsList.Insert(hp.procsym.realname)
else
{ If this symbol is already in the list, and it is
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
AbstractMethodsList.Remove(hp.procsym.name);
end;
end;
{ If this symbol is an overriding method, then remove it from the list }
if po_overridingmethod in hp.procoptions then
AbstractMethodsList.Remove(hp.procsym.realname);
end;
end;
end;
@ -2393,7 +2384,10 @@ begin
end.
{
$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
Revision 1.245 2004/08/22 10:17:13 peter