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

* fixed bogus abstract method warnings

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-25 09:54:57 +00:00
parent 3c5d94dc64
commit a783aea0b9
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/ncal.pas
View File

@ -1174,8 +1174,9 @@ type
if assigned(parents) then
parents.free;
{ Finally give out a warning for each abstract method still in the list }
Message1(type_w_instance_with_abstract,objectdf.objname^);
stritem := tstringlistitem(AbstractMethodsList.first);
if assigned(stritem) then
Message1(type_w_instance_with_abstract,objectdf.objname^);
while assigned(stritem) do
begin
if assigned(stritem.fpstr) then
@ -2645,7 +2646,10 @@ begin
end.
{
$Log$
Revision 1.173 2003-06-25 18:31:23 peter
Revision 1.174 2003-07-25 09:54:57 jonas
* fixed bogus abstract method warnings
Revision 1.173 2003/06/25 18:31:23 peter
* sym,def resolving partly rewritten to support also parent objects
not directly available through the uses clause