From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a0c:fec9:: with SMTP id z9mr14086722qvs.113.1568162146604;
        Tue, 10 Sep 2019 17:35:46 -0700 (PDT)
X-Received: by 2002:aca:2217:: with SMTP id b23mr1879223oic.119.1568162146153;
 Tue, 10 Sep 2019 17:35:46 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!o24no6519281qtl.0!news-out.google.com!c11ni890qtp.0!nntp.google.com!o24no6519274qtl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 10 Sep 2019 17:35:45 -0700 (PDT)
In-Reply-To: <ql8sk7$6de$1@gioia.aioe.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2601:193:4103:71a0:24aa:5211:1e19:f796;
 posting-account=1tLBmgoAAAAfy5sC3GUezzrpVNronPA-
NNTP-Posting-Host: 2601:193:4103:71a0:24aa:5211:1e19:f796
References: <fc3ac55b-d5c8-4255-9889-7f4b3fe428d0@googlegroups.com>
 <ql8sk7$6de$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a1312e9e-0724-4e87-98da-a38c54784f03@googlegroups.com>
Subject: Re: potential Ada feature - comments?
From: Matt Borchers <mattborchers@gmail.com>
Injection-Date: Wed, 11 Sep 2019 00:35:46 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:57129
Date: 2019-09-10T17:35:45-07:00
List-Id: <comp.lang.ada>

Yes, I agree that a nested block is an option but it looks crappy and is it okay to complain that everything has to be unnecessarily indented to accommodate this fairly common construct?

Not everything is well designed or uses controlled objects.  In my case, I utilize a lot of legacy Ada 83 code.

procedure SUBPROGRAM is
begin
  begin
    --acquire resources
    ...
  exception
   when X =>
      --something for X
   when Y =>
      --something for Y
   when Z =>
      --something for Z
   when others =>
      --general case
  end;
  --free resources;
end SUBPROGRAM;