paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ comparebyte/word/dword test based on tmove

Browse Source 
git-svn-id: trunk@8812 -
This commit is contained in:
Jonas Maebe 2007-10-15 10:55:28 +00:00
parent 107682e148
commit 361ccedeb2
2 changed files with 87 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6873,6 +6873,7 @@ tests/test/tclass6.pp svneol=native#text/plain
tests/test/tclass7.pp svneol=native#text/plain
tests/test/tclass8.pp svneol=native#text/plain
tests/test/tclrprop.pp svneol=native#text/plain
tests/test/tcmp.pp svneol=native#text/plain
tests/test/tendian1.pp svneol=native#text/plain
tests/test/tenum1.pp svneol=native#text/plain
tests/test/tenum2.pp svneol=native#text/plain

86
tests/test/tcmp.pp Normal file
View File

@ -0,0 +1,86 @@
const
err: boolean = false;
var
a, b: array[0..512] of byte;
procedure test_compare;
type
pdword = ^cardinal;
var
i, j, k: longint;
l: longint;
begin
for i := 0 to 512 do
a[i] := byte(i);
for i := 0 to 256 do
for j := 0 to 31 do
for k := 0 to 31 do
begin
fillchar(b,sizeof(b),0);
move(a[j],b[k+4],i);
if comparebyte(a[j],b[k+4],i)<>0 then
begin
writeln('cmpbyte error 1 for (',i,',',j,',',k,')');
halt(1);
end;
if comparebyte(a[j],b[k+4],i+1)<0 then
begin
writeln(a[j+i],' ',b[k+4+i]);
writeln('cmpbyte error 2 for (',i,',',j,',',k,')');
halt(2);
end;
if (i and 1 = 0) then
begin
if compareword(a[j],b[k+4],i shr 1)<>0 then
begin
writeln('cmpword error 3 for (',i,',',j,',',k,')');
halt(3);
end;
if compareword(a[j],b[k+4],i shr 1 + 1)<0 then
begin
writeln('cmpword error 4 for (',i,',',j,',',k,')');
halt(4);
end;
end
else
if compareword(a[j],b[k+4],(i+1) shr 1)<0 then
begin
writeln('cmpword error 5 for (',i,',',j,',',k,')');
halt(5);
end;
if (i and 3 = 0) then
begin
if comparedword(a[j],b[k+4],i shr 2)<>0 then
begin
writeln('cmpdword error 6 for (',i,',',j,',',k,')');
halt(6);
end;
if comparedword(a[j],b[k+4],i shr 2 + 1)<=0 then
begin
writeln(comparedword(a[j],b[k+4],i shr 2+1));
writeln(pdword(@a[j])^,' ',pdword(@b[k+4])^);
writeln(pdword(@a[j+i])^,' ',pdword(@b[k+4+i])^);
writeln(pdword(@a[j+i+4])^,' ',pdword(@b[k+4+i+4])^);
writeln('cmpdword error 7 for (',i,',',j,',',k,')');
halt(7);
end;
end
else
if comparedword(a[j],b[k+4],(i+3) shr 2)<0 then
begin
writeln(comparedword(a[j],b[k+4],(i+3) shr 2));
writeln(pdword(@a[j])^,' ',pdword(@b[k+4])^);
writeln(pdword(@a[j+(i+3) shr 2-1])^,' ',pdword(@b[k+4+(i+3) shr 2-1])^);
writeln('cmpdword error 8 for (',i,',',j,',',k,')');
halt(8);
end;
end;
end;
begin
test_compare;
end.