Merged revisions 7081 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r7081 | florian | 2007-04-09 11:07:49 +0200 (Mon, 09 Apr 2007) | 1 line

* more missing properties set
........

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

.gitattributes

@@ -7931,13 +7931,13 @@ tests/webtbs/tw4635.pp svneol=native#text/plain
 tests/webtbs/tw4640.pp svneol=native#text/plain
 tests/webtbs/tw4669.pp svneol=native#text/plain
 tests/webtbs/tw4675.pp svneol=native#text/plain
-tests/webtbs/tw4678.pp -text
+tests/webtbs/tw4678.pp svneol=native#text/plain
 tests/webtbs/tw4700.pp svneol=native#text/plain
-tests/webtbs/tw4704.pp -text
+tests/webtbs/tw4704.pp svneol=native#text/plain
 tests/webtbs/tw4705.pp svneol=native#text/plain
 tests/webtbs/tw4722.pp svneol=native#text/plain
 tests/webtbs/tw4763.pp svneol=native#text/plain
-tests/webtbs/tw4768.pp -text
+tests/webtbs/tw4768.pp svneol=native#text/plain
 tests/webtbs/tw4778.pp svneol=native#text/plain
 tests/webtbs/tw4789.pp svneol=native#text/plain
 tests/webtbs/tw4809.pp svneol=native#text/plain
@@ -7946,8 +7946,8 @@ tests/webtbs/tw4881.pp svneol=native#text/plain
 tests/webtbs/tw4893a.pp svneol=native#text/plain
 tests/webtbs/tw4893b.pp svneol=native#text/plain
 tests/webtbs/tw4893c.pp svneol=native#text/plain
-tests/webtbs/tw4898.pp -text
-tests/webtbs/tw4902.pp -text
+tests/webtbs/tw4898.pp svneol=native#text/plain
+tests/webtbs/tw4902.pp svneol=native#text/plain
 tests/webtbs/tw4922.pp svneol=native#text/plain
 tests/webtbs/tw4925.pp svneol=native#text/plain
 tests/webtbs/tw4950.pp svneol=native#text/plain
@@ -7958,14 +7958,14 @@ tests/webtbs/tw5015.pp svneol=native#text/plain
 tests/webtbs/tw5023.pp svneol=native#text/plain
 tests/webtbs/tw5036.pp svneol=native#text/plain
 tests/webtbs/tw5082.pp -text svneol=unset#text/plain
-tests/webtbs/tw5086.pp -text
-tests/webtbs/tw5094.pp -text
+tests/webtbs/tw5086.pp svneol=native#text/plain
+tests/webtbs/tw5094.pp svneol=native#text/plain
 tests/webtbs/tw5100.pp svneol=native#text/plain
 tests/webtbs/tw5100a.pp svneol=native#text/plain
 tests/webtbs/tw5641.pp svneol=native#text/plain
 tests/webtbs/tw5896.pp svneol=native#text/plain
 tests/webtbs/tw6129.pp svneol=native#text/plain
-tests/webtbs/tw6184.pp -text
+tests/webtbs/tw6184.pp svneol=native#text/plain
 tests/webtbs/tw6203.pp svneol=native#text/plain
 tests/webtbs/tw6435.pp svneol=native#text/plain
 tests/webtbs/tw6491.pp svneol=native#text/plain
@@ -7991,7 +7991,7 @@ tests/webtbs/tw7071.pp svneol=native#text/plain
 tests/webtbs/tw7100.pp svneol=native#text/plain
 tests/webtbs/tw7104.pp svneol=native#text/plain
 tests/webtbs/tw7105.pp svneol=native#text/plain
-tests/webtbs/tw7143.pp -text
+tests/webtbs/tw7143.pp svneol=native#text/plain
 tests/webtbs/tw7161.pp svneol=native#text/plain
 tests/webtbs/tw7173.pp svneol=native#text/plain
 tests/webtbs/tw7179.pp svneol=native#text/plain
@@ -7999,7 +7999,7 @@ tests/webtbs/tw7195.pp svneol=native#text/plain
 tests/webtbs/tw7200.pp svneol=native#text/plain
 tests/webtbs/tw7227.pp svneol=native#text/plain
 tests/webtbs/tw7242.pp svneol=native#text/plain
