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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,3e11ef4efc073f6b
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!postnews.google.com!p2g2000prf.googlegroups.com!not-for-mail
From: sjw <simon.j.wright@mac.com>
Newsgroups: comp.lang.ada
Subject: Re: requeue with abort and timed call
Date: Sun, 28 Dec 2008 07:53:25 -0800 (PST)
Organization: http://groups.google.com
Message-ID: <e9f4f017-93eb-42b8-b2d0-ff6c3dd41d84@p2g2000prf.googlegroups.com>
References: 
 <2a60b044-6a5c-4ce6-93e6-6eeefc8806c3@l33g2000pri.googlegroups.com>
NNTP-Posting-Host: 62.49.19.209
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Trace: posting.google.com 1230479605 27027 127.0.0.1 (28 Dec 2008 15:53:25
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 28 Dec 2008 15:53:25 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: p2g2000prf.googlegroups.com; posting-host=62.49.19.209;
	posting-account=_RXWmAoAAADQS3ojtLFDmTNJCT0N2R4U
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_6; en-us)
	AppleWebKit/525.27.1 (KHTML,
 like Gecko) Version/3.2.1 Safari/525.27.1,gzip(gfe),gzip(gfe)
Xref: g2news1.google.com comp.lang.ada:3098
Date: 2008-12-28T07:53:25-08:00
List-Id: <comp.lang.ada>

9.7.2(5) says "If the call is queued (including due to a requeue-with-
abort), and not selected before the expiration time is reached, an
attempt to cancel the call is made." But in your code, the call has
been selected, just not completed (English usage, not RM language).

If you say

         accept Original_Call do
            Put_Line ("Original Call...");
            requeue Requeued_Call with abort;
         end Original_Call;
         -- takes three seconds
         delay 3.0;
         Put_Line ("Original Call Done");

it behaves more reasonably (I think; it depends what you were trying
to do):

./req
Original Call...
Aborting
Parent Done
Original Call Done
^C