+ write the value of a pointer constant node in printnodedata

git-svn-id: trunk@31469 -

compiler/ncon.pas

@@ -105,6 +105,7 @@ interface
           function pass_1 : tnode;override;
           function pass_typecheck:tnode;override;
           function docompare(p: tnode) : boolean; override;
+          procedure printnodedata(var t : text); override;
        end;
        tpointerconstnodeclass = class of tpointerconstnode;
 
@@ -805,6 +806,13 @@ implementation
       end;
 
 
+    procedure tpointerconstnode.printnodedata(var t : text);
+      begin
+        inherited printnodedata(t);
+        writeln(t,printnodeindention,'value = $',hexstr(PUInt(value),sizeof(PUInt)*2));
+      end;
+
+
 {*****************************************************************************
                              TSTRINGCONSTNODE
 *****************************************************************************}