2 type HBool1
is new Boolean;
4 for HBool1
use (16#
5a#
, 16#a5#
);
5 pragma Machine_Attribute
(HBool1
, "hardbool");
7 type HBool2
is new Boolean;
8 for HBool2
use (16#
0ff0#
, 16#f00f#
);
9 for HBool2
'Size use 16;
10 pragma Machine_Attribute
(HBool2
, "hardbool");
15 function T
return Boolean;