* Makefile.in (mips-sgi-irix5): Remove -lathread from THREADSLIB.

	* 5fsystem.ads (Functions_Return_By_DSP): Set to False.
	(ZCX_By_Default): Likewise.
	(Front_End_ZCX_Support): Likewise.

	* 5gtaprop.adb (Stack_Guard): Mark T, On unreferenced.
	(Initialize_Lock): Mark Level unreferenced.
	(Sleep): Mark Reason unreferenced.
	(Timed_Sleep): Likewise.
	(Wakeup): Likewise.
	(Exit_Task): Use Result.
	(Check_No_Locks): Mark Self_ID unreferenced.

	* 5gtasinf.adb (New_Sproc): Make Attr constant.
	(Bound_Thread_Attributes): Make Sproc constant.
	(New_Bound_Thread_Attributes): Likewise.


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

5 files changed, 45 insertions, 10 deletions

diff --git a/gcc/ada/5fsystem.ads b/gcc/ada/5fsystem.ads
index 05351d8e932..165a8780497 100644
--- a/gcc/ada/5fsystem.ads
+++ b/gcc/ada/5fsystem.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                           (SGI Irix, o32 ABI)                            --
 --                                                                          --
---          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -124,7 +124,7 @@ private
    Exit_Status_Supported     : constant Boolean := True;
    Fractional_Fixed_Ops      : constant Boolean := False;
    Frontend_Layout           : constant Boolean := False;
-   Functions_Return_By_DSP   : constant Boolean := True;
+   Functions_Return_By_DSP   : constant Boolean := False;
    Machine_Overflows         : constant Boolean := False;
    Machine_Rounds            : constant Boolean := True;
    OpenVMS                   : constant Boolean := False;
@@ -138,9 +138,9 @@ private
    Support_Long_Shifts       : constant Boolean := True;
    Suppress_Standard_Library : constant Boolean := False;
    Use_Ada_Main_Program_Name : constant Boolean := False;
-   ZCX_By_Default            : constant Boolean := True;
+   ZCX_By_Default            : constant Boolean := False;
    GCC_ZCX_Support           : constant Boolean := False;
-   Front_End_ZCX_Support     : constant Boolean := True;
+   Front_End_ZCX_Support     : constant Boolean := False;
 
    --  Obsolete entries, to be removed eventually (bootstrap issues!)
 
diff --git a/gcc/ada/5gtaprop.adb b/gcc/ada/5gtaprop.adb
index c9041ba1ba0..bb15b0ae47b 100644
--- a/gcc/ada/5gtaprop.adb
+++ b/gcc/ada/5gtaprop.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---         Copyright (C) 1992-2003, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2004, Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -139,6 +139,9 @@ package body System.Task_Primitives.Operations is
    --  ??? Check the comment above
 
    procedure Stack_Guard (T : ST.Task_ID; On : Boolean) is
+      pragma Unreferenced (T);
+      pragma Unreferenced (On);
+
    begin
       null;
    end Stack_Guard;
@@ -210,6 +213,8 @@ package body System.Task_Primitives.Operations is
    end Initialize_Lock;
 
    procedure Initialize_Lock (L : access RTS_Lock; Level : Lock_Level) is
+      pragma Unreferenced (Level);
+
       Attributes : aliased pthread_mutexattr_t;
       Result : Interfaces.C.int;
 
@@ -345,6 +350,8 @@ package body System.Task_Primitives.Operations is
      (Self_ID  : ST.Task_ID;
       Reason   : System.Tasking.Task_States)
    is
+      pragma Unreferenced (Reason);
+
       Result : Interfaces.C.int;
 
    begin
@@ -373,6 +380,8 @@ package body System.Task_Primitives.Operations is
       Timedout : out Boolean;
       Yielded  : out Boolean)
    is
+      pragma Unreferenced (Reason);
+
       Check_Time : constant Duration := Monotonic_Clock;
       Abs_Time   : Duration;
       Request    : aliased struct_timeval;
