Re: Variant records..

[Preben Randhol <randhol+valid_for_reply_from_news@pvv.org>]

On 2004-02-17, Ganesh Ramasivan <ganesh.ramasivan@gdcanada.com> wrote:
> Sorry, but I don't see why you think this won't compile. I tried it
> and it does compile.

Which compiler are you using?

Compiling the program (see below for the exact source code) I get:

% gnatmake variant.adb
gnatgcc -c variant.adb
variant.adb:22:27: "MAN" is undefined
gnatmake: "variant.adb" compilation error

=8<=============================================================

procedure Variant is

   type Vehicle_Type is (CAR, LEGS, BIKE, PLANE);
   type Vehicle_Power is (MANUAL, AUTOMATIC);

   type Foo(Vehicle : Vehicle_Type; Power: Vehicle_Power) is
    record
        case Vehicle is
             when CAR  =>
            null;
             when LEGS =>
            null;
             when BIKE =>
            null;
             when PLANE =>
            null;
         when others =>
            null;
        end case;
    end record;

    Audi : Foo(Vehicle => MAN, Power => MANUAL);
begin
 null;
end Variant;

-- 
"Saving keystrokes is the job of the text editor, not the programming
 language."