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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,efe03f20164a417b
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1995-03-25 20:12:16 PST
Path: 
 nntp.gmd.de!news.rwth-aachen.de!news.rhrz.uni-bonn.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!xlink.net!howland.reston.ans.net!agate!news.mindlink.net!news.bc.net!infomatch.com!usenet
From: celier@infomatch.com (celier)
Newsgroups: comp.lang.ada
Subject: Re: An observation of Ada (may offend)
Date: 26 Mar 1995 03:50:02 GMT
Organization: InfoMatch Information Services
Message-ID: <3l2o9a$3a1@infomatch.com>
References: <3kbkm1$41o@miranda.gmrc.gecm.com>
 <3kcflv$164a@watnews1.watson.ibm.com>
 <EACHUS.95Mar20111527@spectre.mitre.org>
 <3knah2$p4m@watnews1.watson.ibm.com> <3kr20s$gqq@gnat.cs.nyu.edu>
 <EACHUS.95Mar23113811@spectre.mitre.org>  <3l1lkq$pm6@gnat.csn
NNTP-Posting-Host: 199.60.99.189
X-Posted-From: InterNews 1.0.5@199.60.99.189
X-Authenticated: celier on POP host infomatch.com
Date: 1995-03-26T03:50:02+00:00
List-Id: <comp.lang.ada>

>   pragma No_Child_Units;
>  --  Any attempt to compile a child unit is rejected

Why not simply use pragma Restrictions:

   pragma Resptictions (No_Child_Units);
   --  Any attempt to compile a child unit is rejected

Vincent Celier
celier@infomatch.com