diff options
| author | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-09-29 15:33:23 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-09-29 15:33:23 +0000 |
| commit | cd644ae2bc0ce62b88f786ce5a68ad0ba2509ec6 (patch) | |
| tree | 5b626698ecdaf41e2a8f95028be8c76b863eaed6 /gcc/ada/errout.adb | |
| parent | e75210d645630f12bf149043cf6ae51829f5ed78 (diff) | |
| download | gcc-cd644ae2bc0ce62b88f786ce5a68ad0ba2509ec6.zip gcc-cd644ae2bc0ce62b88f786ce5a68ad0ba2509ec6.tar.gz gcc-cd644ae2bc0ce62b88f786ce5a68ad0ba2509ec6.tar.bz2 | |
[multiple changes]
2017-09-29 Bob Duff <duff@adacore.com>
* exp_ch6.adb (Expand_Call_Helper): Replace with code more similar to
what we had before.
(Make_Build_In_Place_Call_In_Object_Declaration): Back out previous
change. Set the Etype in the class-wide case. This fixes a regression
in the libadalang test suite.
2017-09-29 Joel Brobecker <brobecker@adacore.com>
* doc/gnat_ugn/building_executable_programs_with_gnat.rst,
doc/gnat_ugn/the_gnat_compilation_model.rst: Avoid use of single colon
in comment markup.
* gnat_ugn.texi: Regenerate.
2017-09-29 Justin Squirek <squirek@adacore.com>
* ali-util.adb, comperr.adb, cprint.adb, errout.adb, fmap.adb,
fname-sf.adb, frontend.adb, lib-xref-spark_specific.adb, gnat1drv.adb,
gnatls.adb, lib.adb, lib-load.adb, lib-writ.adb, prepcomp.adb,
sinput-d.adb, sinput-l.adb, sprint.adb, targparm.adb: Update comparison
for checking source file status and error message and/or call to
Read_Source_File.
* libgnat/s-os_lib.ads: Add new potential value constant for
uninitialized file descriptors.
* osint.adb, osint.ads (Read_Source_File): Add extra parameter to
return result of IO to encompass a read access failure in addition to a
file-not-found error.
From-SVN: r253294
Diffstat (limited to 'gcc/ada/errout.adb')
| -rw-r--r-- | gcc/ada/errout.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index ce99fd8..a402c68 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -1813,7 +1813,7 @@ package body Errout is -- the Main_Source line is unknown (this happens in error situations, -- e.g. when integrated preprocessing fails). - if Main_Source_File /= No_Source_File then + if Main_Source_File > No_Source_File then Write_Str (" "); Write_Int (Num_Source_Lines (Main_Source_File)); @@ -1938,7 +1938,7 @@ package body Errout is -- Source_Reference. This ensures outputting the proper name of -- the source file in this situation. - if Main_Source_File = No_Source_File + if Main_Source_File <= No_Source_File or else Num_SRef_Pragmas (Main_Source_File) /= 0 then Current_Error_Source_File := No_Source_File; @@ -2045,7 +2045,7 @@ package body Errout is -- Only write the header if Sfile is known - if Sfile /= No_Source_File then + if Sfile > No_Source_File then Write_Header (Sfile); Write_Eol; end if; @@ -2066,7 +2066,7 @@ package body Errout is -- Only output the listing if Sfile is known, to avoid -- crashing the compiler. - if Sfile /= No_Source_File then + if Sfile > No_Source_File then for N in 1 .. Last_Source_Line (Sfile) loop while E /= No_Error_Msg and then Errors.Table (E).Deleted @@ -2141,7 +2141,7 @@ package body Errout is -- Output the header only when Main_Source_File is known - if Main_Source_File /= No_Source_File then + if Main_Source_File > No_Source_File then Write_Header (Main_Source_File); end if; |