Browse Source

* copy totype field in ttypeconvnode.getcopy()

Jonas Maebe 21 years ago
parent
commit
14197fb830
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/ncnv.pas

+ 5 - 1
compiler/ncnv.pas

@@ -564,6 +564,7 @@ implementation
       begin
          n:=ttypeconvnode(inherited getcopy);
          n.convtype:=convtype;
+         n.totype:=totype;
          getcopy:=n;
       end;
 
@@ -2481,7 +2482,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.161  2004-11-02 12:55:16  peter
+  Revision 1.162  2004-11-02 20:15:53  jonas
+    * copy totype field in ttypeconvnode.getcopy()
+
+  Revision 1.161  2004/11/02 12:55:16  peter
     * nf_internal flag for internal inserted typeconvs. This will
       supress the generation of warning/hints