paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:29:20 +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 if assigned(parents) then
parents.free; parents.free;
{ Finally give out a warning for each abstract method still in the list } { 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); stritem := tstringlistitem(AbstractMethodsList.first);
if assigned(stritem) then
Message1(type_w_instance_with_abstract,objectdf.objname^);
while assigned(stritem) do while assigned(stritem) do
begin begin
if assigned(stritem.fpstr) then if assigned(stritem.fpstr) then
@ -2645,7 +2646,10 @@ begin
end. end.
{ {
$Log$ $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 * sym,def resolving partly rewritten to support also parent objects
not directly available through the uses clause not directly available through the uses clause