paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test for TYPE in intel assembler

Browse Source
This commit is contained in:
peter 2000-06-14 19:05:33 +00:00
parent 11e4a9a22d
commit 4fb3659261
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/tbs/tbs0322.pp Normal file
View File

@ -0,0 +1,24 @@
{$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.