@@ -533,6 +542,8 @@ package body System.Task_Primitives.Operations is
      (T : ST.Task_ID;
       Reason : System.Tasking.Task_States)
    is
+      pragma Unreferenced (Reason);
+
       Result : Interfaces.C.int;
    begin
       Result := pthread_cond_signal (T.Common.LL.CV'Access);
@@ -805,6 +816,8 @@ package body System.Task_Primitives.Operations is
 
    begin
       Result := pthread_set_ada_tcb (pthread_self, System.Null_Address);
+
+      pragma Assert (Result = 0);
    end Exit_Task;
 
    ----------------
@@ -840,6 +853,8 @@ package body System.Task_Primitives.Operations is
    --------------------
 
    function Check_No_Locks (Self_ID : ST.Task_ID) return Boolean is
+      pragma Unreferenced (Self_ID);
+
    begin
       return True;
    end Check_No_Locks;
diff --git a/gcc/ada/5gtasinf.adb b/gcc/ada/5gtasinf.adb
index 48eec8118ba..a275c312774 100644
--- a/gcc/ada/5gtasinf.adb
+++ b/gcc/ada/5gtasinf.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -220,7 +220,7 @@ package body System.Task_Info is
       NDPRI           : Non_Degrading_Priority := NDP_NONE)
       return            sproc_t
    is
-      Attr : Sproc_Attributes :=
+      Attr : constant Sproc_Attributes :=
         (Sproc_Resources, CPU, Resident, NDPRI);
 
    begin
@@ -267,7 +267,7 @@ package body System.Task_Info is
       NDPRI            : Non_Degrading_Priority := NDP_NONE)
       return             Thread_Attributes
    is
-      Sproc : sproc_t := New_Sproc
+      Sproc : constant sproc_t := New_Sproc
         (Sproc_Resources, CPU, Resident, NDPRI);
 
    begin
@@ -316,7 +316,7 @@ package body System.Task_Info is
       NDPRI            : Non_Degrading_Priority := NDP_NONE)
       return             Task_Info_Type
    is
-      Sproc : sproc_t := New_Sproc
+      Sproc : constant sproc_t := New_Sproc
         (Sproc_Resources, CPU, Resident, NDPRI);
 
    begin
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 3e2838d81be..c69f26a6de8 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,23 @@
+2004-01-26  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+	* Makefile.in (mips-sgi-irix5): Remove -lathread from THREADSLIB.
+
+	* 5fsystem.ads (Functions_Return_By_DSP): Set to False.
+	(ZCX_By_Default): Likewise.
+	(Front_End_ZCX_Support): Likewise.
+
+	* 5gtaprop.adb (Stack_Guard): Mark T, On unreferenced.
+	(Initialize_Lock): Mark Level unreferenced.
+	(Sleep): Mark Reason unreferenced.
+	(Timed_Sleep): Likewise.
+	(Wakeup): Likewise.
+	(Exit_Task): Use Result.
+	(Check_No_Locks): Mark Self_ID unreferenced.
+	
+	* 5gtasinf.adb (New_Sproc): Make Attr constant.
+	(Bound_Thread_Attributes): Make Sproc constant.
+	(New_Bound_Thread_Attributes): Likewise.
+
 2004-01-26  Ed Schonberg  <schonberg@gnat.com>
 
 	* exp_ch3.adb (Build_Slice_Assignment): New TSS procedure for
diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in
index f9abc3ad126..7cd30ee51f3 100644
--- a/gcc/ada/Makefile.in
+++ b/gcc/ada/Makefile.in
@@ -914,7 +914,7 @@ ifeq ($(strip $(filter-out mips sgi irix%,$(targ))),)
     g-soccon.ads<3gsoccon.ads \
     system.ads<5fsystem.ads
 
-    THREADSLIB = -lathread
+    THREADSLIB =
   endif
 
   TOOLS_TARGET_PAIRS = mlib-tgt.adb<5gml-tgt.adb