procedure Set_Mask; pragma Inline(Set_Mask);
use System.Machine_Code; --assume "with System.Machine_Code;" appears somewhere above
begin
SI_Format'(Code => SSM, B => M'Base_Reg, D => M'Disp);
--Base_Reg and Disp are implementation-defined attributes
end Set_Mask;