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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7508aa0d80b8bf66
X-Google-Attributes: gid103376,public
From: Simon Wright <simon@pogner.demon.co.uk>
Subject: Re: Inheritance and Polymorphism in Ada !!
Date: 1999/10/21
Message-ID: <x7vaepds3jy.fsf@pogner.demon.co.uk>#1/1
X-Deja-AN: 538954574
X-NNTP-Posting-Host: pogner.demon.co.uk:158.152.70.98
References: <7u64k3$l1d$1@hiline.shinbiro.com> <3806DC34.1513E8B1@frqnet.de>
 	<7u7o36$tv8$1@nntp6.atl.mindspring.net> <38077b65_1@news1.prserv.net>
 	<wccwvsk1ul4.fsf@world.std.com> <7uitmi$2vg$1@nnrp1.deja.com>
 <wcchfjmx7y5.fsf@world.std.com>
X-Trace: news.demon.co.uk 940532037 nnrp-07:26264 NO-IDENT
 pogner.demon.co.uk:158.152.70.98
Organization: At Home
Newsgroups: comp.lang.ada
X-Complaints-To: abuse@demon.net
Date: 1999-10-21T00:00:00+00:00
List-Id: <comp.lang.ada>

Robert A Duff <bobduff@world.std.com> writes:

> Another example: I often want to add a statement at the beginning of a
> procedure.  I want it to happen before anything else.  Maybe a debugging
> print-out, for example.  Or maybe some sort of checking on the input
> parameters, like an assertion.  If I put it after the "begin", I will
> miss all the elaborations.  So I have to surround the whole procedure
> with a block statement, and *then* add my new statement.  I wouldn't
> mind adding the verbosity if it helped the reader, but I think it does
> just the opposite.

If you're using GNAT, you can use pragma Debug and pragma Assert ..