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

Fix compilation failure for avr compiler with -dDEBUG_NODE_XML, to fix bug report 38222

Browse Source 
git-svn-id: trunk@47783 -
This commit is contained in:
pierre 2020-12-16 00:07:39 +00:00
parent aeff5b3577
commit 9a0107a19d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/verbose.pas
View File

@ -1054,12 +1054,12 @@ implementation
WritePointer := 'nil';
1..$FFFF:
WritePointer := '$' + hexstr(PtrUInt(P), 4);
{$if sizeof(Pointer) > 4}
$10000..$FFFFFFFF:
WritePointer := '$' + hexstr(PtrUInt(P), 8);
{$ifdef CPU64}
{$ifend sizeof(Pointer) > 4}
else
WritePointer := '$' + hexstr(PtrUInt(P), 16);
{$endif CPU64}
WritePointer := '$' + hexstr(PtrUInt(P), 2*sizeof(Pointer));
end;
end;
@ -1071,12 +1071,12 @@ implementation
WriteConstPUInt := 'nil';
1..$FFFF:
WriteConstPUInt := '$' + hexstr(P, 4);
{$if sizeof(TConstPtrUInt) > 4}
$10000..$FFFFFFFF:
WriteConstPUInt := '$' + hexstr(P, 8);
{$ifdef CPU64BITADDR}
{$ifend sizeof(TConstPtrUInt) >= 4}
else
WriteConstPUInt := '$' + hexstr(P, 16);
{$endif CPU64BITADDR}
WriteConstPUInt := '$' + hexstr(P, 2*sizeof(TConstPtrUInt));
end;
end;