* Enable -rdynamic option, from pascal@
* Use SJLJ exections instead of ZCX in the hope of fixing intermittent build problems. Exception style affects Ada only. * Add better tasking support and use our own backend files instead of pretending to be FreeBSD. * Call __errno() from librthread when using pthreads (Tero Koskinen) * Enable shared library support for OpenBSD (Tero Koskinen) bulk tested by landry@ and sthen@ ok pascal@
This commit is contained in:
parent
18f2e1d247
commit
6c04befd5a
@ -1,4 +1,4 @@
|
||||
# $OpenBSD: Makefile,v 1.9 2013/07/07 21:25:30 naddy Exp $
|
||||
# $OpenBSD: Makefile,v 1.10 2013/07/18 17:04:06 tobiasu Exp $
|
||||
|
||||
ONLY_FOR_ARCHS = alpha amd64 i386 powerpc sparc64
|
||||
|
||||
@ -6,15 +6,15 @@ V = 4.8.1
|
||||
FULL_VERSION = $V
|
||||
FULL_PKGVERSION = $V
|
||||
|
||||
ADASTRAP_LIBC-i386 = 68.2
|
||||
ADASTRAP_LIBC-i386 = 68.4
|
||||
ADASTRAP_LIBM-i386 = 8.0
|
||||
ADASTRAP-i386 = adastrap-i386-$V-0.tar.xz
|
||||
ADASTRAP_LIBC-amd64 = 67.0
|
||||
ADASTRAP-i386 = adastrap-i386-$V-1.tar.xz
|
||||
ADASTRAP_LIBC-amd64 = 68.3
|
||||
ADASTRAP_LIBM-amd64 = 8.0
|
||||
ADASTRAP-amd64 = adastrap-amd64-$V-0.tar.xz
|
||||
ADASTRAP-amd64 = adastrap-amd64-$V-1.tar.xz
|
||||
ADASTRAP_LIBC-sparc64 = 68.3
|
||||
ADASTRAP_LIBM-sparc64 = 8.0
|
||||
ADASTRAP-sparc64 = adastrap-sparc64-$V-0.tar.xz
|
||||
ADASTRAP-sparc64 = adastrap-sparc64-$V-1.tar.xz
|
||||
|
||||
PKGNAME-main = gcc-${FULL_PKGVERSION}
|
||||
PKGNAME-c++ = g++-${FULL_PKGVERSION}
|
||||
@ -27,13 +27,13 @@ PKGNAME-ada = gnat-${FULL_PKGVERSION}
|
||||
#PKGNAME-go = gccgo-${FULL_PKGVERSION}
|
||||
PKGSPEC-main = gcc->=4.8,<4.9
|
||||
|
||||
REVISION-main = 1
|
||||
REVISION-main = 2
|
||||
REVISION-c++ = 0
|
||||
#REVISION-estdc =
|
||||
REVISION-f95 = 0
|
||||
REVISION-java = 0
|
||||
REVISION-objc = 0
|
||||
REVISION-ada = 0
|
||||
REVISION-ada = 1
|
||||
#REVISION-go =
|
||||
|
||||
SHARED_LIBS = estdc++ 16.0 \
|
||||
|
@ -1,10 +1,10 @@
|
||||
SHA256 (gcc/adastrap-amd64-4.8.1-0.tar.xz) = /g+b5+DuB0fD+eSuSy9xdRB8DE+jyxSzhM6deniJI0A=
|
||||
SHA256 (gcc/adastrap-i386-4.8.1-0.tar.xz) = wEFPoy3hU4r5INYXLAMWl/C8TTFrV4GXCwuv/o4m8A4=
|
||||
SHA256 (gcc/adastrap-sparc64-4.8.1-0.tar.xz) = 9vOUVl1rMJEq5Lmg29c9swo0N572FE/75gNZW8TLbmg=
|
||||
SHA256 (gcc/adastrap-amd64-4.8.1-1.tar.xz) = JZYqkp7FWZ0wsZlR+LQVzzwBR6utjFRghsRgWyqGxFg=
|
||||
SHA256 (gcc/adastrap-i386-4.8.1-1.tar.xz) = o9B8OCj26HoW5VjYmc7QmBu0wohvVucjiY4El8+AI0Q=
|
||||
SHA256 (gcc/adastrap-sparc64-4.8.1-1.tar.xz) = y304PKC4wmQ+lIsQkZWT/zPAwGxsfxYla9YTRoO7qIQ=
|
||||
SHA256 (gcc/ecj-4.5.jar) = mP0Sjx03TZ5C/Z1INr3SScbVEevGwN8X+8G535bD14E=
|
||||
SHA256 (gcc/gcc-4.8.1.tar.bz2) = VFtEvjrZ8sTpDmiA9cnU8Kjw5fZ+H/sNRdqfoBuwWBM=
|
||||
SIZE (gcc/adastrap-amd64-4.8.1-0.tar.xz) = 32072160
|
||||
SIZE (gcc/adastrap-i386-4.8.1-0.tar.xz) = 30050224
|
||||
SIZE (gcc/adastrap-sparc64-4.8.1-0.tar.xz) = 26991420
|
||||
SIZE (gcc/adastrap-amd64-4.8.1-1.tar.xz) = 32524412
|
||||
SIZE (gcc/adastrap-i386-4.8.1-1.tar.xz) = 30340056
|
||||
SIZE (gcc/adastrap-sparc64-4.8.1-1.tar.xz) = 27186684
|
||||
SIZE (gcc/ecj-4.5.jar) = 1470676
|
||||
SIZE (gcc/gcc-4.8.1.tar.bz2) = 86753166
|
||||
|
@ -1,7 +1,7 @@
|
||||
$OpenBSD: patch-gcc_ada_gcc-interface_Makefile_in,v 1.2 2013/04/12 10:01:47 tobiasu Exp $
|
||||
$OpenBSD: patch-gcc_ada_gcc-interface_Makefile_in,v 1.3 2013/07/18 17:04:07 tobiasu Exp $
|
||||
--- gcc/ada/gcc-interface/Makefile.in.orig Wed Feb 6 12:19:08 2013
|
||||
+++ gcc/ada/gcc-interface/Makefile.in Thu Apr 11 02:03:24 2013
|
||||
@@ -1333,6 +1333,85 @@ ifeq ($(strip $(filter-out %86_64 freebsd%,$(arch) $(o
|
||||
+++ gcc/ada/gcc-interface/Makefile.in Mon Jun 17 16:57:29 2013
|
||||
@@ -1333,6 +1333,87 @@ ifeq ($(strip $(filter-out %86_64 freebsd%,$(arch) $(o
|
||||
MISCLIB = -lutil
|
||||
endif
|
||||
|
||||
@ -10,21 +10,22 @@ $OpenBSD: patch-gcc_ada_gcc-interface_Makefile_in,v 1.2 2013/04/12 10:01:47 tobi
|
||||
+ a-intnam.ads<a-intnam-freebsd.ads \
|
||||
+ s-inmaop.adb<s-inmaop-posix.adb \
|
||||
+ s-intman.adb<s-intman-posix.adb \
|
||||
+ s-osinte.ads<s-osinte-freebsd.ads \
|
||||
+ s-osinte.adb<s-osinte-freebsd.adb \
|
||||
+ s-osinte.ads<s-osinte-openbsd.ads \
|
||||
+ s-osinte.adb<s-osinte-openbsd.adb \
|
||||
+ s-osprim.adb<s-osprim-posix.adb \
|
||||
+ s-taprop.adb<s-taprop-posix.adb \
|
||||
+ s-taspri.ads<s-taspri-posix.ads \
|
||||
+ s-tpopsp.adb<s-tpopsp-posix.adb \
|
||||
+ $(ATOMICS_TARGET_PAIRS) \
|
||||
+ $(X86_TARGET_PAIRS) \
|
||||
+ system.ads<system-freebsd-x86.ads
|
||||
+ system.ads<system-openbsd-x86.ads
|
||||
+
|
||||
+ TOOLS_TARGET_PAIRS = \
|
||||
+ mlib-tgt-specific.adb<mlib-tgt-specific-linux.adb
|
||||
+ GNATLIB_SHARED = gnatlib-shared-dual
|
||||
+
|
||||
+ EH_MECHANISM=-gcc
|
||||
+ # Empty when not using ZCX
|
||||
+ EH_MECHANISM=
|
||||
+ THREADSLIB= -lpthread
|
||||
+ GMEM_LIB = gmemlib
|
||||
+ LIBRARY_VERSION := $(LIB_VERSION)
|
||||
@ -36,21 +37,22 @@ $OpenBSD: patch-gcc_ada_gcc-interface_Makefile_in,v 1.2 2013/04/12 10:01:47 tobi
|
||||
+ a-intnam.ads<a-intnam-freebsd.ads \
|
||||
+ s-inmaop.adb<s-inmaop-posix.adb \
|
||||
+ s-intman.adb<s-intman-posix.adb \
|
||||
+ s-osinte.ads<s-osinte-freebsd.ads \
|
||||
+ s-osinte.adb<s-osinte-freebsd.adb \
|
||||
+ s-osinte.ads<s-osinte-openbsd.ads \
|
||||
+ s-osinte.adb<s-osinte-openbsd.adb \
|
||||
+ s-osprim.adb<s-osprim-posix.adb \
|
||||
+ s-taprop.adb<s-taprop-posix.adb \
|
||||
+ s-taspri.ads<s-taspri-posix.ads \
|
||||
+ s-tpopsp.adb<s-tpopsp-posix.adb \
|
||||
+ $(ATOMICS_TARGET_PAIRS) \
|
||||
+ $(X86_64_TARGET_PAIRS) \
|
||||
+ system.ads<system-freebsd-x86_64.ads
|
||||
+ system.ads<system-openbsd-x86_64.ads
|
||||
+
|
||||
+ TOOLS_TARGET_PAIRS = \
|
||||
+ mlib-tgt-specific.adb<mlib-tgt-specific-linux.adb
|
||||
+ GNATLIB_SHARED = gnatlib-shared-dual
|
||||
+
|
||||
+ EH_MECHANISM=-gcc
|
||||
+ # Empty when not using ZCX
|
||||
+ EH_MECHANISM=
|
||||
+ THREADSLIB= -lpthread
|
||||
+ GMEM_LIB = gmemlib
|
||||
+ LIBRARY_VERSION := $(LIB_VERSION)
|
||||
@ -62,8 +64,8 @@ $OpenBSD: patch-gcc_ada_gcc-interface_Makefile_in,v 1.2 2013/04/12 10:01:47 tobi
|
||||
+ a-intnam.ads<a-intnam-freebsd.ads \
|
||||
+ s-inmaop.adb<s-inmaop-posix.adb \
|
||||
+ s-intman.adb<s-intman-posix.adb \
|
||||
+ s-osinte.ads<s-osinte-freebsd.ads \
|
||||
+ s-osinte.adb<s-osinte-freebsd.adb \
|
||||
+ s-osinte.ads<s-osinte-openbsd.ads \
|
||||
+ s-osinte.adb<s-osinte-openbsd.adb \
|
||||
+ s-osprim.adb<s-osprim-posix.adb \
|
||||
+ s-taprop.adb<s-taprop-posix.adb \
|
||||
+ s-taspri.ads<s-taspri-posix.ads \
|
||||
|
119
lang/gcc/4.8/patches/patch-gcc_ada_s-osinte-openbsd_adb
Normal file
119
lang/gcc/4.8/patches/patch-gcc_ada_s-osinte-openbsd_adb
Normal file
@ -0,0 +1,119 @@
|
||||
$OpenBSD: patch-gcc_ada_s-osinte-openbsd_adb,v 1.1 2013/07/18 17:04:07 tobiasu Exp $
|
||||
--- gcc/ada/s-osinte-openbsd.adb.orig Mon Jun 17 16:05:29 2013
|
||||
+++ gcc/ada/s-osinte-openbsd.adb Mon Jun 17 17:12:06 2013
|
||||
@@ -0,0 +1,115 @@
|
||||
+------------------------------------------------------------------------------
|
||||
+-- --
|
||||
+-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
|
||||
+-- --
|
||||
+-- S Y S T E M . O S _ I N T E R F A C E --
|
||||
+-- --
|
||||
+-- B o d y --
|
||||
+-- --
|
||||
+-- Copyright (C) 1991-2009, 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- --
|
||||
+-- ware Foundation; either version 3, 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. --
|
||||
+-- --
|
||||
+-- As a special exception under Section 7 of GPL version 3, you are granted --
|
||||
+-- additional permissions described in the GCC Runtime Library Exception, --
|
||||
+-- version 3.1, as published by the Free Software Foundation. --
|
||||
+-- --
|
||||
+-- You should have received a copy of the GNU General Public License and --
|
||||
+-- a copy of the GCC Runtime Library Exception along with this program; --
|
||||
+-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
||||
+-- <http://www.gnu.org/licenses/>. --
|
||||
+-- --
|
||||
+-- GNARL was developed by the GNARL team at Florida State University. It is --
|
||||
+-- now maintained by Ada Core Technologies Inc. in cooperation with Florida --
|
||||
+-- State University (http://www.gnat.com). --
|
||||
+-- --
|
||||
+------------------------------------------------------------------------------
|
||||
+
|
||||
+-- This is the OpenBSD THREADS version of this package
|
||||
+
|
||||
+with Interfaces.C; use Interfaces.C;
|
||||
+
|
||||
+package body System.OS_Interface is
|
||||
+
|
||||
+ -----------
|
||||
+ -- Errno --
|
||||
+ -----------
|
||||
+
|
||||
+ function Errno return int is
|
||||
+ type int_ptr is access all int;
|
||||
+
|
||||
+ function internal_errno return int_ptr;
|
||||
+ pragma Import (C, internal_errno, "__errno");
|
||||
+
|
||||
+ begin
|
||||
+ return (internal_errno.all);
|
||||
+ end Errno;
|
||||
+
|
||||
+ --------------------
|
||||
+ -- Get_Stack_Base --
|
||||
+ --------------------
|
||||
+
|
||||
+ function Get_Stack_Base (thread : pthread_t) return Address is
|
||||
+ pragma Unreferenced (thread);
|
||||
+ begin
|
||||
+ return (0);
|
||||
+ end Get_Stack_Base;
|
||||
+
|
||||
+ ------------------
|
||||
+ -- pthread_init --
|
||||
+ ------------------
|
||||
+
|
||||
+ procedure pthread_init is
|
||||
+ begin
|
||||
+ null;
|
||||
+ end pthread_init;
|
||||
+
|
||||
+ -----------------
|
||||
+ -- To_Duration --
|
||||
+ -----------------
|
||||
+
|
||||
+ function To_Duration (TS : timespec) return Duration is
|
||||
+ begin
|
||||
+ return Duration (TS.ts_sec) + Duration (TS.ts_nsec) / 10#1#E9;
|
||||
+ end To_Duration;
|
||||
+
|
||||
+ ------------------------
|
||||
+ -- To_Target_Priority --
|
||||
+ ------------------------
|
||||
+
|
||||
+ function To_Target_Priority
|
||||
+ (Prio : System.Any_Priority) return Interfaces.C.int
|
||||
+ is
|
||||
+ begin
|
||||
+ return Interfaces.C.int (Prio);
|
||||
+ end To_Target_Priority;
|
||||
+
|
||||
+ -----------------
|
||||
+ -- To_Timespec --
|
||||
+ -----------------
|
||||
+
|
||||
+ function To_Timespec (D : Duration) return timespec is
|
||||
+ S : time_t;
|
||||
+ F : Duration;
|
||||
+
|
||||
+ begin
|
||||
+ S := time_t (Long_Long_Integer (D));
|
||||
+ F := D - Duration (S);
|
||||
+
|
||||
+ -- If F has negative value due to a round-up, adjust for positive F
|
||||
+
|
||||
+ if F < 0.0 then
|
||||
+ S := S - 1;
|
||||
+ F := F + 1.0;
|
||||
+ end if;
|
||||
+
|
||||
+ return timespec'(ts_sec => S,
|
||||
+ ts_nsec => long (Long_Long_Integer (F * 10#1#E9)));
|
||||
+ end To_Timespec;
|
||||
+
|
||||
+end System.OS_Interface;
|
647
lang/gcc/4.8/patches/patch-gcc_ada_s-osinte-openbsd_ads
Normal file
647
lang/gcc/4.8/patches/patch-gcc_ada_s-osinte-openbsd_ads
Normal file
@ -0,0 +1,647 @@
|
||||
$OpenBSD: patch-gcc_ada_s-osinte-openbsd_ads,v 1.1 2013/07/18 17:04:08 tobiasu Exp $
|
||||
--- gcc/ada/s-osinte-openbsd.ads.orig Mon Jun 17 16:05:29 2013
|
||||
+++ gcc/ada/s-osinte-openbsd.ads Mon Jun 17 17:11:52 2013
|
||||
@@ -0,0 +1,643 @@
|
||||
+------------------------------------------------------------------------------
|
||||
+-- --
|
||||
+-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
|
||||
+-- --
|
||||
+-- S Y S T E M . O S _ I N T E R F A C E --
|
||||
+-- --
|
||||
+-- S p e c --
|
||||
+-- --
|
||||
+-- Copyright (C) 1991-1994, Florida State University --
|
||||
+-- Copyright (C) 1995-2011, 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- --
|
||||
+-- ware Foundation; either version 3, 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. --
|
||||
+-- --
|
||||
+-- As a special exception under Section 7 of GPL version 3, you are granted --
|
||||
+-- additional permissions described in the GCC Runtime Library Exception, --
|
||||
+-- version 3.1, as published by the Free Software Foundation. --
|
||||
+-- --
|
||||
+-- You should have received a copy of the GNU General Public License and --
|
||||
+-- a copy of the GCC Runtime Library Exception along with this program; --
|
||||
+-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
||||
+-- <http://www.gnu.org/licenses/>. --
|
||||
+-- --
|
||||
+-- GNARL was developed by the GNARL team at Florida State University. It is --
|
||||
+-- now maintained by Ada Core Technologies Inc. in cooperation with Florida --
|
||||
+-- State University (http://www.gnat.com). --
|
||||
+-- --
|
||||
+------------------------------------------------------------------------------
|
||||
+
|
||||
+-- This is the OpenBSD PTHREADS version of this package
|
||||
+
|
||||
+-- This package encapsulates all direct interfaces to OS services
|
||||
+-- that are needed by the tasking run-time (libgnarl).
|
||||
+
|
||||
+-- PLEASE DO NOT add any with-clauses to this package or remove the pragma
|
||||
+-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
|
||||
+
|
||||
+with Ada.Unchecked_Conversion;
|
||||
+
|
||||
+with Interfaces.C;
|
||||
+
|
||||
+package System.OS_Interface is
|
||||
+ pragma Preelaborate;
|
||||
+
|
||||
+ pragma Linker_Options ("-lpthread");
|
||||
+
|
||||
+ subtype int is Interfaces.C.int;
|
||||
+ subtype short is Interfaces.C.short;
|
||||
+ subtype long is Interfaces.C.long;
|
||||
+ subtype unsigned is Interfaces.C.unsigned;
|
||||
+ subtype unsigned_short is Interfaces.C.unsigned_short;
|
||||
+ subtype unsigned_long is Interfaces.C.unsigned_long;
|
||||
+ subtype unsigned_char is Interfaces.C.unsigned_char;
|
||||
+ subtype plain_char is Interfaces.C.plain_char;
|
||||
+ subtype size_t is Interfaces.C.size_t;
|
||||
+
|
||||
+ -----------
|
||||
+ -- Errno --
|
||||
+ -----------
|
||||
+
|
||||
+ function Errno return int;
|
||||
+ pragma Inline (Errno);
|
||||
+
|
||||
+ EAGAIN : constant := 35;
|
||||
+ EINTR : constant := 4;
|
||||
+ EINVAL : constant := 22;
|
||||
+ ENOMEM : constant := 12;
|
||||
+ ETIMEDOUT : constant := 60;
|
||||
+
|
||||
+ -------------
|
||||
+ -- Signals --
|
||||
+ -------------
|
||||
+
|
||||
+ Max_Interrupt : constant := 31;
|
||||
+ type Signal is new int range 0 .. Max_Interrupt;
|
||||
+ for Signal'Size use int'Size;
|
||||
+
|
||||
+ SIGHUP : constant := 1; -- hangup
|
||||
+ SIGINT : constant := 2; -- interrupt (rubout)
|
||||
+ SIGQUIT : constant := 3; -- quit (ASCD FS)
|
||||
+ SIGILL : constant := 4; -- illegal instruction (not reset)
|
||||
+ SIGTRAP : constant := 5; -- trace trap (not reset)
|
||||
+ SIGIOT : constant := 6; -- IOT instruction
|
||||
+ SIGABRT : constant := 6; -- used by abort, replace SIGIOT in the future
|
||||
+ SIGEMT : constant := 7; -- EMT instruction
|
||||
+ SIGFPE : constant := 8; -- floating point exception
|
||||
+ SIGKILL : constant := 9; -- kill (cannot be caught or ignored)
|
||||
+ SIGBUS : constant := 10; -- bus error
|
||||
+ SIGSEGV : constant := 11; -- segmentation violation
|
||||
+ SIGSYS : constant := 12; -- bad argument to system call
|
||||
+ SIGPIPE : constant := 13; -- write on a pipe with no one to read it
|
||||
+ SIGALRM : constant := 14; -- alarm clock
|
||||
+ SIGTERM : constant := 15; -- software termination signal from kill
|
||||
+ SIGURG : constant := 16; -- urgent condition on IO channel
|
||||
+ SIGSTOP : constant := 17; -- stop (cannot be caught or ignored)
|
||||
+ SIGTSTP : constant := 18; -- user stop requested from tty
|
||||
+ SIGCONT : constant := 19; -- stopped process has been continued
|
||||
+ SIGCLD : constant := 20; -- alias for SIGCHLD
|
||||
+ SIGCHLD : constant := 20; -- child status change
|
||||
+ SIGTTIN : constant := 21; -- background tty read attempted
|
||||
+ SIGTTOU : constant := 22; -- background tty write attempted
|
||||
+ SIGIO : constant := 23; -- I/O possible (Solaris SIGPOLL alias)
|
||||
+ SIGXCPU : constant := 24; -- CPU time limit exceeded
|
||||
+ SIGXFSZ : constant := 25; -- filesize limit exceeded
|
||||
+ SIGVTALRM : constant := 26; -- virtual timer expired
|
||||
+ SIGPROF : constant := 27; -- profiling timer expired
|
||||
+ SIGWINCH : constant := 28; -- window size change
|
||||
+ SIGINFO : constant := 29; -- information request (NetBSD/FreeBSD)
|
||||
+ SIGUSR1 : constant := 30; -- user defined signal 1
|
||||
+ SIGUSR2 : constant := 31; -- user defined signal 2
|
||||
+
|
||||
+ SIGADAABORT : constant := SIGABRT;
|
||||
+ -- Change this if you want to use another signal for task abort.
|
||||
+ -- SIGTERM might be a good one.
|
||||
+
|
||||
+ type Signal_Set is array (Natural range <>) of Signal;
|
||||
+
|
||||
+ -- Interrupts that must be unmasked at all times. FreeBSD
|
||||
+ -- pthreads will not allow an application to mask out any
|
||||
+ -- interrupt needed by the threads library.
|
||||
+ Unmasked : constant Signal_Set :=
|
||||
+ (SIGTRAP, SIGBUS, SIGTTIN, SIGTTOU, SIGTSTP);
|
||||
+
|
||||
+ -- FreeBSD will uses SIGPROF for timing. Do not allow a
|
||||
+ -- handler to attach to this signal.
|
||||
+ Reserved : constant Signal_Set := (0 .. 0 => SIGPROF);
|
||||
+
|
||||
+ type sigset_t is private;
|
||||
+
|
||||
+ function sigaddset
|
||||
+ (set : access sigset_t;
|
||||
+ sig : Signal) return int;
|
||||
+ pragma Import (C, sigaddset, "sigaddset");
|
||||
+
|
||||
+ function sigdelset
|
||||
+ (set : access sigset_t;
|
||||
+ sig : Signal) return int;
|
||||
+ pragma Import (C, sigdelset, "sigdelset");
|
||||
+
|
||||
+ function sigfillset (set : access sigset_t) return int;
|
||||
+ pragma Import (C, sigfillset, "sigfillset");
|
||||
+
|
||||
+ function sigismember
|
||||
+ (set : access sigset_t;
|
||||
+ sig : Signal) return int;
|
||||
+ pragma Import (C, sigismember, "sigismember");
|
||||
+
|
||||
+ function sigemptyset (set : access sigset_t) return int;
|
||||
+ pragma Import (C, sigemptyset, "sigemptyset");
|
||||
+
|
||||
+ -- sigcontext is architecture dependent, so define it private
|
||||
+ type struct_sigcontext is private;
|
||||
+
|
||||
+ type struct_sigaction is record
|
||||
+ sa_handler : System.Address;
|
||||
+ sa_mask : sigset_t;
|
||||
+ sa_flags : int;
|
||||
+ end record;
|
||||
+ pragma Convention (C, struct_sigaction);
|
||||
+
|
||||
+ type struct_sigaction_ptr is access all struct_sigaction;
|
||||
+
|
||||
+ SIG_BLOCK : constant := 1;
|
||||
+ SIG_UNBLOCK : constant := 2;
|
||||
+ SIG_SETMASK : constant := 3;
|
||||
+
|
||||
+ SIG_DFL : constant := 0;
|
||||
+ SIG_IGN : constant := 1;
|
||||
+
|
||||
+ SA_SIGINFO : constant := 16#0040#;
|
||||
+ SA_ONSTACK : constant := 16#0001#;
|
||||
+
|
||||
+ function sigaction
|
||||
+ (sig : Signal;
|
||||
+ act : struct_sigaction_ptr;
|
||||
+ oact : struct_sigaction_ptr) return int;
|
||||
+ pragma Import (C, sigaction, "sigaction");
|
||||
+
|
||||
+ ----------
|
||||
+ -- Time --
|
||||
+ ----------
|
||||
+
|
||||
+ Time_Slice_Supported : constant Boolean := True;
|
||||
+ -- Indicates whether time slicing is supported (i.e SCHED_RR is supported)
|
||||
+
|
||||
+ type timespec is private;
|
||||
+
|
||||
+ function nanosleep (rqtp, rmtp : access timespec) return int;
|
||||
+ pragma Import (C, nanosleep, "nanosleep");
|
||||
+
|
||||
+ type clockid_t is new int;
|
||||
+
|
||||
+ function clock_gettime
|
||||
+ (clock_id : clockid_t;
|
||||
+ tp : access timespec)
|
||||
+ return int;
|
||||
+ pragma Import (C, clock_gettime, "clock_gettime");
|
||||
+
|
||||
+ function To_Duration (TS : timespec) return Duration;
|
||||
+ pragma Inline (To_Duration);
|
||||
+
|
||||
+ function To_Timespec (D : Duration) return timespec;
|
||||
+ pragma Inline (To_Timespec);
|
||||
+
|
||||
+ type struct_timezone is record
|
||||
+ tz_minuteswest : int;
|
||||
+ tz_dsttime : int;
|
||||
+ end record;
|
||||
+ pragma Convention (C, struct_timezone);
|
||||
+
|
||||
+ procedure usleep (useconds : unsigned_long);
|
||||
+ pragma Import (C, usleep, "usleep");
|
||||
+
|
||||
+ -------------------------
|
||||
+ -- Priority Scheduling --
|
||||
+ -------------------------
|
||||
+
|
||||
+ SCHED_FIFO : constant := 1;
|
||||
+ SCHED_OTHER : constant := 2;
|
||||
+ SCHED_RR : constant := 3;
|
||||
+
|
||||
+ function To_Target_Priority
|
||||
+ (Prio : System.Any_Priority) return Interfaces.C.int;
|
||||
+ -- Maps System.Any_Priority to a POSIX priority
|
||||
+
|
||||
+ -------------
|
||||
+ -- Process --
|
||||
+ -------------
|
||||
+
|
||||
+ type pid_t is private;
|
||||
+
|
||||
+ Self_PID : constant pid_t;
|
||||
+
|
||||
+ function kill (pid : pid_t; sig : Signal) return int;
|
||||
+ pragma Import (C, kill, "kill");
|
||||
+
|
||||
+ function getpid return pid_t;
|
||||
+ pragma Import (C, getpid, "getpid");
|
||||
+
|
||||
+ ---------
|
||||
+ -- LWP --
|
||||
+ ---------
|
||||
+
|
||||
+ function lwp_self return System.Address;
|
||||
+ -- lwp_self does not exist on this thread library, revert to pthread_self
|
||||
+ -- which is the closest approximation (with getpid). This function is
|
||||
+ -- needed to share 7staprop.adb across POSIX-like targets.
|
||||
+ pragma Import (C, lwp_self, "pthread_self");
|
||||
+
|
||||
+ -------------
|
||||
+ -- Threads --
|
||||
+ -------------
|
||||
+
|
||||
+ type Thread_Body is access
|
||||
+ function (arg : System.Address) return System.Address;
|
||||
+ pragma Convention (C, Thread_Body);
|
||||
+
|
||||
+ function Thread_Body_Access is new
|
||||
+ Ada.Unchecked_Conversion (System.Address, Thread_Body);
|
||||
+
|
||||
+ type pthread_t is private;
|
||||
+ subtype Thread_Id is pthread_t;
|
||||
+
|
||||
+ type pthread_mutex_t is limited private;
|
||||
+ type pthread_cond_t is limited private;
|
||||
+ type pthread_attr_t is limited private;
|
||||
+ type pthread_mutexattr_t is limited private;
|
||||
+ type pthread_condattr_t is limited private;
|
||||
+ type pthread_key_t is private;
|
||||
+
|
||||
+ PTHREAD_CREATE_DETACHED : constant := 1;
|
||||
+ PTHREAD_CREATE_JOINABLE : constant := 0;
|
||||
+
|
||||
+ PTHREAD_SCOPE_PROCESS : constant := 0;
|
||||
+ PTHREAD_SCOPE_SYSTEM : constant := 2;
|
||||
+
|
||||
+ -- Read/Write lock not supported on freebsd. To add support both types
|
||||
+ -- pthread_rwlock_t and pthread_rwlockattr_t must properly be defined
|
||||
+ -- with the associated routines pthread_rwlock_[init/destroy] and
|
||||
+ -- pthread_rwlock_[rdlock/wrlock/unlock].
|
||||
+
|
||||
+ subtype pthread_rwlock_t is pthread_mutex_t;
|
||||
+ subtype pthread_rwlockattr_t is pthread_mutexattr_t;
|
||||
+
|
||||
+ -----------
|
||||
+ -- Stack --
|
||||
+ -----------
|
||||
+
|
||||
+ type stack_t is record
|
||||
+ ss_sp : System.Address;
|
||||
+ ss_size : size_t;
|
||||
+ ss_flags : int;
|
||||
+ end record;
|
||||
+ pragma Convention (C, stack_t);
|
||||
+
|
||||
+ function sigaltstack
|
||||
+ (ss : not null access stack_t;
|
||||
+ oss : access stack_t) return int;
|
||||
+ pragma Import (C, sigaltstack, "sigaltstack");
|
||||
+
|
||||
+ Alternate_Stack : aliased System.Address;
|
||||
+ -- This is a dummy definition, never used (Alternate_Stack_Size is null)
|
||||
+
|
||||
+ Alternate_Stack_Size : constant := 0;
|
||||
+ -- No alternate signal stack is used on this platform
|
||||
+
|
||||
+ Stack_Base_Available : constant Boolean := False;
|
||||
+ -- Indicates whether the stack base is available on this target. This
|
||||
+ -- allows us to share s-osinte.adb between all the FSU run time. Note that
|
||||
+ -- this value can only be true if pthread_t has a complete definition that
|
||||
+ -- corresponds exactly to the C header files.
|
||||
+
|
||||
+ function Get_Stack_Base (thread : pthread_t) return Address;
|
||||
+ pragma Inline (Get_Stack_Base);
|
||||
+ -- returns the stack base of the specified thread. Only call this function
|
||||
+ -- when Stack_Base_Available is True.
|
||||
+
|
||||
+ function Get_Page_Size return size_t;
|
||||
+ function Get_Page_Size return Address;
|
||||
+ pragma Import (C, Get_Page_Size, "getpagesize");
|
||||
+ -- Returns the size of a page
|
||||
+
|
||||
+ PROT_NONE : constant := 0;
|
||||
+ PROT_READ : constant := 1;
|
||||
+ PROT_WRITE : constant := 2;
|
||||
+ PROT_EXEC : constant := 4;
|
||||
+ PROT_ALL : constant := PROT_READ + PROT_WRITE + PROT_EXEC;
|
||||
+ PROT_ON : constant := PROT_NONE;
|
||||
+ PROT_OFF : constant := PROT_ALL;
|
||||
+
|
||||
+ function mprotect (addr : Address; len : size_t; prot : int) return int;
|
||||
+ pragma Import (C, mprotect);
|
||||
+
|
||||
+ ---------------------------------------
|
||||
+ -- Nonstandard Thread Initialization --
|
||||
+ ---------------------------------------
|
||||
+
|
||||
+ -- FSU_THREADS requires pthread_init, which is nonstandard and this should
|
||||
+ -- be invoked during the elaboration of s-taprop.adb.
|
||||
+
|
||||
+ -- FreeBSD does not require this so we provide an empty Ada body
|
||||
+
|
||||
+ procedure pthread_init;
|
||||
+
|
||||
+ -------------------------
|
||||
+ -- POSIX.1c Section 3 --
|
||||
+ -------------------------
|
||||
+
|
||||
+ function sigwait
|
||||
+ (set : access sigset_t;
|
||||
+ sig : access Signal) return int;
|
||||
+ pragma Import (C, sigwait, "sigwait");
|
||||
+
|
||||
+ function pthread_kill
|
||||
+ (thread : pthread_t;
|
||||
+ sig : Signal) return int;
|
||||
+ pragma Import (C, pthread_kill, "pthread_kill");
|
||||
+
|
||||
+ function pthread_sigmask
|
||||
+ (how : int;
|
||||
+ set : access sigset_t;
|
||||
+ oset : access sigset_t) return int;
|
||||
+ pragma Import (C, pthread_sigmask, "pthread_sigmask");
|
||||
+
|
||||
+ --------------------------
|
||||
+ -- POSIX.1c Section 11 --
|
||||
+ --------------------------
|
||||
+
|
||||
+ function pthread_mutexattr_init
|
||||
+ (attr : access pthread_mutexattr_t) return int;
|
||||
+ pragma Import (C, pthread_mutexattr_init, "pthread_mutexattr_init");
|
||||
+
|
||||
+ function pthread_mutexattr_destroy
|
||||
+ (attr : access pthread_mutexattr_t) return int;
|
||||
+ pragma Import (C, pthread_mutexattr_destroy, "pthread_mutexattr_destroy");
|
||||
+
|
||||
+ function pthread_mutex_init
|
||||
+ (mutex : access pthread_mutex_t;
|
||||
+ attr : access pthread_mutexattr_t) return int;
|
||||
+ pragma Import (C, pthread_mutex_init, "pthread_mutex_init");
|
||||
+
|
||||
+ function pthread_mutex_destroy (mutex : access pthread_mutex_t) return int;
|
||||
+ pragma Import (C, pthread_mutex_destroy, "pthread_mutex_destroy");
|
||||
+
|
||||
+ function pthread_mutex_lock (mutex : access pthread_mutex_t) return int;
|
||||
+ pragma Import (C, pthread_mutex_lock, "pthread_mutex_lock");
|
||||
+
|
||||
+ function pthread_mutex_unlock (mutex : access pthread_mutex_t) return int;
|
||||
+ pragma Import (C, pthread_mutex_unlock, "pthread_mutex_unlock");
|
||||
+
|
||||
+ function pthread_condattr_init
|
||||
+ (attr : access pthread_condattr_t) return int;
|
||||
+ pragma Import (C, pthread_condattr_init, "pthread_condattr_init");
|
||||
+
|
||||
+ function pthread_condattr_destroy
|
||||
+ (attr : access pthread_condattr_t) return int;
|
||||
+ pragma Import (C, pthread_condattr_destroy, "pthread_condattr_destroy");
|
||||
+
|
||||
+ function pthread_cond_init
|
||||
+ (cond : access pthread_cond_t;
|
||||
+ attr : access pthread_condattr_t) return int;
|
||||
+ pragma Import (C, pthread_cond_init, "pthread_cond_init");
|
||||
+
|
||||
+ function pthread_cond_destroy (cond : access pthread_cond_t) return int;
|
||||
+ pragma Import (C, pthread_cond_destroy, "pthread_cond_destroy");
|
||||
+
|
||||
+ function pthread_cond_signal (cond : access pthread_cond_t) return int;
|
||||
+ pragma Import (C, pthread_cond_signal, "pthread_cond_signal");
|
||||
+
|
||||
+ function pthread_cond_wait
|
||||
+ (cond : access pthread_cond_t;
|
||||
+ mutex : access pthread_mutex_t) return int;
|
||||
+ pragma Import (C, pthread_cond_wait, "pthread_cond_wait");
|
||||
+
|
||||
+ function pthread_cond_timedwait
|
||||
+ (cond : access pthread_cond_t;
|
||||
+ mutex : access pthread_mutex_t;
|
||||
+ abstime : access timespec) return int;
|
||||
+ pragma Import (C, pthread_cond_timedwait, "pthread_cond_timedwait");
|
||||
+
|
||||
+ Relative_Timed_Wait : constant Boolean := False;
|
||||
+ -- pthread_cond_timedwait requires an absolute delay time
|
||||
+
|
||||
+ --------------------------
|
||||
+ -- POSIX.1c Section 13 --
|
||||
+ --------------------------
|
||||
+
|
||||
+ PTHREAD_PRIO_NONE : constant := 0;
|
||||
+ PTHREAD_PRIO_PROTECT : constant := 2;
|
||||
+ PTHREAD_PRIO_INHERIT : constant := 1;
|
||||
+
|
||||
+ function pthread_mutexattr_setprotocol
|
||||
+ (attr : access pthread_mutexattr_t;
|
||||
+ protocol : int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_mutexattr_setprotocol, "pthread_mutexattr_setprotocol");
|
||||
+
|
||||
+ function pthread_mutexattr_getprotocol
|
||||
+ (attr : access pthread_mutexattr_t;
|
||||
+ protocol : access int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_mutexattr_getprotocol, "pthread_mutexattr_getprotocol");
|
||||
+
|
||||
+ function pthread_mutexattr_setprioceiling
|
||||
+ (attr : access pthread_mutexattr_t;
|
||||
+ prioceiling : int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_mutexattr_setprioceiling,
|
||||
+ "pthread_mutexattr_setprioceiling");
|
||||
+
|
||||
+ function pthread_mutexattr_getprioceiling
|
||||
+ (attr : access pthread_mutexattr_t;
|
||||
+ prioceiling : access int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_mutexattr_getprioceiling,
|
||||
+ "pthread_mutexattr_getprioceiling");
|
||||
+
|
||||
+ type struct_sched_param is record
|
||||
+ sched_priority : int;
|
||||
+ end record;
|
||||
+ pragma Convention (C, struct_sched_param);
|
||||
+
|
||||
+ function pthread_getschedparam
|
||||
+ (thread : pthread_t;
|
||||
+ policy : access int;
|
||||
+ param : access struct_sched_param) return int;
|
||||
+ pragma Import (C, pthread_getschedparam, "pthread_getschedparam");
|
||||
+
|
||||
+ function pthread_setschedparam
|
||||
+ (thread : pthread_t;
|
||||
+ policy : int;
|
||||
+ param : access struct_sched_param) return int;
|
||||
+ pragma Import (C, pthread_setschedparam, "pthread_setschedparam");
|
||||
+
|
||||
+ function pthread_attr_setscope
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ contentionscope : int) return int;
|
||||
+ pragma Import (C, pthread_attr_setscope, "pthread_attr_setscope");
|
||||
+
|
||||
+ function pthread_attr_getscope
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ contentionscope : access int) return int;
|
||||
+ pragma Import (C, pthread_attr_getscope, "pthread_attr_getscope");
|
||||
+
|
||||
+ function pthread_attr_setinheritsched
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ inheritsched : int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_attr_setinheritsched, "pthread_attr_setinheritsched");
|
||||
+
|
||||
+ function pthread_attr_getinheritsched
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ inheritsched : access int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_attr_getinheritsched, "pthread_attr_getinheritsched");
|
||||
+
|
||||
+ function pthread_attr_setschedpolicy
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ policy : int) return int;
|
||||
+ pragma Import (C, pthread_attr_setschedpolicy,
|
||||
+ "pthread_attr_setschedpolicy");
|
||||
+
|
||||
+ function pthread_attr_getschedpolicy
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ policy : access int) return int;
|
||||
+ pragma Import (C, pthread_attr_getschedpolicy,
|
||||
+ "pthread_attr_getschedpolicy");
|
||||
+
|
||||
+ function pthread_attr_setschedparam
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ sched_param : int) return int;
|
||||
+ pragma Import (C, pthread_attr_setschedparam, "pthread_attr_setschedparam");
|
||||
+
|
||||
+ function pthread_attr_getschedparam
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ sched_param : access int) return int;
|
||||
+ pragma Import (C, pthread_attr_getschedparam, "pthread_attr_getschedparam");
|
||||
+
|
||||
+ function sched_yield return int;
|
||||
+ pragma Import (C, sched_yield, "pthread_yield");
|
||||
+
|
||||
+ --------------------------
|
||||
+ -- P1003.1c Section 16 --
|
||||
+ --------------------------
|
||||
+
|
||||
+ function pthread_attr_init (attributes : access pthread_attr_t) return int;
|
||||
+ pragma Import (C, pthread_attr_init, "pthread_attr_init");
|
||||
+
|
||||
+ function pthread_attr_destroy
|
||||
+ (attributes : access pthread_attr_t) return int;
|
||||
+ pragma Import (C, pthread_attr_destroy, "pthread_attr_destroy");
|
||||
+
|
||||
+ function pthread_attr_setdetachstate
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ detachstate : int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_attr_setdetachstate, "pthread_attr_setdetachstate");
|
||||
+
|
||||
+ function pthread_attr_getdetachstate
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ detachstate : access int) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_attr_getdetachstate, "pthread_attr_getdetachstate");
|
||||
+
|
||||
+ function pthread_attr_getstacksize
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ stacksize : access size_t) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_attr_getstacksize, "pthread_attr_getstacksize");
|
||||
+
|
||||
+ function pthread_attr_setstacksize
|
||||
+ (attr : access pthread_attr_t;
|
||||
+ stacksize : size_t) return int;
|
||||
+ pragma Import
|
||||
+ (C, pthread_attr_setstacksize, "pthread_attr_setstacksize");
|
||||
+
|
||||
+ function pthread_create
|
||||
+ (thread : access pthread_t;
|
||||
+ attributes : access pthread_attr_t;
|
||||
+ start_routine : Thread_Body;
|
||||
+ arg : System.Address) return int;
|
||||
+ pragma Import (C, pthread_create, "pthread_create");
|
||||
+
|
||||
+ function pthread_detach (thread : pthread_t) return int;
|
||||
+ pragma Import (C, pthread_detach, "pthread_detach");
|
||||
+
|
||||
+ procedure pthread_exit (status : System.Address);
|
||||
+ pragma Import (C, pthread_exit, "pthread_exit");
|
||||
+
|
||||
+ function pthread_self return pthread_t;
|
||||
+ pragma Import (C, pthread_self, "pthread_self");
|
||||
+
|
||||
+ --------------------------
|
||||
+ -- POSIX.1c Section 17 --
|
||||
+ --------------------------
|
||||
+
|
||||
+ function pthread_setspecific
|
||||
+ (key : pthread_key_t;
|
||||
+ value : System.Address) return int;
|
||||
+ pragma Import (C, pthread_setspecific, "pthread_setspecific");
|
||||
+
|
||||
+ function pthread_getspecific (key : pthread_key_t) return System.Address;
|
||||
+ pragma Import (C, pthread_getspecific, "pthread_getspecific");
|
||||
+
|
||||
+ type destructor_pointer is access procedure (arg : System.Address);
|
||||
+ pragma Convention (C, destructor_pointer);
|
||||
+
|
||||
+ function pthread_key_create
|
||||
+ (key : access pthread_key_t;
|
||||
+ destructor : destructor_pointer) return int;
|
||||
+ pragma Import (C, pthread_key_create, "pthread_key_create");
|
||||
+
|
||||
+ ------------------------------------
|
||||
+ -- Non-portable Pthread Functions --
|
||||
+ ------------------------------------
|
||||
+
|
||||
+ function pthread_set_name_np
|
||||
+ (thread : pthread_t;
|
||||
+ name : System.Address) return int;
|
||||
+ pragma Import (C, pthread_set_name_np, "pthread_set_name_np");
|
||||
+
|
||||
+private
|
||||
+
|
||||
+ type sigset_t is array (1 .. 4) of unsigned;
|
||||
+
|
||||
+ -- In FreeBSD the component sa_handler turns out to
|
||||
+ -- be one a union type, and the selector is a macro:
|
||||
+ -- #define sa_handler __sigaction_u._handler
|
||||
+ -- #define sa_sigaction __sigaction_u._sigaction
|
||||
+
|
||||
+ -- Should we add a signal_context type here ???
|
||||
+ -- How could it be done independent of the CPU architecture ???
|
||||
+ -- sigcontext type is opaque, so it is architecturally neutral.
|
||||
+ -- It is always passed as an access type, so define it as an empty record
|
||||
+ -- since the contents are not used anywhere.
|
||||
+
|
||||
+ type struct_sigcontext is null record;
|
||||
+ pragma Convention (C, struct_sigcontext);
|
||||
+
|
||||
+ type pid_t is new int;
|
||||
+ Self_PID : constant pid_t := 0;
|
||||
+
|
||||
+ type time_t is new long;
|
||||
+
|
||||
+ type timespec is record
|
||||
+ ts_sec : time_t;
|
||||
+ ts_nsec : long;
|
||||
+ end record;
|
||||
+ pragma Convention (C, timespec);
|
||||
+
|
||||
+ type pthread_t is new System.Address;
|
||||
+ type pthread_attr_t is new System.Address;
|
||||
+ type pthread_mutex_t is new System.Address;
|
||||
+ type pthread_mutexattr_t is new System.Address;
|
||||
+ type pthread_cond_t is new System.Address;
|
||||
+ type pthread_condattr_t is new System.Address;
|
||||
+ type pthread_key_t is new int;
|
||||
+
|
||||
+end System.OS_Interface;
|
148
lang/gcc/4.8/patches/patch-gcc_ada_system-openbsd-x86_64_ads
Normal file
148
lang/gcc/4.8/patches/patch-gcc_ada_system-openbsd-x86_64_ads
Normal file
@ -0,0 +1,148 @@
|
||||
$OpenBSD: patch-gcc_ada_system-openbsd-x86_64_ads,v 1.1 2013/07/18 17:04:08 tobiasu Exp $
|
||||
--- gcc/ada/system-openbsd-x86_64.ads.orig Mon Jun 17 16:01:19 2013
|
||||
+++ gcc/ada/system-openbsd-x86_64.ads Mon Jun 17 16:02:27 2013
|
||||
@@ -0,0 +1,144 @@
|
||||
+------------------------------------------------------------------------------
|
||||
+-- --
|
||||
+-- GNAT RUN-TIME COMPONENTS --
|
||||
+-- --
|
||||
+-- S Y S T E M --
|
||||
+-- --
|
||||
+-- S p e c --
|
||||
+-- (OpenBSD/x86_64 Version) --
|
||||
+-- --
|
||||
+-- Copyright (C) 1992-2012, Free Software Foundation, Inc. --
|
||||
+-- --
|
||||
+-- This specification is derived from the Ada Reference Manual for use with --
|
||||
+-- GNAT. The copyright notice above, and the license provisions that follow --
|
||||
+-- apply solely to the contents of the part following the private keyword. --
|
||||
+-- --
|
||||
+-- 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 3, 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. --
|
||||
+-- --
|
||||
+-- As a special exception under Section 7 of GPL version 3, you are granted --
|
||||
+-- additional permissions described in the GCC Runtime Library Exception, --
|
||||
+-- version 3.1, as published by the Free Software Foundation. --
|
||||
+-- --
|
||||
+-- You should have received a copy of the GNU General Public License and --
|
||||
+-- a copy of the GCC Runtime Library Exception along with this program; --
|
||||
+-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
||||
+-- <http://www.gnu.org/licenses/>. --
|
||||
+-- --
|
||||
+-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
+-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
+-- --
|
||||
+------------------------------------------------------------------------------
|
||||
+
|
||||
+package System is
|
||||
+ pragma Pure;
|
||||
+ -- Note that we take advantage of the implementation permission to make
|
||||
+ -- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||
+ -- 2005, this is Pure in any case (AI-362).
|
||||
+
|
||||
+ type Name is (SYSTEM_NAME_GNAT);
|
||||
+ System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||
+
|
||||
+ -- System-Dependent Named Numbers
|
||||
+
|
||||
+ Min_Int : constant := Long_Long_Integer'First;
|
||||
+ Max_Int : constant := Long_Long_Integer'Last;
|
||||
+
|
||||
+ Max_Binary_Modulus : constant := 2 ** Long_Long_Integer'Size;
|
||||
+ Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
|
||||
+
|
||||
+ Max_Base_Digits : constant := Long_Long_Float'Digits;
|
||||
+ Max_Digits : constant := Long_Long_Float'Digits;
|
||||
+
|
||||
+ Max_Mantissa : constant := 63;
|
||||
+ Fine_Delta : constant := 2.0 ** (-Max_Mantissa);
|
||||
+
|
||||
+ Tick : constant := 0.000_001;
|
||||
+
|
||||
+ -- Storage-related Declarations
|
||||
+
|
||||
+ type Address is private;
|
||||
+ pragma Preelaborable_Initialization (Address);
|
||||
+ Null_Address : constant Address;
|
||||
+
|
||||
+ Storage_Unit : constant := 8;
|
||||
+ Word_Size : constant := 64;
|
||||
+ Memory_Size : constant := 2 ** 64;
|
||||
+
|
||||
+ -- Address comparison
|
||||
+
|
||||
+ function "<" (Left, Right : Address) return Boolean;
|
||||
+ function "<=" (Left, Right : Address) return Boolean;
|
||||
+ function ">" (Left, Right : Address) return Boolean;
|
||||
+ function ">=" (Left, Right : Address) return Boolean;
|
||||
+ function "=" (Left, Right : Address) return Boolean;
|
||||
+
|
||||
+ pragma Import (Intrinsic, "<");
|
||||
+ pragma Import (Intrinsic, "<=");
|
||||
+ pragma Import (Intrinsic, ">");
|
||||
+ pragma Import (Intrinsic, ">=");
|
||||
+ pragma Import (Intrinsic, "=");
|
||||
+
|
||||
+ -- Other System-Dependent Declarations
|
||||
+
|
||||
+ type Bit_Order is (High_Order_First, Low_Order_First);
|
||||
+ Default_Bit_Order : constant Bit_Order := Low_Order_First;
|
||||
+ pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
|
||||
+
|
||||
+ -- Priority-related Declarations (RM D.1)
|
||||
+
|
||||
+ Max_Priority : constant Positive := 30;
|
||||
+ Max_Interrupt_Priority : constant Positive := 31;
|
||||
+
|
||||
+ subtype Any_Priority is Integer range 0 .. 31;
|
||||
+ subtype Priority is Any_Priority range 0 .. 30;
|
||||
+ subtype Interrupt_Priority is Any_Priority range 31 .. 31;
|
||||
+
|
||||
+ Default_Priority : constant Priority := 15;
|
||||
+
|
||||
+private
|
||||
+
|
||||
+ type Address is mod Memory_Size;
|
||||
+ Null_Address : constant Address := 0;
|
||||
+
|
||||
+ --------------------------------------
|
||||
+ -- System Implementation Parameters --
|
||||
+ --------------------------------------
|
||||
+
|
||||
+ -- These parameters provide information about the target that is used
|
||||
+ -- by the compiler. They are in the private part of System, where they
|
||||
+ -- can be accessed using the special circuitry in the Targparm unit
|
||||
+ -- whose source should be consulted for more detailed descriptions
|
||||
+ -- of the individual switch values.
|
||||
+
|
||||
+ Backend_Divide_Checks : constant Boolean := False;
|
||||
+ Backend_Overflow_Checks : constant Boolean := True;
|
||||
+ Command_Line_Args : constant Boolean := True;
|
||||
+ Configurable_Run_Time : constant Boolean := False;
|
||||
+ Denorm : constant Boolean := True;
|
||||
+ Duration_32_Bits : constant Boolean := False;
|
||||
+ Exit_Status_Supported : constant Boolean := True;
|
||||
+ Fractional_Fixed_Ops : constant Boolean := False;
|
||||
+ Frontend_Layout : constant Boolean := False;
|
||||
+ Machine_Overflows : constant Boolean := False;
|
||||
+ Machine_Rounds : constant Boolean := True;
|
||||
+ Preallocated_Stacks : constant Boolean := False;
|
||||
+ Signed_Zeros : constant Boolean := True;
|
||||
+ Stack_Check_Default : constant Boolean := False;
|
||||
+ Stack_Check_Probes : constant Boolean := True;
|
||||
+ Stack_Check_Limits : constant Boolean := False;
|
||||
+ Support_Aggregates : constant Boolean := True;
|
||||
+ Support_Atomic_Primitives : constant Boolean := True;
|
||||
+ Support_Composite_Assign : constant Boolean := True;
|
||||
+ Support_Composite_Compare : constant Boolean := True;
|
||||
+ Support_Long_Shifts : constant Boolean := True;
|
||||
+ Always_Compatible_Rep : constant Boolean := False;
|
||||
+ Suppress_Standard_Library : constant Boolean := False;
|
||||
+ Use_Ada_Main_Program_Name : constant Boolean := False;
|
||||
+ ZCX_By_Default : constant Boolean := False;
|
||||
+
|
||||
+end System;
|
148
lang/gcc/4.8/patches/patch-gcc_ada_system-openbsd-x86_ads
Normal file
148
lang/gcc/4.8/patches/patch-gcc_ada_system-openbsd-x86_ads
Normal file
@ -0,0 +1,148 @@
|
||||
$OpenBSD: patch-gcc_ada_system-openbsd-x86_ads,v 1.1 2013/07/18 17:04:08 tobiasu Exp $
|
||||
--- gcc/ada/system-openbsd-x86.ads.orig Mon Jun 17 16:01:06 2013
|
||||
+++ gcc/ada/system-openbsd-x86.ads Mon Jun 17 16:02:42 2013
|
||||
@@ -0,0 +1,144 @@
|
||||
+------------------------------------------------------------------------------
|
||||
+-- --
|
||||
+-- GNAT RUN-TIME COMPONENTS --
|
||||
+-- --
|
||||
+-- S Y S T E M --
|
||||
+-- --
|
||||
+-- S p e c --
|
||||
+-- (FreeBSD/x86 Version) --
|
||||
+-- --
|
||||
+-- Copyright (C) 1992-2012, Free Software Foundation, Inc. --
|
||||
+-- --
|
||||
+-- This specification is derived from the Ada Reference Manual for use with --
|
||||
+-- GNAT. The copyright notice above, and the license provisions that follow --
|
||||
+-- apply solely to the contents of the part following the private keyword. --
|
||||
+-- --
|
||||
+-- 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 3, 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. --
|
||||
+-- --
|
||||
+-- As a special exception under Section 7 of GPL version 3, you are granted --
|
||||
+-- additional permissions described in the GCC Runtime Library Exception, --
|
||||
+-- version 3.1, as published by the Free Software Foundation. --
|
||||
+-- --
|
||||
+-- You should have received a copy of the GNU General Public License and --
|
||||
+-- a copy of the GCC Runtime Library Exception along with this program; --
|
||||
+-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
||||
+-- <http://www.gnu.org/licenses/>. --
|
||||
+-- --
|
||||
+-- GNAT was originally developed by the GNAT team at New York University. --
|
||||
+-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
||||
+-- --
|
||||
+------------------------------------------------------------------------------
|
||||
+
|
||||
+package System is
|
||||
+ pragma Pure;
|
||||
+ -- Note that we take advantage of the implementation permission to make
|
||||
+ -- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||
+ -- 2005, this is Pure in any case (AI-362).
|
||||
+
|
||||
+ type Name is (SYSTEM_NAME_GNAT);
|
||||
+ System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||
+
|
||||
+ -- System-Dependent Named Numbers
|
||||
+
|
||||
+ Min_Int : constant := Long_Long_Integer'First;
|
||||
+ Max_Int : constant := Long_Long_Integer'Last;
|
||||
+
|
||||
+ Max_Binary_Modulus : constant := 2 ** Long_Long_Integer'Size;
|
||||
+ Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
|
||||
+
|
||||
+ Max_Base_Digits : constant := Long_Long_Float'Digits;
|
||||
+ Max_Digits : constant := Long_Long_Float'Digits;
|
||||
+
|
||||
+ Max_Mantissa : constant := 63;
|
||||
+ Fine_Delta : constant := 2.0 ** (-Max_Mantissa);
|
||||
+
|
||||
+ Tick : constant := 0.000_001;
|
||||
+
|
||||
+ -- Storage-related Declarations
|
||||
+
|
||||
+ type Address is private;
|
||||
+ pragma Preelaborable_Initialization (Address);
|
||||
+ Null_Address : constant Address;
|
||||
+
|
||||
+ Storage_Unit : constant := 8;
|
||||
+ Word_Size : constant := 32;
|
||||
+ Memory_Size : constant := 2 ** 32;
|
||||
+
|
||||
+ -- Address comparison
|
||||
+
|
||||
+ function "<" (Left, Right : Address) return Boolean;
|
||||
+ function "<=" (Left, Right : Address) return Boolean;
|
||||
+ function ">" (Left, Right : Address) return Boolean;
|
||||
+ function ">=" (Left, Right : Address) return Boolean;
|
||||
+ function "=" (Left, Right : Address) return Boolean;
|
||||
+
|
||||
+ pragma Import (Intrinsic, "<");
|
||||
+ pragma Import (Intrinsic, "<=");
|
||||
+ pragma Import (Intrinsic, ">");
|
||||
+ pragma Import (Intrinsic, ">=");
|
||||
+ pragma Import (Intrinsic, "=");
|
||||
+
|
||||
+ -- Other System-Dependent Declarations
|
||||
+
|
||||
+ type Bit_Order is (High_Order_First, Low_Order_First);
|
||||
+ Default_Bit_Order : constant Bit_Order := Low_Order_First;
|
||||
+ pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
|
||||
+
|
||||
+ -- Priority-related Declarations (RM D.1)
|
||||
+
|
||||
+ Max_Priority : constant Positive := 30;
|
||||
+ Max_Interrupt_Priority : constant Positive := 31;
|
||||
+
|
||||
+ subtype Any_Priority is Integer range 0 .. 31;
|
||||
+ subtype Priority is Any_Priority range 0 .. 30;
|
||||
+ subtype Interrupt_Priority is Any_Priority range 31 .. 31;
|
||||
+
|
||||
+ Default_Priority : constant Priority := 15;
|
||||
+
|
||||
+private
|
||||
+
|
||||
+ type Address is mod Memory_Size;
|
||||
+ Null_Address : constant Address := 0;
|
||||
+
|
||||
+ --------------------------------------
|
||||
+ -- System Implementation Parameters --
|
||||
+ --------------------------------------
|
||||
+
|
||||
+ -- These parameters provide information about the target that is used
|
||||
+ -- by the compiler. They are in the private part of System, where they
|
||||
+ -- can be accessed using the special circuitry in the Targparm unit
|
||||
+ -- whose source should be consulted for more detailed descriptions
|
||||
+ -- of the individual switch values.
|
||||
+
|
||||
+ Backend_Divide_Checks : constant Boolean := False;
|
||||
+ Backend_Overflow_Checks : constant Boolean := True;
|
||||
+ Command_Line_Args : constant Boolean := True;
|
||||
+ Configurable_Run_Time : constant Boolean := False;
|
||||
+ Denorm : constant Boolean := True;
|
||||
+ Duration_32_Bits : constant Boolean := False;
|
||||
+ Exit_Status_Supported : constant Boolean := True;
|
||||
+ Fractional_Fixed_Ops : constant Boolean := False;
|
||||
+ Frontend_Layout : constant Boolean := False;
|
||||
+ Machine_Overflows : constant Boolean := False;
|
||||
+ Machine_Rounds : constant Boolean := True;
|
||||
+ Preallocated_Stacks : constant Boolean := False;
|
||||
+ Signed_Zeros : constant Boolean := True;
|
||||
+ Stack_Check_Default : constant Boolean := False;
|
||||
+ Stack_Check_Probes : constant Boolean := True;
|
||||
+ Stack_Check_Limits : constant Boolean := False;
|
||||
+ Support_Aggregates : constant Boolean := True;
|
||||
+ Support_Atomic_Primitives : constant Boolean := True;
|
||||
+ Support_Composite_Assign : constant Boolean := True;
|
||||
+ Support_Composite_Compare : constant Boolean := True;
|
||||
+ Support_Long_Shifts : constant Boolean := True;
|
||||
+ Always_Compatible_Rep : constant Boolean := False;
|
||||
+ Suppress_Standard_Library : constant Boolean := False;
|
||||
+ Use_Ada_Main_Program_Name : constant Boolean := False;
|
||||
+ ZCX_By_Default : constant Boolean := False;
|
||||
+
|
||||
+end System;
|
11
lang/gcc/4.8/patches/patch-gcc_config_openbsd_opt
Normal file
11
lang/gcc/4.8/patches/patch-gcc_config_openbsd_opt
Normal file
@ -0,0 +1,11 @@
|
||||
$OpenBSD: patch-gcc_config_openbsd_opt,v 1.1 2013/07/18 17:04:09 tobiasu Exp $
|
||||
--- gcc/config/openbsd.opt.orig Sat Jun 8 22:49:21 2013
|
||||
+++ gcc/config/openbsd.opt Sat Jun 8 22:49:33 2013
|
||||
@@ -32,4 +32,7 @@ Driver
|
||||
pthread
|
||||
Driver
|
||||
|
||||
+rdynamic
|
||||
+Driver
|
||||
+
|
||||
; This comment is to ensure we retain the blank line above.
|
15
lang/gcc/4.8/patches/patch-gnattools_configure
Normal file
15
lang/gcc/4.8/patches/patch-gnattools_configure
Normal file
@ -0,0 +1,15 @@
|
||||
$OpenBSD: patch-gnattools_configure,v 1.1 2013/07/18 17:04:09 tobiasu Exp $
|
||||
--- gnattools/configure.orig Mon Jun 17 17:25:02 2013
|
||||
+++ gnattools/configure Mon Jun 17 17:22:53 2013
|
||||
@@ -2063,6 +2063,11 @@ case "${target}" in
|
||||
mlib-tgt-specific.adb<mlib-tgt-specific-linux.adb \
|
||||
indepsw.adb<indepsw-gnu.adb"
|
||||
;;
|
||||
+ *-openbsd*)
|
||||
+ TOOLS_TARGET_PAIRS="\
|
||||
+ mlib-tgt-specific.adb<mlib-tgt-specific-linux.adb \
|
||||
+ indepsw.adb<indepsw-gnu.adb"
|
||||
+ ;;
|
||||
hppa*-hp-hpux10*) # Unlike hpux11
|
||||
;;
|
||||
hppa*-hp-hpux11*)
|
15
lang/gcc/4.8/patches/patch-gnattools_configure_ac
Normal file
15
lang/gcc/4.8/patches/patch-gnattools_configure_ac
Normal file
@ -0,0 +1,15 @@
|
||||
$OpenBSD: patch-gnattools_configure_ac,v 1.1 2013/07/18 17:04:09 tobiasu Exp $
|
||||
--- gnattools/configure.ac.orig Mon Jun 17 17:23:30 2013
|
||||
+++ gnattools/configure.ac Mon Jun 17 17:24:39 2013
|
||||
@@ -103,6 +103,11 @@ case "${target}" in
|
||||
mlib-tgt-specific.adb<mlib-tgt-specific-linux.adb \
|
||||
indepsw.adb<indepsw-gnu.adb"
|
||||
;;
|
||||
+ *-openbsd*)
|
||||
+ TOOLS_TARGET_PAIRS="\
|
||||
+ mlib-tgt-specific.adb<mlib-tgt-specific-linux.adb \
|
||||
+ indepsw.adb<indepsw-gnu.adb"
|
||||
+ ;;
|
||||
hppa*-hp-hpux10*) # Unlike hpux11
|
||||
;;
|
||||
hppa*-hp-hpux11*)
|
Loading…
Reference in New Issue
Block a user