package body Gade.Carts.Banks.RAM.Constructors is

   function Create
     (Content : RAM_Content_NN_Access;
      Offset  : RAM_Address) return RAM_Bank_NN_Access
   is
      Result : constant RAM_Bank_NN_Access := new RAM_Bank;
   begin
      RAM.Constructors.Initialize (Result.all, Content, Offset);
      return Result;
   end Create;

   procedure Initialize
     (B       : out RAM_Bank'Class;
      Content : RAM_Content_NN_Access;
      Offset  : RAM_Address)
   is
   begin
      RAM_Memory_Banks.Initialize (B, Content, Offset);
   end Initialize;

end Gade.Carts.Banks.RAM.Constructors;
