From: "björn lundin" <b.f.lundin@gmail.com>
Subject: Re: subtype definitions
Date: Wed, 26 Sep 2012 07:36:59 -0700 (PDT)
Date: 2012-09-26T07:36:59-07:00 [thread overview]
Message-ID: <4ece55d3-d34e-42be-b054-825e34f76660@googlegroups.com> (raw)
In-Reply-To: <acgfvbFj8btU1@mid.individual.net>
Den onsdagen den 26:e september 2012 kl. 15:58:05 UTC+2 skrev Niklas Holsti:
> Loop_Order : constant array (Integer range <>)
> of Assignment_Type_Type :=
> (Transport, Check, Restore, Set_Error, Store);
> for L in Loop_Order'Range loop
> Do_Something (Loop_Order(L));
> end loop;
>
Thanks.
Final result:
States : constant array (Integer range <>) of Queue.State_Type := (Queue.Loaded, Queue.Started, Queue.Queued);
Trp_Types : constant array (Integer range <>) of Core_Types. Assignment_Type_Type := (Core_Types.Transport,
Core_Types.Check,
Core_Types.Restore,
Core_Types.Set_Error,
Core_Types.Store);
begin
for i in States'range loop
for j in Trp_Types'range loop
Queue.Get_Assignments(State=> States(i), Asm_Type => Trp_Types(j) , List => An_Asm_List);
Treat_Restart_List (State=> States(i), Asm_Type => Trp_Types(j) , List => An_Asm_List);
end loop;
end loop;
works well :-)
--
Björn Lundin
prev parent reply other threads:[~2012-09-26 14:36 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-09-26 13:45 subtype definitions björn lundin
2012-09-26 13:58 ` Niklas Holsti
2012-09-26 14:36 ` björn lundin [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox