2009-08-10 Vincent Celier <celier@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 10 Aug 2009 08:33:30 +0000 (08:33 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 10 Aug 2009 08:33:30 +0000 (08:33 +0000)
* prj-env.adb (Create_Config_Pragmas_File.Write_Temp_File): Do not use
the temporary file name in the error message when the temporary file
cannot be created.

2009-08-10  Yannick Moy  <moy@adacore.com>

* gnat_ugn.texi: Fix typo

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150619 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/gnat_ugn.texi
gcc/ada/prj-env.adb

index f4d0247..18c5ab9 100644 (file)
@@ -1,3 +1,13 @@
+2009-08-10  Vincent Celier  <celier@adacore.com>
+
+       * prj-env.adb (Create_Config_Pragmas_File.Write_Temp_File): Do not use
+       the temporary file name in the error message when the temporary file
+       cannot be created.
+
+2009-08-10  Yannick Moy  <moy@adacore.com>
+
+       * gnat_ugn.texi: Fix typo
+
 2009-08-10  Robert Dewar  <dewar@adacore.com>
 
        * exp_ch7.adb: Add ??? comment for last change
index 6981622..97e5cf4 100644 (file)
@@ -21395,14 +21395,14 @@ a type  with no parent and no progenitor, and otherwise as 1 + max of the
 depths of the immediate parent and immediate progenitors.
 
 This rule does not flag private extension
-declarations. In the case of a private extension, the correspondong full
+declarations. In the case of a private extension, the corresponding full
 declaration is checked.
 
 This rule has the following (mandatory) parameter for the @option{+R} option:
 
 @table @emph
 @item N
-Integer not less then -1 specifying the maximal allowed depth of any inheritance
+Integer not less than -1 specifying the maximal allowed depth of any inheritance
 hierarchy. If the rule parameter is set to -1, the rule flags all the declarations
 of tagged and interface types.
 @end table
index 392b356..1668052 100644 (file)
@@ -642,9 +642,7 @@ package body Prj.Env is
          end if;
 
          if not Status then
-            Prj.Com.Fail
-              ("could not create temporary file " &
-               Get_Name_String (File_Name));
+            Prj.Com.Fail ("unable to create temporary file");
          end if;
       end Write_Temp_File;