URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [ada/] [s-proinf-irix-athread.adb] - Rev 338
Compare with Previous | Blame | View Log
------------------------------------------------------------------------------ -- -- -- GNAT COMPILER COMPONENTS -- -- -- -- S Y S T E M . P R O G R A M _ I N F O -- -- -- -- B o d y -- -- -- -- Copyright (C) 1997-2009, 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- -- -- ware Foundation; either version 3, or (at your option) any later ver- -- -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- -- or FITNESS FOR A PARTICULAR PURPOSE. -- -- -- -- As a special exception under Section 7 of GPL version 3, you are granted -- -- additional permissions described in the GCC Runtime Library Exception, -- -- version 3.1, as published by the Free Software Foundation. -- -- -- -- You should have received a copy of the GNU General Public License and -- -- a copy of the GCC Runtime Library Exception along with this program; -- -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- -- <http://www.gnu.org/licenses/>. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- -- Extensive contributions were provided by Ada Core Technologies Inc. -- -- -- ------------------------------------------------------------------------------ -- This is an Irix (old pthread library) version of this package -- This package contains the parameters used by the run-time system at -- program startup. These parameters are isolated in this package body to -- facilitate replacement by the end user. -- -- To replace the default values, copy this source file into your build -- directory, edit the file to reflect your desired behavior, and recompile -- with the command: -- -- % gcc -c -O2 -gnatpg s-proinf.adb -- -- then relink your application as usual. pragma Warnings (Off); -- why??? with System.OS_Lib; pragma Warnings (On); package body System.Program_Info is Kbytes : constant := 1024; Default_Initial_Sproc_Count : constant := 0; Default_Max_Sproc_Count : constant := 128; Default_Sproc_Stack_Size : constant := 16#4000#; Default_Stack_Guard_Pages : constant := 1; Default_Default_Time_Slice : constant := 0.0; Default_Default_Task_Stack : constant := 12 * Kbytes; Default_Pthread_Sched_Signal : constant := 35; Default_Pthread_Arena_Size : constant := 16#40000#; Default_Os_Default_Priority : constant := 0; ------------------------- -- Initial_Sproc_Count -- ------------------------- function Initial_Sproc_Count return Integer is function sysmp (P1 : Integer) return Integer; pragma Import (C, sysmp, "sysmp", "sysmp"); MP_NPROCS : constant := 1; -- # processor in complex Pthread_Sproc_Count : constant System.OS_Lib.String_Access := System.OS_Lib.Getenv ("PTHREAD_SPROC_COUNT"); begin if Pthread_Sproc_Count.all'Length = 0 then return Default_Initial_Sproc_Count; elsif Pthread_Sproc_Count.all = "AUTO" then return sysmp (MP_NPROCS); else return Integer'Value (Pthread_Sproc_Count.all); end if; exception when others => return Default_Initial_Sproc_Count; end Initial_Sproc_Count; --------------------- -- Max_Sproc_Count -- --------------------- function Max_Sproc_Count return Integer is Pthread_Max_Sproc_Count : constant System.OS_Lib.String_Access := System.OS_Lib.Getenv ("PTHREAD_MAX_SPROC_COUNT"); begin if Pthread_Max_Sproc_Count.all'Length = 0 then return Default_Max_Sproc_Count; else return Integer'Value (Pthread_Max_Sproc_Count.all); end if; exception when others => return Default_Max_Sproc_Count; end Max_Sproc_Count; ---------------------- -- Sproc_Stack_Size -- ---------------------- function Sproc_Stack_Size return Integer is begin return Default_Sproc_Stack_Size; end Sproc_Stack_Size; ------------------------ -- Default_Time_Slice -- ------------------------ function Default_Time_Slice return Duration is Pthread_Time_Slice_Sec : constant System.OS_Lib.String_Access := System.OS_Lib.Getenv ("PTHREAD_TIME_SLICE_SEC"); Pthread_Time_Slice_Usec : constant System.OS_Lib.String_Access := System.OS_Lib.Getenv ("PTHREAD_TIME_SLICE_USEC"); Val_Sec, Val_Usec : Integer := 0; begin if Pthread_Time_Slice_Sec.all'Length /= 0 or Pthread_Time_Slice_Usec.all'Length /= 0 then if Pthread_Time_Slice_Sec.all'Length /= 0 then Val_Sec := Integer'Value (Pthread_Time_Slice_Sec.all); end if; if Pthread_Time_Slice_Usec.all'Length /= 0 then Val_Usec := Integer'Value (Pthread_Time_Slice_Usec.all); end if; return Duration (Val_Sec) + Duration (Val_Usec) / 1000.0; else return Default_Default_Time_Slice; end if; exception when others => return Default_Default_Time_Slice; end Default_Time_Slice; ------------------------ -- Default_Task_Stack -- ------------------------ function Default_Task_Stack return Integer is begin return Default_Default_Task_Stack; end Default_Task_Stack; ----------------------- -- Stack_Guard_Pages -- ----------------------- function Stack_Guard_Pages return Integer is Pthread_Stack_Guard_Pages : constant System.OS_Lib.String_Access := System.OS_Lib.Getenv ("PTHREAD_STACK_GUARD_PAGES"); begin if Pthread_Stack_Guard_Pages.all'Length /= 0 then return Integer'Value (Pthread_Stack_Guard_Pages.all); else return Default_Stack_Guard_Pages; end if; exception when others => return Default_Stack_Guard_Pages; end Stack_Guard_Pages; -------------------------- -- Pthread_Sched_Signal -- -------------------------- function Pthread_Sched_Signal return Integer is begin return Default_Pthread_Sched_Signal; end Pthread_Sched_Signal; ------------------------ -- Pthread_Arena_Size -- ------------------------ function Pthread_Arena_Size return Integer is Pthread_Arena_Size : constant System.OS_Lib.String_Access := System.OS_Lib.Getenv ("PTHREAD_ARENA_SIZE"); begin if Pthread_Arena_Size.all'Length = 0 then return Default_Pthread_Arena_Size; else return Integer'Value (Pthread_Arena_Size.all); end if; exception when others => return Default_Pthread_Arena_Size; end Pthread_Arena_Size; ------------------------- -- Os_Default_Priority -- ------------------------- function Os_Default_Priority return Integer is begin return Default_Os_Default_Priority; end Os_Default_Priority; end System.Program_Info;