t_id
189
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Successfully run | 50 | 100.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
| i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
| powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
| powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
| wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
| riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
| linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
| go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
| wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
| 3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
| 3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
procedure error(const s: string);
begin
writeln('error: ',s);
halt(1);
end;
procedure testlohiword;
var
w: word;
i: smallint;
begin
w := $1234;
i := $1234;
if lo(w) <> (w and 255) then
error('lo word');
if lo(i) <> (i and 255) then
error('lo integer');
if hi(w) <> (w shr 8) then
error('hi word');
if hi(i) <> (i shr 8) then
error('hi integer');
end;
procedure testlohilong;
var
w: cardinal;
i: longint;
begin
w := $12345678;
i := $12345678;
if lo(w) <> (w and $ffff) then
error('lo cardinal');
if lo(i) <> (i and $ffff) then
error('lo longint');
if hi(w) <> (w shr 16) then
error('hi cardinal');
if hi(i) <> (i shr 16) then
error('hi longint');
end;
procedure testlohiqword;
var
w: qword;
i: int64;
begin
w := $12345678;
w := w shl 32;
w := w or $98765432;
i := int64(w);
if lo(w) <> (cardinal(w)) then
error('lo qword');
if lo(i) <> (longint(w)) then
error('lo int64');
if hi(w) <> (w shr 32) then
error('hi qword');
if hi(i) <> (i shr 32) then
error('hi int64');
end;
begin
testlohiword;
testlohilong;
testlohiqword;
end.