From: "Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>
Subject: Re: GNAT.Source_Info Volatile and SPARK
Date: Sat, 9 Dec 2023 15:57:41 +0100 [thread overview]
Message-ID: <ul1v95$2735i$1@dont-email.me> (raw)
In-Reply-To: <ul1tri$28240$1@dont-email.me>
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
next prev parent reply other threads:[~2023-12-09 14:57 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-12-08 18:28 GNAT.Source_Info Volatile and SPARK Kevin Chadwick
2023-12-09 14:16 ` Kevin Chadwick
2023-12-09 14:33 ` Kevin Chadwick
2023-12-09 14:57 ` Jeffrey R.Carter [this message]
2023-12-09 15:13 ` Kevin Chadwick
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox