SHARE
TWEET

Untitled

a guest Nov 14th, 2012 30 Never
  1. package Inst is new Generic_Package(This => That);
  2.        
  3. type My_Type is
  4.    record
  5.       Range_Begin : Natural := 1;
  6.       Range_End   : Natural := 15_000_000;
  7.    end record;
  8.  
  9. type My_Type_Access is access all My_Type;
  10.  
  11. My_Object1 : My_Type_Access := new My_Type;  -- instantiation of My_Type
  12.                                              -- to create My_Object1
  13.  
  14. My_Array_Objects : array (Positive range 1 .. 250_000) of My_Type_Access :=
  15.    (others => new My_Type);  -- creates an array of objects of My_Type
RAW Paste Data
Top