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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,248f80acc3d5ccb3
X-Google-Attributes: gid103376,public
From: "Matthew Heaney" <matthew_heaney@acm.org>
Subject: Re: Objects properties -  Ada design issues question
Date: 2000/02/04
Message-ID: <0JIm4.1579$563.51016@newsread1.prod.itd.earthlink.net>#1/1
X-Deja-AN: 581705676
Content-transfer-encoding: 7bit
References: <s9ljhv6jdh127@corp.supernews.com>
Content-Type: text/plain; charset="US-ASCII"
X-ELN-Date: Fri Feb  4 14:50:36 2000
X-Complaints-To: abuse@earthlink.net
X-Trace: newsread1.prod.itd.earthlink.net 949704636 38.26.192.85 (Fri,
 04 Feb 2000 14:50:36 PST)
Organization: EarthLink Network, Inc.
Mime-version: 1.0
NNTP-Posting-Date: Fri, 04 Feb 2000 14:50:36 PST
Newsgroups: comp.lang.ada
Date: 2000-02-04T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <s9ljhv6jdh127@corp.supernews.com> , "Vladimir Olensky" 
<vladimir_olensky@yahoo.com> wrote:

> This is due to the fact that Ada does not allow to have constant
> fields in record types.

But you can so that by using discriminants:

type RT
  (X : XT;
   Y : YT) is record
   Z : ZT;
end record;

Components X and Y are read-only, and component Z is read-write.

--
Celebrate Darwin Day on Saturday, 12 February!

<http://www.bbc.co.uk/education/darwin/index.shtml>