paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 05:27:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* pakcrecords test

Browse Source
This commit is contained in:
peter 2004-03-14 17:30:10 +00:00
parent 16366a944c
commit ff064bf580
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/test/tpackrec.pp Normal file
View File

@ -0,0 +1,22 @@
{$packrecords 4}
type
tr = record
a,b : byte;
l :longint
end;
SCSI_ADAPTER_BUS_INFO = record
NumberOfBuses: char;
BusData : array[0..0] of tr;
end;
var
p1,p2 : pchar;
r : SCSI_ADAPTER_BUS_INFO;
begin
p1:=@r.NumberOfBuses;
p2:=@r.BusData;
writeln(p2-p1);
if p2-p1<>4 then
halt(1);
end.