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=2.1 required=5.0 tests=BAYES_20,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,321833745abc5bf3,start
X-Google-Attributes: gid103376,public
From: Larry Coon <lmcoon@home.com>
Subject: Tasks with discriminants
Date: 1997/12/02
Message-ID: <3483C38C.1FF2@home.com>#1/1
X-Deja-AN: 294446938
Reply-To: lmcoon@home.com
Organization: @Home Network
Newsgroups: comp.lang.ada
Date: 1997-12-02T00:00:00+00:00
List-Id: <comp.lang.ada>


I've been playing with discriminants for tasks and I
can't get something to work.  I can declare a task
such as the following:

     task type t (task_no: integer);

And later create actual tasks:

     t1: t (1);
     t2: t (2);
     t3: t (3);   -- etc...

But if I want to declare an array of tasks, I
can't figure out how to supply values for the
discriminants:

     type task_array is array (1..3) of t;
     my_tasks: task_array;   -- ????

Can anybody tell me how the discriminants are
supplied in this case?  Thanks in advance.

Larry Coon
University of California
larry@assist.org
and lmcoom@home.com