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,bf710be04b3baf37,start
X-Google-Attributes: gid103376,public
From: tmoran@bix.com (Tom Moran)
Subject: Re: Record Representation clauses with variant records?
Date: 1998/08/15
Message-ID: <35d5bf32.588897@SantaClara01.news.InterNex.Net>#1/1
X-Deja-AN: 381447946
References: <01BDC7CA.487BDC40@usr53-dialup35.mix1.Bloomington.mci.net>
Organization: InterNex Information Services 1-800-595-3333
Newsgroups: comp.lang.ada
Date: 1998-08-15T00:00:00+00:00
List-Id: <comp.lang.ada>

>Is there a way of defining a record representation clause for a variant =
>record?
An example used by the CLAW demo:
        type Actual_Color_Type(Kind : Color_Type_Kinds := RGB_Kind) is
record
            case Kind is
                when Index_Kind =>
                    Palette_Index: Palette_Index_Type;
                when RGB_Kind | Palette_RGB_Kind =>
                    Red,
                    Green,
                    Blue   : Color_Intensities;
                when Invalid_Kind =>
                    null;
            end case;
        end record;

        for Actual_Color_Type use record
            Red           at 0 range 0 .. 7;
            Green         at 1 range 0 .. 7;
            Blue          at 2 range 0 .. 7;
            Kind          at 3 range 0 .. 7;
            Palette_Index at 0 range 0 .. 15;
        end record;