blob: f5c5a96ba8c9c74050c996d62345667b58551bed (
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
|
{ %CPU=i386 }
{ %OPT=-Cg- }
{ Old file: tbs0322.pp }
{ }
{$ifdef fpc}{$asmmode intel}{$endif}
var
boxes : record
pbox : longint;
pbox2 : longint;
end;
var
s1,s2 : longint;
begin
asm
mov s1,type boxes.pbox
mov s2,type boxes
end;
if s1<>sizeof(boxes.pbox) then
begin
writeln('Wrong size for TYPE');
halt(1);
end;
if s2<>sizeof(boxes) then
begin
writeln('Wrong size for TYPE');
halt(1);
end;
end.
|
