1 2 3 4 5 6 7
with System.Storage_Elements; use System.Storage_Elements; package Slice7_Pkg is procedure Put (The_Object : in Storage_Array); end Slice7_Pkg;