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: 
 buffer2.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!enother.net!enother.net!newsfeed.datemas.de!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Simon Wright <simon@pushface.org>
Newsgroups: comp.lang.ada
Subject: Re: Q: setting an address with pure?
Date: Wed, 15 Jul 2015 19:45:33 +0100
Organization: A noiseless patient Spider
Message-ID: <lymvyxjm42.fsf@pushface.org>
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
Injection-Info: mx02.eternal-september.org;
 posting-host="0b8a1d07de517ba95be21a60d7133ef5";
 logging-data="23113"; mail-complaints-to="abuse@eternal-september.org";
 posting-account="U2FsdGVkX19jX5XSSsk7PjhWi3S6IAijFtz/xPm70YU="
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (darwin)
Cancel-Lock: sha1:yjPI1sTT/mxHHjvL5VBmGu5Rm0g=
 sha1:L2J7pXktEVAeS0IaTWPIaRxLj3M=
Xref: number.nntp.giganews.com comp.lang.ada:194126
Date: 2015-07-15T19:45:33+01:00
List-Id: <comp.lang.ada>

rrr.eee.27@gmail.com writes:

> 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, as far as I remember you started MSP430-Ada as a copy of
> 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

Whereas I was minimising the differences from a standard GNAT RTS. I
never even thought of making this sort of change!