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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 border1.nntp.dca3.giganews.com!backlog3.nntp.dca3.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer02.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!post02.iad.highwinds-media.com!fx02.iad.POSTED!not-for-mail
From: Shark8 <OneWingedShark@gmail.com>
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64;
 rv:31.0) Gecko/20100101 Thunderbird/31.0a1
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Serial port configuration
References: <bqdd9uFo9g8U1@mid.individual.net> <lyk3b2wakf.fsf@pushface.org>
In-Reply-To: <lyk3b2wakf.fsf@pushface.org>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <AAh0v.5570$Ru1.3489@fx02.iad>
X-Complaints-To: abuse@teranews.com
NNTP-Posting-Date: Sun, 06 Apr 2014 19:06:08 UTC
Organization: TeraNews.com
Date: Sun, 06 Apr 2014 13:06:07 -0600
X-Received-Bytes: 1294
X-Received-Body-CRC: 2136866189
X-Original-Bytes: 1536
Xref: number.nntp.dca.giganews.com comp.lang.ada:185565
Date: 2014-04-06T13:06:07-06:00
List-Id: <comp.lang.ada>

On 06-Apr-14 12:57, Simon Wright wrote:
>> >    overriding procedure Read
>> >      (--Port   : in out Serial_Port;
>> >       Port   : in out Port;
> You can't use the name Port twice like that. I'd suggest using
> Serial_Port for the type name, like the original (why change?).

You can use the same name as the type if you fully qualify it:

Generic
   Type Element(<>) is private;
   Maximum_Size : Positive:=  1024;
Package Stack_Package is
   type Stack is private;

   Function Pop( Stack : Stack_Package.Stack ) return Element;

End;