mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
80864ebf31
TDebugInfoDwarf, so DWARFv2 and DWARFv3 generators can share protected
methods.
* fixed the debug info for sets whose language-level lower bound is not
equal to the actual set base used when storing the data (e.g., a "set
of 1..5" is actually stored as a "set of 0..7" or "set of 0..31")
(mantis #13984)
+ interactive test for the above
git-svn-id: trunk@13302 -
32 lines
459 B
ObjectPascal
32 lines
459 B
ObjectPascal
{ %interactive }
|
|
|
|
{ check that the contents of xyc and yxd are printed
|
|
correctly by gdb at the end of the program, resp.
|
|
[1..2, 9] and [1..3, 9]
|
|
}
|
|
|
|
program test;
|
|
{$R+}
|
|
{$coperators on}
|
|
const
|
|
empty = [];
|
|
|
|
type
|
|
menum = (mea = 1, meb, mec);
|
|
|
|
var
|
|
xyc : set of 1..9;
|
|
yxd : set of 0..9;
|
|
mset: set of menum;
|
|
begin
|
|
xyc := empty;
|
|
xyc += [1];
|
|
xyc += [2];
|
|
xyc += [9];
|
|
yxd := [1,2,3];
|
|
yxd := yxd + [9];
|
|
|
|
mset:=[meb];
|
|
include(mset,mec);
|
|
end.
|