diff options
| author | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-10-09 20:28:22 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-10-09 20:28:22 +0000 |
| commit | 7f5e671bce70f537708f36033cd44869ca94fb4c (patch) | |
| tree | 502df8f997157241d93143dc07c49c176b749f99 /gcc/ada/targparm.adb | |
| parent | f192ca5eea6a1b12e0cdf1e4342faa52744c5a25 (diff) | |
| download | gcc-7f5e671bce70f537708f36033cd44869ca94fb4c.zip gcc-7f5e671bce70f537708f36033cd44869ca94fb4c.tar.gz gcc-7f5e671bce70f537708f36033cd44869ca94fb4c.tar.bz2 | |
[multiple changes]
2017-10-09 Justin Squirek <squirek@adacore.com>
* sem_ch3.adb: Rename Uses_Unseen_Priv into
Contains_Lib_Incomplete_Type.
2017-10-09 Hristian Kirtchev <kirtchev@adacore.com>
* sem_aggr.adb, sem_spark.adb, adabkend.adb, exp_ch5.adb, frontend.adb,
sem_ch12.adb, fmap.adb, exp_ch6.adb, exp_spark.adb, lib-load.adb,
exp_ch9.adb, osint.adb, exp_disp.adb, sem_ch8.adb, sem_ch8.ads,
prepcomp.adb, gnat1drv.adb, atree.adb, sinput-l.adb, targparm.adb,
sem_ch10.adb, par-ch8.adb: Minor reformatting.
From-SVN: r253566
Diffstat (limited to 'gcc/ada/targparm.adb')
| -rw-r--r-- | gcc/ada/targparm.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index 725bb4c..63b124a 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -158,8 +158,8 @@ package body Targparm is Set_NUP : Set_NUP_Type := null) is FD : File_Descriptor; - Text : Source_Buffer_Ptr; Hi : Source_Ptr; + Text : Source_Buffer_Ptr; begin if Parameters_Obtained then @@ -173,11 +173,13 @@ package body Targparm is if Null_Source_Buffer_Ptr (Text) then Write_Line ("fatal error, run-time library not installed correctly"); + if FD = Null_FD then Write_Line ("cannot locate file system.ads"); else Write_Line ("no read access for file system.ads"); end if; + raise Unrecoverable_Error; end if; |