blob: dd9cb09cf7b6051af4738fe652b6d2ef31596f96 [file] [log] [blame]
-- [ dg-do compile }
package body Pack13 is
procedure Set (Myself : Object_Ptr; The_Data : Thirty_Two_Bits.Object) is
begin
Myself.Something.Data_1 := The_Data;
end;
end Pack13;