Skip to content

R
riscv-gcc-1
Commit 5d1a9698 by Geert Bosch Committed by Geert Bosch
Options

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

	* 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
parent d3d43aab
Showing with 296 additions and 112 deletions
gcc/ada/3lsoccon.ads 0 → 100644
------------------------------------------------------------------------------
-- --
-- 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;
gcc/ada/4lintnam.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.5 $ -- -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -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): -- The following signals are reserved by the run time (FSU threads):
-- --
......
gcc/ada/5iosinte.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.12 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001 Florida State University -- -- Copyright (C) 1991-2001 Florida State University --
-- -- -- --
...@@ -34,8 +34,8 @@ ...@@ -34,8 +34,8 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- This is a LinuxThreads, Solaris pthread and HP-UX pthread version of this -- This is a GNU/LinuxThreads, Solaris pthread and HP-UX pthread version
-- package. -- of this package.
pragma Polling (Off); pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during -- Turn off polling, we do not want ATC polling to take place during
......
gcc/ada/5iosinte.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.27 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -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 -- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System. -- that are needed by children of System.
...@@ -115,11 +115,11 @@ package System.OS_Interface is ...@@ -115,11 +115,11 @@ package System.OS_Interface is
SIGPROF : constant := 27; -- profiling timer expired SIGPROF : constant := 27; -- profiling timer expired
SIGXCPU : constant := 24; -- CPU time limit exceeded SIGXCPU : constant := 24; -- CPU time limit exceeded
SIGXFSZ : constant := 25; -- filesize limit exceeded SIGXFSZ : constant := 25; -- filesize limit exceeded
SIGUNUSED : constant := 31; -- unused signal (Linux) SIGUNUSED : constant := 31; -- unused signal (GNU/Linux)
SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux) SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux)
SIGLTHRRES : constant := 32; -- LinuxThreads restart signal SIGLTHRRES : constant := 32; -- GNU/LinuxThreads restart signal
SIGLTHRCAN : constant := 33; -- LinuxThreads cancel signal SIGLTHRCAN : constant := 33; -- GNU/LinuxThreads cancel signal
SIGLTHRDBG : constant := 34; -- LinuxThreads debugger signal SIGLTHRDBG : constant := 34; -- GNU/LinuxThreads debugger signal
SIGADAABORT : constant := SIGABRT; SIGADAABORT : constant := SIGABRT;
-- Change this if you want to use another signal for task abort. -- Change this if you want to use another signal for task abort.
...@@ -146,12 +146,12 @@ package System.OS_Interface is ...@@ -146,12 +146,12 @@ package System.OS_Interface is
-- POSIX simply won't allow it. -- POSIX simply won't allow it.
SIGLTHRRES, SIGLTHRCAN, SIGLTHRDBG); 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). -- glibc 2.1 (future 2.2).
Reserved : constant Signal_Set := Reserved : constant Signal_Set :=
-- I am not sure why the following two signals are reserved. -- 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); (SIGVTALRM, SIGUNUSED);
type sigset_t is private; type sigset_t is private;
......
gcc/ada/5itaprop.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.43 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001, Florida State University -- -- Copyright (C) 1991-2001, Florida State University --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -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 -- This package contains all the GNULL primitives that interface directly
-- with the underlying OS. -- with the underlying OS.
...@@ -105,7 +105,7 @@ package body System.Task_Primitives.Operations is ...@@ -105,7 +105,7 @@ package body System.Task_Primitives.Operations is
------------------ ------------------
Max_Stack_Size : constant := 2000 * 1024; 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 -- a task stack size which is too large, so we have to check this
-- ourselves. -- ourselves.
...@@ -699,7 +699,9 @@ package body System.Task_Primitives.Operations is ...@@ -699,7 +699,9 @@ package body System.Task_Primitives.Operations is
end if; end if;
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; Param.sched_priority := Interfaces.C.int (Prio) + 1;
if Time_Slice_Val > 0 then if Time_Slice_Val > 0 then
......
gcc/ada/5itaspri.ads
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -34,7 +34,7 @@ ...@@ -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. -- This package provides low-level support for most tasking features.
......
gcc/ada/5lintman.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.18 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001 Florida State University -- -- Copyright (C) 1991-2001 Florida State University --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -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 -- This file performs the system-dependent translation between machine
-- exceptions and the Ada exceptions, if any, that should be raised when they -- exceptions and the Ada exceptions, if any, that should be raised when they
......
gcc/ada/5lml-tgt.adb
...@@ -3,11 +3,11 @@ ...@@ -3,11 +3,11 @@
-- GNAT COMPILER COMPONENTS -- -- GNAT COMPILER COMPONENTS --
-- -- -- --
-- M L I B . T G T -- -- M L I B . T G T --
-- (Linux Version) -- -- (GNU/Linux Version) --
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.2 $ -- $Revision$
-- -- -- --
-- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- Copyright (C) 2001, Ada Core Technologies, Inc. --
-- -- -- --
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- static, dynamic and shared libraries. -- 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 Ada.Characters.Handling; use Ada.Characters.Handling;
with GNAT.Directory_Operations; use GNAT.Directory_Operations; with GNAT.Directory_Operations; use GNAT.Directory_Operations;
......
gcc/ada/5losinte.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.27 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -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 -- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System. -- that are needed by children of System.
...@@ -114,8 +114,8 @@ package System.OS_Interface is ...@@ -114,8 +114,8 @@ package System.OS_Interface is
SIGPROF : constant := 27; -- profiling timer expired SIGPROF : constant := 27; -- profiling timer expired
SIGXCPU : constant := 24; -- CPU time limit exceeded SIGXCPU : constant := 24; -- CPU time limit exceeded
SIGXFSZ : constant := 25; -- filesize limit exceeded SIGXFSZ : constant := 25; -- filesize limit exceeded
SIGUNUSED : constant := 31; -- unused signal (Linux) SIGUNUSED : constant := 31; -- unused signal (GNU/Linux)
SIGSTKFLT : constant := 16; -- coprocessor stack fault (Linux) SIGSTKFLT : constant := 16; -- coprocessor stack fault (GNU/Linux)
SIGADAABORT : constant := SIGABRT; SIGADAABORT : constant := SIGABRT;
-- Change this if you want to use another signal for task abort. -- Change this if you want to use another signal for task abort.
......
gcc/ada/5lsystem.ads
...@@ -5,9 +5,9 @@ ...@@ -5,9 +5,9 @@
-- S Y S T E M -- -- S Y S T E M --
-- -- -- --
-- S p e c -- -- S p e c --
-- (Linux/x86 Version) -- (GNU/Linux/x86 Version) --
-- -- -- --
-- $Revision: 1.4 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- -- -- --
......
gcc/ada/5qosinte.adb
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- RT Linux version. -- RT GNU/Linux version.
-- This package encapsulates all direct interfaces to OS services -- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System. -- that are needed by children of System.
......
gcc/ada/5qosinte.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.8 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001 Florida State University -- -- Copyright (C) 1991-2001 Florida State University --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- RT Linux version. -- RT GNU/Linux version.
-- This package encapsulates all direct interfaces to OS services -- This package encapsulates all direct interfaces to OS services
-- that are needed by children of System. -- that are needed by children of System.
...@@ -52,7 +52,7 @@ package System.OS_Interface is ...@@ -52,7 +52,7 @@ package System.OS_Interface is
subtype int is Interfaces.C.int; subtype int is Interfaces.C.int;
subtype unsigned_long is Interfaces.C.unsigned_long; 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. -- OS signal interfaces.
Max_Interrupt : constant := 2; Max_Interrupt : constant := 2;
...@@ -69,8 +69,8 @@ package System.OS_Interface is ...@@ -69,8 +69,8 @@ package System.OS_Interface is
RT_TIME_END : constant := 16#7fffFfffFfffFfff#; RT_TIME_END : constant := 16#7fffFfffFfffFfff#;
type RTIME is range -2 ** 63 .. 2 ** 63 - 1; type RTIME is range -2 ** 63 .. 2 ** 63 - 1;
-- the introduction of type RTIME is due to the fact that RT-Linux -- the introduction of type RTIME is due to the fact that RT-GNU/Linux
-- uses this type to represent time. In RT-Linux, it's a long long -- uses this type to represent time. In RT-GNU/Linux, it's a long long
-- integer that takes 64 bits for storage -- integer that takes 64 bits for storage
------------------------- -------------------------
...@@ -79,8 +79,8 @@ package System.OS_Interface is ...@@ -79,8 +79,8 @@ package System.OS_Interface is
RT_LOWEST_PRIORITY : constant System.Any_Priority := RT_LOWEST_PRIORITY : constant System.Any_Priority :=
System.Any_Priority'First; System.Any_Priority'First;
-- for the lowest priority task in RT_Linux. By the design, this task -- for the lowest priority task in RT-GNU/Linux. By the design, this
-- is the regular linux kernel. -- task is the regular GNU/Linux kernel.
RT_TASK_MAGIC : constant := 16#754d2774#; RT_TASK_MAGIC : constant := 16#754d2774#;
-- a special constant used as a label for a task that has been created -- a special constant used as a label for a task that has been created
...@@ -91,8 +91,8 @@ package System.OS_Interface is ...@@ -91,8 +91,8 @@ package System.OS_Interface is
SFIF : Integer; SFIF : Integer;
pragma Import (C, SFIF, "SFIF"); pragma Import (C, SFIF, "SFIF");
-- Interrupt emulation flag used by RT-Linux. If it's 0, the regular -- Interrupt emulation flag used by RT-GNU/Linux. If it's 0, the regular
-- Linux kernel is preempted. Otherwise, the regular Linux kernel is -- GNU/Linux kernel is preempted. Otherwise, the regular Linux kernel is
-- running -- running
GFP_ATOMIC : constant := 16#1#; GFP_ATOMIC : constant := 16#1#;
...@@ -112,7 +112,7 @@ package System.OS_Interface is ...@@ -112,7 +112,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address; function (arg : System.Address) return System.Address;
-- ??? need to define a type for references to (IDs of) -- ??? 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; subtype Thread_Id is System.Address;
...@@ -120,9 +120,9 @@ package System.OS_Interface is ...@@ -120,9 +120,9 @@ package System.OS_Interface is
-- Useful imported functions -- -- Useful imported functions --
------------------------------- -------------------------------
--------------------------------- -------------------------------------
-- functions from linux kernel -- -- Functions from GNU/Linux kernel --
--------------------------------- -------------------------------------
function Kmalloc (size : Integer; Priority : Integer) return System.Address; function Kmalloc (size : Integer; Priority : Integer) return System.Address;
pragma Import (C, Kmalloc, "kmalloc"); pragma Import (C, Kmalloc, "kmalloc");
......
gcc/ada/5qparame.ads
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -33,7 +33,7 @@ ...@@ -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. -- Blank line intentional so that it lines up exactly with default.
-- This package defines some system dependent parameters for GNAT. These -- This package defines some system dependent parameters for GNAT. These
......
gcc/ada/5qtaprop.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.10 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1991-2001, Florida State University -- -- Copyright (C) 1991-2001, Florida State University --
-- -- -- --
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- RT Linux version -- RT GNU/Linux version
-- ???? Later, look at what we might want to provide for interrupt -- ???? Later, look at what we might want to provide for interrupt
-- management. -- management.
...@@ -74,11 +74,11 @@ package body System.Task_Primitives.Operations is ...@@ -74,11 +74,11 @@ package body System.Task_Primitives.Operations is
System.Tasking, System.Tasking,
System.Storage_Elements; 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 -- Any module that is going to be loaded into the kernel space needs these
-- parameters. -- parameters.
...@@ -93,8 +93,8 @@ package body System.Task_Primitives.Operations is ...@@ -93,8 +93,8 @@ package body System.Task_Primitives.Operations is
pragma Export (C, Kernel_Version, "kernel_version"); pragma Export (C, Kernel_Version, "kernel_version");
-- So that insmod can find the version number. -- So that insmod can find the version number.
-- The following procedures have their name specified by the linux module -- The following procedures have their name specified by the GNU/Linux
-- loader. Note that they simply correspond to adainit/adafinal. -- module loader. Note that they simply correspond to adainit/adafinal.
function Init_Module return Integer; function Init_Module return Integer;
pragma Export (C, Init_Module, "init_module"); pragma Export (C, Init_Module, "init_module");
...@@ -183,7 +183,7 @@ package body System.Task_Primitives.Operations is ...@@ -183,7 +183,7 @@ package body System.Task_Primitives.Operations is
-- A variable to hold Task_ID for the environment task. -- A variable to hold Task_ID for the environment task.
-- Once initialized, this behaves as a constant. -- Once initialized, this behaves as a constant.
-- In the current implementation, this is the task assigned permanently -- 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; All_Tasks_L : aliased RTS_Lock;
-- See comments on locking rules in System.Tasking (spec). -- See comments on locking rules in System.Tasking (spec).
...@@ -194,7 +194,8 @@ package body System.Task_Primitives.Operations is ...@@ -194,7 +194,8 @@ package body System.Task_Primitives.Operations is
-- We start at 100, to reserve some special values for -- We start at 100, to reserve some special values for
-- using in error checking. -- 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 type Duration_As_Integer is delta 1.0
range -2.0**(Duration'Size - 1) .. 2.0**(Duration'Size - 1) - 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 ...@@ -517,21 +518,21 @@ package body System.Task_Primitives.Operations is
pragma Debug (Printk pragma Debug (Printk
("Rt_Schedule: Top_Task = Environment_Task" & LF)); ("Rt_Schedule: Top_Task = Environment_Task" & LF));
-- If there are no RT tasks ready, we execute the regular -- 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. -- handlers to preempt the current task again.
if not In_Elab_Code then if not In_Elab_Code then
SFIF := Linux_Irq_State; SFIF := GNU_Linux_Irq_State;
end if; end if;
elsif Current_Task = Environment_Task_ID then elsif Current_Task = Environment_Task_ID then
pragma Debug (Printk pragma Debug (Printk
("Rt_Schedule: Current_Task = Environment_Task" & LF)); ("Rt_Schedule: Current_Task = Environment_Task" & LF));
-- We are going to preempt the regular Linux kernel to -- We are going to preempt the regular GNU/Linux kernel to
-- execute an RT task, so don't allow the regular Linux -- execute an RT task, so don't allow the regular GNU/Linux
-- interrupt handlers to preempt the current task any more. -- interrupt handlers to preempt the current task any more.
Linux_Irq_State := SFIF; GNU_Linux_Irq_State := SFIF;
SFIF := 0; SFIF := 0;
end if; end if;
...@@ -1713,7 +1714,7 @@ package body System.Task_Primitives.Operations is ...@@ -1713,7 +1714,7 @@ package body System.Task_Primitives.Operations is
-- initialize the target-dependent data. We do that in this procedure. -- initialize the target-dependent data. We do that in this procedure.
-- In the present implementation, Environment_Task is set to be the -- 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 procedure Initialize (Environment_Task : Task_ID) is
begin begin
...@@ -1743,7 +1744,7 @@ package body System.Task_Primitives.Operations is ...@@ -1743,7 +1744,7 @@ package body System.Task_Primitives.Operations is
Idle_Task.Common.LL.Succ := Idle_Task'Address; Idle_Task.Common.LL.Succ := Idle_Task'Address;
Idle_Task.Common.LL.Pred := 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.Magic := RT_TASK_MAGIC;
Environment_Task.Common.LL.State := RT_TASK_READY; Environment_Task.Common.LL.State := RT_TASK_READY;
...@@ -1758,7 +1759,7 @@ package body System.Task_Primitives.Operations is ...@@ -1758,7 +1759,7 @@ package body System.Task_Primitives.Operations is
Timer_Queue.Common.LL.Pred := Timer_Queue'Address; Timer_Queue.Common.LL.Pred := Timer_Queue'Address;
Timer_Queue.Common.LL.Resume_Time := Max_Sensible_Delay; 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; Current_Task := Environment_Task;
......
gcc/ada/5qtaspri.ads
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -33,7 +33,8 @@ ...@@ -33,7 +33,8 @@
-- State University (http://www.gnat.com). -- -- State University (http://www.gnat.com). --
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- RT_Linux version.
-- RT_GNU/Linux version
pragma Polling (Off); pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during -- Turn off polling, we do not want ATC polling to take place during
...@@ -65,7 +66,7 @@ package System.Task_Primitives is ...@@ -65,7 +66,7 @@ package System.Task_Primitives is
private private
type RT_Linux_Lock is record type RT_GNU_Linux_Lock is record
Ceiling_Priority : System.Any_Priority; Ceiling_Priority : System.Any_Priority;
Pre_Locking_Priority : System.Any_Priority; Pre_Locking_Priority : System.Any_Priority;
-- Used to store the task's active priority before it -- Used to store the task's active priority before it
...@@ -77,8 +78,8 @@ private ...@@ -77,8 +78,8 @@ private
-- the current package -- a circularity. -- the current package -- a circularity.
end record; end record;
type Lock is new RT_Linux_Lock; type Lock is new RT_GNU_Linux_Lock;
type RTS_Lock is new RT_Linux_Lock; type RTS_Lock is new RT_GNU_Linux_Lock;
type RTS_Lock_Ptr is access all RTS_Lock; type RTS_Lock_Ptr is access all RTS_Lock;
type Lock_Ptr is access all Lock; type Lock_Ptr is access all Lock;
......
gcc/ada/5vintman.ads
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -119,9 +119,9 @@ package System.Interrupt_Management is ...@@ -119,9 +119,9 @@ package System.Interrupt_Management is
procedure Initialize_Interrupts; procedure Initialize_Interrupts;
-- On systems where there is no signal inheritance between tasks (e.g -- On systems where there is no signal inheritance between tasks (e.g
-- VxWorks, LinuxThreads), this procedure is used to initialize interrupts -- VxWorks, GNU/LinuxThreads), this procedure is used to initialize
-- handling in each task. Otherwise this function should only be called by -- interrupts handling in each task. Otherwise this function should
-- initialize in this package body. -- only be called by initialize in this package body.
private private
......
gcc/ada/ChangeLog
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> 2001-10-02 Geert Bosch <bosch@gnat.com>
* misc.c (insert_default_attributes): Add dummy version. * misc.c (insert_default_attributes): Add dummy version.
gcc/ada/adaint.c
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* * * *
* A D A I N T * * A D A I N T *
* * * *
* $Revision: 1.2 $ * $Revision$
* * * *
* C Implementation File * * C Implementation File *
* * * *
...@@ -1987,7 +1987,7 @@ int _flush_cache() ...@@ -1987,7 +1987,7 @@ int _flush_cache()
&& ! (defined (__alpha__) && defined (__osf__)) \ && ! (defined (__alpha__) && defined (__osf__)) \
&& ! defined (__MINGW32__)) && ! defined (__MINGW32__))
/* Dummy function to satisfy g-trasym.o. /* 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 */ non-dummy version of this procedure in libaddr2line.a */
void void
......
gcc/ada/cio.c
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
* * * *
* C Implementation File * * C Implementation File *
* * * *
* $Revision: 1.2 $ * $Revision$
* * * *
* Copyright (C) 1992-2001 Free Software Foundation, Inc. * * Copyright (C) 1992-2001 Free Software Foundation, Inc. *
* * * *
...@@ -77,7 +77,7 @@ put_int_stderr (int x) ...@@ -77,7 +77,7 @@ put_int_stderr (int x)
#else #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 */ glibc 2.0 and 2.1 */
#ifdef linux #ifdef linux
#undef putchar #undef putchar
......
gcc/ada/cstreams.c
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
* * * *
* Auxiliary C functions for Interfaces.C.Streams * * Auxiliary C functions for Interfaces.C.Streams *
* * * *
* $Revision: 1.1 $ * $Revision$
* * * *
* Copyright (C) 1992-2001 Free Software Foundation, Inc. * * Copyright (C) 1992-2001 Free Software Foundation, Inc. *
* * * *
...@@ -63,7 +63,7 @@ int max_path_len = PATH_MAX; ...@@ -63,7 +63,7 @@ int max_path_len = PATH_MAX;
#ifdef linux #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 */ glibc 2.0 and 2.1 */
#ifdef stderr #ifdef stderr
...@@ -199,7 +199,7 @@ __gnat_full_name (nam, buffer) ...@@ -199,7 +199,7 @@ __gnat_full_name (nam, buffer)
#elif defined (sgi) #elif defined (sgi)
/* Use realpath function which resolves links and references to .. and .. /* 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 cannot handle more than 5 symbolic links in a full name, so we use the
getcwd approach instead. */ getcwd approach instead. */
realpath (nam, buffer); realpath (nam, buffer);
......
gcc/ada/g-soccon.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.7 $ -- $Revision$
-- -- -- --
-- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- Copyright (C) 2001 Ada Core Technologies, Inc. --
-- -- -- --
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- This is the version for Linux -- This is the version for GNU/Linux
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
gcc/ada/g-trasym.ads
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
-- Run-time symbolic traceback support -- Run-time symbolic traceback support
-- Note: this is only available on selected targets. Currently it is -- 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 -- The routines provided in this package assume that your application has
-- been compiled with debugging information turned on, since this information -- been compiled with debugging information turned on, since this information
......
gcc/ada/gmem.c
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* * * *
* G M E M * * G M E M *
* * * *
* $Revision: 1.1 $ * $Revision$
* * * *
* C Implementation File * * C Implementation File *
* * * *
...@@ -43,7 +43,7 @@ ...@@ -43,7 +43,7 @@
DEC Unix DEC Unix
SGI Irix SGI Irix
Linux x86 GNU/Linux x86
Solaris (sparc and x86) (*) Solaris (sparc and x86) (*)
Windows 98/95/NT (x86) Windows 98/95/NT (x86)
......
gcc/ada/init.c
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* * * *
* I N I T * * I N I T *
* * * *
* $Revision: 1.1 $ * $Revision$
* * * *
* C Implementation File * * C Implementation File *
* * * *
...@@ -525,7 +525,7 @@ __gnat_initialize () ...@@ -525,7 +525,7 @@ __gnat_initialize ()
/*************************************/ /*************************************/
/* __gnat_initialize (Linux version) */ /* __gnat_initialize (GNU/Linux version) */
/*************************************/ /*************************************/
#elif defined (linux) && defined (i386) && !defined (__RT__) #elif defined (linux) && defined (i386) && !defined (__RT__)
...@@ -533,7 +533,8 @@ __gnat_initialize () ...@@ -533,7 +533,8 @@ __gnat_initialize ()
#include <signal.h> #include <signal.h>
#include <asm/sigcontext.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) #if !defined (NULL)
#define NULL ((void *) 0) #define NULL ((void *) 0)
...@@ -561,10 +562,11 @@ __gnat_error_handler (sig) ...@@ -561,10 +562,11 @@ __gnat_error_handler (sig)
struct sigcontext *info struct sigcontext *info
= (struct sigcontext *) (((char *) &sig) + sizeof (int)); = (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 /* The Linux kernel does not document how to get the machine state in a
on the stack immediately above the signal number parameter, and the signal handler, but in fact the necessary data is in a sigcontext_struct
above messing accesses this value on the stack. */ 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; struct Machine_State *mstate;
......
gcc/ada/memtrack.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.1 $ -- $Revision$
-- -- -- --
-- Copyright (C) 2001 Free Software Foundation, Inc. -- -- Copyright (C) 2001 Free Software Foundation, Inc. --
-- -- -- --
...@@ -62,7 +62,7 @@ ...@@ -62,7 +62,7 @@
-- NOTE: This capability is currently supported on the following targets: -- NOTE: This capability is currently supported on the following targets:
-- --
-- Windows -- Windows
-- Linux -- GNU/Linux
-- HP-UX -- HP-UX
-- Irix -- Irix
-- Solaris -- Solaris
......
gcc/ada/s-intman.ads
...@@ -6,9 +6,9 @@ ...@@ -6,9 +6,9 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -117,9 +117,9 @@ package System.Interrupt_Management is ...@@ -117,9 +117,9 @@ package System.Interrupt_Management is
procedure Initialize_Interrupts; procedure Initialize_Interrupts;
-- On systems where there is no signal inheritance between tasks (e.g -- On systems where there is no signal inheritance between tasks (e.g
-- VxWorks, LinuxThreads), this procedure is used to initialize interrupts -- VxWorks, GNU/LinuxThreads), this procedure is used to initialize
-- handling in each task. Otherwise this function should only be called by -- interrupts handling in each task. Otherwise this function should
-- initialize in this package body. -- only be called by initialize in this package body.
private private
type Interrupt_Mask is new System.OS_Interface.sigset_t; type Interrupt_Mask is new System.OS_Interface.sigset_t;
......
gcc/ada/s-stache.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.10 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. --
-- -- -- --
...@@ -47,7 +47,7 @@ package body System.Stack_Checking is ...@@ -47,7 +47,7 @@ package body System.Stack_Checking is
-- This size is assumed for the environment stack when no size has been -- 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 -- 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 -- 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 -- correct storage errors on those systems without setting environment
-- variables. -- variables.
......
gcc/ada/tracebak.c
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
* * * *
* C Implementation File * * C Implementation File *
* * * *
* $Revision: 1.1 $ * $Revision$
* * * *
* Copyright (C) 2000-2001 Ada Core Technologies, Inc. * * Copyright (C) 2000-2001 Ada Core Technologies, Inc. *
* * * *
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
PowerPC/AiX PowerPC/AiX
PowerPC/VxWorks PowerPC/VxWorks
Sparc/Solaris Sparc/Solaris
i386/Linux i386/GNU/Linux
i386/Solaris i386/Solaris
i386/NT i386/NT
i386/OS2 i386/OS2
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment