Re: Record Representation clauses with variant records?

[tmoran@bix.com (Tom Moran)]

>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;