From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Exceptions and out procedure arguments (using GNAT GPL)
Date: Sat, 16 Jun 2007 08:55:44 +0200
Date: 2007-06-16T08:55:37+02:00 [thread overview]
Message-ID: <1rtyporytkm2u.dyecl8roox43$.dlg@40tude.net> (raw)
In-Reply-To: 79c673pq5htg508nkoi935n3udqg5ps7r8@4ax.com
On Sat, 16 Jun 2007 01:05:10 GMT, Fionn Mac Cumhaill wrote:
> Consider a procedure that starts like this:
>
> procedure My_Procedure (
> O: out integer
> )
> is
> begin
>
> -- various statements follow
>
> O := 999;
>
> -- more statements follow
>
> raise My_Exception;
If you want to keep side effects on a parameter upon raising an exception,
then you should use access to Integer, because Integer is not a
by-reference type:
procedure My_Procedure (O: access integer) is
begin
...
O.all := 999;
...
raise My_Exception;
--
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de
next prev parent reply other threads:[~2007-06-16 6:55 UTC|newest]
Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-06-16 1:05 Exceptions and out procedure arguments (using GNAT GPL) Fionn Mac Cumhaill
2007-06-16 1:53 ` Anh Vo
2007-06-16 2:50 ` Brian May
2007-06-16 3:08 ` Randy Brukardt
2007-06-16 6:55 ` Dmitry A. Kazakov [this message]
2007-06-18 15:44 ` Adam Beneschan
2007-06-19 5:23 ` Fionn Mac Cumhaill
2007-06-19 7:34 ` Maciej Sobczak
2007-06-19 15:21 ` Adam Beneschan
2007-06-19 20:07 ` Dmitry A. Kazakov
2007-06-19 21:20 ` Adam Beneschan
2007-06-20 6:16 ` Georg Bauhaus
2007-06-20 8:01 ` Dmitry A. Kazakov
2007-06-20 8:45 ` Georg Bauhaus
2007-06-20 9:29 ` Dmitry A. Kazakov
2007-06-20 6:21 ` Georg Bauhaus
2007-06-20 8:02 ` Dmitry A. Kazakov
2007-06-20 8:46 ` Georg Bauhaus
2007-06-20 9:29 ` Dmitry A. Kazakov
2007-06-20 10:13 ` Georg Bauhaus
2007-06-20 12:58 ` Dmitry A. Kazakov
2007-06-20 14:16 ` Georg Bauhaus
2007-06-20 18:22 ` Dmitry A. Kazakov
2007-06-20 19:16 ` Georg Bauhaus
2007-06-20 20:40 ` Dmitry A. Kazakov
2007-06-21 9:52 ` Georg Bauhaus
2007-06-21 13:48 ` Dmitry A. Kazakov
2007-06-22 18:15 ` Georg Bauhaus
2007-06-22 19:45 ` Dmitry A. Kazakov
2007-06-20 15:15 ` Fionn Mac Cumhaill
2007-06-19 21:40 ` Randy Brukardt
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox