[multiple changes]

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

From-SVN: r150619
This commit is contained in:
Arnaud Charlet 2009-08-10 10:33:30 +02:00
parent 68716ad5f6
commit 477eca006c
3 changed files with 13 additions and 5 deletions

View 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

View 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

View 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;