From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.5 required=3.0 tests=BAYES_05,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.5-pre1
X-Received: by 2002:ac8:4d4d:: with SMTP id x13mr20907311qtv.360.1610927719842;
        Sun, 17 Jan 2021 15:55:19 -0800 (PST)
X-Received: by 2002:a25:4148:: with SMTP id o69mr33058311yba.462.1610927719638;
 Sun, 17 Jan 2021 15:55:19 -0800 (PST)
Path: eternal-september.org!reader02.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 17 Jan 2021 15:55:19 -0800 (PST)
In-Reply-To: <60046de5$0$16169$426a74cc@news.free.fr>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=146.5.2.231; posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC
NNTP-Posting-Host: 146.5.2.231
References: <5ff9779d$0$24281$426a74cc@news.free.fr> <rtc1hv$1592$1@gioia.aioe.org>
 <60046de5$0$16169$426a74cc@news.free.fr>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <709708e9-4964-40a8-b14f-d8bcc0fa5e52n@googlegroups.com>
Subject: Re: Record initialisation question
From: Shark8 <onewingedshark@gmail.com>
Injection-Date: Sun, 17 Jan 2021 23:55:19 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61167
List-Id: <comp.lang.ada>

On Sunday, January 17, 2021 at 10:03:34 AM UTC-7, DrPi wrote:
> 
> I had a very bad surprise : Enums are used in some records. One enum did 
> not have the Size specified (8 bits). All was working as if it was not 
> present except I had to assign it a value. I had to lower the 
> Object_Size and the enum was removed from the result (its value was not 
> present in memory mapping). After setting Size => 8 to this enum, all 
> went well.

This is not too bad a restriction; simply have two identical-except-for-size types.
NEEDED_SIZE : Constant := 2;
Type Base_Enumeration is (a,b,c); -- Uses defaults.
Type Boot_Enumeration is new Base_Enumeration with Size => NEEDED_SIZE;