From 6eb187f6f31be9ba4e80c08110482291a637ddba Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 22 May 2015 12:42:23 +0200 Subject: [multiple changes] 2015-05-22 Arnaud Charlet * osint-c.adb, osint-c.ads (Set_File_Name): Move back to spec. 2015-05-22 Pascal Obry * prj-util.adb: Minor comment editing. From-SVN: r223545 --- gcc/ada/osint-c.adb | 7 ------- 1 file changed, 7 deletions(-) (limited to 'gcc/ada/osint-c.adb') diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index 6f53ae3..33e0a92 100644 --- a/gcc/ada/osint-c.adb +++ b/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 -- ------------------ -- cgit v1.1