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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8893269a4640c798
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-07-18 04:51:27 PST
Path: 
 archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!stamper.news.atl.earthlink.net!harp.news.atl.earthlink.net!not-for-mail
From: Marin David Condic <nobody@noplace.com>
Newsgroups: comp.lang.ada
Subject: Re: terminate applications
Date: Fri, 18 Jul 2003 07:51:24 -0400
Organization: MindSpring Enterprises
Message-ID: <3F17DF3C.4080204@noplace.com>
References: <mailman.18.1058521718.24167.comp.lang.ada@ada.eu.org>
 <FlQRa.89768$H17.28202@sccrnsc02>
NNTP-Posting-Host: d1.56.b4.cb
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Server-Date: 18 Jul 2003 11:51:26 GMT
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
 rv:1.0.1) Gecko/20020823 Netscape/7.0 (OEM-HPQ-PRS1C03)
X-Accept-Language: en-us, en
Xref: archiver1.google.com comp.lang.ada:40466
Date: 2003-07-18T11:51:26+00:00
List-Id: <comp.lang.ada>

Terminating the environment task is supposed to be a legitimate method 
of killing everything, but I've had problems getting it to work with 
GNAT on a PC platform. What compiler do you use on which this works 
reliably?

MDC

Jeffrey Creem wrote:

> 
> package body Arnold is
> 
> Environment_Task_Id : Ada.Task_Identification.Task_Id :=
> Ada.Task_Identification.Current_Task;
> 
> procedure Terminator is
> 
> begin
> 
> Ada.Task_Identification.Abort_Task(Environment_Task_Id);
> 
> end Terminator;
> 
> end Arnold;
> 
> 
> 
> 


-- 
======================================================================
Marin David Condic
I work for: http://www.belcan.com/
My project is: http://www.jast.mil/

Send Replies To: m c o n d i c @ a c m . o r g

     "In general the art of government consists in taking as
     much money as possible from one class of citizens to give
     to the other."

         --  Voltaire
======================================================================