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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7a5526e29ce70375,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-03-13 14:32:13 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!swrinde!emory!darwin.sura.net!source.asset.com!source.asset.com!not-for-mail
From: bishopm@source.asset.com (Michael M. Bishop)
Newsgroups: comp.lang.ada
Subject: Type extension with GNAT
Date: 13 Mar 1995 17:22:28 -0500
Organization: Asset Source for Software Engineering Technology
Message-ID: <3k2gj4$j3i@source.asset.com>
NNTP-Posting-Host: 530tr0
Date: 1995-03-13T17:22:28-05:00
List-Id: <comp.lang.ada>

I want to thank everyone for their thoughtful replies to my original
post on this subject. I've finally figured out what you guys were trying
to tell me! I decided to replace my constructor function with a
procedure (Create), which solved my original problem. I also realized 
that when deriving from a tagged type, one does not say

type Three_D_Point_Type is private;

and then define the type extension in the private part, but rather

type Three_D_Point_Type is new Two_D_Point_Type with private;

and then elaborate the type extension in the private part. With that
little bit of business behind me, I was able to successfully code and
test my Two_D_Point_Package, Three_D_Point_Package, and even a
Four_D_Point_Package! This has been a good day.
-- 
| Mike Bishop              | The opinions expressed here reflect    |
| bishopm@source.asset.com | those of this station, its management, |
| Member: Team Ada         | and the entire world.                  |