mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
a0b57eddb5
* varsets ({$packset x}) are now supported on big endian targets
* gdb now displays sets properly on big endian systems
* cleanup of generic set code (in, include/exclude, helpers), all
based on "bitpacked array[] of 0..1" now
* there are no helpers available yet to convert sets from the old to
the new format, because the set format will change again slightly
in the near future (so that e.g. a set of 24..31 will be stored in
1 byte), and creating two classes of set conversion helpers would
confuse things (i.e., it's not recommended to use trunk currently for
programs which load sets stored to disk by big endian programs compiled
by previous FPC versions)
* cross-endian compiling has been tested and still works, but one case
is not supported: compiling a compiler for a different endianess
using a starting compiler from before the current revision (so first
cycle natively, and then use the newly created compiler to create a
cross-compiler)
git-svn-id: trunk@7395 -
37 lines
428 B
ObjectPascal
37 lines
428 B
ObjectPascal
{ test for subsetreg sets }
|
|
|
|
{$packset 1}
|
|
|
|
type
|
|
ta = 0..7;
|
|
tr = record
|
|
b: byte;
|
|
a: set of ta;
|
|
w: word;
|
|
end;
|
|
|
|
|
|
procedure test(r: tr);
|
|
var
|
|
b: ta;
|
|
begin
|
|
b := 6;
|
|
if (r.b<>101) or
|
|
(r.w<>$abcd) or
|
|
(5 in r.a) or
|
|
(b in r.a) or
|
|
not(7 in r.a) or
|
|
([1..3] * r.a <> [2..3]) then
|
|
halt(1);
|
|
end;
|
|
|
|
var
|
|
r: tr;
|
|
begin
|
|
r.b:=101;
|
|
r.w:=$abcd;
|
|
r.a:=[2..3];
|
|
include(r.a,7);
|
|
test(r);
|
|
end.
|