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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3ef07b2a9707133a,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-07-13 14:13:16 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!news.freenet.de!not-for-mail
From: Jan Prazak <janp9@gmx.net>
Subject: exit from a procedure
Date: Sat, 13 Jul 2002 23:14:15 -0100
Newsgroups: comp.lang.ada
Message-ID: <pan.2002.07.13.23.13.01.959431.2074@gmx.net>
User-Agent: Pan/0.11.2 (Unix)
Mime-Version: 1.0
Content-Type: text/plain; charset=iso885915
Content-Transfer-Encoding: 8bit
X-Comment-To: ALL
NNTP-Posting-Host: 213.7.143.208
X-Trace: 1026594785 news.freenet.de 15169 213.7.143.208
X-Complaints-To: abuse@freenet.de
Xref: archiver1.google.com comp.lang.ada:27065
Date: 2002-07-13T23:14:15-01:00
List-Id: <comp.lang.ada>

Is it possible to exit from a procedure?

I am using a label, but it's not a good solution, because there a
statement must follow, so I have to say "X := 0;" or something after the
label.

....
.... goto Big_End;
....

<<Big_End>> X := 0;
end procedure_name;

It is easy in Pascal (with "exit"), so I think it must also work in Ada.

And is it possible to stop the whole program? It's "halt" in
Pascal, but it doesn't work in Ada, so maybe there is another name for it.


Jan