* make cycle fixed

compiler/htypechk.pas

@@ -161,8 +161,11 @@ implementation
        globtype,systems,
        cutils,cobjects,verbose,globals,
        symconst,
-       types,pass_1,cpubase,ncnv,nld,
+       types,pass_1,cpubase,
+{$ifdef cg11}
+       ncnv,nld,
        nmem,ncal,
+{$endif cg11}
 {$ifdef newcg}
        cgbase
 {$else}
@@ -2173,7 +2176,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.9  2000-09-28 19:49:51  florian
+  Revision 1.10  2000-09-29 15:45:23  florian
+    * make cycle fixed
+
+  Revision 1.9  2000/09/28 19:49:51  florian
   *** empty log message ***
 
   Revision 1.8  2000/09/27 18:14:31  florian
@@ -2202,4 +2208,4 @@ end.
 
   Revision 1.2  2000/07/13 11:32:41  michael
   + removed logs
-}
+}

compiler/node.inc

@@ -424,6 +424,7 @@
       begin
          p:=tunarynode(inherited getcopy);
          p.left:=left.getcopy;
+         getcopy:=p;
       end;
 
 {$ifdef extdebug}
@@ -532,6 +533,7 @@
       begin
          p:=tbinarynode(inherited getcopy);
          p.right:=right.getcopy;
+         getcopy:=p;
       end;
 
     function tbinarynode.isbinaryoverloaded(var t : tnode) : boolean;
@@ -673,7 +675,10 @@
       end;
 {
   $Log$
-  Revision 1.6  2000-09-28 19:49:52  florian
+  Revision 1.7  2000-09-29 15:45:23  florian
+    * make cycle fixed
+
+  Revision 1.6  2000/09/28 19:49:52  florian
   *** empty log message ***
 
   Revision 1.5  2000/09/27 18:14:31  florian
@@ -691,4 +696,4 @@
   Revision 1.1  2000/08/26 12:27:17  florian
     * createial release
 
-}
+}