1 package Wide_Boolean_Pkg is
3 type TBOOL is new BOOLEAN;
4 for TBOOL use (FALSE => 0, TRUE => 1);
7 type TUINT32 is mod (2 ** 32);
8 for TUINT32'SIZE use 32;
21 procedure Modify (LH : in out TUINT32; LB : in out TBOOL);
22 pragma export(C, Modify, "Modify");