blob: c61efca5705ff85cbfd3d9cb16a1c52ab7036714 [file] [log] [blame]
package body Wide_Boolean_Pkg is
procedure Modify (LH : in out TUINT32; LB : in out TBOOL) is
begin
LH := 16#12345678#;
LB := TRUE;
end;
end Wide_Boolean_Pkg;