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

* fix compilation with DEBUG_NODE_XML defined

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-05-27 07:36:50 +02:00
parent f73fc7d566
commit 0c9b622a74
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/procdefutil.pas
View File

@ -818,7 +818,7 @@ implementation
{$ifdef DEBUG_NODE_XML} {$ifdef DEBUG_NODE_XML}
{ Methods of generic classes don't get any code generated, so output { Methods of generic classes don't get any code generated, so output
the node tree here } the node tree here }
if (df_generic in procdef.defoptions) then if (df_generic in pi.procdef.defoptions) then
pi.XMLPrintProc(True); pi.XMLPrintProc(True);
{$endif DEBUG_NODE_XML} {$endif DEBUG_NODE_XML}
end; end;