[fpc-devel] DEBUG_NODE_XML broken
J. Gareth Moreton
gareth at moreton-family.com
Fri May 27 04:41:46 CEST 2022
Hi everyone,
Building the compiler with -dDEBUG_NODE_XML got broken recently:
C:/lazarus/fpc/3.2.0/bin/x86_64-win64/ppcx64.exe -Ur -Xs -O2 -n
-Fux86_64 -Fusystems
-FuC:/Users/garet/Documents/programming/fpc-opts/rtl/units/x86_64-win64
-Fix86_64 -FEx86_64/bin/x86_64-win64 -FUx86_64/units/x86_64-win64
-dRELEASE -dDEBUG_NODE_XML -dx86_64 -dGDB -Fux86 -Fix86
-oC:/Users/garet/Documents/programming/fpc-opts/compiler/ppc1.exe pp.pas
procdefutil.pas(819,37) Error: identifier idents no member "defoptions"
procdefutil.pas(1563) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
I suspect it was one of the patches that Sven recently approved. Still,
the fix is relatively simple, as the culprit code is the following:
procedure print_procinfo(pi:tcgprocinfo);
begin
{ Print the node to tree.log }
if paraprintnodetree <> 0 then
pi.printproc('after parsing');
{$ifdef DEBUG_NODE_XML}
{ Methods of generic classes don't get any code generated, so
output
the node tree here }
if (df_generic in procdef.defoptions) then // <-- Error line
pi.XMLPrintProc(True);
{$endif DEBUG_NODE_XML}
end;
The faulty line of code should instead be "if (df_generic in
pi.procdef.defoptions) then".
Gareth aka. Kit
--
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
More information about the fpc-devel
mailing list