-tests/webtbs/tw7262.pp -text
+tests/webtbs/tw7262.pp svneol=native#text/plain
 tests/webtbs/tw7276.pp svneol=native#text/plain
 tests/webtbs/tw7281.pp svneol=native#text/plain
 tests/webtbs/tw7285.pp svneol=native#text/plain
@@ -8060,7 +8060,7 @@ tests/webtbs/tw8199.pp svneol=native#text/plain
 tests/webtbs/tw8222.pp svneol=native#text/plain
 tests/webtbs/tw8222a.pp svneol=native#text/plain
 tests/webtbs/tw8222b.pp svneol=native#text/plain
-tests/webtbs/tw8225.pp -text
+tests/webtbs/tw8225.pp svneol=native#text/plain
 tests/webtbs/tw8229.pp svneol=native#text/plain
 tests/webtbs/tw8232.pp svneol=native#text/plain
 tests/webtbs/tw8258.pp svneol=native#text/plain
@@ -8075,6 +8075,7 @@ tests/webtbs/tw8434.pp svneol=native#text/plain
 tests/webtbs/tw8462.pp svneol=native#text/plain
 tests/webtbs/tw8513.pp svneol=native#text/plain
 tests/webtbs/tw8573.pp svneol=native#text/plain
+tests/webtbs/tw8615.pp svneol=native#text/plain
 tests/webtbs/tw8660.pp svneol=native#text/plain
 tests/webtbs/tw8664.pp svneol=native#text/plain
 tests/webtbs/tw8757.pp svneol=native#text/plain

tests/webtbs/tw7143.pp

@@ -1,18 +1,18 @@
-var a,b: array[0..99] of byte;
-    i: integer;
-    c: byte;
-begin
-for i:=0 to 99 do a[i]:=i;
-b:=a;
-
-writeln('The same:',comparedword(a[0],b[0],25));
-writeln('All other results should be negative.');
-
-for i:=0 to 99 do
-  begin
-  c:=b[i];
-  b[i]:=200;
-  writeln(i:3,' ',comparedword(a[0],b[0],25));
-  b[i]:=c;
-  end;
+var a,b: array[0..99] of byte;
+    i: integer;
+    c: byte;
+begin
+for i:=0 to 99 do a[i]:=i;
+b:=a;
+
+writeln('The same:',comparedword(a[0],b[0],25));
+writeln('All other results should be negative.');
+
+for i:=0 to 99 do
+  begin
+  c:=b[i];
+  b[i]:=200;
+  writeln(i:3,' ',comparedword(a[0],b[0],25));
+  b[i]:=c;
+  end;
 end.

tests/webtbs/tw8615.pp

@@ -0,0 +1,29 @@
+program test;
+
+{$mode objfpc}
+
+function CreateVarArray( const DimCount: integer;
+                         const Bounds: array of integer;
+                         const VarType: integer ): Variant;
+var
+  Dim01: array [0.. 1] of integer absolute Bounds;
+  Dim02: array [0.. 3] of integer absolute Bounds;
+  Dim03: array [0.. 5] of integer absolute Bounds;
+  Dim04: array [0.. 7] of integer absolute Bounds;
+  Dim05: array [0.. 9] of integer absolute Bounds;
+  Dim06: array [0..11] of integer absolute Bounds;
+  Dim07: array [0..13] of integer absolute Bounds;
+  Dim08: array [0..15] of integer absolute Bounds;
+  Dim09: array [0..17] of integer absolute Bounds;
+  Dim10: array [0..19] of integer absolute Bounds;
+  Dim11: array [0..21] of integer absolute Bounds;
+  Dim12: array [0..23] of integer absolute Bounds;
+  Dim13: array [0..25] of integer absolute Bounds;
+  Dim14: array [0..27] of integer absolute Bounds;
+  Dim15: array [0..29] of integer absolute Bounds;
+  Dim16: array [0..31] of integer absolute Bounds;
+begin
+end;
+
+begin
+end.