Re: How to get nice with GNAT?

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 11/23/2014 10:41 AM, brbarkstrom@gmail.com wrote:
> 
> I'm working in GNAT GPL, so my suggestion may not work with every
> compiler.
> 
> On the other hand, in my code, the if following the exception in the
> procedure is picked up and executed properly.  The code doesn't act
> like the program has to fail if any exception is raised.

I don't think you're talking about exceptions. I took this program:

with Ada.Text_IO;
procedure Boolean_Exception is
   procedure Test (OK : out Boolean) is
      -- empty declarative part
   begin -- Test
      OK := False;

      raise Constraint_Error;
   end Test;

   OK : Boolean := True;
begin -- Boolean_Exception
   Test (OK => OK);
   Ada.Text_IO.Put_Line (Item => "No exception");
exception -- Boolean_Exception
when others =>
   Ada.Text_IO.Put_Line (Item => Boolean'Image (OK) );
end Boolean_Exception;

compiled with GNAT 4.6 on Linux, and got:

$ gnatmake -gnatwa -gnatano -O2 -fstack-check boolean_exception.adb
gcc-4.6 -c -gnatwa -gnatano -O2 -fstack-check boolean_exception.adb
boolean_exception.adb:6:10: warning: assignment to pass-by-copy formal may have
no effect
boolean_exception.adb:6:10: warning: "raise" statement may result in abnormal
return (RM 6.4.1(17))
gnatbind -x boolean_exception.ali
gnatlink boolean_exception.ali -O2 -fstack-check
$ ./boolean_exception
TRUE

What you're talking about doesn't work with GNAT.

-- 
Jeff Carter
"This school was here before you came,
and it'll be here before you go."
Horse Feathers
48