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: a07f3367d7,4ce5890331a5b529
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,UTF8
Path: 
 g2news1.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!npeer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!news.glorb.com!news2.glorb.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: "Vinzent Hoefler" <nntp-2010-10@t-domaingrabbing.de>
Newsgroups: comp.lang.ada
Subject: Re: Discriminants of tagged types
Date: Wed, 27 Oct 2010 23:25:47 +0200
Message-ID: <op.vk8649to0k3wt7@jellix.jlfencey.com>
References: <14314714-e92c-4036-9cbb-da8e72489261@h7g2000yqn.googlegroups.com>
 <wcc4oc7da32.fsf@shell01.TheWorld.com>
 <a78d88bb-e202-49d5-a9fe-f38206efd4ea@j18g2000yqd.googlegroups.com>
 <op.vk8r56y7ule2fv@garhos>
 <3243de1d-c6b4-4845-ab5f-28ea4e9f5738@c20g2000yqj.googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed; delsp=yes
Content-Transfer-Encoding: Quoted-Printable
X-Trace: individual.net zLYNkPZg3vIIOoSskm2C+QcrI3vzHFUPHp4YMTp/v7mXLKKfxE
Cancel-Lock: sha1:/uD4QuhQdrQ7Rv6kbKbNuRGj1Xo=
User-Agent: Opera Mail/10.62 (Win32)
Xref: g2news1.google.com comp.lang.ada:14867
Date: 2010-10-27T23:25:47+02:00
List-Id: <comp.lang.ada>

On Wed, 27 Oct 2010 23:13:41 +0200, Maciej Sobczak <see.my.homepage@gmai=
l.com> wrote:

> On 27 Pa=C5=BA, 18:02, Yannick Duch=C3=AAne (Hibou57) <yannick_duch...=
@yahoo.fr>
> wrote:
>
>> > as non-limited tagged types are nonsense anyway.
>>
>> Why ?
>
> Because tagged types usually represent entities that are bound to some=

> resources and copying them is somewhere between cumbersome and
> impossible. Communication channels, database connections, etc.

IBTD:

    --------------------------------------------------------------------=
-
    --  Clone
    --------------------------------------------------------------------=
-
    procedure Clone (Individual : in     Gene'Class;
                     Offspring  :    out Gene'Class) is
    begin
       Offspring :=3D Individual;
    end Clone;

The Crossover operation also uses copying, but merely for pre-initialisa=
tion,
because this makes mixing in some of the father's genes a bit easier. ;)=



Vinzent.

-- =

There is no signature.