* bindgen.adb: Minor reformatting

	* cstand.adb: Minor reformatting

	* fmap.adb: Minor reformatting
	Change name from Add for Add_To_File_Map (Add is much too generic)
	Change Path_Name_Of to Mapped_Path_Name
	Change File_Name_Of to Mapped_File_Name
	Fix copyright dates in header

	* fmap.ads:
	Change name from Add for Add_To_File_Map (Add is much too generic)
	Change Path_Name_Of to Mapped_Path_Name
	Change File_Name_Of to Mapped_File_Name
	Fix copyright dates in header

	* fname-uf.adb: Minor reformatting.  New names of stuff in Fmap.
	Add use clause for Fmap.

	* make.adb: Minor reformatting

	* osint.adb: Minor reformatting.  Change of names in Fmap.
	Add use clause for Fmap.

	* prj-env.adb: Minor reformatting

	* prj-env.ads: Minor reformatting

	* switch.adb: Minor reformatting.  Do proper raise of Bad_Switch if
	error found (there were odd exceptions to this general rule in
	-gnatec/-gnatem processing)

	* raise.c (__gnat_eh_personality): Exception handling personality
	routine for Ada.  Still in rough state, inspired from the C++ version
	and still containing a bunch of debugging artifacts.
	(parse_lsda_header, get_ttype_entry): Local (static) helpers, also
	inspired from the C++ library.

	* raise.c (eh_personality): Add comments. Part of work for the GCC 3
	exception handling integration.

	* Makefile.in: Remove use of 5smastop.adb which is obsolete.
	(HIE_SOURCES): Add s-secsta.ad{s,b}.
	(HIE_OBJS): Add s-fat*.o
	(RAVEN_SOURCES): Remove files that are no longer required. Add
	interrupt handling files.
	(RAVEN_MOD): Removed, no longer needed.

	* a-ngelfu.adb: Remove ??? comment for inappropriate Inline_Always
	Add 2001 to copyright date

	* g-regpat.adb: Change pragma Inline_Always to Inline. There is no
	need to force universal inlining for these cases.

	* s-taprob.adb: Minor clean ups so that this unit can be used in
	Ravenscar HI.

	* exp_ch7.adb: Allow use of secondary stack in HI mode.
	Disallow it when pragma Restrictions (No_Secondary_Stack) is specified.

	* prj-tree.ads (Project_Node_Record): Add comments for components
	Pkg_Id and Case_Insensitive.

	* g-socket.adb: Minor reformatting. Found while reading code.

	* prj-tree.ads: Minor reformatting


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48195 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 9 insertions, 8 deletions

diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index b1f19af6e13..55ec4324ab8 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -343,16 +343,16 @@ package body Bindgen is
 
       Write_Statement_Buffer;
 
-      --  Normal case (no pragma No_Run_Time). The global values are
+      --  Normal case (not No_Run_Time mode). The global values are
       --  assigned using the runtime routine Set_Globals (we have to use
       --  the routine call, rather than define the globals in the binder
       --  file to deal with cross-library calls in some systems.
 
       if No_Run_Time_Specified then
-         --  Case of pragma No_Run_Time present. The only global variable
-         --  that might be needed (by the Ravenscar profile) is
-         --  the environment task's priority. Also no exception tables are
-         --  needed.
+
+         --  Case of No_Run_Time mode. The only global variable that might
+         --  be needed (by the Ravenscar profile) is the priority of the
+         --  environment. Also no exception tables are needed.
 
          if Main_Priority /= No_Main_Priority then
             WBI ("      Main_Priority : Integer;");
@@ -513,8 +513,9 @@ package body Bindgen is
       Write_Statement_Buffer;
 
       if No_Run_Time_Specified then
-         --  Case where No_Run_Time pragma is present.
-         --  Set __gl_main_priority if needed for the Ravenscar profile.
+
+         --  Case of No_Run_Time mode. Set __gl_main_priority if needed
+         --  for the Ravenscar profile.
 
          if Main_Priority /= No_Main_Priority then
             Set_String ("   extern int __gl_main_priority = ");
@@ -524,7 +525,7 @@ package body Bindgen is
          end if;
 
       else
-         --  Code for normal case (no pragma No_Run_Time in use)
+         --  Code for normal case (not in No_Run_Time mode)
 
          Gen_Exception_Table_C;