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.5 required=5.0 tests=BAYES_00,INVALID_MSGID,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,20324ebb3709048c
X-Google-Attributes: gid103376,public
From: Robert A Duff <bobduff@world.std.com>
Subject: Re: Terminate program in Ada95
Date: 2000/11/27
Message-ID: <wcc4s0tpifh.fsf@world.std.com>#1/1
X-Deja-AN: 698259535
Sender: bobduff@world.std.com (Robert A Duff)
References: <975328139.872809@edh3>
Organization: The World Public Access UNIX, Brookline, MA
Newsgroups: comp.lang.ada
Date: 2000-11-27T00:00:00+00:00
List-Id: <comp.lang.ada>

"Atle R�stad" <aer@edh.ericsson.se> writes:

> How can I do an unconditionaly terminate of my program in Ada95?

You might want to use terminate alternatives in your tasks.
Or, you can call the operating system "exit" routine -- use pragma Import.
Or, you can abort them.
Or, you can abort the environment task, which will cause all subtasks to
also be aborted, thus killing the whole program.

To get your hands on the environment task, call Current_Task from the
env task -- that is, put something like this in a library package:

    Environment_Task: constant Task_ID := Current_Task;

You can then use Abort_Task on that.

Abortion will cause finalization actions to happen.
Calling "exit" probably will not; that's outside the language.

- Bob