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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:ac8:25ac:: with SMTP id
 e41mr37605020qte.101.1563545191379;
        Fri, 19 Jul 2019 07:06:31 -0700 (PDT)
X-Received: by 2002:a05:6808:90d:: with SMTP id
 w13mr3434941oih.175.1563545190851;
 Fri, 19 Jul 2019 07:06:30 -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!b26no3405610qtq.0!news-out.google.com!e17ni743qtg.1!nntp.google.com!b26no3405607qtq.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 19 Jul 2019 07:06:30 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=20.133.40.13;
 posting-account=YRfoYAoAAADhSEO2nLYx10QUUvp8akYl
NNTP-Posting-Host: 20.133.40.13
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ea6a4dcf-4166-4781-a4ea-0b2b8f08fa13@googlegroups.com>
Subject: DEC Ada Exception Information
From: Stephen Davies <joviangm@gmail.com>
Injection-Date: Fri, 19 Jul 2019 14:06:31 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:56887
Date: 2019-07-19T07:06:30-07:00
List-Id: <comp.lang.ada>

I am using DEC Ada 3.5-20, which provides the function
CURRENT_EXCEPTION.EXCEPTION_INFORMATION.

The string it returns includes the PC value. How do I
convert this to the Ada package/subunit and line number?

TIA

Stephen Davies