Преглед изворни кода

* do not store references to dyn. arrays

git-svn-id: trunk@26741 -
florian пре 11 година
родитељ
комит
25fc10b556
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/optcse.pas

+ 1 - 1
compiler/optcse.pas

@@ -201,7 +201,7 @@ unit optcse;
               one instruction on every platform except i8086/i386
               so consider in this case loading the address of the data
             }
-            (((n.resultdef.typ in [arraydef,recorddef]) or is_object(n.resultdef)) and
+            (((n.resultdef.typ in [arraydef,recorddef]) or is_object(n.resultdef)) and not(is_dynamic_array(n.resultdef)) and
              (n.nodetype=loadn) and
              (tloadnode(n).symtableentry.typ=staticvarsym)
             )