comp.lang.ada
 help / color / mirror / Atom feed
From: xorque <xorquewasp@googlemail.com>
Subject: Re: GCC 4.4.0 Postcondition oddity.
Date: Mon, 6 Jul 2009 14:25:20 -0700 (PDT)
Date: 2009-07-06T14:25:20-07:00	[thread overview]
Message-ID: <9089ca42-07f4-4208-832e-5f4c3bea1851@s31g2000yqs.googlegroups.com> (raw)
In-Reply-To: 87tz1pohqs.fsf@willow.rfc1149.net



Samuel Tardieu wrote:
> >>>>> "xorque" == xorque  <xorquewasp@googlemail.com> writes:
>
> xorque> Looks like I'll be filing a bug report...
>
> Out of curiosity, what does the output of "gcc -gnatadg" look like?
>
> Here, it is: (with a recent FSF GCC)
>
> % gcc -c -gnatadg p.adb
> with system.system__assertions;
>
> package body p is
>
>    procedure p__x (a : out natural) is
>
>       procedure p__x___postconditions is
>       begin
>          if not (a >= 10) then
>             $system__assertions__raise_assert_failure (
>               "Postcondition failed at p.ads:4");
>          end if;
>          return;
>       end p__x___postconditions;
>    begin
>       a := 20;
>       p__x___postconditions;
>       return;
>    end p__x;
> begin
>    null;
> end p;

On my system:

       a := 20;
       p__x___postconditions;
       ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
      return;

Is missing. I'll try compiling trunk!

Thanks.



      reply	other threads:[~2009-07-06 21:25 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-07-04 12:27 GCC 4.4.0 Postcondition oddity xorque
2009-07-06 12:15 ` xorque
2009-07-06 12:39   ` Georg Bauhaus
2009-07-06 13:45     ` xorque
2009-07-06 15:46       ` Tero Koskinen
2009-07-06 17:15       ` Samuel Tardieu
2009-07-06 21:25         ` xorque [this message]
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox