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,6401d8e669ccd293
X-Google-Attributes: gid103376,public
From: steve.folly@rdel.co.uk (Steve Folly)
Subject: Re: How can i print the element poped from a generic STACK
Date: 2000/11/07
Message-ID: <3a0817c1.340276661@news.rrds.co.uk>#1/1
X-Deja-AN: 690841991
References: <3A0806E8.B72D569@hotmail.com>
X-Complaints-To: postmaster@rdel.co.uk
X-Trace: rdel.co.uk 973608929 9175 172.21.185.71 (7 Nov 2000 14:55:29 GMT)
Organization: RDEL
NNTP-Posting-Date: 7 Nov 2000 14:55:29 GMT
Newsgroups: comp.lang.ada
Date: 2000-11-07T14:55:29+00:00
List-Id: <comp.lang.ada>

On Tue, 07 Nov 2000 21:43:04 +0800, jordan <huikeith@hotmail.com>
wrote:

>Dear all,
>i want to ask that how can i print the element poped from a generic
>STACK.
>i have write the following code:
>=====================================================
>with TEXT_IO;
>use TEXT_IO;
>
>procedure sample is
>
>generic
> SIZE : POSITIVE;
> type ITEM is private;
>package STACK is
> procedure PUSH(E : in ITEM);
> procedure POP (E : out ITEM);
>end STACK;
>
>package body STACK is
> type TABLE is array (POSITIVE range <>) of ITEM;
> SPACE : TABLE(1..SIZE);
> INDEX : NATURAL := 0;
>
> procedure PUSH(E : in ITEM) is
> begin
>  INDEX := INDEX + 1;
>  SPACE(INDEX) := E;
> end PUSH;
>
> procedure POP(E : out ITEM) is
> begin
>  E := SPACE(INDEX);
>  INDEX := INDEX - 1;
> end POP;
>end STACK;
>
> package stackOfInt is new STACK(100, INTEGER);
> use stackOfInt;
>
> package INT_IO is new TEXT_IO.INTEGER_IO(INTEGER);
> use INT_IO;
>
> i : Integer;
>
>begin
>
>
> stackOfInt.push(20);
>
> Put(stackOfInt.pop(i));            <------------- error!!!
>
>end sample;
>
>==============================================
>i want to print the element of integer 20 on the screen, how can i do??
>is my implementation wrong???
>


What was the error message? Usually these are very informative and in
this case will probably indicate exactly what the problem is.


-- 
Regards,
Steve Folly.