From: "bubble" <bubble@riskm.com.tw>
Subject: Re: Ada exception block does NOT work?
Date: Tue, 16 Aug 2005 17:32:48 +0800
Date: 2005-08-16T17:32:48+08:00 [thread overview]
Message-ID: <ddsbsh$8hf$1@netnews.hinet.net> (raw)
In-Reply-To: 4301ab29$0$6989$9b4e6d93@newsread2.arcor-online.net
dear Georg:
thank to your reply so quickly.
and the problem still not be sloved.
you can test "test code".
you will find some thing interesting.
the statement , Avg := Sum / Data'Length;
should be throw a exception signal when Data'length is 0 (empty array)
and then the exception block handler should catch the signal, and do some
recovery process.
in the test case, it doesn't work
in first exceptin case, Ada throw a exception and transfer the control to
exception handler (greater).
in 2nd exception case,Ada "should" throw exception and do control transfer.
Unfortunately, it does not do.
> 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;
next prev parent reply other threads:[~2005-08-16 9:32 UTC|newest]
Thread overview: 78+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-08-16 8:48 Ada exception block does NOT work? bubble
2005-08-16 9:00 ` Georg Bauhaus
2005-08-16 9:32 ` bubble [this message]
2005-08-16 9:42 ` gautier_niouzes
2005-08-16 15:25 ` Frank J. Lhota
2005-08-16 16:58 ` Svesse
2005-08-16 17:48 ` Björn Persson
2005-08-16 18:12 ` Svesse
2005-08-16 18:17 ` Frank J. Lhota
2005-08-17 10:53 ` Ludovic Brenta
2005-08-17 11:34 ` Anders Wirzenius
2005-08-17 18:08 ` Björn Persson
2005-08-17 19:05 ` Randy Brukardt
2005-08-18 15:58 ` Georg Bauhaus
2005-08-16 12:30 ` Georg Bauhaus
2005-08-16 17:39 ` Björn Persson
2005-08-16 19:43 ` Georg Bauhaus
2005-08-17 1:39 ` Jeffrey R. Carter
2005-08-17 7:22 ` Maciej Sobczak
2005-08-18 1:05 ` Jeffrey R. Carter
2005-08-18 8:44 ` Maciej Sobczak
2005-08-18 11:40 ` Jean-Pierre Rosen
2005-08-18 12:56 ` Maciej Sobczak
2005-08-18 14:42 ` Jean-Pierre Rosen
2005-08-18 18:03 ` Martin Krischik
2005-08-18 13:15 ` Alex R. Mosteo
2005-08-18 15:23 ` Dmitry A. Kazakov
2005-08-18 18:00 ` Martin Krischik
2005-08-18 16:13 ` Jeffrey Carter
2005-08-18 16:38 ` Hyman Rosen
2005-08-18 18:07 ` jimmaureenrogers
2005-08-18 18:44 ` Hyman Rosen
2005-08-18 20:52 ` Frank J. Lhota
2005-08-19 0:57 ` jimmaureenrogers
2005-08-19 7:52 ` Dmitry A. Kazakov
2005-08-19 14:41 ` Robert A Duff
2005-08-19 17:48 ` Martin Krischik
2005-08-19 14:58 ` Robert A Duff
2005-08-18 17:54 ` Martin Krischik
2005-08-18 20:56 ` Robert A Duff
2005-08-18 22:01 ` Hyman Rosen
2005-08-19 2:35 ` Jeffrey R. Carter
2005-08-20 15:28 ` Robert A Duff
2005-08-20 20:24 ` Jeffrey R. Carter
2005-08-20 21:34 ` Robert A Duff
2005-08-20 22:47 ` Frank J. Lhota
2005-08-20 23:34 ` Robert A Duff
2005-08-21 11:18 ` Simon Wright
2005-08-21 16:59 ` tmoran
2005-08-21 19:48 ` Simon Wright
2005-08-21 16:07 ` Frank J. Lhota
2005-08-21 16:23 ` Martin Krischik
2005-08-21 1:12 ` Björn Persson
2005-08-21 9:01 ` Dmitry A. Kazakov
2005-08-21 16:14 ` Martin Krischik
2005-08-21 4:02 ` Larry Kilgallen
2005-08-19 12:34 ` Dr. Adrian Wrigley
2005-08-19 17:29 ` Martin Krischik
2005-08-19 18:14 ` Frank J. Lhota
2005-08-21 16:02 ` Martin Krischik
2005-08-21 16:48 ` Frank J. Lhota
2005-08-22 15:51 ` Martin Krischik
2005-08-23 0:32 ` Larry Elmore
[not found] ` <h5dlg1tsie8n3ikirvbi508t9afobhctkj@4ax.com>
2005-08-23 18:09 ` Martin Krischik
2005-08-23 19:50 ` C history Björn Persson
2005-08-27 21:09 ` Ada exception block does NOT work? Dave Thompson
2005-08-24 1:07 ` Larry Elmore
2005-08-24 2:36 ` Jeffrey R. Carter
2005-08-25 0:14 ` Larry Elmore
2005-08-26 2:44 ` Jeffrey R. Carter
2005-08-24 16:44 ` Martin Krischik
2005-08-22 8:12 ` Hyman Rosen
2005-08-18 21:15 ` Robert A Duff
2005-08-19 12:00 ` Dmitry A. Kazakov
2005-08-17 20:24 ` Simon Wright
2005-08-18 19:36 ` Björn Persson
2005-08-18 21:07 ` Simon Wright
2005-08-22 10:47 ` bubble
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox