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

Fix compilation with -dDEBUG_DEVIRT

Browse Source
This commit is contained in:
Pierre Muller 2024-03-06 14:40:22 +00:00
parent cc552c0815
commit 821f3e326f
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pmodules.pas
View File

@ -1689,13 +1689,13 @@ type
{$ifdef debug_devirt}
{ print out all instantiated class/object types }
writeln('constructed object/class/classreftypes in ',curr.realmodulename^);
for i := 0 to curr.wpoinfo.createdobjtypes.count-1 do
writeln('constructed object/class/classreftypes in ',module.realmodulename^);
for i := 0 to module.wpoinfo.createdobjtypes.count-1 do
begin
write(' ',tdef(curr.wpoinfo.createdobjtypes[i]).GetTypeName);
case tdef(curr.wpoinfo.createdobjtypes[i]).typ of
write(' ',tdef(module.wpoinfo.createdobjtypes[i]).GetTypeName);
case tdef(module.wpoinfo.createdobjtypes[i]).typ of
objectdef:
case tobjectdef(curr.wpoinfo.createdobjtypes[i]).objecttype of
case tobjectdef(module.wpoinfo.createdobjtypes[i]).objecttype of
odt_object:
writeln(' (object)');
odt_class:
@ -1708,12 +1708,12 @@ type
end;
end;
for i := 0 to curr.wpoinfo.createdclassrefobjtypes.count-1 do
for i := 0 to module.wpoinfo.createdclassrefobjtypes.count-1 do
begin
write(' Class Of ',tdef(curr.wpoinfo.createdclassrefobjtypes[i]).GetTypeName);
case tdef(curr.wpoinfo.createdclassrefobjtypes[i]).typ of
write(' Class Of ',tdef(module.wpoinfo.createdclassrefobjtypes[i]).GetTypeName);
case tdef(module.wpoinfo.createdclassrefobjtypes[i]).typ of
objectdef:
case tobjectdef(curr.wpoinfo.createdclassrefobjtypes[i]).objecttype of
case tobjectdef(module.wpoinfo.createdclassrefobjtypes[i]).objecttype of
odt_class:
writeln(' (classrefdef)');
else