Subversion Repositories openrisc

with Lto9_Pkg2;
 
package Lto9_Pkg1 is
 
   subtype Lengths is Natural range 0 .. 50;
 
   type Subscriber (NLen, ALen: Lengths := 50) is record
      Name    : String(1 .. NLen);
      Address : String(1 .. ALen);
   end record;
 
   type Subscriber_Ptr is access all Subscriber;
 
   package District_Subscription_Lists is new Lto9_Pkg2
     (Element_Type => Subscriber,
      Element_Ptr  => Subscriber_Ptr,
      Size         => 100);
 
   District_01_Subscribers : District_Subscription_Lists.List_Type;
 
   New_Subscriber_01 : aliased Subscriber :=
     (12, 23, "Brown, Silas", "King's Pyland, Dartmoor");
 
end Lto9_Pkg1;