1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
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 comparebyte(b[k+4],a[j],i+1)>0 then
begin
writeln(b[k+4+i],' ',a[j+i]);
writeln('cmpbyte error 3 for (',i,',',j,',',k,')');
halt(3);
end;
if (i and 1 = 0) then
begin
if compareword(a[j],b[k+4],i shr 1)<>0 then
begin
writeln('cmpword error 4 for (',i,',',j,',',k,')');
halt(4);
end;
if compareword(a[j],b[k+4],i shr 1 + 1)<0 then
begin
writeln('cmpword error 5 for (',i,',',j,',',k,')');
halt(5);
end;
if compareword(b[k+4],a[j],i shr 1 + 1)>0 then
begin
writeln('cmpword error 6 for (',i,',',j,',',k,')');
halt(6);
end;
end
else
begin
if compareword(a[j],b[k+4],(i+1) shr 1)<0 then
begin
writeln('cmpword error 7 for (',i,',',j,',',k,')');
halt(7);
end;
if compareword(b[k+4],a[j],(i+1) shr 1)>0 then
begin
writeln('cmpword error 8 for (',i,',',j,',',k,')');
halt(8);
end;
end;
if (i and 3 = 0) then
begin
if comparedword(a[j],b[k+4],i shr 2)<>0 then
begin
writeln('cmpdword error 9 for (',i,',',j,',',k,')');
halt(9);
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(unaligned(pdword(@a[j])^),' ',unaligned(pdword(@b[k+4])^));
writeln(unaligned(pdword(@a[j+i])^),' ',unaligned(pdword(@b[k+4+i])^));
writeln(unaligned(pdword(@a[j+i+4])^),' ',unaligned(pdword(@b[k+4+i+4])^));
writeln('cmpdword error 10 for (',i,',',j,',',k,')');
halt(10);
end;
if comparedword(b[k+4],a[j],i shr 2 + 1)>=0 then
begin
writeln(comparedword(b[k+4],a[j],i shr 2+1));
writeln(unaligned(pdword(@b[k+4])^),' ',unaligned(pdword(@a[j])^));
writeln(unaligned(pdword(@b[k+4+i])^),' ',unaligned(pdword(@a[j+i])^));
writeln(unaligned(pdword(@b[k+4+i+4])^),' ',unaligned(pdword(@a[j+i+4])^));
writeln('cmpdword error 11 for (',i,',',j,',',k,')');
halt(11);
end;
end
else
begin
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(unaligned(pdword(@a[j])^),' ',unaligned(pdword(@b[k+4])^));
writeln(unaligned(pdword(@a[j+(i+3) shr 2-1])^),' ',unaligned(pdword(@b[k+4+(i+3) shr 2-1])^));
writeln('cmpdword error 12 for (',i,',',j,',',k,')');
halt(12);
end;
if comparedword(b[k+4],a[j],(i+3) shr 2)>0 then
begin
writeln(comparedword(b[k+4],a[j],(i+3) shr 2));
writeln(unaligned(pdword(@b[k+4])^),' ',unaligned(pdword(@a[j])^));
writeln(unaligned(pdword(@b[k+4+(i+3) shr 2-1])^),' ',unaligned(pdword(@a[j+(i+3) shr 2-1])^));
writeln('cmpdword error 13 for (',i,',',j,',',k,')');
halt(13);
end;
end;
end;
end;
begin
test_compare;
end.
|
