From 1147840a03d8b5bb79089f8c2a13c912ab02a19f Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 4 Feb 2004 11:06:19 +0000 Subject: 2004-02-04 Robert Dewar * 5gtasinf.adb, 5gtasinf.ads, 5gtaprop.adb, ali.adb, ali.ads, gprcmd.adb: Minor reformatting * bindgen.adb: Output restrictions string for new style restrictions handling * impunit.adb: Add s-rident.ads (System.Rident) and s-restri (System.Restrictions) * lib-writ.adb: Fix bug in writing restrictions string (last few entries wrong) * s-restri.ads, s-restri.adb: Change name Restrictions to Run_Time_Restrictions to avoid conflict with package name. Add circuit to read and acquire run time restrictions. 2004-02-04 Jose Ruiz * restrict.ads, restrict.adb: Use the new restriction No_Task_Attributes_Package instead of the old No_Task_Attributes. * sem_prag.adb: No_Task_Attributes is a synonym of No_Task_Attributes_Package. * snames.ads, snames.adb: New entry for proper handling of No_Task_Attributes. * s-rident.ads: Adding restriction No_Task_Attributes_Package (AI-00249) that supersedes the GNAT specific restriction No_Task_Attributes. 2004-02-04 Ed Schonberg * sem_prag.adb: (Analyze_Pragma, case Warnings): In an inlined body, as in an instance body, an identifier may be wrapped in an unchecked conversion. 2004-02-04 Vincent Celier * lib-writ.ads: Comment update for the W lines * bld.adb: (Expression): An empty string list is static * fname-uf.adb: Minor comment update * fname-uf.ads: (Get_File_Name): Document new parameter May_Fail * gnatbind.adb: Initialize Cumulative_Restrictions with the restrictions on the target. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@77233 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ali.adb | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'gcc/ada/ali.adb') diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 8f340e8c958..66b748368ce 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -24,13 +24,13 @@ -- -- ------------------------------------------------------------------------------ -with Butil; use Butil; -with Debug; use Debug; -with Fname; use Fname; -with Namet; use Namet; -with Opt; use Opt; -with Osint; use Osint; -with Output; use Output; +with Butil; use Butil; +with Debug; use Debug; +with Fname; use Fname; +with Namet; use Namet; +with Opt; use Opt; +with Osint; use Osint; +with Output; use Output; package body ALI is @@ -105,8 +105,7 @@ package body ALI is Err : Boolean; Read_Xref : Boolean := False; Read_Lines : String := ""; - Ignore_Lines : String := "X") - return ALI_Id + Ignore_Lines : String := "X") return ALI_Id is P : Text_Ptr := T'First; Line : Logical_Line_Number := 1; @@ -328,8 +327,10 @@ package body ALI is -- Get_Name -- -------------- - function Get_Name (Lower : Boolean := False; - Ignore_Spaces : Boolean := False) return Name_Id is + function Get_Name + (Lower : Boolean := False; + Ignore_Spaces : Boolean := False) return Name_Id + is begin Name_Len := 0; Skip_Space; -- cgit v1.2.1