From 9a0107a19dee80cf629e147e6ccf70ac5843500b Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 16 Dec 2020 00:07:39 +0000
Subject: [PATCH]  Fix compilation failure for avr compiler with
 -dDEBUG_NODE_XML, to fix bug report 38222

git-svn-id: trunk@47783 -
---
 compiler/verbose.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index 95c3e97489..a6003eeaf2 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -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;