+ register32 is now written by tnode.dowrite

  * fixed write of value of tconstnode

compiler/ncon.pas

@@ -482,7 +482,7 @@ implementation
 
     begin
         inherited _dowrite;
-        system.write(writenodeindention,',value = ',value);
+        system.write(',value = ',value);
     end;
 {$endif}
 
@@ -912,7 +912,11 @@ begin
 end.
 {
   $Log$
-  Revision 1.39  2002-08-18 20:06:23  peter
+  Revision 1.40  2002-08-22 11:21:44  florian
+    + register32 is now written by tnode.dowrite
+    * fixed write of value of tconstnode
+
+  Revision 1.39  2002/08/18 20:06:23  peter
     * inlining is now also allowed in interface
     * renamed write/load to ppuwrite/ppuload
     * tnode storing in ppu

compiler/node.pas

@@ -617,6 +617,7 @@ implementation
         else
           write(',resulttype = <nil>');
         write(',location.loc = ',ord(location.loc));
+        write(',registersint = ',registers32);
         write(',registersfpu = ',registersfpu);
       end;
 
@@ -972,7 +973,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.38  2002-08-19 19:36:44  peter
+  Revision 1.39  2002-08-22 11:21:45  florian
+    + register32 is now written by tnode.dowrite
+    * fixed write of value of tconstnode
+
+  Revision 1.38  2002/08/19 19:36:44  peter
     * More fixes for cross unit inlining, all tnodes are now implemented
     * Moved pocall_internconst to po_internconst because it is not a
       calling type at all and it conflicted when inlining of these small