diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-07-31 13:48:33 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 15:48:33 +0200 |
| commit | ba0c6e4769cb6e81289ea4a0c536260e859fc795 (patch) | |
| tree | 4d402263be4cc3bb252bd582efca70aa12a62bb9 /gcc/ada/sem_ch13.adb | |
| parent | f9648959b41d5c443702c809676056f1f39c56de (diff) | |
| download | gcc-ba0c6e4769cb6e81289ea4a0c536260e859fc795.zip gcc-ba0c6e4769cb6e81289ea4a0c536260e859fc795.tar.gz gcc-ba0c6e4769cb6e81289ea4a0c536260e859fc795.tar.bz2 | |
cstand.adb, [...]: Remove obsolete VMS-specific code.
2014-07-31 Robert Dewar <dewar@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/sem_ch13.adb')
| -rw-r--r-- | gcc/ada/sem_ch13.adb | 18 |
1 files changed, 3 insertions, 15 deletions
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!", |