From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,72340e997bfd5289
X-Google-Attributes: gid103376,public
From: "Matthew Heaney" <matthew_heaney@acm.org>
Subject: Re: array size
Date: 1999/12/10
Message-ID: <3851d15b_1@news1.prserv.net>#1/1
X-Deja-AN: 559252409
Content-transfer-encoding: 7bit
References: <101219991605504828%hopperj@macconnect.com>
Content-Type: text/plain; charset="US-ASCII"
X-Complaints-To: abuse@prserv.net
X-Trace: 11 Dec 1999 04:21:47 GMT, 129.37.62.147
Organization: Global Network Services - Remote Access Mail & News Services
Mime-version: 1.0
Newsgroups: comp.lang.ada
Date: 1999-12-10T00:00:00+00:00
List-Id: <comp.lang.ada>

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/