Re: Why can't i get an EXE!

[Preben Randhol <randhol+abuse@pvv.org>]

On Sat, 5 Jan 2002 23:33:58 -0000, NTL wrote:
> Package: QUE PACKAGE
> 
> Hi
> I am a university student studying computer science's and have to create a
> small program as part of my coursework
> The program below compiles perfectly and builds in ADAGIDE GNAT3.11,
> however, I can not get it to create the .C and .EXE files... am I making
> some small fundemental mistake.
> 
> any help gladly recievied.
> 
> David.
> 
> P.s. Complete newbie to ADA programming.
> 
> 
> 
>>> BEGIN QUE.ADS
> 
> package que is
> empty_queue : EXCEPTION;
> 
> type queue is array(1..500) of integer;
> 
> q : queue;
> tail : integer := 0;
> head : integer := 1;
> count : integer := 0;

Remove the 4 lines above. You don't need them.

> qs : queue;
> tails : integer := 0;
> heads : integer := 1;

> n : integer;

Move line above to add procedure.

> A : integer;

Move line above to main procedure.

> procedure initialiser(q: in out queue; head: in out integer; tail: in out
> integer);
> procedure add(q: in out queue; head: in out integer; tail: in out integer);
> procedure remove(q: in out queue; head: in out integer; tail: in out
> integer);
> procedure show(q: in out queue; head: in out integer; tail: in out integer);

replace "in out" with "in" in the 1 line above.

> procedure remove(q: in out queue; head: in out integer; tail: in out
> integer) is
> begin
>    if head < tail then

This must be wrong?

>    --put_line("Queue is currently empty");
>    raise EMPTY_QUEUE;
>    else
>    head := head + 1;

Why do you do this?

> procedure show(q: in out queue; head: in out integer; tail: in out integer)
> is
> begin
>    if head < tail then

This must be wrong?

> 
> begin
>    loop
>       initialiser(q => qs, head => heads, tail => tails);

When you put the initialiser inside the loop it will be called each time
and thus reset your queue. Move it outside the loop.


Preben
-- 
 ()   Join the worldwide campaign to protect fundamental human rights.
'||}
{||'                                           http://www.amnesty.org/