blob: 2229a8cd4d334201133380752ecd7158d1ce9202 (
plain)
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
|
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 longint(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.
|
