paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:09:14 +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} {$ifdef debug_devirt}
{ print out all instantiated class/object types } { print out all instantiated class/object types }
writeln('constructed object/class/classreftypes in ',curr.realmodulename^); writeln('constructed object/class/classreftypes in ',module.realmodulename^);
for i := 0 to curr.wpoinfo.createdobjtypes.count-1 do for i := 0 to module.wpoinfo.createdobjtypes.count-1 do
begin begin
write(' ',tdef(curr.wpoinfo.createdobjtypes[i]).GetTypeName); write(' ',tdef(module.wpoinfo.createdobjtypes[i]).GetTypeName);
case tdef(curr.wpoinfo.createdobjtypes[i]).typ of case tdef(module.wpoinfo.createdobjtypes[i]).typ of
objectdef: objectdef:
case tobjectdef(curr.wpoinfo.createdobjtypes[i]).objecttype of case tobjectdef(module.wpoinfo.createdobjtypes[i]).objecttype of
odt_object: odt_object:
writeln(' (object)'); writeln(' (object)');
odt_class: odt_class:
@ -1708,12 +1708,12 @@ type
end; end;
end; end;
for i := 0 to curr.wpoinfo.createdclassrefobjtypes.count-1 do for i := 0 to module.wpoinfo.createdclassrefobjtypes.count-1 do
begin begin
write(' Class Of ',tdef(curr.wpoinfo.createdclassrefobjtypes[i]).GetTypeName); write(' Class Of ',tdef(module.wpoinfo.createdclassrefobjtypes[i]).GetTypeName);
case tdef(curr.wpoinfo.createdclassrefobjtypes[i]).typ of case tdef(module.wpoinfo.createdclassrefobjtypes[i]).typ of
objectdef: objectdef:
case tobjectdef(curr.wpoinfo.createdclassrefobjtypes[i]).objecttype of case tobjectdef(module.wpoinfo.createdclassrefobjtypes[i]).objecttype of
odt_class: odt_class:
writeln(' (classrefdef)'); writeln(' (classrefdef)');
else else