paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-08 12:21:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixed Unreachable code warning when building on a 32-bit platform with DEBUG_NODE_XML

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2021-11-30 22:54:33 +00:00 committed by FPK
parent 0508f643c0
commit 0f1c4b4db8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/verbose.pas
View File

@ -1058,8 +1058,10 @@ implementation
$10000..$FFFFFFFF:
WritePointer := '$' + hexstr(PtrUInt(P), 8);
{$ifend sizeof(Pointer) >= 4}
{$if sizeof(Pointer) > 4}
else
WritePointer := '$' + hexstr(PtrUInt(P), 2*sizeof(Pointer));
{$ifend sizeof(Pointer) > 4}
end;
end;