From 3c63845669fbdb489b1a56e30aeba51d6dbbe4af Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Wed, 29 Apr 2009 12:52:06 +0000 Subject: [PATCH] prj-proc.adb, prj.ads: Minor reformatting 2009-04-29 Robert Dewar * prj-proc.adb, prj.ads: Minor reformatting From-SVN: r146958 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/prj-proc.adb | 6 +++--- gcc/ada/prj.ads | 6 +++--- 3 files changed, 10 insertions(+), 6 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 86bb900a485..6a3b4f4fff7 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2009-04-29 Robert Dewar + + * prj-proc.adb, prj.ads: Minor reformatting + 2009-04-29 Eric Botcazou * exp_ch4.adb (Expand_N_Conditional_Expression): Set the SLOC of an diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index b302972732b..31efd8199a2 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -87,7 +87,7 @@ package body Prj.Proc is -- Set all projects to not checked, then call Recursive_Check for the -- main project Project. Project is set to No_Project if errors occurred. -- Current_Dir is for optimization purposes, avoiding extra system calls. - -- Is_Config_File should be True if Project is a config file (.cgpr) + -- Is_Config_File should be True if Project is a config file (.cgpr). procedure Copy_Package_Declarations (From : Declarations; @@ -1235,8 +1235,8 @@ package body Prj.Proc is From_Project_Node_Tree : Project_Node_Tree_Ref; Report_Error : Put_Line_Access; When_No_Sources : Error_Warning := Error; - Reset_Tree : Boolean := True; - Current_Dir : String := ""; + Reset_Tree : Boolean := True; + Current_Dir : String := ""; Is_Config_File : Boolean) is begin diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index c08abf5dd21..83f49442617 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -932,7 +932,7 @@ package Prj is procedure Free_List (List : in out Project_List; Free_Project : Boolean); - -- Free the list of projects. If Free_Project, each project is also freed. + -- Free the list of projects, if Free_Project, each project is also freed type Response_File_Format is (None, @@ -1116,7 +1116,7 @@ package Prj is Path : Path_Information := No_Path_Information; -- The path name of the project file. This include base name of the - -- project file + -- project file. Virtual : Boolean := False; -- True for virtual extending projects @@ -1315,7 +1315,7 @@ package Prj is function Is_Extending (Extending : Project_Id; Extended : Project_Id) return Boolean; - -- Return True if Extending is extending the Extended project. + -- Return True if Extending is extending the Extended project function Is_A_Language (Project : Project_Id; -- 2.30.2