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: 103376,9b7d3a51d0d8b6ee X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news1.google.com!postnews.google.com!o40g2000prn.googlegroups.com!not-for-mail From: Adam Beneschan Newsgroups: comp.lang.ada Subject: Re: Extending discriminant types Date: Tue, 18 Nov 2008 15:24:14 -0800 (PST) Organization: http://groups.google.com Message-ID: <17280660-91e9-4bde-83e9-8bab33135d79@o40g2000prn.googlegroups.com> References: <20081115101632.5f98c596@cube.tz.axivion.com> <166efe91-849b-46f6-98d2-cb2c0991c6b8@l33g2000pri.googlegroups.com> <2e4ae7f2-4d9a-4fb8-8aa4-d8fa682e4e10@i20g2000prf.googlegroups.com> NNTP-Posting-Host: 66.126.103.122 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit X-Trace: posting.google.com 1227050654 25377 127.0.0.1 (18 Nov 2008 23:24:14 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Tue, 18 Nov 2008 23:24:14 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: o40g2000prn.googlegroups.com; posting-host=66.126.103.122; posting-account=duW0ogkAAABjRdnxgLGXDfna0Gc6XqmQ User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.7.12) Gecko/20050922 Fedora/1.7.12-1.3.1,gzip(gfe),gzip(gfe) Xref: g2news1.google.com comp.lang.ada:2697 Date: 2008-11-18T15:24:14-08:00 List-Id: On Nov 18, 3:02 am, christoph.gr...@eurocopter.com wrote: > > Var : Base_Access := new Child'Base' (K => A); > > Attribute 'Base exists for scalar types only. Aaargh, missed that. 'Base was defined for record types in Ada 83 (although 'Base could never be used in Ada 83 without some other attribute following it). I hardly ever use it anyway, so I guess the fact that it's no longer defined for records escaped me for the last 13 years...... Thanks for pointing this out. -- Adam