mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-09 16:41:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2015-05-22  Arnaud Charlet  <charlet@adacore.com>

	* osint-c.adb, osint-c.ads (Set_File_Name): Move back to spec.

2015-05-22  Pascal Obry  <obry@adacore.com>

	* prj-util.adb: Minor comment editing.

From-SVN: r223545
This commit is contained in:
Arnaud Charlet 2015-05-22 12:42:23 +02:00
parent 10af62127a
commit 6eb187f6f3
4 changed files with 14 additions and 8 deletions

8
gcc/ada/ChangeLog

@ -1,3 +1,11 @@
2015-05-22 Arnaud Charlet <charlet@adacore.com>
* osint-c.adb, osint-c.ads (Set_File_Name): Move back to spec.
2015-05-22 Pascal Obry <obry@adacore.com>
* prj-util.adb: Minor comment editing.
2015-05-22 Pascal Obry <obry@adacore.com>
* makeutl.ads (In_Place_Option): New constant.

7
gcc/ada/osint-c.adb

@ -45,13 +45,6 @@ package body Osint.C is
-- output file and Suffix is the desired suffix (dg/rep/xxx for debug/
-- repinfo/list file where xxx is specified extension.
procedure Set_File_Name (Ext : String);
-- Sets a default file name from the main compiler source name. Ext is
-- the extension, e.g. "ali" for a library information file. Used by
-- Create_Output_Library_Info, and by the version of Read_Library_Info that
-- takes a default file name, and also by Create_C_File and Create_H_File.
-- The name is in Name_Buffer (with length in Name_Len) on return.
------------------
-- Close_C_File --
------------------

5
gcc/ada/osint-c.ads

@ -127,6 +127,11 @@ package Osint.C is
-- returned by Next_Main_Source) for appending. This is used to append
-- the globals computed in flow analysis in gnatprove mode.
procedure Set_File_Name (Ext : String);
-- Sets a default file name from the main compiler source name. Ext is
-- the extension, e.g. "ali" for a library information file.
-- The name is in Name_Buffer (with length in Name_Len) on return.
procedure Write_Library_Info (Info : String);
-- Writes the contents of the referenced string to the library information
-- file for the main source file currently being compiled (i.e. the file

2
gcc/ada/prj-util.adb

@ -806,7 +806,7 @@ package body Prj.Util is
function Relative_Path (Pathname : String; To : String) return String is
function Ensure_Directory (Path : String) return String;
-- Function spec must be commented ???
-- Returns Path with an added directory separator if needed
----------------------
-- Ensure_Directory --