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,CP1252
X-Google-Thread: 103376,71aa44b9692e8206
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-05-16 10:09:07 PST
Path: 
 archiver1.sj.google.com!newsfeed.google.com!newsfeed.stanford.edu!feed.textport.net!news-out.nuthinbutnews.com!propagator!feed2.newsfeeds.com!newsfeeds.com!news-in-austin.nuthinbutnews.com!telocity-west!TELOCITY!newsrump.sjc.telocity.net!not-for-mail
From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Newsgroups: comp.lang.ada
References: <990017804.158478@edh3>
Subject: Re: Package name
MIME-Version: 1.0
Content-Type: text/plain;
	charset="Windows-1252"
Content-Transfer-Encoding: 8bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Message-ID: <SuyM6.218$i8.699307@newsrump.sjc.telocity.net>
X-Trace: 
 MjkgTm9BdXRoVXNlciBURUxPQ0lUWS1SRUFERVJTIDIxNi4yMjcuNDcuNDkgIFdlZCwgMTYgTWF5!IDIwMDEgMTA6MDk6MDYgUERU
X-Abuse-Info: Please forward ALL headers when reporting abuse.
X-Complaints-To: abuse@telocity.net
NNTP-Posting-Date: Wed, 16 May 2001 10:09:06 PDT
Date: Wed, 16 May 2001 12:08:55 -0500
Xref: archiver1.sj.google.com comp.lang.ada:7572
Date: 2001-05-16T12:08:55-05:00
List-Id: <comp.lang.ada>

This is a piece of "boilerplate" code I put in library unit bodies
to do just that.

It does so at the expense of two identifiers (ID and Exception_Name)
that are used only for the purpose of defining the value of the
Unit_Name string.

   ---------------------------------------------------------------------
   -- The next three declarations are an artifice to obtain the name
   -- of this unit -- e.g. for use in error messages.
   ---------------------------------------------------------------------
   ID : exception;
   Exception_Name : constant String :=
     Ada.Exceptions.Exception_Name (Id'Identity);
   Unit_Name : String renames
     Exception_Name (Exception_Name'First .. Exception_Name'Last - 3);


"Atle R�stad" <aer@edh.ericsson.se> wrote in message
news:990017804.158478@edh3...
> Is it possible to print out the package name?
>
> It would be a nice feature in tracing. Maybe even print the
> procedure/function name.
>
> Regards Atle
>
>