Re: urgent help needed!!!

["Nick Roberts" <Nick.Roberts@dial.pipex.com>]

In reply to the urgent plea of yus000@unbc.edu in article
<859690935.9677@dejanews.com>, my reply is as follows.

Dear YUS,

Looking at your code, I can spot a few simple errors. Look carefully at
your implementation of Push, it doesn't quite do what is required. Also,
look again at the parameter mode for Print. You have forgotten to decrement
Count in Pop.

Otherwise, your code looks very good (if a little messy, perhaps :-). 

I must confess, I cannot see why the compiler should be giving you the
error message it does. All I can think of is that a previous version of
Ordered_Stack is in the library [and this has a different definition of the
type Stack which is indefinite (so that an object of the type could not
be declared)]. Certainly the type Stack as declared in the code you show is
a definite type.

So, the answer may be to try a 'full rebuild'. Failing this, you may wish
to try deleting the library units Ordered_Stack specification and body from
the library, and then rebuilding.

Also, remember that the order in which you present units to the compiler in
a single source text file is the order in which they are going to be
compiled. If you have all three units presented in your posting in one
file, you should either split them into separate files (recommended), or
rearrange them so they occur in the following order: Ordered_Stack
(specification); Ordered_Stack (body); Main.

Finally, delete the 'testorder' procedure, it's doing you no good.

Remember: Ada programmers are the BEST programmers!

Nick.