Răsfoiți Sursa

* applied patch by Pierre to fix make cycle -Cr

git-svn-id: trunk@48806 -
florian 4 ani în urmă
părinte
comite
857cbddf04
1 a modificat fișierele cu 4 adăugiri și 1 ștergeri
  1. 4 1
      compiler/symdef.pas

+ 4 - 1
compiler/symdef.pas

@@ -4385,7 +4385,10 @@ implementation
 
 
         if (cachedelecount = 0) then
         if (cachedelecount = 0) then
           begin
           begin
-            size := -1;
+            if ado_isconststring in arrayoptions then
+              size := 0
+            else
+              size := -1;
             exit;
             exit;
           end;
           end;