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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e7eb1c5f294e17be
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-02-01 04:29:53 PST
Path: 
 nntp.gmd.de!Germany.EU.net!howland.reston.ans.net!gatech!newsxfer.itd.umich.edu!zip.eecs.umich.edu!panix!cmcl2!thecourier.cims.nyu.edu!thecourier.cims.nyu.edu!nobody
From: dewar@cs.nyu.edu (Robert Dewar)
Newsgroups: comp.lang.ada
Subject: Re: Assignment of limited private types...
Date: 1 Feb 1995 07:29:53 -0500
Organization: Courant Institute of Mathematical Sciences
Message-ID: <3gnus1$8fl@gnat.cs.nyu.edu>
References: <D30u73.5oA@dcs.gla.ac.uk> <3gjce1$1he@theopolis.orl.mmc.com>
NNTP-Posting-Host: gnat.cs.nyu.edu
Date: 1995-02-01T07:29:53-05:00
List-Id: <comp.lang.ada>

WIth regard to the question of how to pass file types to a task, you can
always use a level of indirection and use a type

   type Access_File_Type is access File_Type;

In Ada 83, this requires that you allocate your File_Type variables on
the heap, which is a bit annoying, but in Ada 95, you could use aliased
File_Type variables, and then get the necessary access values using 'Access:

   My_File : aliased File_Type;

   Open (My_File ....)

   Initialize_Task (My_File'Access);