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=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Brian Drummond <brian@shapes.demon.co.uk>
Newsgroups: comp.lang.ada
Subject: Re: Q: setting an address with pure?
Date: Thu, 16 Jul 2015 09:21:12 +0000 (UTC)
Organization: A noiseless patient Spider
Message-ID: <mo7t28$6h2$1@dont-email.me>
References: <lyy4iokzci.fsf@pushface.org> <mnqrh2$mdm$1@dont-email.me>
	<lylhemlt3t.fsf@pushface.org> <mo2v15$4c5$1@dont-email.me>
	<f8cb3171-6f18-4c76-b3d0-3da73bed60f6@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 16 Jul 2015 09:21:12 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="da745e888d4a5182b5fda6212bbb0a63";
	logging-data="6690"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/8CnTdUSdp7no/N+1Fwh5wnQm1vnXHJAk="
User-Agent: Pan/0.139 (Sexual Chocolate; GIT bf56508
 git://git.gnome.org/pan2)
Cancel-Lock: sha1:tiAJobIkuXW/chfzRPYm4QSGYmI=
Xref: news.eternal-september.org comp.lang.ada:26820
Date: 2015-07-16T09:21:12+00:00
List-Id: <comp.lang.ada>

On Wed, 15 Jul 2015 08:50:06 -0700, rrr.eee.27 wrote:

> On Tuesday, July 14, 2015 at 2:25:34 PM UTC+2, Brian Drummond wrote:
>> On Sat, 11 Jul 2015 14:30:14 +0100, Simon Wright wrote:
>> 
>> > Brian Drummond writes:
>> > 
>> >> Does the following work for you?
>> >>    For adc10dtc0'Address use   16#48#;
>> 
>> 
>> >    128.    PIOG : PIO with Volatile, Convention => Ada;
>> >    129.    for PIOG'Address use 16#400E1C00#;
>> >                                 |
>> >         >>> expected private type "System.Address"
>> >         >>> found type universal integer
>> > 
>> > (same with GNAT GPL 2015)
>> 
>> Thank you - and Rasika Srinivasan - forthis conversation. When I get
>> back to the MSP430 version I'll retrofit this.
>> 
>> -- Brian
> 
> Brian, as far as I remember you started MSP430-Ada as a copy of AVR-Ada.

Indeed, yes! AVR-Ada was both the inspiration, and specifically, your RTS 
was the best candidate for a starting point for the MSP430 RTS. 

Though I treat it as a component, to potentially allow the substitution 
of another RTS. (I'm not sure if that's possible in AVR-Ada).

> I made the type System.Address globaly visible as a 32-bit unsigned.
> That's why the above statements work in AVR-Ada and probably in MSP-Ada
> 
> Rolf

Ah! Well if that is permitted by the LRM (and obviously, only for targets 
where it is valid) it certainly makes life easier! 

I think it's a reasonable decision, since these packages are explicitly 
not portable to any other target (where System.Address could be something 
else) anyway.

That little gem makes me glad I posted!

-- Brian