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-Thread: 103376,8ca14c11fd6d2e56
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!newshub.sdsu.edu!peer01.west.cox.net!cox.net!pd7cy1no!shaw.ca!atl-c07.usenetserver.com!pc02.usenetserver.com!ALLTEL.NET-a2kHrUvQQWlmc!not-for-mail
Date: Thu, 23 Jun 2005 14:52:08 -0500
From: "Marc A. Criley" <mcNOSPAM@mckae.com>
User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: generic parameter Copy for primitifs types.
References: <1119544911.159343.288010@g43g2000cwa.googlegroups.com>
   <QcDue.27850$d5.180415@newsb.telia.net>
 <1119555579.378158.196660@f14g2000cwb.googlegroups.com>
In-Reply-To: <1119555579.378158.196660@f14g2000cwb.googlegroups.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <63e22$42bb12e8$4995263$31431@ALLTEL.NET>
X-Complaints-To: abuse@usenetserver.com
Organization: UseNetServer.com
X-Trace: 63e2242bb12e8a13cf7c631431
Xref: g2news1.google.com comp.lang.ada:11603
Date: 2005-06-23T14:52:08-05:00
List-Id: <comp.lang.ada>

nblanpain@hotmail.com wrote:
> I can't use controlled types (aeronautic software).
> Is there an other solution?

Um...don't fight it, and just write Copy procedures for each type with 
which the generic is going to be instantiated?

procedure Copy(Left : in out Integer; Right : in Integer) is
begin
    Left := Right;
end Copy;