From ba0c6e4769cb6e81289ea4a0c536260e859fc795 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 31 Jul 2014 13:48:33 +0000 Subject: cstand.adb, [...]: Remove obsolete VMS-specific code. 2014-07-31 Robert Dewar * cstand.adb, einfo.adb, einfo.ads, errout.adb, exp_attr.adb, exp_prag.adb, frontend.adb, interfac.ads, par-prag.adb, s-auxdec.ads, s-filofl.ads, s-fishfl.ads, s-fvadfl.ads, s-fvaffl.ads, s-fvagfl.ads, s-vaflop.ads, sem_attr.adb, sem_attr.ads, sem_ch13.adb, sem_ch3.adb, sem_ch8.adb, sem_prag.adb, snames.adb-tmpl, snames.ads-tmpl: Remove obsolete VMS-specific code. From-SVN: r213369 --- gcc/ada/sem_ch13.adb | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) (limited to 'gcc/ada/sem_ch13.adb') diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index f952445..bf720be 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -10875,19 +10875,10 @@ package body Sem_Ch13 is then return 0; - -- Access types. Normally an access type cannot have a size smaller - -- than the size of System.Address. The exception is on VMS, where - -- we have short and long addresses, and it is possible for an access - -- type to have a short address size (and thus be less than the size - -- of System.Address itself). We simply skip the check for VMS, and - -- leave it to the back end to do the check. + -- Access types (cannot have size smaller than System.Address) elsif Is_Access_Type (T) then - if OpenVMS_On_Target then - return 0; - else - return System_Address_Size; - end if; + return System_Address_Size; -- Floating-point types @@ -12588,13 +12579,10 @@ package body Sem_Ch13 is and then Convention (Target) /= Convention (Source) and then Warn_On_Unchecked_Conversion then - -- Give warnings for subprogram pointers only on most targets. The - -- exception is VMS, where data pointers can have different lengths - -- depending on the pointer convention. + -- Give warnings for subprogram pointers only on most targets if Is_Access_Subprogram_Type (Target) or else Is_Access_Subprogram_Type (Source) - or else OpenVMS_On_Target then Error_Msg_N ("?z?conversion between pointers with different conventions!", -- cgit v1.1