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,4ed596f1f077b44e X-Google-Attributes: gid103376,public From: jsa@alexandria (Jon S Anthony) Subject: Re: Primitive Operations Question Date: 1996/07/31 Message-ID: #1/1 X-Deja-AN: 171329347 sender: news@organon.com (news) references: <31FE812C.7B3D@ix.netcom.com> organization: Organon Motives, Inc. newsgroups: comp.lang.ada Date: 1996-07-31T00:00:00+00:00 List-Id: In article <31FE812C.7B3D@ix.netcom.com> Vance Christiaanse writes: > (GNAT 3.04) compiler. By my reading of RM95 3.2.3, A and B don't > fit any part of the definition of primitive operations, so I Au contraire, see 3.2.3 in general and (6) in particular along with 3.4 in general and (17)&(23) in particular. This sort of behavior for non tagged types was in Ada83. > type My_Digit is range 0..7; > procedure A (V : My_Digit); > > type New_Digit is new My_Digit; -- is A inherited??? Yes > procedure B (W : New_Digit); > > N : New_Digit := 1; > > type Newer_Digit is new New_Digit; -- is B inherited??? Yes, and not only that, so is A. /Jon -- Jon Anthony Organon Motives, Inc. 1 Williston Road, Suite 4 Belmont, MA 02178 617.484.3383 jsa@organon.com