OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [ada/] [s-osinte-posix.adb] - Blame information for rev 281

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 281 jeremybenn
------------------------------------------------------------------------------
2
--                                                                          --
3
--                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
4
--                                                                          --
5
--                   S Y S T E M . O S _ I N T E R F A C E                  --
6
--                                                                          --
7
--                                   B o d y                                --
8
--                                                                          --
9
--             Copyright (C) 1991-1994, Florida State University            --
10
--                     Copyright (C) 1995-2006, AdaCore                     --
11
--                                                                          --
12
-- GNARL is free software; you can  redistribute it  and/or modify it under --
13
-- terms of the  GNU General Public License as published  by the Free Soft- --
14
-- ware  Foundation;  either version 2,  or (at your option) any later ver- --
15
-- sion. GNARL is distributed in the hope that it will be useful, but WITH- --
16
-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
17
-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
18
-- for  more details.  You should have  received  a copy of the GNU General --
19
-- Public License  distributed with GNARL; see file COPYING.  If not, write --
20
-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
21
-- Boston, MA 02110-1301, USA.                                              --
22
--                                                                          --
23
-- As a special exception,  if other files  instantiate  generics from this --
24
-- unit, or you link  this unit with other files  to produce an executable, --
25
-- this  unit  does not  by itself cause  the resulting  executable  to  be --
26
-- covered  by the  GNU  General  Public  License.  This exception does not --
27
-- however invalidate  any other reasons why  the executable file  might be --
28
-- covered by the  GNU Public License.                                      --
29
--                                                                          --
30
-- GNARL was developed by the GNARL team at Florida State University.       --
31
-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
32
--                                                                          --
33
------------------------------------------------------------------------------
34
 
35
--  This is a GNU/LinuxThreads, Solaris pthread and HP-UX pthread version
36
--  of this package.
37
 
38
pragma Polling (Off);
39
--  Turn off polling, we do not want ATC polling to take place during
40
--  tasking operations. It causes infinite loops and other problems.
41
 
42
--  This package encapsulates all direct interfaces to OS services
43
--  that are needed by children of System.
44
 
45
with Interfaces.C; use Interfaces.C;
46
package body System.OS_Interface is
47
 
48
   --------------------
49
   -- Get_Stack_Base --
50
   --------------------
51
 
52
   function Get_Stack_Base (thread : pthread_t) return Address is
53
      pragma Warnings (Off, thread);
54
 
55
   begin
56
      return Null_Address;
57
   end Get_Stack_Base;
58
 
59
   ------------------
60
   -- pthread_init --
61
   ------------------
62
 
63
   procedure pthread_init is
64
   begin
65
      null;
66
   end pthread_init;
67
 
68
   -----------------
69
   -- To_Duration --
70
   -----------------
71
 
72
   function To_Duration (TS : timespec) return Duration is
73
   begin
74
      return Duration (TS.tv_sec) + Duration (TS.tv_nsec) / 10#1#E9;
75
   end To_Duration;
76
 
77
   ------------------------
78
   -- To_Target_Priority --
79
   ------------------------
80
 
81
   function To_Target_Priority
82
     (Prio : System.Any_Priority) return Interfaces.C.int
83
   is
84
   begin
85
      return Interfaces.C.int (Prio);
86
   end To_Target_Priority;
87
 
88
   -----------------
89
   -- To_Timespec --
90
   -----------------
91
 
92
   function To_Timespec (D : Duration) return timespec is
93
      S : time_t;
94
      F : Duration;
95
 
96
   begin
97
      S := time_t (Long_Long_Integer (D));
98
      F := D - Duration (S);
99
 
100
      --  If F has negative value due to a round-up, adjust for positive F
101
      --  value.
102
 
103
      if F < 0.0 then
104
         S := S - 1;
105
         F := F + 1.0;
106
      end if;
107
 
108
      return timespec'(tv_sec => S,
109
                       tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
110
   end To_Timespec;
111
 
112
end System.OS_Interface;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.