gnat_rm.texi: Fix minor typos.

	* gnat_rm.texi: Fix minor typos. Found while reading the section
	regarding "Bit_Order Clauses" that was sent to a customer.
	Very interesting documentation!

	* sem_case.adb (Choice_Image): Avoid creating improper character
	literal names by using the routine Set_Character_Literal_Name. This
	fixes bombs in certain error message cases.

	* a-reatim.adb: Minor reformatting.

	* sem_ch12.adb (Validate_Derived_Type_Instance): Handle properly the
	case where the formal is an extension of another formal in the current
	unit or in a parent generic unit.

	* s-tposen.adb: Update comments.  Minor reformatting.
	Minor code clean up.

	* s-tarest.adb: Update comments.  Minor code reorganization.

	* exp_attr.adb (Attribute_Tag): Suppress expansion of <type_name>'Tag
	when Java_VM.

	* exp_attr.adb: Minor reformatting

	* sem_ch3.adb (Build_Derived_Private_Type): Refine check to handle
	derivations nested within a child unit: verify that the parent
	type is declared in an outer scope.

	* sem_ch12.adb: Minor reformatting

	* sem_warn.adb (Check_One_Unit): In No_Run_Time mode, do not post
	warning if current unit is a predefined one, from which bodies may
	have been deleted.

	* eval_fat.ads: Add comment that Round_Even is referenced in Ada code
	Fix header format. Add 2001 to copyright date.

	* exp_dbug.adb (Get_Encoded_Name): Fix out of bounds reference,
	which caused CE during compilation if checks were enabled.

From-SVN: r48136

1 files changed, 18 insertions, 15 deletions

diff --git a/gcc/ada/s-tarest.adb b/gcc/ada/s-tarest.adb
index a6cf274c8ef..83d184e3fa4 100644
--- a/gcc/ada/s-tarest.adb
+++ b/gcc/ada/s-tarest.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---                             $Revision: 1.13 $
+--                             $Revision$
 --                                                                          --
 --              Copyright (C) 1999-2001 Ada Core Technologies               --
 --                                                                          --
@@ -253,9 +253,9 @@ package body System.Tasking.Restricted.Stages is
          Self_ID.Common.Task_Entry_Point (Self_ID.Common.Task_Arg);
          Terminate_Task (Self_ID);
 
-      exception                         --  not needed in no exc mode
-         when others =>                 --  not needed in no exc mode
-            Terminate_Task (Self_ID);   --  not needed in no exc mode
+      exception
+         when others =>
+            Terminate_Task (Self_ID);
       end;
    end Task_Wrapper;
 
@@ -285,10 +285,10 @@ package body System.Tasking.Restricted.Stages is
    procedure Activate_Restricted_Tasks
      (Chain_Access : Activation_Chain_Access)
    is
-      Self_ID        : constant Task_ID := STPO.Self;
-      C              : Task_ID;
-      Activate_Prio  : System.Any_Priority;
-      Success        : Boolean;
+      Self_ID       : constant Task_ID := STPO.Self;
+      C             : Task_ID;
+      Activate_Prio : System.Any_Priority;
+      Success       : Boolean;
 
    begin
       pragma Assert (Self_ID = Environment_Task);
@@ -525,22 +525,25 @@ package body System.Tasking.Restricted.Stages is
 
       SSL.Lock_Task              := Task_Lock'Access;
       SSL.Unlock_Task            := Task_Unlock'Access;
+
       SSL.Get_Jmpbuf_Address     := Get_Jmpbuf_Address'Access;
       SSL.Set_Jmpbuf_Address     := Set_Jmpbuf_Address'Access;
-      SSL.Get_Sec_Stack_Addr     := Get_Sec_Stack_Addr'Access;
-      SSL.Set_Sec_Stack_Addr     := Set_Sec_Stack_Addr'Access;
       SSL.Get_Machine_State_Addr := Get_Machine_State_Addr'Access;
       SSL.Set_Machine_State_Addr := Set_Machine_State_Addr'Access;
       SSL.Get_Current_Excep      := Get_Current_Excep'Access;
-      SSL.Timed_Delay            := Timed_Delay_T'Access;
-      SSL.Adafinal               := Finalize_Global_Tasks'Access;
+      SSL.Set_Jmpbuf_Address     (SSL.Get_Jmpbuf_Address_NT);
+      SSL.Set_Machine_State_Addr (SSL.Get_Machine_State_Addr_NT);
+
+      SSL.Get_Sec_Stack_Addr     := Get_Sec_Stack_Addr'Access;
+      SSL.Set_Sec_Stack_Addr     := Set_Sec_Stack_Addr'Access;
 
       --  No need to create a new Secondary Stack, since we will use the
       --  default one created in s-secsta.adb
 
-      SSL.Set_Sec_Stack_Addr     (SSL.Get_Sec_Stack_Addr_NT);
-      SSL.Set_Jmpbuf_Address     (SSL.Get_Jmpbuf_Address_NT);
-      SSL.Set_Machine_State_Addr (SSL.Get_Machine_State_Addr_NT);
+      Set_Sec_Stack_Addr (SSL.Get_Sec_Stack_Addr_NT);
+
+      SSL.Timed_Delay            := Timed_Delay_T'Access;
+      SSL.Adafinal               := Finalize_Global_Tasks'Access;
    end Init_RTS;
 
 begin