mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 04:29:28 +02:00
* more missing properties set
git-svn-id: trunk@7081 -
This commit is contained in:
florian
parent
119bc9f51e
commit
f47557dde3
24
.gitattributes
vendored
24
.gitattributes
vendored
@ -8000,13 +8000,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
|
||||
@ -8015,8 +8015,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
|
||||
@ -8027,14 +8027,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
|
||||
@ -8059,7 +8059,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
|
||||
@ -8067,7 +8067,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
|
||||
@ -8128,7 +8128,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
|
||||
@ -8146,7 +8146,7 @@ tests/webtbs/tw8462.pp svneol=native#text/plain
|
||||
tests/webtbs/tw8513.pp svneol=native#text/plain
|
||||
tests/webtbs/tw8525.pp svneol=native#text/plain
|
||||
tests/webtbs/tw8573.pp svneol=native#text/plain
|
||||
tests/webtbs/tw8615.pp -text
|
||||
tests/webtbs/tw8615.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1873.pp svneol=native#text/plain
|
||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||
|
||||
@ -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.
|
||||
@ -1,29 +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
|
||||
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.
|
||||
Loading…
Reference in New Issue
Block a user