comp.lang.ada
 help / color / mirror / Atom feed
From: Georg Bauhaus <sb463ba@l1-hrz.uni-duisburg.de>
Subject: Re: Problem whith objects, access and abstract tagged private types
Date: Thu, 8 Jan 2004 14:56:52 +0000 (UTC)
Date: 2004-01-08T14:56:52+00:00	[thread overview]
Message-ID: <btjr3k$et4$1@a1-hrz.uni-duisburg.de> (raw)
In-Reply-To: 3ffd619b$0$22318$626a54ce@news.free.fr

Bruno <b.santo@free.fr> wrote:
:      type Item_Elmt is access all Item_Type'Class;
: 
:   function To_Item_Elmt (F : in Item_Type'Class) return Item_Elmt is
:      My_Tag : constant Ada.Tags.Tag := F'Tag;
:   begin
:      return new My_Tag' (F);
:   end To_Item_Elmt;
 
Do you want to return a pointer to F, or
do you want to return a pointer to a newly allocated object of
F's type?

Georg



  reply	other threads:[~2004-01-08 14:56 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2004-01-08 13:58 Problem whith objects, access and abstract tagged private types Bruno
2004-01-08 14:56 ` Georg Bauhaus [this message]
2004-01-08 15:22 ` Dmitry A. Kazakov
2004-01-08 18:31 ` Jeffrey Carter
  -- strict thread matches above, loose matches on Subject: below --
2004-01-08 14:51 amado.alves
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox