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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7be3870dd9c9518f
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-12-19 08:51:22 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.ems.psu.edu!news3.cac.psu.edu!usenet
From: Robert Spooner <rls19@psu.edu>
Newsgroups: comp.lang.ada
Subject: Re: CONSTRAINT_ERROR - why?
Date: Thu, 19 Dec 2002 11:49:27 -0500
Organization: Penn State University, Center for Academic Computing
Message-ID: <3E01F897.20404@psu.edu>
References: <3DFB7841.F898C02@t-online.de> <3DFB8495.A655C512@t-online.de>
 <616gta.hk3.ln@beastie.ix.netcom.com> <3DFC878D.B6966C37@t-online.de>
 <2a9jta.1p3.ln@beastie.ix.netcom.com> <3DFD38A7.6080204@acm.org>
 <3DFE1FFB.E1BB660E@t-online.de>
 <fbqL9.64858$hK4.5384466@bgtnsc05-news.ops.worldnet.att.net>
 <3DFF6AFB.A536A0CE@t-online.de> <wcc7ke8mol6.fsf@shell01.TheWorld.com>
 <3E00C040.A038AFCE@t-online.de> <wcc8yyn40ul.fsf@shell01.TheWorld.com>
 <v01r4nnpdod349@corp.supernews.com>
NNTP-Posting-Host: nat3.arl.psu.edu
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
 rv:1.0.1) Gecko/20020823 Netscape/7.0
X-Accept-Language: en,de,fr-FR
Xref: archiver1.google.com comp.lang.ada:32084
Date: 2002-12-19T11:49:27-05:00
List-Id: <comp.lang.ada>

Another way is to use the Max_Size_In_Storage_Elements attribute.

Randy Brukardt wrote:
> ...
>     X.Struct_Length := BYTE(Integer'((Fac_Conf_Struct'Size+7) / 8));
> ...
-- 
                             Robert L. Spooner
                      Registered Professional Engineer
                        Associate Research Engineer
                   Intelligent Control Systems Department

          Applied Research Laboratory        Phone: (814) 863-4120
          The Pennsylvania State University  FAX:   (814) 863-7841
          P. O. Box 30
          State College, PA 16804-0030       rls19@psu.edu