From 7f996f9072cec9c01da56cbc7c6bee5967893188 Mon Sep 17 00:00:00 2001 From: Rainer Orth Date: Mon, 26 Jan 2004 21:56:05 +0000 Subject: [PATCH] Makefile.in (mips-sgi-irix5): Remove -lathread from THREADSLIB. * 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. From-SVN: r76669 --- gcc/ada/5fsystem.ads | 8 ++++---- gcc/ada/5gtaprop.adb | 17 ++++++++++++++++- gcc/ada/5gtasinf.adb | 8 ++++---- gcc/ada/ChangeLog | 20 ++++++++++++++++++++ gcc/ada/Makefile.in | 2 +- 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 + + * 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 * 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