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.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC,XPRIO autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,c76108e955e7f138,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-12-26 05:39:19 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!diablo.netcom.net.uk!netcom.net.uk!dispose.news.demon.net!demon!btnet-peer0!btnet!news5-gui.server.ntli.net!ntli.net!news11-gui.server.ntli.net.POSTED!not-for-mail Reply-To: "Liddle Feesh" From: "Liddle Feesh" Newsgroups: comp.lang.ada Subject: Why won't this package compile? X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2600.0000 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Message-ID: Date: Wed, 26 Dec 2001 13:33:44 -0000 NNTP-Posting-Host: 213.105.185.39 X-Complaints-To: abuse@ntlworld.com X-Trace: news11-gui.server.ntli.net 1009373641 213.105.185.39 (Wed, 26 Dec 2001 13:34:01 GMT) NNTP-Posting-Date: Wed, 26 Dec 2001 13:34:01 GMT Organization: ntl Cablemodem News Service Xref: archiver1.google.com comp.lang.ada:18301 Date: 2001-12-26T13:33:44+00:00 List-Id: 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;