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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b0f4738b8e27cca3
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-11-26 07:43:38 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!small1.nntp.aus1.giganews.com!border1.nntp.aus1.giganews.com!intern1.nntp.aus1.giganews.com!nntp.giganews.com!nntp.comcast.com!news.comcast.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 26 Nov 2003 09:43:36 -0600
Date: Wed, 26 Nov 2003 10:43:32 -0500
From: "Robert I. Eachus" <rieachus@comcast.net>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
 rv:1.4) Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Problem with protected type
References: <bpvrlt$6cs$1@online.de> <bpvtb2$a1o$1@online.de>
 <Kp6dnRXjpqyY416iRVn-sw@comcast.com> <bq07lh$4oh$1@online.de>
In-Reply-To: <bq07lh$4oh$1@online.de>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <GdCdnQ8RKp61V1miRVn-sw@comcast.com>
NNTP-Posting-Host: 24.34.214.193
X-Trace: 
 sv3-5J79djZj4xRmlpa11DY1g60t1h6IkfHYRbdLUK/A7Ox18FjIWKrt//vLEaKDJOgRXFFLBzbrDHGCx/S!Y1t233ExzTKgxafkyZQ81bjirpX3dZlO2+QkfD9BFBdcbnn0x2EKuFDLlNdwww==
X-Complaints-To: abuse@comcast.net
X-DMCA-Complaints-To: dmca@comcast.net
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint
 properly
X-Postfilter: 1.1
Xref: archiver1.google.com comp.lang.ada:2963
Date: 2003-11-26T10:43:32-05:00
List-Id: <comp.lang.ada>

Ekkehard Morgenstern wrote:

>>Replacing EventObject by a pointer to CoreEvent eliminates the need for
>>"knowing" the size of CoreEvent.  Other fixes would be to complete the
>>declaration of CoreEvent before the declaration of BaseEvent, 
> 
> How could I declare the CoreEvent record layout as private without putting
> the declaration in the private section?

Hmmm.  Let me change your question to, "...without putting the 
declaration in SOME private part?"

The answer is you can't.  But the private part which contains the 
completion of CoreEvent need not be the one for the package that 
declares BaseEvent.  The best solution for this problem, when it occurs, 
is to declare BaseEvent in a child package.  I think we agreed though 
that the right solution in this case is to make BaseEvent a protected 
type, and create any objects of the type in the package private part, in 
the package body, or elsewhere.

-- 
                                           Robert I. Eachus

100% Ada, no bugs--the only way to create software.