Re: array size

["Matthew Heaney" <matthew_heaney@acm.org>]

In article <101219991605504828%hopperj@macconnect.com> , "James E. 
Hopper" <hopperj@macconnect.com> wrote:

>   type Preset_Array_Type is array ( Preset_Type ) of Frequency_Type;
>   pragma pack (Preset_Array_Type);  -- RAD SOLARIS PORT
>   for Preset_Array_Type'Size use 6 * Frequency_Type'Size;

Always do this for composite types:

  Preset_Array_Type_Size : constant := 6 * Frequency_Type'Size;
  for Preset_Array_Type'Size use Preset_Array_Type_Size;


> -- We tried the following just for giggles but interestingly,
> -- the compiler says that Preset_Array_Type'Size isn't static!!
> -- for Day_Array_Type'Size use 7 * Preset_Array_Type'Size;

It said that because composite types (including arrays) are always
nonstatic; see RM95 4.9.

The solution is easy enough:

  for Day_Array_Type'Size use 7 * Preset_Array_Type_Size;

or better

  Day_Array_Type_Size : constant := 7 * Preset_Array_Type_Size;
  for Day_Array_Type'Size use Day_Array_Type_Size;


--
Time and again the nation's courts have ruled that creationism, as a
religious dogma, cannot be taught in science classes. Now, creationists
are advancing a new tactic: eliminating the teaching of evolution and
other sciences that complement evolution, such as geology, paleontology,
and biological anthropology. By doing so, they are not only endangering
church-state separation but also seriously jeopardizing the science
education of future generations.

http://www.campusfreethought.org/sos/