1package body Wide_Boolean_Pkg is 2 3 procedure Modify (LH : in out TUINT32; LB : in out TBOOL) is 4 begin 5 LH := 16#12345678#; 6 LB := TRUE; 7 end; 8 9end Wide_Boolean_Pkg; 10