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-Thread: 103376,ee1a8b8db84c88f
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!newsfeed2.dallas1.level3.net!news.level3.com!newsfeed-00.mathworks.com!irazu.switch.ch!switch.ch!news.belwue.de!newsfeed.arcor.de!news.arcor.de!not-for-mail
Date: Tue, 16 Aug 2005 11:00:30 +0200
From: Georg Bauhaus <bauhaus@futureapps.de>
Organization: future apps GmbH
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.7.8) Gecko/20050513 Debian/1.7.8-1
X-Accept-Language: en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Ada exception block does NOT work?
References: <dds99e$qgn$1@netnews.hinet.net>
In-Reply-To: <dds99e$qgn$1@netnews.hinet.net>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <4301ab29$0$6989$9b4e6d93@newsread2.arcor-online.net>
NNTP-Posting-Date: 16 Aug 2005 11:00:25 MEST
NNTP-Posting-Host: c0fc0244.newsread2.arcor-online.net
X-Trace: 
 DXC=cjCh_iLT>hISZ`lLL_hK=JQ5U85hF6f;DjW\KbG]kaMH41Ud:;E]@4C`E5j9;Y9=RCljUVjRQ60?BVmnOeiOY3@Ng[50F7T5IOB
X-Complaints-To: abuse@arcor.de
Xref: g2news1.google.com comp.lang.ada:4129
Date: 2005-08-16T11:00:25+02:00
List-Id: <comp.lang.ada>

bubble wrote:

> I found Ada can not re-enter the exception block twice.(oh! my god)
> It should be work.

It does :-). Reentering means to loop, so you could write,
in your procedure's body

   loop
      begin
         some_computation(data);
         exit retrying;
      exception
         when Some_Exception =>
            report;
            make_adjustments;
      end;
   end loop;

or

   retry: loop
      begin
         some_computation(data);
         exit retry;
      exception
         when Some_Exception =>
            report;
            make_adjustments;
      end;
   end loop retry;