From mboxrd@z Thu Jan  1 00:00:00 1970
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>
Newsgroups: comp.lang.ada
Subject: Re: GNAT.Source_Info Volatile and SPARK
Date: Sat, 9 Dec 2023 15:57:41 +0100
Organization: A noiseless patient Spider
Message-ID: <ul1v95$2735i$1@dont-email.me>
References: <ukvn87$1r9gq$1@dont-email.me> <ul1srg$27ssd$1@dont-email.me>
 <ul1tri$28240$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sat, 9 Dec 2023 14:57:42 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="333748014917dd824f52bf756196e0b4";
	logging-data="2329778"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX187CjGN9u7z1ieeOP++arMAJ6hn7272kt4="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:juoHxH0hz81KLI6rR1BfEnmvMuY=
In-Reply-To: <ul1tri$28240$1@dont-email.me>
Content-Language: en-US
Xref: news.eternal-september.org comp.lang.ada:65897
List-Id: <comp.lang.ada>

On 2023-12-09 15:33, Kevin Chadwick wrote:
> On 09/12/2023 14:16, Kevin Chadwick wrote:
>>
>> I shall go with doing the above per package for Gnat.Source_Info.File and
>> wrapping the Gnat.Source_Info.Line procedure with one marked with Global =>
>> null.
> 
> Doh...Of course I can't wrap Line, ha ha. If I want the right line.

Perhaps

private with Gnat.Source_Info;

package Source_Line_Info with SPARK_Mode is
    function Line ... with Global => null;
private -- Source_Line_Info
    pragma SPARK_Mode (Off);

    function Line ... renames Gnat.Source_Info.line;
end Source_Line_Info;

(Untested)

-- 
Jeff Carter
"Unix and C are the ultimate computer viruses."
Richard Gabriel
99