+ add support for Delphi's dynamic array constant syntax ("[...]") in Delphi modes

git-svn-id: trunk@39042 -

.gitattributes

@@ -12503,6 +12503,7 @@ tests/test/tarray12.pp svneol=native#text/pascal
 tests/test/tarray13.pp svneol=native#text/pascal
 tests/test/tarray14.pp svneol=native#text/pascal
 tests/test/tarray15.pp svneol=native#text/pascal
+tests/test/tarray16.pp svneol=native#text/pascal
 tests/test/tarray2.pp svneol=native#text/plain
 tests/test/tarray3.pp svneol=native#text/plain
 tests/test/tarray4.pp svneol=native#text/plain

compiler/ngtcon.pas

@@ -1160,6 +1160,9 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
 
 
     procedure tasmlisttypedconstbuilder.parse_arraydef(def:tarraydef);
+      const
+        LKlammerToken: array[Boolean] of TToken = (_LKLAMMER, _LECKKLAMMER);
+        RKlammerToken: array[Boolean] of TToken = (_RKLAMMER, _RECKKLAMMER);
       var
         n : tnode;
         i : longint;
@@ -1186,9 +1189,9 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
               begin
                 ftcb.emit_tai(Tai_const.Create_sym(nil),def);
               end
-            else if try_to_consume(_LKLAMMER) then
+            else if try_to_consume(LKlammerToken[m_delphi in current_settings.modeswitches]) then
               begin
-                if try_to_consume(_RKLAMMER) then
+                if try_to_consume(RKlammerToken[m_delphi in current_settings.modeswitches]) then
                   begin
                     ftcb.emit_tai(tai_const.create_sym(nil),def);
                   end
@@ -1210,7 +1213,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
                       begin
                         read_typed_const_data(def.elementdef);
                         inc(dyncount);
-                        if try_to_consume(_RKLAMMER) then
+                        if try_to_consume(RKlammerToken[m_delphi in current_settings.modeswitches]) then
                           break
                         else
                           consume(_COMMA);

tests/test/tarray16.pp

@@ -0,0 +1,81 @@
+program tarray16;
+
+{$mode delphi}
+
+{$ifdef InLazIDE}
+function CheckArray(aArr, aExpected: array of LongInt): Boolean;
+{$else}
+function CheckArray<T>(aArr, aExpected: array of T): Boolean;
+{$endif}
+var
+  i: LongInt;
+begin
+  if Length(aArr) <> Length(aExpected) then
+    Exit(False);
+  for i := Low(aArr) to High(aArr) do
+    if aArr[i] <> aExpected[i] then
+      Exit(False);
+  Result := True;
+end;
+
+var
+  v1: array of LongInt = Nil;
+  v2: array of LongInt = [];
+  v3: array of LongInt = [1, 2, 3];
+  v4: array of String = ['Alpha', 'Beta', 'Gamma', 'Delta'];
+  v5: array[0..2] of array of LongInt = (Nil, [], [1, 2, 3]);
+  // these do not work in Delphi
+  //v6: array of array[0..2] of LongInt = [(1, 2, 3), (4, 5, 6)];
+  //v7: array[0..2] of array of array[0..2] of LongInt = ([(1, 2, 3), (4, 5, 6)], [], [(7, 8, 9)]);
+
+var
+  res: Boolean;
+begin
+  if Length(v1) <> 0 then
+    Halt(1);
+  if Length(v2) <> 0 then
+    Halt(2);
+{$ifndef InLazIDE}
+  res := CheckArray<LongInt>(v3, [1, 2, 3]);
+  if not res then
+    Halt(3);
+  res := CheckArray<String>(v4, ['Alpha', 'Beta', 'Gamma', 'Delta']);
+  if not res then
+    Halt(4);
+  if Length(v5[0]) <> 0 then
+    Halt(5);
+  if Length(v5[1]) <> 0 then
+    Halt(6);
+  res := CheckArray<LongInt>(v5[2], [1, 2, 3]);
+  if not res then
+    Halt(7);
+  {if Length(v6) <> 2 then
+    Halt(8);
+  res := CheckArray<LongInt>(v6[0], [1, 2, 3]);
+  if not res then
+    Halt(9);
+  res := CheckArray<LongInt>(v6[1], [4, 5, 6]);
+  if not res then
+    Halt(10);
+  if Length(v7[0]) <> 2 then
+    Halt(11);
+  if Length(v7[1]) <> 0 then
+    Halt(12);
+  if Length(v7[2]) <> 1 then
+    Halt(13);
+  res := CheckArray<LongInt>(v7[0, 0], [1, 2, 3]);
+  if not res then
+    Halt(14);
+  res := CheckArray<LongInt>(v7[0, 1], [4, 5, 6]);
+  if not res then
+    Halt(15);
+  res := CheckArray<LongInt>(v7[2, 0], [7, 8, 9]);
+  if not res then
+    Halt(16);}
+  v3[1] := 42;
+  res := CheckArray<LongInt>(v3, [1, 42, 3]);
+  if not res then
+    Halt(17);
+{$endif}
+  Writeln('ok');
+end.