Merged revisions 7735,7739 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r7735 | yury | 2007-06-20 00:45:21 +0300 (‘а, 20 Ёо­ 2007) | 2 lines
  
  * Delphi compatibility: VarArrayOf([]) should create empty array of variant.
  + test.
........
  r7739 | yury | 2007-06-20 12:25:35 +0300 (‘а, 20 Ёо­ 2007) | 2 lines
  
  * VarArrayRedim should accept new HighBound if it is LowBound-1. It clears the array.
  * Updated test.
........

git-svn-id: branches/fixes_2_2@7746 -

.gitattributes

@@ -8143,6 +8143,7 @@ tests/webtbs/tw9054.pp svneol=native#text/plain
 tests/webtbs/tw9076.pp svneol=native#text/plain
 tests/webtbs/tw9076a.pp svneol=native#text/plain
 tests/webtbs/tw9085.pp svneol=native#text/plain
+tests/webtbs/tw9098.pp svneol=native#text/plain
 tests/webtbs/tw9107.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain

tests/webtbs/tw9098.pp

@@ -0,0 +1,23 @@
+uses variants;
+
+var
+  v: variant;
+  i: longint;
+begin
+  v:=VarArrayOf([1, True, '123']);
+  for i:=VarArrayLowBound(v, 1) to VarArrayHighBound(v, 1) do
+    Writeln(v[i]);
+    
+  VarArrayRedim(v, -1);
+
+  v:=VarArrayOf([]);
+  if VarType(v) <> 8204 then begin
+    writeln('Wrong vartype: ', VarType(v));
+    Halt(1);
+  end;
+  
+  if VarArrayHighBound(v, 1) <> -1 then begin
+    writeln('Wrong high bound: ', VarArrayHighBound(v, 1));
+    Halt(2);
+  end;
+end.