comp.lang.ada
 help / color / mirror / Atom feed
From: "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>
Subject: Re: body stub not allowed in inner scope
Date: Wed, 28 Feb 2018 18:24:29 +0100
Date: 2018-02-28T18:24:29+01:00	[thread overview]
Message-ID: <p76okd$slj$1@dont-email.me> (raw)
In-Reply-To: <dee332fb-c791-4e81-ad0f-0e07220fc2b7@googlegroups.com>

On 02/28/2018 02:01 PM, Mehdi Saada wrote:
> I find that rule very limitating !
> I need the procedures to know the context (access local variable).
> Same with nested packages:
> I need them to access local variable too, and be able to exit an enclosing loop. Though I'm not sure it's allowed either.
> Without stuff like this, my working memory is already overflowed with a hundred lines.

How do you write the separate body? Remember, you have to be able to handle

package body P is
    procedure Q is
       procedure R is separate;
    begin -- Q
       R;
    end Q;

    procedure Q (I : Integer) is
       procedure R is separate;
    begin -- Q
       R;
    end q;
end P;

-- 
Jeff Carter
"From this day on, the official language of San Marcos will be Swedish."
Bananas
28


  parent reply	other threads:[~2018-02-28 17:24 UTC|newest]

Thread overview: 30+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2018-02-28 13:01 body stub not allowed in inner scope Mehdi Saada
2018-02-28 13:32 ` AdaMagica
2018-02-28 14:30   ` Mehdi Saada
2018-02-28 14:39     ` AdaMagica
2018-02-28 23:23     ` Randy Brukardt
2018-03-01  7:14       ` J-P. Rosen
2018-03-01 22:38         ` Randy Brukardt
2018-03-02  7:14           ` J-P. Rosen
2018-03-02 10:17             ` Dmitry A. Kazakov
2018-03-02 22:10               ` Randy Brukardt
2018-03-03  3:38                 ` Dennis Lee Bieber
2018-03-02 22:13             ` Randy Brukardt
2018-03-02 19:37           ` G. B.
2018-03-02 19:47             ` Simon Wright
2018-03-03  9:42               ` G.B.
2018-03-01  8:20       ` Dmitry A. Kazakov
2018-03-01  8:24       ` Simon Wright
2018-03-01 20:52         ` Jacob Sparre Andersen
2018-03-01 22:45           ` Randy Brukardt
2018-03-01  8:38       ` Niklas Holsti
2018-03-01  9:11       ` Björn Lundin
2018-03-01 15:19       ` marciant
2018-03-01 17:37       ` Shark8
2018-02-28 15:26 ` Mehdi Saada
2018-02-28 15:28   ` Mehdi Saada
2018-02-28 23:32   ` Randy Brukardt
2018-03-01  0:16     ` Mehdi Saada
2018-02-28 17:24 ` Jeffrey R. Carter [this message]
2018-02-28 18:05   ` Simon Wright
2018-02-28 19:04     ` Jeffrey R. Carter
replies disabled

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