Re: Array of records with default values not propagating to array

[Simon Wright <simon@pushface.org>]

Jere <jhb.chat@gmail.com> writes:

> The big issue I see is not incrementing Index in the first loop.  As
> it stands, you simply keep reassigning trumps to the same card over
> and over again.

When I copied OP's code it _did_ increment Index in the first loop. ??

I find that

   type Card_Info (Trump : Boolean := False) is record
      Name : Ada.Strings.Unbounded.Unbounded_String;
      Divinatory_Meaning : Ada.Strings.Unbounded.Unbounded_String;
      ...

         TDeck (Index) :=
           (Trump       => True,
            Trump_Value => Index_1,
            others      => <>);
         ...

            TDeck (Index) :=
              (Trump      => False,
               Card_Value => Card_Index,
               Suit_Value => Suit_Index,
               others     => <>);

compiles OK and seems to run perfectly well. Presumably this is OK
because the initial value for an otherwise-uninitialized unbounded
string is the empty string. Or maybe it's GNAT being over-helpful, since
it seems not to obey ARM 4.3.1(17.1)[1].

[1] http://www.ada-auth.org/standards/rm12_w_tc1/html/RM-4-3-1.html#p17.1