Re: Why won't this package compile?

[Larry Hazel <lhhazel@otelco.net>]

Liddle Feesh wrote:
> 
> Can anyone tell me why the queue package below won't compile?
> 
> I'm running ObjectADA Version 7.2 Special Edition, since GNAT won't run on
> my machine.
> 
> The compiler keeps throwing up "Error: Line 9, col 39 Parse error: expected
> COLON, got IN, Inserting COLON.
> 
> The line in question is: " procedure Remove(N:  out Integer;  Q: in out
> Queue); "
> 
> Any ideas? I'm stumped if this is actually a syntactical problem.
> 
> --
> Liddle Feesh
>  '  O 0 o <"//><  ' o'^
> (Remove UNDERPANTS to reply)
> 
> ------
> 
> package queue_package is
> 
>  TYPE queue is LIMITED PRIVATE;
>  empty_queue   :   EXCEPTION;
> 
>  procedure initialise (q:  in out queue);
>  function is_empty_queue (q:  queue) return boolean;
>  procedure add(n:  in integer;  q:  in out queue);
>  procedure remove(n:  out integer;  q: in out queue);
>  --remove raises the exception "empty-queue" if applied to an empty queue
> 
>  PRIVATE
>  TYPE node;
>  TYPE link is ACCESS node;   --ACCESS is a pointer type
>  TYPE node is RECORD
>   value   :     integer;
>   next    :   link :=NULL;
>  END RECORD;
> 
>  TYPE queue is RECORD
>   head:  link;
>   tail:  link;
>  END RECORD;
> 
>  END queue_package;

I compiled it with GNAT 3.13P with no errors.

Larry