OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

3lsoccon.ads: Added file, missed with initial check ins.

Browse Source 
* 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.

From-SVN: r46011
This commit is contained in:
Geert Bosch 2001-10-04 19:50:42 +02:00 committed by Geert Bosch
parent d3d43aabbd
commit 5d1a969896
28 changed files with 296 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
gcc/ada/3lsoccon.ads Normal file
View File

@ -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;

4
gcc/ada/4lintnam.ads
View File

@ -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):
--

6
gcc/ada/5iosinte.adb
View File

@ -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

18
gcc/ada/5iosinte.ads
View File

@ -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;

10
gcc/ada/5itaprop.adb
View File

@ -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

6
gcc/ada/5itaspri.ads
View File

@ -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.

4
gcc/ada/5lintman.adb
View File

@ -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

6
gcc/ada/5lml-tgt.adb
View File

@ -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;

8
gcc/ada/5losinte.ads
View File

@ -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.

4
gcc/ada/5lsystem.ads
View File

@ -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. --
-- --

6
gcc/ada/5qosinte.adb
View File

@ -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.

26
gcc/ada/5qosinte.ads
View File

@ -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");

6
gcc/ada/5qparame.ads
View File

@ -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

37
gcc/ada/5qtaprop.adb
View File

@ -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;

13
gcc/ada/5qtaspri.ads
View File

@ -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;

10
gcc/ada/5vintman.ads
View File

@ -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

63
gcc/ada/ChangeLog
View File

@ -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.

4
gcc/ada/adaint.c
View File

@ -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

4
gcc/ada/cio.c
View File

@ -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

6
gcc/ada/cstreams.c
View File

@ -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);

4
gcc/ada/g-soccon.ads
View File

@ -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

6
gcc/ada/g-trasym.ads
View File

@ -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

4
gcc/ada/gmem.c
View File

@ -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)

16
gcc/ada/init.c
View File

@ -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;

4
gcc/ada/memtrack.adb
View File

@ -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

10
gcc/ada/s-intman.ads
View File

@ -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;

4
gcc/ada/s-stache.adb
View File

@ -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.

4
gcc/ada/tracebak.c
View File

@ -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