Commit f936abf3 by Thomas Quinot Committed by Arnaud Charlet

a-intnam-aix.ads: Adjust comment to account for SIGADAABORT change (SIGEMT is…

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
parent 11efec4d
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- --
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
-- The following signals are reserved by the run time (native threads): -- 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 -- SIGSTOP, SIGKILL
-- The following signals are reserved by the run time (FSU threads): -- The following signals are reserved by the run time (FSU threads):
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 1991-1994, Florida State University -- -- 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 -- -- 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- --
...@@ -41,12 +41,16 @@ ...@@ -41,12 +41,16 @@
-- Preelaborate. This package is designed to be a bottom-level (leaf) package. -- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Interfaces.C; with Interfaces.C;
with Unchecked_Conversion; with Ada.Unchecked_Conversion;
package System.OS_Interface is package System.OS_Interface is
pragma Preelaborate; 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"); pragma Linker_Options ("-lc_r");
subtype int is Interfaces.C.int; subtype int is Interfaces.C.int;
...@@ -131,9 +135,11 @@ package System.OS_Interface is ...@@ -131,9 +135,11 @@ package System.OS_Interface is
SIGSOUND : constant := 62; -- sound control has completed SIGSOUND : constant := 62; -- sound control has completed
SIGSAK : constant := 63; -- secure attention key 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 -- 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; type Signal_Set is array (Natural range <>) of Signal;
...@@ -186,8 +192,8 @@ package System.OS_Interface is ...@@ -186,8 +192,8 @@ package System.OS_Interface is
-- Time -- -- Time --
---------- ----------
Time_Slice_Supported : constant Boolean := False; Time_Slice_Supported : constant Boolean := True;
-- Indicates wether time slicing is supported -- Indicates whether time slicing is supported
type timespec is private; type timespec is private;
...@@ -262,7 +268,7 @@ package System.OS_Interface is ...@@ -262,7 +268,7 @@ package System.OS_Interface is
function (arg : System.Address) return System.Address; function (arg : System.Address) return System.Address;
function Thread_Body_Access is new function Thread_Body_Access is new
Unchecked_Conversion (System.Address, Thread_Body); Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private; type pthread_t is private;
subtype Thread_Id is pthread_t; subtype Thread_Id is pthread_t;
......
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