diff options
| author | Thomas Quinot <quinot@adacore.com> | 2007-06-06 12:14:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:14:35 +0200 |
| commit | f936abf3bd4ddf1631fd4169a9295a0a135b8748 (patch) | |
| tree | 3f414276d53637b76bbc0fa5f1ced55fb3ccf1a3 /gcc | |
| parent | 11efec4da29915bb07c76837384c48ad2e3f92f7 (diff) | |
| download | gcc-f936abf3bd4ddf1631fd4169a9295a0a135b8748.zip gcc-f936abf3bd4ddf1631fd4169a9295a0a135b8748.tar.gz gcc-f936abf3bd4ddf1631fd4169a9295a0a135b8748.tar.bz2 | |
a-intnam-aix.ads: Adjust comment to account for SIGADAABORT change (SIGEMT is now used instead of...
2007-04-20 Thomas Quinot <quinot@adacore.com>
Arnaud Charlet <charlet@adacore.com>
* a-intnam-aix.ads:
Adjust comment to account for SIGADAABORT change (SIGEMT is now used
instead of SIGTERM on AIX).
* s-osinte-aix.ads (Linker_Options): Use -pthread instead of -lpthreads.
(Time_Slice_Supported): Set to True.
use SIGEMT instead of SIGTERM as SIGADAABORT.
From-SVN: r125362
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-intnam-aix.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/s-osinte-aix.ads | 22 |
2 files changed, 16 insertions, 10 deletions
diff --git a/gcc/ada/a-intnam-aix.ads b/gcc/ada/a-intnam-aix.ads index 279db9d..fc6675e 100644 --- a/gcc/ada/a-intnam-aix.ads +++ b/gcc/ada/a-intnam-aix.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1991-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1991-2006, 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- -- @@ -35,7 +35,7 @@ -- The following signals are reserved by the run time (native threads): --- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGTERM, +-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGABRT, SIGTRAP, SIGINT, SIGEMT -- SIGSTOP, SIGKILL -- The following signals are reserved by the run time (FSU threads): diff --git a/gcc/ada/s-osinte-aix.ads b/gcc/ada/s-osinte-aix.ads index c2bb2d4..e712eec 100644 --- a/gcc/ada/s-osinte-aix.ads +++ b/gcc/ada/s-osinte-aix.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2007, 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- -- @@ -41,12 +41,16 @@ -- Preelaborate. This package is designed to be a bottom-level (leaf) package. with Interfaces.C; -with Unchecked_Conversion; +with Ada.Unchecked_Conversion; package System.OS_Interface is pragma Preelaborate; - pragma Linker_Options ("-lpthreads"); + pragma Linker_Options ("-pthread"); + -- This implies -lpthreads + other things depending on the GCC + -- configuration, such as the selection of a proper libgcc variant + -- for table-based exception handling when it is available. + pragma Linker_Options ("-lc_r"); subtype int is Interfaces.C.int; @@ -131,9 +135,11 @@ package System.OS_Interface is SIGSOUND : constant := 62; -- sound control has completed SIGSAK : constant := 63; -- secure attention key - SIGADAABORT : constant := SIGTERM; + SIGADAABORT : constant := SIGEMT; -- Note: on other targets, we usually use SIGABRT, but on AIX, it appears - -- that SIGABRT can't be used in sigwait(), so we use SIGTERM. + -- that SIGABRT can't be used in sigwait(), so we use SIGEMT. + -- SIGEMT is "Emulator Trap Instruction" from the PDP-11, and does not + -- have a standardized usage. type Signal_Set is array (Natural range <>) of Signal; @@ -186,8 +192,8 @@ package System.OS_Interface is -- Time -- ---------- - Time_Slice_Supported : constant Boolean := False; - -- Indicates wether time slicing is supported + Time_Slice_Supported : constant Boolean := True; + -- Indicates whether time slicing is supported type timespec is private; @@ -262,7 +268,7 @@ package System.OS_Interface is function (arg : System.Address) return System.Address; function Thread_Body_Access is new - Unchecked_Conversion (System.Address, Thread_Body); + Ada.Unchecked_Conversion (System.Address, Thread_Body); type pthread_t is private; subtype Thread_Id is pthread_t; |