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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ed1f7204771ad6dd
X-Google-Attributes: gid103376,public
From: "Pat Rogers" <progers@acm.org>
Subject: Re: Other implementations of pragma Abort_Defer?
Date: 1998/01/25
Message-ID: <6ag78c$86t$1@uuneo.neosoft.com>#1/1
X-Deja-AN: 319181966
References: <6a91ej$e1n$1@uuneo.neosoft.com>
 <6aa95k$pou$1@peuplier.wanadoo.fr> <6abpcp$4pe$1@uuneo.neosoft.com>
 <6ads7q$2pa$2@peuplier.wanadoo.fr>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
Organization: NeoSoft, Inc.  
Newsgroups: comp.lang.ada
Date: 1998-01-25T00:00:00+00:00
List-Id: <comp.lang.ada>


Jean-Pierre Rosen wrote in message <6ads7q$2pa$2@peuplier.wanadoo.fr>...
>>>I have a package that allows you to protect a call to a procedure from
>>>abortion. I plan to put it on Adalog's web site as soon as I find the
time
>>>to write the documentation... In the meantime, I can send it to anyone
>>>interested.

Using the GNAT-defined pragma, one says:

    procedure Unabortably_Do_This is
    begin
       pragma Abort_Defer;
       -- things to do with abort deferred....
    end Unabortably_Do_This;


It is a shame we can't just say:

    pragma Convention( Abort_Deferred, Unabortably_Do_This );


The real question I originally asked, though, is how many other vendors also
implement a pragma to do the same as Abort_Defer?  There has been some
cooperation on other aspects, is there any here?