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-Thread: 103376,531fa81e1ce02677,start
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Date: Thu, 15 Sep 2005 12:02:05 -0400
From: James Alan Farrell <jfarrell@nospam.com>
Organization: nospam
User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: ASIS question
Content-Type: multipart/mixed;
 boundary="------------010500000001090009050605"
NNTP-Posting-Host: fw.grammatech.com
Message-ID: <43299b20$1_2@newsfeed.slurp.net>
X-Trace: newsfeed.slurp.net 1126800160 209.4.89.67 (15 Sep 2005 11:02:40
 -0500)
X-Original-NNTP-Posting-Host: 209.4.89.67
Path: 
 g2news1.google.com!news2.google.com!atl-c05.usenetserver.com!news.usenetserver.com!newsfeed.telusplanet.net!newsfeed.telus.net!cyclone.bc.net!news.alt.net!newsfeed.slurp.net!not-for-mail
Xref: g2news1.google.com comp.lang.ada:4720
Date: 2005-09-15T12:02:05-04:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------010500000001090009050605
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Given a declaration, is there an easy way to get a list of pragmas 
relating to that declaration?

ie:

procedure Foo;
pragma Export(C, Foo, "foo");

where Foo is declared in a long list of declarations.  I have the decl 
list and the declaration of Foo.  Is there any way I can get the pragma 
directly from Foo, rather than searching the long list of declarations 
and seeing if any pragma relates to Foo?

Thanks
James Alan Farrell


--------------010500000001090009050605
Content-Type: text/x-vcard; charset=utf-8;
 name="jfarrell.vcf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="jfarrell.vcf"

begin:vcard
fn:James Alan Farrell
n:Farrell;James
org:GrammaTech
version:2.1
end:vcard


--------------010500000001090009050605--