* no checkpointer code for dynarr to openarr

compiler/ncgmem.pas

@@ -263,12 +263,10 @@ implementation
               end;
          end;
          if (cs_gdb_heaptrc in aktglobalswitches) and
-           (cs_checkpointer in aktlocalswitches) and
+            (cs_checkpointer in aktlocalswitches) and
             not(cs_compilesystem in aktmoduleswitches) and
-            not(
-                tpointerdef(left.resulttype.def).is_far or
-                is_dynamic_array(left.resulttype.def)
-               ) then
+            not(tpointerdef(left.resulttype.def).is_far) and
+            not(nf_no_checkpointer in flags) then
           begin
             paraloc1.init;
             paramanager.getintparaloc(pocall_default,1,paraloc1);
@@ -879,7 +877,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.99  2004-11-01 15:31:57  peter
+  Revision 1.100  2004-11-01 17:15:47  peter
+    * no checkpointer code for dynarr to openarr
+
+  Revision 1.99  2004/11/01 15:31:57  peter
     * -Or fix for absolute
 
   Revision 1.98  2004/10/25 15:38:41  peter

compiler/ncnv.pas

@@ -994,6 +994,7 @@ implementation
         { left is reused }
         left := nil;
         result := cderefnode.create(result);
+        include(result.flags,nf_no_checkpointer);
         result.resulttype := resulttype;
       end;
 
@@ -2466,7 +2467,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.158  2004-11-01 15:31:58  peter
+  Revision 1.159  2004-11-01 17:15:47  peter
+    * no checkpointer code for dynarr to openarr
+
+  Revision 1.158  2004/11/01 15:31:58  peter
     * -Or fix for absolute
 
   Revision 1.157  2004/10/24 11:44:28  peter

compiler/node.pas

@@ -208,6 +208,9 @@ interface
          nf_procvarload,
          nf_typedaddr,
 
+         { tderefnode }
+         nf_no_checkpointer,
+
          { tvecnode }
          nf_memindex,
          nf_memseg,
@@ -1132,7 +1135,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.88  2004-10-31 21:45:03  peter
+  Revision 1.89  2004-11-01 17:15:47  peter
+    * no checkpointer code for dynarr to openarr
+
+  Revision 1.88  2004/10/31 21:45:03  peter
     * generic tlocation
     * move tlocation to cgutils