summaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-04 17:50:42 +0000
committerbosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4>2001-10-04 17:50:42 +0000
commitf9c9d5d34a6ed36a1b7dfd67e2e1ce503feb38b5 (patch)
tree69861f374b6070650fbda79f1fc0e6fbc6313e69 /gcc/ada
parenta92374d03c561d25cdf8aa45b4c4863688306236 (diff)
downloadgcc-f9c9d5d34a6ed36a1b7dfd67e2e1ce503feb38b5.tar.gz
* 3lsoccon.ads: Added file, missed with initial check ins.
* 4lintnam.ads: Fix header format. Change Linux to GNU/Linux. * 5iosinte.adb: Change Linux to GNU/Linux. * 5iosinte.ads: Change Linux to GNU/Linux. * 5itaprop.adb: Change Linux to GNU/Linux. * 5itaspri.ads: Change Linux to GNU/Linux. Update copyright notice. * 5lintman.adb: Change Linux to GNU/Linux. * 5lml-tgt.adb: Change Linux to GNU/Linux. * 5losinte.ads: Change Linux to GNU/Linux. * 5lsystem.ads: Change Linux to GNU/Linux. * 5qosinte.adb: Change Linux to GNU/Linux. * 5qosinte.ads: Change Linux to GNU/Linux. * 5qparame.ads: Change Linux to GNU/Linux. * 5qtaprop.adb: Change Linux to GNU/Linux. * 5qtaspri.ads: Change Linux to GNU/Linux. Add 2001 to copyright notice. * 5vintman.ads: Change Linux to GNU/Linux. Fix header format. Add 2001 to copyright notice. * g-soccon.ads: Change Linux to GNU/Linux. * g-trasym.ads: Change Linux to GNU/Linux. Add 2001 to copyright notice. * memtrack.adb: Change Linux to GNU/Linux. * s-intman.ads: Change Linux to GNU/Linux. Add 2001 to copyright notice. Fix header format. * s-stache.adb: Change Linux to GNU/Linux. * adaint.c: Change Linux to GNU/Linux. * cio.c: Change Linux to GNU/Linux. * cstreams.c: Change Linux to GNU/Linux. * init.c: Change Linux to GNU/Linux. * gmem.c: Change Linux to GNU/Linux. * tracebak.c: Change Linux to GNU/Linux. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46011 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/3lsoccon.ads115
-rw-r--r--gcc/ada/4lintnam.ads4
-rw-r--r--gcc/ada/5iosinte.adb6
-rw-r--r--gcc/ada/5iosinte.ads18
-rw-r--r--gcc/ada/5itaprop.adb10
-rw-r--r--gcc/ada/5itaspri.ads6
-rw-r--r--gcc/ada/5lintman.adb4
-rw-r--r--gcc/ada/5lml-tgt.adb6
-rw-r--r--gcc/ada/5losinte.ads8
-rw-r--r--gcc/ada/5lsystem.ads4
-rw-r--r--gcc/ada/5qosinte.adb6
-rw-r--r--gcc/ada/5qosinte.ads26
-rw-r--r--gcc/ada/5qparame.ads6
-rw-r--r--gcc/ada/5qtaprop.adb37
-rw-r--r--gcc/ada/5qtaspri.ads13
-rw-r--r--gcc/ada/5vintman.ads10
-rw-r--r--gcc/ada/ChangeLog63
-rw-r--r--gcc/ada/adaint.c4
-rw-r--r--gcc/ada/cio.c4
-rw-r--r--gcc/ada/cstreams.c6
-rw-r--r--gcc/ada/g-soccon.ads4
-rw-r--r--gcc/ada/g-trasym.ads6
-rw-r--r--gcc/ada/gmem.c4
-rw-r--r--gcc/ada/init.c16
-rw-r--r--gcc/ada/memtrack.adb4
-rw-r--r--gcc/ada/s-intman.ads10
-rw-r--r--gcc/ada/s-stache.adb4
-rw-r--r--gcc/ada/tracebak.c4
28 files changed, 296 insertions, 112 deletions
diff --git a/gcc/ada/3lsoccon.ads b/gcc/ada/3lsoccon.ads
new file mode 100644
index 00000000000..4371e0d3a37
--- /dev/null
+++ b/gcc/ada/3lsoccon.ads
@@ -0,0 +1,115 @@
+------------------------------------------------------------------------------
+-- --
+-- GNAT COMPILER COMPONENTS --
+-- --
+-- G N A T . S O C K E T S . C O N S T A N T S --
+-- --
+-- S p e c --
+-- --
+-- $Revision$
+-- --
+-- Copyright (C) 2001 Ada Core Technologies, 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 2, 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. See the GNU General Public License --
+-- for more details. You should have received a copy of the GNU General --
+-- Public License distributed with GNAT; see file COPYING. If not, write --
+-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
+-- MA 02111-1307, USA. --
+-- --
+-- As a special exception, if other files instantiate generics from this --
+-- unit, or you link this unit with other files to produce an executable, --
+-- this unit does not by itself cause the resulting executable to be --
+-- covered by the GNU General Public License. This exception does not --
+-- however invalidate any other reasons why the executable file might be --
+-- covered by the GNU Public License. --
+-- --
+-- GNAT is maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- --
+------------------------------------------------------------------------------
+
+-- This is the version for GNU/Linux
+
+package GNAT.Sockets.Constants is
+
+ -- Families
+
+ AF_INET : constant := 2;
+ AF_INET6 : constant := 10;
+
+ -- Modes
+
+ SOCK_STREAM : constant := 1;
+ SOCK_DGRAM : constant := 2;
+
+ -- Socket Errors
+
+ EBADF : constant := 9;
+ ENOTSOCK : constant := 88;
+ ENOTCONN : constant := 107;
+ ENOBUFS : constant := 105;
+ EOPNOTSUPP : constant := 95;
+ EFAULT : constant := 14;
+ EWOULDBLOCK : constant := 11;
+ EADDRNOTAVAIL : constant := 99;
+ EMSGSIZE : constant := 90;
+ EADDRINUSE : constant := 98;
+ EINVAL : constant := 22;
+ EACCES : constant := 13;
+ EAFNOSUPPORT : constant := 97;
+ EISCONN : constant := 106;
+ ETIMEDOUT : constant := 110;
+ ECONNREFUSED : constant := 111;
+ ENETUNREACH : constant := 101;
+ EALREADY : constant := 114;
+ EINPROGRESS : constant := 115;
+ ENOPROTOOPT : constant := 92;
+ EPROTONOSUPPORT : constant := 93;
+ EINTR : constant := 4;
+ EIO : constant := 5;
+ ESOCKTNOSUPPORT : constant := 94;
+
+ -- Host Errors
+
+ HOST_NOT_FOUND : constant := 1;
+ TRY_AGAIN : constant := 2;
+ NO_ADDRESS : constant := 4;
+ NO_RECOVERY : constant := 3;
+
+ -- Control Flags
+
+ FIONBIO : constant := 21537;
+ FIONREAD : constant := 21531;
+
+ -- Shutdown Modes
+
+ SHUT_RD : constant := 0;
+ SHUT_WR : constant := 1;
+ SHUT_RDWR : constant := 2;
+
+ -- Protocol Levels
+
+ SOL_SOCKET : constant := 1;
+ IPPROTO_IP : constant := 0;
+ IPPROTO_UDP : constant := 17;
+ IPPROTO_TCP : constant := 6;
+
+ -- Socket Options
+
+ TCP_NODELAY : constant := 1;
+ SO_SNDBUF : constant := 7;
+ SO_RCVBUF : constant := 8;
+ SO_REUSEADDR : constant := 2;
+ SO_KEEPALIVE : constant := 9;
+ SO_LINGER : constant := 13;
+ SO_ERROR : constant := 4;
+ SO_BROADCAST : constant := 6;
+ IP_ADD_MEMBERSHIP : constant := 35;
+ IP_DROP_MEMBERSHIP : constant := 36;
+ IP_MULTICAST_TTL : constant := 33;
+ IP_MULTICAST_LOOP : constant := 34;
+end GNAT.Sockets.Constants;
diff --git a/gcc/ada/4lintnam.ads b/gcc/ada/4lintnam.ads
index 997cfa3048c..52c3e95047a 100644
--- a/gcc/ada/4lintnam.ads
+++ b/gcc/ada/4lintnam.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.5 $ --
+-- $Revision$
-- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- This is a Linux version of this package.
+-- This is a GNU/Linux version of this package.
--
-- The following signals are reserved by the run time (FSU threads):
--
diff --git a/gcc/ada/5iosinte.adb b/gcc/ada/5iosinte.adb
index fd47dda7261..7cd2013becd 100644
--- a/gcc/ada/5iosinte.adb
+++ b/gcc/ada/5iosinte.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.12 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
@@ -34,8 +34,8 @@
-- --
------------------------------------------------------------------------------
--- This is a LinuxThreads, Solaris pthread and HP-UX pthread version of this
--- package.
+-- This is a GNU/LinuxThreads, Solaris pthread and HP-UX pthread version
+-- of this package.
pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during
diff --git a/gcc/ada/5iosinte.ads b/gcc/ada/5iosinte.ads
index 571cea2869f..152c2e0305a 100644
--- a/gcc/ada/5iosinte.ads
+++ b/gcc/ada/5iosinte.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.27 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- This is a Linux (LinuxThreads) version of this package.
+-- This is a GNU/Linux (GNU/LinuxThreads) version of this package.
-- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System.
@@ -115,11 +115,11 @@ package System.OS_Interface is
SIGPROF : constant := 27; -- profiling timer expired
SIGXCPU : constant := 24; -- CPU time limit exceeded
SIGXFSZ : constant := 25; -- filesize limit exceeded
- SIGUNUSED : constant := 31; -- unused signal (Linux)
- SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux)
- SIGLTHRRES : constant := 32; -- LinuxThreads restart signal
- SIGLTHRCAN : constant := 33; -- LinuxThreads cancel signal
- SIGLTHRDBG : constant := 34; -- LinuxThreads debugger signal
+ SIGUNUSED : constant := 31; -- unused signal (GNU/Linux)
+ SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux)
+ SIGLTHRRES : constant := 32; -- GNU/LinuxThreads restart signal
+ SIGLTHRCAN : constant := 33; -- GNU/LinuxThreads cancel signal
+ SIGLTHRDBG : constant := 34; -- GNU/LinuxThreads debugger signal
SIGADAABORT : constant := SIGABRT;
-- Change this if you want to use another signal for task abort.
@@ -146,12 +146,12 @@ package System.OS_Interface is
-- POSIX simply won't allow it.
SIGLTHRRES, SIGLTHRCAN, SIGLTHRDBG);
- -- These three signals are used by LinuxThreads starting from
+ -- These three signals are used by GNU/LinuxThreads starting from
-- glibc 2.1 (future 2.2).
Reserved : constant Signal_Set :=
-- I am not sure why the following two signals are reserved.
- -- I guess they are not supported by this version of Linux.
+ -- I guess they are not supported by this version of GNU/Linux.
(SIGVTALRM, SIGUNUSED);
type sigset_t is private;
diff --git a/gcc/ada/5itaprop.adb b/gcc/ada/5itaprop.adb
index bc4b7d33efc..f88d8c33a06 100644
--- a/gcc/ada/5itaprop.adb
+++ b/gcc/ada/5itaprop.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.43 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- This is a Linux (LinuxThreads) version of this package
+-- This is a GNU/Linux (GNU/LinuxThreads) version of this package
-- This package contains all the GNULL primitives that interface directly
-- with the underlying OS.
@@ -105,7 +105,7 @@ package body System.Task_Primitives.Operations is
------------------
Max_Stack_Size : constant := 2000 * 1024;
- -- LinuxThreads does not return an error value when requesting
+ -- GNU/LinuxThreads does not return an error value when requesting
-- a task stack size which is too large, so we have to check this
-- ourselves.
@@ -699,7 +699,9 @@ package body System.Task_Primitives.Operations is
end if;
end if;
- -- Priorities are in range 1 .. 99 on Linux, so map 0 .. 31 to 1 .. 32
+ -- Priorities are in range 1 .. 99 on GNU/Linux, so we map
+ -- map 0 .. 31 to 1 .. 32
+
Param.sched_priority := Interfaces.C.int (Prio) + 1;
if Time_Slice_Val > 0 then
diff --git a/gcc/ada/5itaspri.ads b/gcc/ada/5itaspri.ads
index 0360c2999a1..755ebc878bd 100644
--- a/gcc/ada/5itaspri.ads
+++ b/gcc/ada/5itaspri.ads
@@ -6,9 +6,9 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.5 $
+-- $Revision$
-- --
--- Copyright (C) 1991-2000 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2001 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- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- This is the Linux (LinuxThreads) version of this package.
+-- This is the GNU/Linux (GNU/LinuxThreads) version of this package.
-- This package provides low-level support for most tasking features.
diff --git a/gcc/ada/5lintman.adb b/gcc/ada/5lintman.adb
index 5361af7f281..d58987d56ae 100644
--- a/gcc/ada/5lintman.adb
+++ b/gcc/ada/5lintman.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.18 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- This is the Linux version of this package
+-- This is the GNU/Linux version of this package
-- This file performs the system-dependent translation between machine
-- exceptions and the Ada exceptions, if any, that should be raised when they
diff --git a/gcc/ada/5lml-tgt.adb b/gcc/ada/5lml-tgt.adb
index 973243da1a0..f765c4a745a 100644
--- a/gcc/ada/5lml-tgt.adb
+++ b/gcc/ada/5lml-tgt.adb
@@ -3,11 +3,11 @@
-- GNAT COMPILER COMPONENTS --
-- --
-- M L I B . T G T --
--- (Linux Version) --
+-- (GNU/Linux Version) --
-- --
-- B o d y --
-- --
--- $Revision: 1.2 $
+-- $Revision$
-- --
-- Copyright (C) 2001, Ada Core Technologies, Inc. --
-- --
@@ -30,7 +30,7 @@
-- This package provides a set of target dependent routines to build
-- static, dynamic and shared libraries.
--- This is the Linux version of the body.
+-- This is the GNU/Linux version of the body.
with Ada.Characters.Handling; use Ada.Characters.Handling;
with GNAT.Directory_Operations; use GNAT.Directory_Operations;
diff --git a/gcc/ada/5losinte.ads b/gcc/ada/5losinte.ads
index 9a1e6c5ca53..1bc31b4433e 100644
--- a/gcc/ada/5losinte.ads
+++ b/gcc/ada/5losinte.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.27 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- This is a Linux (FSU THREADS) version of this package.
+-- This is a GNU/Linux (FSU THREADS) version of this package.
-- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System.
@@ -114,8 +114,8 @@ package System.OS_Interface is
SIGPROF : constant := 27; -- profiling timer expired
SIGXCPU : constant := 24; -- CPU time limit exceeded
SIGXFSZ : constant := 25; -- filesize limit exceeded
- SIGUNUSED : constant := 31; -- unused signal (Linux)
- SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux)
+ SIGUNUSED : constant := 31; -- unused signal (GNU/Linux)
+ SIGSTKFLT : constant := 16; -- coprocessor stack fault (GNU/Linux)
SIGADAABORT : constant := SIGABRT;
-- Change this if you want to use another signal for task abort.
diff --git a/gcc/ada/5lsystem.ads b/gcc/ada/5lsystem.ads
index 9ec0bbc6321..3ea2fc7cc25 100644
--- a/gcc/ada/5lsystem.ads
+++ b/gcc/ada/5lsystem.ads
@@ -5,9 +5,9 @@
-- S Y S T E M --
-- --
-- S p e c --
--- (Linux/x86 Version)
+-- (GNU/Linux/x86 Version) --
-- --
--- $Revision: 1.4 $
+-- $Revision$
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- --
diff --git a/gcc/ada/5qosinte.adb b/gcc/ada/5qosinte.adb
index fd7e4525199..2b0ffc7d560 100644
--- a/gcc/ada/5qosinte.adb
+++ b/gcc/ada/5qosinte.adb
@@ -6,9 +6,9 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.4 $
+-- $Revision$
-- --
--- Copyright (C) 1991-2000 Florida State University --
+-- Copyright (C) 1991-2001 Florida State University --
-- --
-- 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- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- RT Linux version.
+-- RT GNU/Linux version.
-- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System.
diff --git a/gcc/ada/5qosinte.ads b/gcc/ada/5qosinte.ads
index 7bc4d2c8088..68c1a2c6fbf 100644
--- a/gcc/ada/5qosinte.ads
+++ b/gcc/ada/5qosinte.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.8 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001 Florida State University --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- RT Linux version.
+-- RT GNU/Linux version.
-- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System.
@@ -52,7 +52,7 @@ package System.OS_Interface is
subtype int is Interfaces.C.int;
subtype unsigned_long is Interfaces.C.unsigned_long;
- -- RT Linux kernel threads should not use the
+ -- RT GNU/Linux kernel threads should not use the
-- OS signal interfaces.
Max_Interrupt : constant := 2;
@@ -69,8 +69,8 @@ package System.OS_Interface is
RT_TIME_END : constant := 16#7fffFfffFfffFfff#;
type RTIME is range -2 ** 63 .. 2 ** 63 - 1;
- -- the introduction of type RTIME is due to the fact that RT-Linux
- -- uses this type to represent time. In RT-Linux, it's a long long
+ -- the introduction of type RTIME is due to the fact that RT-GNU/Linux
+ -- uses this type to represent time. In RT-GNU/Linux, it's a long long
-- integer that takes 64 bits for storage
-------------------------
@@ -79,8 +79,8 @@ package System.OS_Interface is
RT_LOWEST_PRIORITY : constant System.Any_Priority :=
System.Any_Priority'First;
- -- for the lowest priority task in RT_Linux. By the design, this task
- -- is the regular linux kernel.
+ -- for the lowest priority task in RT-GNU/Linux. By the design, this
+ -- task is the regular GNU/Linux kernel.
RT_TASK_MAGIC : constant := 16#754d2774#;
-- a special constant used as a label for a task that has been created
@@ -91,8 +91,8 @@ package System.OS_Interface is
SFIF : Integer;
pragma Import (C, SFIF, "SFIF");
- -- Interrupt emulation flag used by RT-Linux. If it's 0, the regular
- -- Linux kernel is preempted. Otherwise, the regular Linux kernel is
+ -- Interrupt emulation flag used by RT-GNU/Linux. If it's 0, the regular
+ -- GNU/Linux kernel is preempted. Otherwise, the regular Linux kernel is
-- running
GFP_ATOMIC : constant := 16#1#;
@@ -112,7 +112,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address;
-- ??? need to define a type for references to (IDs of)
- -- RT Linux lock objects, and implement the lock objects.
+ -- RT GNU/Linux lock objects, and implement the lock objects.
subtype Thread_Id is System.Address;
@@ -120,9 +120,9 @@ package System.OS_Interface is
-- Useful imported functions --
-------------------------------
- ---------------------------------
- -- functions from linux kernel --
- ---------------------------------
+ -------------------------------------
+ -- Functions from GNU/Linux kernel --
+ -------------------------------------
function Kmalloc (size : Integer; Priority : Integer) return System.Address;
pragma Import (C, Kmalloc, "kmalloc");
diff --git a/gcc/ada/5qparame.ads b/gcc/ada/5qparame.ads
index 776f7ca9744..1c42fdcd456 100644
--- a/gcc/ada/5qparame.ads
+++ b/gcc/ada/5qparame.ads
@@ -6,9 +6,9 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $
+-- $Revision$
-- --
--- Copyright (C) 1992-2000 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2001 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- --
@@ -33,7 +33,7 @@
-- --
------------------------------------------------------------------------------
--- This is the RT-Linux version.
+-- This is the RT-GNU/Linux version.
-- Blank line intentional so that it lines up exactly with default.
-- This package defines some system dependent parameters for GNAT. These
diff --git a/gcc/ada/5qtaprop.adb b/gcc/ada/5qtaprop.adb
index 00cfe90c07f..a487d5dce40 100644
--- a/gcc/ada/5qtaprop.adb
+++ b/gcc/ada/5qtaprop.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.10 $
+-- $Revision$
-- --
-- Copyright (C) 1991-2001, Florida State University --
-- --
@@ -34,7 +34,7 @@
-- --
------------------------------------------------------------------------------
--- RT Linux version
+-- RT GNU/Linux version
-- ???? Later, look at what we might want to provide for interrupt
-- management.
@@ -74,11 +74,11 @@ package body System.Task_Primitives.Operations is
System.Tasking,
System.Storage_Elements;
- ----------------------------
- -- RT Linux specific Data --
- ----------------------------
+ --------------------------------
+ -- RT GNU/Linux specific Data --
+ --------------------------------
- -- Define two important parameters necessary for a Linux kernel module.
+ -- Define two important parameters necessary for a GNU/Linux kernel module.
-- Any module that is going to be loaded into the kernel space needs these
-- parameters.
@@ -93,8 +93,8 @@ package body System.Task_Primitives.Operations is
pragma Export (C, Kernel_Version, "kernel_version");
-- So that insmod can find the version number.
- -- The following procedures have their name specified by the linux module
- -- loader. Note that they simply correspond to adainit/adafinal.
+ -- The following procedures have their name specified by the GNU/Linux
+ -- module loader. Note that they simply correspond to adainit/adafinal.
function Init_Module return Integer;
pragma Export (C, Init_Module, "init_module");
@@ -183,7 +183,7 @@ package body System.Task_Primitives.Operations is
-- A variable to hold Task_ID for the environment task.
-- Once initialized, this behaves as a constant.
-- In the current implementation, this is the task assigned permanently
- -- as the regular Linux kernel.
+ -- as the regular GNU/Linux kernel.
All_Tasks_L : aliased RTS_Lock;
-- See comments on locking rules in System.Tasking (spec).
@@ -194,7 +194,8 @@ package body System.Task_Primitives.Operations is
-- We start at 100, to reserve some special values for
-- using in error checking.
- Linux_Irq_State : Integer := 0;
+ GNU_Linux_Irq_State : Integer := 0;
+ -- This needs comments ???
type Duration_As_Integer is delta 1.0
range -2.0**(Duration'Size - 1) .. 2.0**(Duration'Size - 1) - 1.0;
@@ -517,21 +518,21 @@ package body System.Task_Primitives.Operations is
pragma Debug (Printk
("Rt_Schedule: Top_Task = Environment_Task" & LF));
-- If there are no RT tasks ready, we execute the regular
- -- Linux kernel, and allow the regular Linux interrupt
+ -- GNU/Linux kernel, and allow the regular GNU/Linux interrupt
-- handlers to preempt the current task again.
if not In_Elab_Code then
- SFIF := Linux_Irq_State;
+ SFIF := GNU_Linux_Irq_State;
end if;
elsif Current_Task = Environment_Task_ID then
pragma Debug (Printk
("Rt_Schedule: Current_Task = Environment_Task" & LF));
- -- We are going to preempt the regular Linux kernel to
- -- execute an RT task, so don't allow the regular Linux
+ -- We are going to preempt the regular GNU/Linux kernel to
+ -- execute an RT task, so don't allow the regular GNU/Linux
-- interrupt handlers to preempt the current task any more.
- Linux_Irq_State := SFIF;
+ GNU_Linux_Irq_State := SFIF;
SFIF := 0;
end if;
@@ -1713,7 +1714,7 @@ package body System.Task_Primitives.Operations is
-- initialize the target-dependent data. We do that in this procedure.
-- In the present implementation, Environment_Task is set to be the
- -- regular Linux kernel task.
+ -- regular GNU/Linux kernel task.
procedure Initialize (Environment_Task : Task_ID) is
begin
@@ -1743,7 +1744,7 @@ package body System.Task_Primitives.Operations is
Idle_Task.Common.LL.Succ := Idle_Task'Address;
Idle_Task.Common.LL.Pred := Idle_Task'Address;
- -- Initialize the regular Linux kernel task.
+ -- Initialize the regular GNU/Linux kernel task.
Environment_Task.Common.LL.Magic := RT_TASK_MAGIC;
Environment_Task.Common.LL.State := RT_TASK_READY;
@@ -1758,7 +1759,7 @@ package body System.Task_Primitives.Operations is
Timer_Queue.Common.LL.Pred := Timer_Queue'Address;
Timer_Queue.Common.LL.Resume_Time := Max_Sensible_Delay;
- -- Set the current task to regular Linux kernel task
+ -- Set the current task to regular GNU/Linux kernel task
Current_Task := Environment_Task;
diff --git a/gcc/ada/5qtaspri.ads b/gcc/ada/5qtaspri.ads
index 6c1866d1976..87018a7b916 100644
--- a/gcc/ada/5qtaspri.ads
+++ b/gcc/ada/5qtaspri.ads
@@ -6,9 +6,9 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.3 $
+-- $Revision$
-- --
--- Copyright (C) 1991-2000, Florida State University --
+-- Copyright (C) 1991-2001, Florida State University --
-- --
-- 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- --
@@ -33,7 +33,8 @@
-- State University (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
--- RT_Linux version.
+
+-- RT_GNU/Linux version
pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during
@@ -65,7 +66,7 @@ package System.Task_Primitives is
private
- type RT_Linux_Lock is record
+ type RT_GNU_Linux_Lock is record
Ceiling_Priority : System.Any_Priority;
Pre_Locking_Priority : System.Any_Priority;
-- Used to store the task's active priority before it
@@ -77,8 +78,8 @@ private
-- the current package -- a circularity.
end record;
- type Lock is new RT_Linux_Lock;
- type RTS_Lock is new RT_Linux_Lock;
+ type Lock is new RT_GNU_Linux_Lock;
+ type RTS_Lock is new RT_GNU_Linux_Lock;
type RTS_Lock_Ptr is access all RTS_Lock;
type Lock_Ptr is access all Lock;
diff --git a/gcc/ada/5vintman.ads b/gcc/ada/5vintman.ads
index 046c870975d..0b8744b838d 100644
--- a/gcc/ada/5vintman.ads
+++ b/gcc/ada/5vintman.ads
@@ -6,9 +6,9 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.1 $ --
+-- $Revision$
-- --
--- Copyright (C) 1991-2000 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2001 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- --
@@ -119,9 +119,9 @@ package System.Interrupt_Management is
procedure Initialize_Interrupts;
-- On systems where there is no signal inheritance between tasks (e.g
- -- VxWorks, LinuxThreads), this procedure is used to initialize interrupts
- -- handling in each task. Otherwise this function should only be called by
- -- initialize in this package body.
+ -- VxWorks, GNU/LinuxThreads), this procedure is used to initialize
+ -- interrupts handling in each task. Otherwise this function should
+ -- only be called by initialize in this package body.
private
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b0681fe0b0e..0ef137ebf14 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,66 @@
+2001-10-04 Geert Bosch <bosch@gnat.com>
+
+ * 3lsoccon.ads: Added file, missed with initial check ins.
+
+ * 4lintnam.ads: Fix header format.
+ Change Linux to GNU/Linux.
+
+ * 5iosinte.adb: Change Linux to GNU/Linux.
+
+ * 5iosinte.ads: Change Linux to GNU/Linux.
+
+ * 5itaprop.adb: Change Linux to GNU/Linux.
+
+ * 5itaspri.ads: Change Linux to GNU/Linux.
+ Update copyright notice.
+
+ * 5lintman.adb: Change Linux to GNU/Linux.
+
+ * 5lml-tgt.adb: Change Linux to GNU/Linux.
+
+ * 5losinte.ads: Change Linux to GNU/Linux.
+
+ * 5lsystem.ads: Change Linux to GNU/Linux.
+
+ * 5qosinte.adb: Change Linux to GNU/Linux.
+
+ * 5qosinte.ads: Change Linux to GNU/Linux.
+
+ * 5qparame.ads: Change Linux to GNU/Linux.
+
+ * 5qtaprop.adb: Change Linux to GNU/Linux.
+
+ * 5qtaspri.ads: Change Linux to GNU/Linux.
+ Add 2001 to copyright notice.
+
+ * 5vintman.ads: Change Linux to GNU/Linux.
+ Fix header format. Add 2001 to copyright notice.
+
+ * g-soccon.ads: Change Linux to GNU/Linux.
+
+ * g-trasym.ads: Change Linux to GNU/Linux.
+ Add 2001 to copyright notice.
+
+ * memtrack.adb: Change Linux to GNU/Linux.
+
+ * s-intman.ads: Change Linux to GNU/Linux.
+ Add 2001 to copyright notice. Fix header format.
+
+ * s-stache.adb: Change Linux to GNU/Linux.
+
+ * adaint.c: Change Linux to GNU/Linux.
+
+ * cio.c: Change Linux to GNU/Linux.
+
+ * cstreams.c: Change Linux to GNU/Linux.
+
+ * init.c: Change Linux to GNU/Linux.
+
+ * gmem.c: Change Linux to GNU/Linux.
+
+ * tracebak.c: Change Linux to GNU/Linux.
+
+
2001-10-02 Geert Bosch <bosch@gnat.com>
* misc.c (insert_default_attributes): Add dummy version.
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index aa4af1a73f8..48d66c79f3d 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -4,7 +4,7 @@
* *
* A D A I N T *
* *
- * $Revision: 1.2 $
+ * $Revision$
* *
* C Implementation File *
* *
@@ -1987,7 +1987,7 @@ int _flush_cache()
&& ! (defined (__alpha__) && defined (__osf__)) \
&& ! defined (__MINGW32__))
/* Dummy function to satisfy g-trasym.o.
- Currently Solaris sparc, HP/UX, IRIX, Linux, Tru64 & Windows provide a
+ Currently Solaris sparc, HP/UX, IRIX, GNU/Linux, Tru64 & Windows provide a
non-dummy version of this procedure in libaddr2line.a */
void
diff --git a/gcc/ada/cio.c b/gcc/ada/cio.c
index bcd83c3fb99..65a78698579 100644
--- a/gcc/ada/cio.c
+++ b/gcc/ada/cio.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * $Revision: 1.2 $
+ * $Revision$
* *
* Copyright (C) 1992-2001 Free Software Foundation, Inc. *
* *
@@ -77,7 +77,7 @@ put_int_stderr (int x)
#else
-/* Don't use macros on linux since they cause incompatible changes between
+/* Don't use macros on GNU/Linux since they cause incompatible changes between
glibc 2.0 and 2.1 */
#ifdef linux
#undef putchar
diff --git a/gcc/ada/cstreams.c b/gcc/ada/cstreams.c
index 7dd5557513c..6411fdc6558 100644
--- a/gcc/ada/cstreams.c
+++ b/gcc/ada/cstreams.c
@@ -6,7 +6,7 @@
* *
* Auxiliary C functions for Interfaces.C.Streams *
* *
- * $Revision: 1.1 $
+ * $Revision$
* *
* Copyright (C) 1992-2001 Free Software Foundation, Inc. *
* *
@@ -63,7 +63,7 @@ int max_path_len = PATH_MAX;
#ifdef linux
-/* Don't use macros on linux since they cause incompatible changes between
+/* Don't use macros on GNU/Linux since they cause incompatible changes between
glibc 2.0 and 2.1 */
#ifdef stderr
@@ -199,7 +199,7 @@ __gnat_full_name (nam, buffer)
#elif defined (sgi)
/* Use realpath function which resolves links and references to .. and ..
- on those Unix systems that support it. Note that linux provides it but
+ on those Unix systems that support it. Note that GNU/Linux provides it but
cannot handle more than 5 symbolic links in a full name, so we use the
getcwd approach instead. */
realpath (nam, buffer);
diff --git a/gcc/ada/g-soccon.ads b/gcc/ada/g-soccon.ads
index bfa29f55c6e..4371e0d3a37 100644
--- a/gcc/ada/g-soccon.ads
+++ b/gcc/ada/g-soccon.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.7 $
+-- $Revision$
-- --
-- Copyright (C) 2001 Ada Core Technologies, Inc. --
-- --
@@ -32,7 +32,7 @@
-- --
------------------------------------------------------------------------------
--- This is the version for Linux
+-- This is the version for GNU/Linux
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-trasym.ads b/gcc/ada/g-trasym.ads
index c8f27b048b6..cd72be42ac3 100644
--- a/gcc/ada/g-trasym.ads
+++ b/gcc/ada/g-trasym.ads
@@ -6,9 +6,9 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.12 $
+-- $Revision$
-- --
--- Copyright (C) 1999-2000 Ada Core Technologies, Inc. --
+-- Copyright (C) 1999-2001 Ada Core Technologies, 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- --
@@ -35,7 +35,7 @@
-- Run-time symbolic traceback support
-- Note: this is only available on selected targets. Currently it is
--- supported on Sparc/Solaris, Linux, Windows NT, HP-UX, IRIX and Tru64.
+-- supported on Sparc/Solaris, GNU/Linux, Windows NT, HP-UX, IRIX and Tru64.
-- The routines provided in this package assume that your application has
-- been compiled with debugging information turned on, since this information
diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c
index 31e4b848eb2..809ef0b8018 100644
--- a/gcc/ada/gmem.c
+++ b/gcc/ada/gmem.c
@@ -4,7 +4,7 @@
* *
* G M E M *
* *
- * $Revision: 1.1 $
+ * $Revision$
* *
* C Implementation File *
* *
@@ -43,7 +43,7 @@
DEC Unix
SGI Irix
- Linux x86
+ GNU/Linux x86
Solaris (sparc and x86) (*)
Windows 98/95/NT (x86)
diff --git a/gcc/ada/init.c b/gcc/ada/init.c
index 77d0d6f967e..4b808165b90 100644
--- a/gcc/ada/init.c
+++ b/gcc/ada/init.c
@@ -4,7 +4,7 @@
* *
* I N I T *
* *
- * $Revision: 1.1 $
+ * $Revision$
* *
* C Implementation File *
* *
@@ -525,7 +525,7 @@ __gnat_initialize ()
/*************************************/
-/* __gnat_initialize (Linux version) */
+/* __gnat_initialize (GNU/Linux version) */
/*************************************/
#elif defined (linux) && defined (i386) && !defined (__RT__)
@@ -533,7 +533,8 @@ __gnat_initialize ()
#include <signal.h>
#include <asm/sigcontext.h>
-/* Linux with GNU libc does not define NULL in included header files */
+/* GNU/Linux, which uses glibc, does not define NULL in included
+ header files */
#if !defined (NULL)
#define NULL ((void *) 0)
@@ -561,10 +562,11 @@ __gnat_error_handler (sig)
struct sigcontext *info
= (struct sigcontext *) (((char *) &sig) + sizeof (int));
- /* Linux does not document how to get the machine state in a signal handler,
- but in fact the necessary data is in a sigcontext_struct value that is
- on the stack immediately above the signal number parameter, and the
- above messing accesses this value on the stack. */
+
+ /* The Linux kernel does not document how to get the machine state in a
+ signal handler, but in fact the necessary data is in a sigcontext_struct
+ value that is on the stack immediately above the signal number
+ parameter, and the above messing accesses this value on the stack. */
struct Machine_State *mstate;
diff --git a/gcc/ada/memtrack.adb b/gcc/ada/memtrack.adb
index 7938de5714d..a2226f0d780 100644
--- a/gcc/ada/memtrack.adb
+++ b/gcc/ada/memtrack.adb
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.1 $
+-- $Revision$
-- --
-- Copyright (C) 2001 Free Software Foundation, Inc. --
-- --
@@ -62,7 +62,7 @@
-- NOTE: This capability is currently supported on the following targets:
--
-- Windows
--- Linux
+-- GNU/Linux
-- HP-UX
-- Irix
-- Solaris
diff --git a/gcc/ada/s-intman.ads b/gcc/ada/s-intman.ads
index 0f89bd7f508..98b6f3b2e3c 100644
--- a/gcc/ada/s-intman.ads
+++ b/gcc/ada/s-intman.ads
@@ -6,9 +6,9 @@
-- --
-- S p e c --
-- --
--- $Revision: 1.4 $ --
+-- $Revision$
-- --
--- Copyright (C) 1991-1998 Free Software Foundation, Inc. --
+-- Copyright (C) 1991-2001 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- --
@@ -117,9 +117,9 @@ package System.Interrupt_Management is
procedure Initialize_Interrupts;
-- On systems where there is no signal inheritance between tasks (e.g
- -- VxWorks, LinuxThreads), this procedure is used to initialize interrupts
- -- handling in each task. Otherwise this function should only be called by
- -- initialize in this package body.
+ -- VxWorks, GNU/LinuxThreads), this procedure is used to initialize
+ -- interrupts handling in each task. Otherwise this function should
+ -- only be called by initialize in this package body.
private
type Interrupt_Mask is new System.OS_Interface.sigset_t;
diff --git a/gcc/ada/s-stache.adb b/gcc/ada/s-stache.adb
index 3a5e5b3176a..2cfb603ecc3 100644
--- a/gcc/ada/s-stache.adb
+++ b/gcc/ada/s-stache.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- $Revision: 1.10 $
+-- $Revision$
-- --
-- Copyright (C) 1999-2001 Free Software Foundation, Inc. --
-- --
@@ -47,7 +47,7 @@ package body System.Stack_Checking is
-- This size is assumed for the environment stack when no size has been
-- set by the runtime, and no GNAT_STACK_LIMIT environment variable was
-- present. The value is chosen to be just under 8 MB whic is the actual
- -- default size on some systems including LinuxThreads, so we will get
+ -- default size on some systems including GNU/LinuxThreads, so we will get
-- correct storage errors on those systems without setting environment
-- variables.
diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index 1ea4b8025ea..890d0e8d8c6 100644
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * $Revision: 1.1 $
+ * $Revision$
* *
* Copyright (C) 2000-2001 Ada Core Technologies, Inc. *
* *
@@ -39,7 +39,7 @@
PowerPC/AiX
PowerPC/VxWorks
Sparc/Solaris
- i386/Linux
+ i386/GNU/Linux
i386/Solaris
i386/NT
i386/OS2
View Lorry Controller Status