From 851cfa6f0085f05b4833ada5ffb74b05d57a1ff0 Mon Sep 17 00:00:00 2001 From: Doug Rupp Date: Wed, 15 Feb 2006 10:43:32 +0100 Subject: s-auxdec-vms_64.ads (Short_Address): Wrap it in a type. 2006-02-13 Douglas Rupp * s-auxdec-vms_64.ads (Short_Address): Wrap it in a type. From-SVN: r111087 --- gcc/ada/s-auxdec-vms_64.ads | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/s-auxdec-vms_64.ads b/gcc/ada/s-auxdec-vms_64.ads index 3bf7a5b..87b7819 100644 --- a/gcc/ada/s-auxdec-vms_64.ads +++ b/gcc/ada/s-auxdec-vms_64.ads @@ -37,15 +37,21 @@ -- These definitions can be used directly by withing this package, or merged -- with System using pragma Extend_System (Aux_DEC) --- This is the IPF VMS 64 bit version. +-- This is the VMS 64 bit version. with Unchecked_Conversion; package System.Aux_DEC is pragma Preelaborate; - subtype Short_Address is Address + type Short_Integer_Address is range -2 ** (32 - 1) .. +2 ** (32 - 1) - 1; + -- Integer literals cannot appear naked in an address context, as a + -- result the bounds of Short_Address cannot be given simply as 2^32 etc. + + subtype Short_Address is Address + range Address (Short_Integer_Address'First) .. + Address (Short_Integer_Address'Last); for Short_Address'Object_Size use 32; -- This subtype allows addresses to be converted from 64 bits to 32 bits -- with an appropriate range check. Note that since this is a subtype of -- cgit v1.1