comp.lang.ada
 help / color / mirror / Atom feed
From: vlc <just.another.spam.account@googlemail.com>
Subject: Changing default values in derived types
Date: Sun, 30 Aug 2009 08:05:34 -0700 (PDT)
Date: 2009-08-30T08:05:34-07:00	[thread overview]
Message-ID: <18c7529c-1dcb-416d-a1ae-71a713ebed45@n2g2000vba.googlegroups.com> (raw)

Hi *,

is there a way to change a default value upon type derivation?

type PT is tagged record
   V : Float := 1.0;
end record;

type CT is new PT with null record;

Is there a way to use another default value for V in CT? I already
tried with controlled types using different Initialize procedures, but
that's quite ugly.

Thanks a lot in advance!



             reply	other threads:[~2009-08-30 15:05 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-08-30 15:05 vlc [this message]
2009-08-30 16:07 ` Changing default values in derived types Robert A Duff
2009-08-30 19:41   ` vlc
replies disabled

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