Pastebin launched a little side project called HostCabi.net, check it out ;-)Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Nov 14th, 2012  |  syntax: None  |  size: 0.50 KB  |  hits: 28  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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