mirror of
https://git.freebsd.org/ports.git
synced 2025-07-18 01:39:16 -04:00
Update 3.10p -> 3.11p:
* Build requires a GNAT compiler, for which the maintainer has
created a package. For now, provide two MASTER_SITEs from which
it is available so that it'll find its way into the FreeBSD
distfiles.
* Uses variables in the PLIST to reduce diff sizes in future.
* Doesn't install info files, which are virtually duplicates of
the ones we already have.
* AOUT support is on its wAy OUT. Do what we can, but don't blow
any fuses.
* Hand maintainership over to Daniel Eischen, at the request of
the previous maintainer.
PR: 10093
Submitted by: Daniel Eischen <eischen@vigrid.com>
This commit is contained in:
Sheldon Hearn
parent
78f3dcd0fa
commit
cc4e71cb59
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=19746
18 changed files with 2451 additions and 1710 deletions
|
|
@ -8,87 +8,187 @@
|
||||||
# $Id: Makefile,v 1.16 1998/01/18 15:12:38 steve Exp $
|
# $Id: Makefile,v 1.16 1998/01/18 15:12:38 steve Exp $
|
||||||
#
|
#
|
||||||
# Note:
|
# Note:
|
||||||
# - FreeBSD tasking libraries created by Dan Eischen have been incorportated
|
# - FreeBSD tasking libraries created by Dan Eischen have been incorporated
|
||||||
# into this edition
|
# into this edition
|
||||||
# - The default names of a number of binaries have been altered to avoid
|
# - The default names of a number of binaries have been altered to avoid
|
||||||
# conflict with other gcc based products. Standard names can be provided using
|
# conflict with other gcc based products. Standard names can be provided
|
||||||
# symbolic links.
|
# using symbolic links.
|
||||||
|
|
||||||
DISTNAME= gnat-3.10p-src
|
DISTNAME= gcc-2.8.1
|
||||||
PKGNAME= gnat-3.10p
|
PKGNAME= gnat-3.11p
|
||||||
CATEGORIES= lang
|
CATEGORIES= lang
|
||||||
MASTER_SITES= ftp://cs.nyu.edu/pub/gnat/ \
|
MASTER_SITES= ftp://cs.nyu.edu/pub/gnat/ \
|
||||||
${MASTER_SITE_GNU}
|
${MASTER_SITE_GNU} \
|
||||||
DISTFILES= gnat-3.10p-src.tar.gz gcc-2.7.2.1.tar.gz
|
ftp://ftp.pcnet.com/users/eischen/GNAT/ \
|
||||||
|
http://axl.noc.iafrica.com/~sheldonh/
|
||||||
|
DISTFILES= gnat-3.11p-src.tar.gz gcc-2.8.1.tar.gz
|
||||||
|
|
||||||
MAINTAINER= maurice@serc.rmit.edu.au
|
MAINTAINER= eischen@vigrid.com
|
||||||
|
|
||||||
.if !exists(/usr/local/bin/gnatf)
|
.include <bsd.port.pre.mk>
|
||||||
BROKEN= "requires existing gnat compiler"
|
|
||||||
|
.if ${PORTOBJFORMAT} == "elf"
|
||||||
|
GNUHOST= ${ARCH}-unknown-freebsdelf${OSREL}
|
||||||
|
.else
|
||||||
|
GNUHOST= ${ARCH}-unknown-freebsd${OSREL}
|
||||||
.endif
|
.endif
|
||||||
.if !exists(/usr/local/bin/adagcc)
|
GCC_VERSION= 2.8.1
|
||||||
BROKEN= "requires patched gcc compiler"
|
|
||||||
.endif
|
|
||||||
# You need a compiler who calls an existing gnat compiler (3.08 or greater):
|
|
||||||
# if you have one, if you have one put it here, otherwise,
|
|
||||||
# you will need to install from a package first
|
|
||||||
|
|
||||||
|
PLIST_SUB= GNUHOST=${GNUHOST} GCC_VERSION=${GCC_VERSION}
|
||||||
|
# Make no mistake about what host/target we are building on/for.
|
||||||
|
# This package does not support cross-compiling, and this fixes
|
||||||
|
# problems with bsd.port.mk files from earlier FreeBSD 3.x releases.
|
||||||
|
CONFIGURE_TARGET= --host=${GNUHOST} --target=${GNUHOST}
|
||||||
|
CONFIGURE_ARGS= --program-prefix=ada
|
||||||
|
GNU_CONFIGURE= yes
|
||||||
USE_GMAKE= yes
|
USE_GMAKE= yes
|
||||||
MAN1= adagcc.1 cccp.1
|
MAN1= adagcc.1 cccp.1
|
||||||
|
|
||||||
# Make sure we use the patched gcc compiler
|
# You need a compiler who calls an existing GNAT compiler (3.10 or greater).
|
||||||
CC = /usr/local/bin/adagcc
|
# If you have one, point CC at it. By default, we'll look for one in the
|
||||||
|
# obvious places. If we can't find one, we'll fetch a distfile containing
|
||||||
|
# a minimum (still pretty large) compiler toolset and use that to build.
|
||||||
|
|
||||||
# Which version of gcc do we have? Must be 2.7.2.1
|
# For the GNAT compiler, we look in ${PREFIX} and in /usr/local.
|
||||||
CCVERSION= 2.7.2.1
|
.ifdef PREFIX
|
||||||
|
have_boot!= if [ -x ${PREFIX}/bin/adagcc -a -x ${PREFIX}/bin/gnatbind ]; then \
|
||||||
|
${ECHO} "${PREFIX}/bin"; \
|
||||||
|
else \
|
||||||
|
${ECHO} ""; \
|
||||||
|
fi
|
||||||
|
.else
|
||||||
|
have_boot=
|
||||||
|
.endif
|
||||||
|
.if empty(have_boot)
|
||||||
|
have_boot!= if [ -x /usr/local/bin/adagcc -a -x /usr/local/bin/gnatbind ]; then \
|
||||||
|
${ECHO} "/usr/local/bin"; \
|
||||||
|
else \
|
||||||
|
${ECHO} ""; \
|
||||||
|
fi
|
||||||
|
.endif
|
||||||
|
|
||||||
# which language set
|
#
|
||||||
LANG = c ada
|
# Check for attempts to cross-compile the GNAT compiler. We only supply
|
||||||
|
# an ELF bootstrap compiler. If the gnat-3.10 package is still around,
|
||||||
|
# you could possible install that and build gnat-3.11p as aout. This
|
||||||
|
# is not supported, though.
|
||||||
|
.if empty(have_boot)
|
||||||
|
have_boot!= if [ ${PORTOBJFORMAT} = "aout" ]; then \
|
||||||
|
${ECHO} "borken for cross"; \
|
||||||
|
else \
|
||||||
|
${ECHO} ""; \
|
||||||
|
fi
|
||||||
|
.else
|
||||||
|
have_boot!= if [ `file ${have_boot}/adagcc | awk ' { print $$2 }'` = "ELF" ]; then \
|
||||||
|
if [ ${PORTOBJFORMAT} = "elf" ]; then \
|
||||||
|
${ECHO} ${have_boot}; \
|
||||||
|
else \
|
||||||
|
${ECHO} "borken for cross"; \
|
||||||
|
fi \
|
||||||
|
else \
|
||||||
|
if [ ${PORTOBJFORMAT} = "elf" ]; then \
|
||||||
|
${ECHO} ""; \
|
||||||
|
else \
|
||||||
|
${ECHO} ${have_boot}; \
|
||||||
|
fi \
|
||||||
|
fi
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.if ${have_boot} == "borken for cross"
|
||||||
|
BROKEN= "Cannot build an aout compiler with an ELF compiler."
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.if empty(have_boot)
|
||||||
|
DISTFILES+= gnat-3.11p-boot.tar.gz
|
||||||
|
# Warning! You need the trailing slash on GCC_EXEC_PREFIX.
|
||||||
|
COMPILEDATA= GCC_EXEC_PREFIX=${WRKDIR}/adaboot/lib/gcc-lib/ \
|
||||||
|
ADA_INCLUDE_PATH=${WRKDIR}/adaboot/lib/gcc-lib/adainclude \
|
||||||
|
ADA_OBJECTS_PATH=${WRKDIR}/adaboot/lib/gcc-lib/adalib
|
||||||
|
have_boot= ${WRKDIR}/adaboot
|
||||||
|
.endif
|
||||||
|
|
||||||
|
# Make sure we use the Ada-aware gcc compiler.
|
||||||
|
CC = adagcc
|
||||||
|
CONFIGURE_ENV= ${COMPILE_DATA} PATH=${have_boot}/bin:$$PATH
|
||||||
|
|
||||||
pre-patch:
|
pre-patch:
|
||||||
@${ECHO} "===> Applying FreeBSD patches to gcc for ${DISTNAME}"
|
@${ECHO} "===> Applying FreeBSD patches to gcc for ${DISTNAME}"
|
||||||
-( cd ${WRKDIR}/gcc-2.7.2.1; \
|
-( ${PATCH} ${PATCH_ARGS} < ${FILESDIR}/freebsdgcc28-patches )
|
||||||
${PATCH} < ${PATCHDIR}/patch-freebsdgcc; )
|
|
||||||
@${ECHO} "===> Patching gcc for ${DISTNAME}"
|
@${ECHO} "===> Patching gcc for ${DISTNAME}"
|
||||||
-( cd ${WRKDIR}/gcc-2.7.2.1; \
|
-( ${PATCH} ${PATCH_ARGS} < ${WRKDIR}/gnat-3.11p-src/src/gcc-281.dif )
|
||||||
${PATCH} < ${WRKSRC}/src/gcc-2721.dif; )
|
@${ECHO} "===> Copying GNAT compiler sources into GCC tree."
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1; \
|
-( ${MV} ${WRKDIR}/gnat-3.11p-src/src/ada ${WRKDIR}/gcc-2.8.1 )
|
||||||
${CP} -R ${WRKSRC}/src/ada ada; )
|
|
||||||
|
# Copy any additional files required into the correct locations.
|
||||||
|
post-patch:
|
||||||
|
(cd ${FILESDIR}; \
|
||||||
|
for i in *.adb *.ads ; do \
|
||||||
|
${CP} $$i ${WRKSRC}/ada; \
|
||||||
|
done )
|
||||||
|
|
||||||
pre-configure:
|
pre-configure:
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1/ada; \
|
@(cd ${WRKDIR}/gcc-2.8.1/config/${ARCH}/ ; \
|
||||||
${TOUCH} treeprs.ads a-[es]info.h nmake.ad[bs] )
|
MAJ=`sysctl -n kern.osreldate | ${SED} -e '/.....$$/s///'` ; \
|
||||||
|
${MV} freebsd.h freebsd.h.in ; \
|
||||||
do-build:
|
${SED} -e "s:__FreeBSD__=[0-9]*:__FreeBSD__=$${MAJ}:" freebsd.h.in \
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1; ${GMAKE} CC="${CC}" CFLAGS="-O2" LANGUAGES="${LANG}" )
|
>freebsd.h ; \
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1; ${GMAKE} CC="${CC}" CFLAGS="-O2" LANGUAGES="${LANG}" bootstrap )
|
${MV} freebsd-elf.h freebsd-elf.h.in ; \
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1; ${GMAKE} CC="${CC}" CFLAGS="-O2" gnatlib_and_tools )
|
${SED} -e "s:__FreeBSD__=[0-9]*:__FreeBSD__=$${MAJ}:" freebsd-elf.h.in \
|
||||||
|
>freebsd-elf.h)
|
||||||
# patch the src that we are going to use and copy any additional files
|
@(cd ${WRKSRC}/ada; \
|
||||||
# required into the correct locations
|
${TOUCH} treeprs.ads a-[es]info.h nmake.ad[bs])
|
||||||
# use version specific patches where necessary
|
|
||||||
do-patch:
|
|
||||||
(cd ${WRKDIR}; \
|
|
||||||
FILES="${PATCHDIR}/patch-[a-z][a-z]" ; \
|
|
||||||
SORTEDFILES=`${ECHO} $$FILES | ${TR} " " "\n" | sort` ; \
|
|
||||||
for i in $$SORTEDFILES ; do \
|
|
||||||
${ECHO} Applying ---- $$i ;\
|
|
||||||
${PATCH} < $$i ;\
|
|
||||||
done )
|
|
||||||
(cd ${FILESDIR}; \
|
|
||||||
for i in *.adb *.ads ; do \
|
|
||||||
${CP} $$i ${WRKDIR}/gcc-2.7.2.1/ada; \
|
|
||||||
done )
|
|
||||||
|
|
||||||
|
#
|
||||||
|
# Can't get this to work with default bsd.port.mk do-configure target.
|
||||||
|
#
|
||||||
do-configure:
|
do-configure:
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1; \
|
@(cd ${WRKSRC} && ${CONFIGURE_ENV} ./${CONFIGURE_SCRIPT} ${CONFIGURE_ARGS})
|
||||||
./configure --prefix=${PREFIX} --program-prefix=ada )
|
|
||||||
|
#
|
||||||
|
# We intentionally override CFLAGS because the build procedure is explicitly
|
||||||
|
# spelled out in gnat-3.11p-src/src/README.BUILD. Remove CFLAGS from the
|
||||||
|
# do-build target at your own risk.
|
||||||
|
#
|
||||||
|
do-build:
|
||||||
|
(cd ${WRKSRC}; \
|
||||||
|
PATH=${have_boot}/bin:$$PATH \
|
||||||
|
${COMPILEDATA} ${GMAKE} CC="${CC}" OLDCC="adagcc" CFLAGS="-O2" LANGUAGES="c ada" )
|
||||||
|
(cd ${WRKSRC}; \
|
||||||
|
${GMAKE} CFLAGS="-O2" LANGUAGES="c ada" bootstrap )
|
||||||
|
(cd ${WRKSRC}; \
|
||||||
|
${GMAKE} CFLAGS="-O2" gnattools )
|
||||||
|
(cd ${WRKSRC}; \
|
||||||
|
${GMAKE} CFLAGS="-O2" GNATLIBCFLAGS="-O2" gnatlib )
|
||||||
|
|
||||||
do-install:
|
do-install:
|
||||||
(cd ${WRKDIR}/gcc-2.7.2.1; \
|
(cd ${WRKSRC}; \
|
||||||
${GMAKE} CC="${CC}" LANGUAGES="${LANG}" install )
|
${GMAKE} CC="${CC}" LANGUAGES="c ada" ${INSTALL_TARGET} )
|
||||||
|
|
||||||
post-install:
|
post-install:
|
||||||
|
@(for prog in ${PREFIX}/bin/adagcc \
|
||||||
|
${PREFIX}/bin/gnat \
|
||||||
|
${PREFIX}/bin/gnatbind \
|
||||||
|
${PREFIX}/bin/gnatbl \
|
||||||
|
${PREFIX}/bin/gnatchop \
|
||||||
|
${PREFIX}/bin/gnatfind \
|
||||||
|
${PREFIX}/bin/gnatkr \
|
||||||
|
${PREFIX}/bin/gnatlink \
|
||||||
|
${PREFIX}/bin/gnatls \
|
||||||
|
${PREFIX}/bin/gnatmake \
|
||||||
|
${PREFIX}/bin/gnatmem \
|
||||||
|
${PREFIX}/bin/gnatprep \
|
||||||
|
${PREFIX}/bin/gnatpsta \
|
||||||
|
${PREFIX}/bin/gnatpsys \
|
||||||
|
${PREFIX}/bin/gnatxref \
|
||||||
|
${PREFIX}/bin/${GNUHOST}-gcc \
|
||||||
|
${PREFIX}/lib/gcc-lib/${GNUHOST}/${GCC_VERSION}/cc1 \
|
||||||
|
${PREFIX}/lib/gcc-lib/${GNUHOST}/${GCC_VERSION}/gnat1 \
|
||||||
|
${PREFIX}/lib/gcc-lib/${GNUHOST}/${GCC_VERSION}/cpp ; do \
|
||||||
|
if [ -x $$prog ]; then \
|
||||||
|
strip $$prog ; \
|
||||||
|
fi \
|
||||||
|
done)
|
||||||
|
@(chown -R bin:bin ${PREFIX}/lib/gcc-lib/${GNUHOST}/${GCC_VERSION})
|
||||||
@(${ECHO} "-----------------------------------------------------------" )
|
@(${ECHO} "-----------------------------------------------------------" )
|
||||||
@(${ECHO} "" )
|
@(${ECHO} "" )
|
||||||
@(${ECHO} "For information about using the tasking library please read" )
|
@(${ECHO} "For information about using the tasking library please read" )
|
||||||
|
|
@ -97,4 +197,4 @@ post-install:
|
||||||
@(${ECHO} "-----------------------------------------------------------" )
|
@(${ECHO} "-----------------------------------------------------------" )
|
||||||
@(${ECHO} "" )
|
@(${ECHO} "" )
|
||||||
|
|
||||||
.include <bsd.port.mk>
|
.include <bsd.port.post.mk>
|
||||||
|
|
|
||||||
|
|
@ -1,2 +1,3 @@
|
||||||
MD5 (gnat-3.10p-src.tar.gz) = ff672b160649efe2849fa5ca91dac580
|
MD5 (gnat-3.11p-src.tar.gz) = 44ef3007e0ea216ab9a1e4a2712a0f8b
|
||||||
MD5 (gcc-2.7.2.1.tar.gz) = 655b43dbb48f611fc667ec21584a4460
|
MD5 (gcc-2.8.1.tar.gz) = 311829e9c36080fb54b0145285746a9e
|
||||||
|
MD5 (gnat-3.11p-boot.tar.gz) = e78d6bfa82e0fa941e779d7f14dc4708
|
||||||
|
|
|
||||||
|
|
@ -39,7 +39,7 @@
|
||||||
|
|
||||||
-- This is only a first approximation.
|
-- This is only a first approximation.
|
||||||
-- It should be autogenerated by the m4 macro processor.
|
-- It should be autogenerated by the m4 macro processor.
|
||||||
-- Contributed by Daniel Eischen (deischen@iworks.InterWorks.org)
|
-- Contributed by Daniel Eischen (eischen@vigrid.com)
|
||||||
|
|
||||||
with System.OS_Interface;
|
with System.OS_Interface;
|
||||||
-- used for names of interrupts
|
-- used for names of interrupts
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- (Version for new GNARL) --
|
-- (Version for new GNARL) --
|
||||||
-- --
|
-- --
|
||||||
-- $Revision: 1.1 $ --
|
-- $Revision: 1.3 $ --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1991,1992,1993,1994,1995,1996 Florida State University --
|
-- Copyright (C) 1991,1992,1993,1994,1995,1996 Florida State University --
|
||||||
-- --
|
-- --
|
||||||
|
|
@ -44,7 +44,7 @@
|
||||||
-- 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
|
-- exceptions and the Ada exceptions, if any, that should be raised when
|
||||||
-- they occur. This version works for FreeBSD. Contributed by
|
-- they occur. This version works for FreeBSD. Contributed by
|
||||||
-- Daniel M. Eischen (deischen@iworks.InterWorks.org).
|
-- Daniel M. Eischen (eischen@vigrid.com).
|
||||||
|
|
||||||
-- PLEASE DO NOT add any dependences on other packages.
|
-- PLEASE DO NOT add any dependences on other packages.
|
||||||
-- This package is designed to work with or without tasking support.
|
-- This package is designed to work with or without tasking support.
|
||||||
|
|
@ -61,16 +61,12 @@
|
||||||
with Interfaces.C;
|
with Interfaces.C;
|
||||||
-- used for int and other types
|
-- used for int and other types
|
||||||
|
|
||||||
with System.Error_Reporting;
|
|
||||||
-- used for Shutdown
|
|
||||||
|
|
||||||
with System.OS_Interface;
|
with System.OS_Interface;
|
||||||
-- used for various Constants, Signal and types
|
-- used for various Constants, Signal and types
|
||||||
|
|
||||||
package body System.Interrupt_Management is
|
package body System.Interrupt_Management is
|
||||||
|
|
||||||
use Interfaces.C;
|
use Interfaces.C;
|
||||||
use System.Error_Reporting;
|
|
||||||
use System.OS_Interface;
|
use System.OS_Interface;
|
||||||
|
|
||||||
type Interrupt_List is array (Interrupt_ID range <>) of Interrupt_ID;
|
type Interrupt_List is array (Interrupt_ID range <>) of Interrupt_ID;
|
||||||
|
|
@ -137,7 +133,7 @@ package body System.Interrupt_Management is
|
||||||
when SIGBUS =>
|
when SIGBUS =>
|
||||||
raise Storage_Error;
|
raise Storage_Error;
|
||||||
when others =>
|
when others =>
|
||||||
pragma Assert (Shutdown ("Unexpected signal"));
|
pragma Assert (False);
|
||||||
null;
|
null;
|
||||||
end case;
|
end case;
|
||||||
end Notify_Exception;
|
end Notify_Exception;
|
||||||
|
|
@ -152,6 +148,10 @@ package body System.Interrupt_Management is
|
||||||
mask : aliased sigset_t;
|
mask : aliased sigset_t;
|
||||||
Result : Interfaces.C.int;
|
Result : Interfaces.C.int;
|
||||||
|
|
||||||
|
Unreserve_All_Interrupts : Interfaces.C.int;
|
||||||
|
pragma Import
|
||||||
|
(C, Unreserve_All_Interrupts, "__gl_unreserve_all_interrupts");
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
|
||||||
Abort_Task_Interrupt := SIGABRT;
|
Abort_Task_Interrupt := SIGABRT;
|
||||||
|
|
@ -170,14 +170,17 @@ package body System.Interrupt_Management is
|
||||||
-- In that case, this field should be changed back to 0. ??? (Dong-Ik)
|
-- In that case, this field should be changed back to 0. ??? (Dong-Ik)
|
||||||
|
|
||||||
Result := sigemptyset (mask'Access);
|
Result := sigemptyset (mask'Access);
|
||||||
pragma Assert (Result = 0
|
pragma Assert (Result = 0);
|
||||||
or else Shutdown ("GNULLI failure---sigemptyset"));
|
|
||||||
|
|
||||||
for I in Exception_Interrupts'Range loop
|
-- ??? For the same reason explained above, we can't mask these
|
||||||
Result := sigaddset (mask'Access, Signal (Exception_Interrupts (I)));
|
-- signals because otherwise we won't be able to catch more than
|
||||||
pragma Assert (Result = 0
|
-- one signal.
|
||||||
or else Shutdown ("GNULLI failure---sigaddset"));
|
|
||||||
end loop;
|
-- for I in Exception_Interrupts'Range loop
|
||||||
|
-- Result :=
|
||||||
|
-- sigaddset (mask'Access, Signal (Exception_Interrupts (I)));
|
||||||
|
-- pragma Assert (Result = 0);
|
||||||
|
-- end loop;
|
||||||
|
|
||||||
act.sa_mask := mask;
|
act.sa_mask := mask;
|
||||||
|
|
||||||
|
|
@ -185,28 +188,26 @@ package body System.Interrupt_Management is
|
||||||
Keep_Unmasked (Exception_Interrupts (I)) := True;
|
Keep_Unmasked (Exception_Interrupts (I)) := True;
|
||||||
Result :=
|
Result :=
|
||||||
sigaction
|
sigaction
|
||||||
(Signal (Exception_Interrupts (I)), act'Access,
|
(Signal (Exception_Interrupts (I)), act'Unchecked_Access,
|
||||||
old_act'Unchecked_Access);
|
old_act'Unchecked_Access);
|
||||||
pragma Assert (Result = 0
|
pragma Assert (Result = 0);
|
||||||
or else Shutdown ("GNULLI failure---sigaction"));
|
|
||||||
end loop;
|
end loop;
|
||||||
|
|
||||||
Keep_Unmasked (Abort_Task_Interrupt) := true;
|
Keep_Unmasked (Abort_Task_Interrupt) := True;
|
||||||
-- Keep_Unmasked (SIGBUS) := true;
|
Keep_Unmasked (SIGSTOP) := True;
|
||||||
|
Keep_Unmasked (SIGKILL) := True;
|
||||||
|
|
||||||
Keep_Unmasked (SIGSTOP) := true;
|
-- By keeping SIGINT unmasked, allow the user to do a Ctrl-C, but in the
|
||||||
Keep_Unmasked (SIGKILL) := true;
|
-- same time, disable the ability of handling this signal
|
||||||
Keep_Unmasked (SIGINT) := true;
|
-- via Ada.Interrupts.
|
||||||
|
-- The pragma Unreserve_All_Interrupts let the user the ability to
|
||||||
|
-- change this behavior.
|
||||||
|
|
||||||
-- Keep_Unmasked (SIGEMT) := true;
|
if Unreserve_All_Interrupts = 0 then
|
||||||
-- Keep_Unmasked (SIGCHLD) := true;
|
Keep_Unmasked (SIGINT) := True;
|
||||||
-- Keep_Unmasked (SIGALRM) := true;
|
else
|
||||||
-- ???? The above signals have been found to need to be
|
Keep_Unmasked (SIGINT) := False;
|
||||||
-- kept unmasked on some systems, per Dong-Ik Oh.
|
end if;
|
||||||
-- I don't know whether the MIT/Provenzano threads
|
|
||||||
-- need these or any other signals unmasked at the thread level.
|
|
||||||
-- I hope somebody will take
|
|
||||||
-- the time to look it up. -- Ted Baker
|
|
||||||
|
|
||||||
-- FreeBSD uses SIGINFO to dump thread status to stdout. If
|
-- FreeBSD uses SIGINFO to dump thread status to stdout. If
|
||||||
-- the user really wants to attach his own handler, let him.
|
-- the user really wants to attach his own handler, let him.
|
||||||
|
|
@ -216,9 +217,9 @@ package body System.Interrupt_Management is
|
||||||
-- in order to handle the setitimer/getitimer operations. We
|
-- in order to handle the setitimer/getitimer operations. We
|
||||||
-- could probably allow SIGALARM, but we'll leave it as unmasked
|
-- could probably allow SIGALARM, but we'll leave it as unmasked
|
||||||
-- for now. FreeBSD pthreads also needs SIGCHLD.
|
-- for now. FreeBSD pthreads also needs SIGCHLD.
|
||||||
Keep_Unmasked (SIGCHLD) := true;
|
Keep_Unmasked (SIGCHLD) := True;
|
||||||
Keep_Unmasked (SIGALRM) := true;
|
Keep_Unmasked (SIGALRM) := True;
|
||||||
Keep_Unmasked (SIGVTALRM) := true;
|
Keep_Unmasked (SIGVTALRM) := True;
|
||||||
|
|
||||||
Reserve := Reserve or Keep_Unmasked or Keep_Masked;
|
Reserve := Reserve or Keep_Unmasked or Keep_Masked;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- (Version for new GNARL) --
|
-- (Version for new GNARL) --
|
||||||
-- --
|
-- --
|
||||||
-- $Revision: 1.1 $ --
|
-- $Revision: 1.2 $ --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1991,1992,1993,1994,1995,1996 Florida State University --
|
-- Copyright (C) 1991,1992,1993,1994,1995,1996 Florida State University --
|
||||||
-- --
|
-- --
|
||||||
|
|
@ -39,7 +39,7 @@
|
||||||
|
|
||||||
-- This is only a first approximation.
|
-- This is only a first approximation.
|
||||||
-- It should be autogenerated by the m4 macro processor.
|
-- It should be autogenerated by the m4 macro processor.
|
||||||
-- Contributed by Daniel M. Eischen (deischen@iworks.InterWorks.org)
|
-- Contributed by Daniel M. Eischen (eischen@vigrid.com)
|
||||||
|
|
||||||
-- DO NOT EDIT this file.
|
-- DO NOT EDIT this file.
|
||||||
-- It was automatically generated from another file by the m4 macro processor.
|
-- It was automatically generated from another file by the m4 macro processor.
|
||||||
|
|
@ -56,10 +56,10 @@
|
||||||
-- __HAS_SIGCONTEXT = 1
|
-- __HAS_SIGCONTEXT = 1
|
||||||
-- __HAS_UCONTEXT = 0
|
-- __HAS_UCONTEXT = 0
|
||||||
-- __THREADS = POSIX_THREADS
|
-- __THREADS = POSIX_THREADS
|
||||||
-- __THREAD_VARIANT = ??
|
-- __THREAD_VARIANT = MIT-THREADS
|
||||||
-- __HAS_TIMESPEC = 1
|
-- __HAS_TIMESPEC = 1
|
||||||
-- __HAS_NANOSLEEP = 1
|
-- __HAS_NANOSLEEP = 1
|
||||||
-- __HAS_CLOCK_GETTIME = 0
|
-- __HAS_CLOCK_GETTIME = 1
|
||||||
-- __HAS_GETTIMEOFDAY = 1
|
-- __HAS_GETTIMEOFDAY = 1
|
||||||
-- __POSIX_THREAD_PRIO_PROTECT = 0
|
-- __POSIX_THREAD_PRIO_PROTECT = 0
|
||||||
-- __POSIX_THREAD_PRIO_INHERIT = 0
|
-- __POSIX_THREAD_PRIO_INHERIT = 0
|
||||||
|
|
@ -86,8 +86,61 @@ package body System.OS_Interface is
|
||||||
return (internal_errno.all);
|
return (internal_errno.all);
|
||||||
end Errno;
|
end Errno;
|
||||||
|
|
||||||
|
function Get_Stack_Base (thread : pthread_t) return Address is
|
||||||
|
begin
|
||||||
|
return (0);
|
||||||
|
end Get_Stack_Base;
|
||||||
|
|
||||||
type sigset_t_ptr is access all sigset_t;
|
function pthread_getschedparam
|
||||||
|
(thread : pthread_t;
|
||||||
|
policy : access int;
|
||||||
|
param : access struct_sched_param) return int is
|
||||||
|
|
||||||
|
function pthread_getprio (thread : pthread_t) return int;
|
||||||
|
pragma Import (C, pthread_getprio, "pthread_getprio");
|
||||||
|
|
||||||
|
Result : int;
|
||||||
|
begin
|
||||||
|
Result := pthread_getprio (thread);
|
||||||
|
if Result >= 0 then
|
||||||
|
-- Only set sched_param if we succeeded. Also ensure
|
||||||
|
-- we return a successful status to the caller.
|
||||||
|
param.sched_priority := Result;
|
||||||
|
Result := 0;
|
||||||
|
end if;
|
||||||
|
return (Result);
|
||||||
|
end pthread_getschedparam;
|
||||||
|
|
||||||
|
function pthread_setschedparam
|
||||||
|
(thread : pthread_t;
|
||||||
|
policy : int;
|
||||||
|
param : access struct_sched_param) return int is
|
||||||
|
|
||||||
|
function pthread_setprio (thread : pthread_t; prio : int) return int;
|
||||||
|
pragma Import (C, pthread_setprio, "pthread_setprio");
|
||||||
|
|
||||||
|
begin
|
||||||
|
return (pthread_setprio (thread, param.sched_priority));
|
||||||
|
end pthread_setschedparam;
|
||||||
|
|
||||||
|
function pthread_attr_setschedpolicy
|
||||||
|
(attr : access pthread_attr_t;
|
||||||
|
policy : int) return int is
|
||||||
|
begin
|
||||||
|
return (0);
|
||||||
|
end pthread_attr_setschedpolicy;
|
||||||
|
|
||||||
|
function pthread_attr_getschedpolicy
|
||||||
|
(attr : access pthread_attr_t;
|
||||||
|
policy : access int) return int is
|
||||||
|
begin
|
||||||
|
return (0);
|
||||||
|
end pthread_attr_getschedpolicy;
|
||||||
|
|
||||||
|
procedure pthread_init is
|
||||||
|
begin
|
||||||
|
null;
|
||||||
|
end pthread_init;
|
||||||
|
|
||||||
function pthread_sigmask_set
|
function pthread_sigmask_set
|
||||||
(how : int;
|
(how : int;
|
||||||
|
|
@ -166,16 +219,4 @@ package body System.OS_Interface is
|
||||||
tv_usec => long (Long_Long_Integer (F * 10#1#E6)));
|
tv_usec => long (Long_Long_Integer (F * 10#1#E6)));
|
||||||
end To_Timeval;
|
end To_Timeval;
|
||||||
|
|
||||||
-- FreeBSD Pthreads has pthread_yield and it is imported as
|
|
||||||
-- sched_yield in 5fosinte.ads. The FreeBSD pthread_yield does
|
|
||||||
-- not have any parameters, so the import may be used directly
|
|
||||||
-- without the need for a wrapper as shown below.
|
|
||||||
-- function sched_yield return int is
|
|
||||||
-- procedure sched_yield_base (arg : System.Address);
|
|
||||||
-- pragma Import (C, sched_yield_base, "pthread_yield");
|
|
||||||
-- begin
|
|
||||||
-- sched_yield_base (System.Null_Address);
|
|
||||||
-- return 0;
|
|
||||||
-- end sched_yield;
|
|
||||||
|
|
||||||
end System.OS_Interface;
|
end System.OS_Interface;
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (Version for new GNARL) --
|
-- (Version for new GNARL) --
|
||||||
-- --
|
-- --
|
||||||
-- $Revision: 1.1 $ --
|
-- $Revision: 1.5 $ --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1991,92,93,94,95,1996 Free Software Foundation, Inc. --
|
-- Copyright (C) 1991,92,93,94,95,1996 Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
|
|
@ -39,7 +39,7 @@
|
||||||
|
|
||||||
-- This is only a first approximation.
|
-- This is only a first approximation.
|
||||||
-- It should be autogenerated by the m4 macro processor.
|
-- It should be autogenerated by the m4 macro processor.
|
||||||
-- Contributed by Daniel Eischen (deischen@iworks.InterWorks.org)
|
-- Contributed by Daniel Eischen (eischen@vigrid.com)
|
||||||
|
|
||||||
-- DO NOT EDIT this file.
|
-- DO NOT EDIT this file.
|
||||||
-- It was automatically generated from another file by the m4 macro processor.
|
-- It was automatically generated from another file by the m4 macro processor.
|
||||||
|
|
@ -87,7 +87,7 @@ with Interfaces.C;
|
||||||
package System.OS_Interface is
|
package System.OS_Interface is
|
||||||
pragma Preelaborate;
|
pragma Preelaborate;
|
||||||
|
|
||||||
pragma Linker_Options ("-lc_r");
|
pragma Linker_Options ("-pthread");
|
||||||
|
|
||||||
subtype int is Interfaces.C.int;
|
subtype int is Interfaces.C.int;
|
||||||
subtype short is Interfaces.C.short;
|
subtype short is Interfaces.C.short;
|
||||||
|
|
@ -250,7 +250,7 @@ package System.OS_Interface is
|
||||||
|
|
||||||
function sigaction
|
function sigaction
|
||||||
(sig : Signal;
|
(sig : Signal;
|
||||||
act : access struct_sigaction;
|
act : struct_sigaction_ptr;
|
||||||
oact : struct_sigaction_ptr)
|
oact : struct_sigaction_ptr)
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, sigaction, "sigaction");
|
pragma Import (C, sigaction, "sigaction");
|
||||||
|
|
@ -259,6 +259,9 @@ package System.OS_Interface is
|
||||||
-- Time --
|
-- Time --
|
||||||
----------
|
----------
|
||||||
|
|
||||||
|
Time_Slice_Supported : constant boolean := True;
|
||||||
|
-- Indicates wether time slicing is supported (i.e SCHED_RR is supported)
|
||||||
|
|
||||||
type timespec is private;
|
type timespec is private;
|
||||||
|
|
||||||
function nanosleep (rqtp, rmtp : access timespec) return int;
|
function nanosleep (rqtp, rmtp : access timespec) return int;
|
||||||
|
|
@ -297,7 +300,7 @@ package System.OS_Interface is
|
||||||
|
|
||||||
function gettimeofday
|
function gettimeofday
|
||||||
(tv : access struct_timeval;
|
(tv : access struct_timeval;
|
||||||
tz : access struct_timezone) return int;
|
tz : System.Address) return int;
|
||||||
pragma Import (C, gettimeofday, "gettimeofday");
|
pragma Import (C, gettimeofday, "gettimeofday");
|
||||||
|
|
||||||
procedure usleep (useconds : unsigned_long);
|
procedure usleep (useconds : unsigned_long);
|
||||||
|
|
@ -309,13 +312,13 @@ package System.OS_Interface is
|
||||||
-- Priority Scheduling --
|
-- Priority Scheduling --
|
||||||
-------------------------
|
-------------------------
|
||||||
|
|
||||||
MIN_PRIO : constant := 0;
|
MIN_PRIO : constant := 0;
|
||||||
MAX_PRIO : constant := 126;
|
MAX_PRIO : constant := 126;
|
||||||
|
DEFAULT_PRIO : constant := 64;
|
||||||
|
|
||||||
SCHED_RR : constant := 0;
|
SCHED_FIFO : constant := 1;
|
||||||
SCHED_IO : constant := 1;
|
SCHED_OTHER : constant := 2;
|
||||||
SCHED_FIFO : constant := 2;
|
SCHED_RR : constant := 3;
|
||||||
SCHED_OTHER : constant := 3;
|
|
||||||
|
|
||||||
-------------
|
-------------
|
||||||
-- Process --
|
-- Process --
|
||||||
|
|
@ -323,6 +326,8 @@ package System.OS_Interface is
|
||||||
|
|
||||||
type pid_t is private;
|
type pid_t is private;
|
||||||
|
|
||||||
|
Self_PID : constant pid_t;
|
||||||
|
|
||||||
function kill
|
function kill
|
||||||
(pid : pid_t;
|
(pid : pid_t;
|
||||||
sig : Signal)
|
sig : Signal)
|
||||||
|
|
@ -351,10 +356,55 @@ package System.OS_Interface is
|
||||||
PTHREAD_CREATE_DETACHED : constant := 1;
|
PTHREAD_CREATE_DETACHED : constant := 1;
|
||||||
PTHREAD_CREATE_JOINABLE : constant := 0;
|
PTHREAD_CREATE_JOINABLE : constant := 0;
|
||||||
|
|
||||||
|
-----------
|
||||||
|
-- Stack --
|
||||||
|
-----------
|
||||||
|
|
||||||
|
Stack_Base_Available : constant boolean := False;
|
||||||
|
-- Indicates wether 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, or 0 if this is not relevant on this
|
||||||
|
-- target
|
||||||
|
|
||||||
|
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 --
|
-- POSIX.1c Section 3 --
|
||||||
---------------------------
|
---------------------------
|
||||||
|
|
||||||
|
type sigset_t_ptr is access all sigset_t;
|
||||||
|
|
||||||
function sigwait
|
function sigwait
|
||||||
(set : access sigset_t;
|
(set : access sigset_t;
|
||||||
sig : access Signal)
|
sig : access Signal)
|
||||||
|
|
@ -369,8 +419,8 @@ package System.OS_Interface is
|
||||||
|
|
||||||
function pthread_sigmask
|
function pthread_sigmask
|
||||||
(how : int;
|
(how : int;
|
||||||
set : access sigset_t;
|
set : sigset_t_ptr;
|
||||||
oset : access sigset_t)
|
oset : sigset_t_ptr)
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, pthread_sigmask, "pthread_sigmask");
|
pragma Import (C, pthread_sigmask, "pthread_sigmask");
|
||||||
|
|
||||||
|
|
@ -472,44 +522,44 @@ package System.OS_Interface is
|
||||||
----------------------------
|
----------------------------
|
||||||
|
|
||||||
-- FreeBSD pthreads does not support these yet.
|
-- FreeBSD pthreads does not support these yet.
|
||||||
-- PTHREAD_PRIO_NONE : constant := 0;
|
--
|
||||||
-- PTHREAD_PRIO_PROTECT : constant := 2;
|
-- PTHREAD_PRIO_NONE : constant := 0;
|
||||||
-- PTHREAD_PRIO_INHERIT : constant := 1;
|
-- PTHREAD_PRIO_PROTECT : constant := 2;
|
||||||
|
-- PTHREAD_PRIO_INHERIT : constant := 1;
|
||||||
|
|
||||||
-- FreeBSD doesn't have pthread_getschedparam or pthread_setschedparam
|
-- FreeBSD doesn't have pthread_getschedparam or pthread_setschedparam
|
||||||
-- yet. It has pthread_getprio and pthread_setprio, so we use these
|
-- yet, but we provide the compliant interface and implement them with
|
||||||
-- instead.
|
-- pthread_getprio and pthread_setprio instead.
|
||||||
|
|
||||||
-- type struct_sched_param is record
|
type struct_sched_param is record
|
||||||
-- prio : int;
|
sched_priority : int;
|
||||||
-- no_data : System.Address;
|
end record;
|
||||||
-- end record;
|
pragma Convention (C, struct_sched_param);
|
||||||
-- pragma Convention (C, struct_sched_param);
|
|
||||||
--
|
function sched_getparam
|
||||||
-- function pthread_getschedparam
|
(pid : pid_t;
|
||||||
-- (thread : pthread_t;
|
param : access struct_sched_param)
|
||||||
-- policy : access int;
|
return int;
|
||||||
-- param : access struct_sched_param)
|
pragma Import (C, sched_getparam, "sched_getparam");
|
||||||
-- return int;
|
|
||||||
-- pragma Import (C, pthread_getschedparam, "pthread_getschedparam");
|
function sched_setscheduler
|
||||||
--
|
(pid : pid_t;
|
||||||
-- function pthread_setschedparam
|
policy : int;
|
||||||
-- (thread : pthread_t;
|
param : access struct_sched_param)
|
||||||
-- policy : int;
|
return int;
|
||||||
-- param : access struct_sched_param)
|
pragma Import (C, sched_setscheduler, "sched_setscheduler");
|
||||||
-- return int;
|
|
||||||
-- pragma Import (C, pthread_setschedparam, "pthread_setschedparam");
|
|
||||||
|
|
||||||
function pthread_getschedparam
|
function pthread_getschedparam
|
||||||
(thread : pthread_t)
|
(thread : pthread_t;
|
||||||
|
policy : access int;
|
||||||
|
param : access struct_sched_param)
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, pthread_getschedparam, "pthread_getprio");
|
|
||||||
|
|
||||||
function pthread_setschedparam
|
function pthread_setschedparam
|
||||||
(thread : pthread_t;
|
(thread : pthread_t;
|
||||||
priority : int)
|
policy : int;
|
||||||
|
param : access struct_sched_param)
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, pthread_setschedparam, "pthread_setprio");
|
|
||||||
|
|
||||||
function pthread_attr_setscope
|
function pthread_attr_setscope
|
||||||
(attr : access pthread_attr_t;
|
(attr : access pthread_attr_t;
|
||||||
|
|
@ -541,45 +591,29 @@ package System.OS_Interface is
|
||||||
(attr : access pthread_attr_t;
|
(attr : access pthread_attr_t;
|
||||||
policy : int)
|
policy : int)
|
||||||
return int;
|
return int;
|
||||||
pragma Import
|
-- pragma Import
|
||||||
(C, pthread_attr_setschedpolicy,
|
-- (C, pthread_attr_setschedpolicy,
|
||||||
"pthread_attr_setschedpolicy");
|
-- "pthread_attr_setschedpolicy");
|
||||||
|
|
||||||
function pthread_attr_getschedpolicy
|
function pthread_attr_getschedpolicy
|
||||||
(attr : access pthread_attr_t;
|
(attr : access pthread_attr_t;
|
||||||
policy : access int)
|
policy : access int)
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, pthread_attr_getschedpolicy,
|
-- pragma Import (C, pthread_attr_getschedpolicy,
|
||||||
"pthread_attr_getschedpolicy");
|
-- "pthread_attr_getschedpolicy");
|
||||||
|
|
||||||
-- FreeBSD doesn't have pthread_attr_setschedparm and
|
-- FreeBSD doesn't have pthread_attr_setschedparm and
|
||||||
-- pthread_attr_getschedparm yet. It has pthread_attr_setprio and
|
-- pthread_attr_getschedparm yet.
|
||||||
-- pthread_attr_getprio instead. It seems we don't need either one
|
|
||||||
-- of these, though.
|
|
||||||
|
|
||||||
-- function pthread_attr_setschedparam
|
-- function pthread_attr_setschedparam
|
||||||
-- (attr : access pthread_attr_t;
|
-- (attr : access pthread_attr_t;
|
||||||
-- sched_param : access struct_sched_param)
|
-- param : access struct_sched_param)
|
||||||
-- return int;
|
-- return int;
|
||||||
-- pragma Import (C, pthread_attr_setschedparam,
|
|
||||||
-- "pthread_attr_setschedparam");
|
|
||||||
--
|
--
|
||||||
-- function pthread_attr_getschedparam
|
-- function pthread_attr_getschedparam
|
||||||
-- (attr : access pthread_attr_t;
|
-- (attr : access pthread_attr_t;
|
||||||
-- sched_param : access struct_sched_param)
|
-- param : access struct_sched_param)
|
||||||
-- return int;
|
-- return int;
|
||||||
-- pragma Import (C, pthread_attr_getschedparam,
|
|
||||||
-- "pthread_attr_getschedparam");
|
|
||||||
function pthread_attr_setschedparam
|
|
||||||
(attr : access pthread_attr_t;
|
|
||||||
priority : int)
|
|
||||||
return int;
|
|
||||||
pragma Import (C, pthread_attr_setschedparam, "pthread_attr_setprio");
|
|
||||||
|
|
||||||
function pthread_attr_getschedparam
|
|
||||||
(attr : access pthread_attr_t)
|
|
||||||
return int;
|
|
||||||
pragma Import (C, pthread_attr_getschedparam, "pthread_attr_getprio");
|
|
||||||
|
|
||||||
function sched_yield return int;
|
function sched_yield return int;
|
||||||
pragma Import (C, sched_yield, "pthread_yield");
|
pragma Import (C, sched_yield, "pthread_yield");
|
||||||
|
|
@ -598,8 +632,6 @@ package System.OS_Interface is
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, pthread_attr_destroy, "pthread_attr_destroy");
|
pragma Import (C, pthread_attr_destroy, "pthread_attr_destroy");
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
function pthread_attr_setdetachstate
|
function pthread_attr_setdetachstate
|
||||||
(attr : access pthread_attr_t;
|
(attr : access pthread_attr_t;
|
||||||
detachstate : int)
|
detachstate : int)
|
||||||
|
|
@ -673,6 +705,16 @@ package System.OS_Interface is
|
||||||
return int;
|
return int;
|
||||||
pragma Import (C, pthread_key_create, "pthread_key_create");
|
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
|
private
|
||||||
|
|
||||||
|
|
@ -692,6 +734,7 @@ private
|
||||||
-- #define sa_sigaction __funcptr._sigaction
|
-- #define sa_sigaction __funcptr._sigaction
|
||||||
|
|
||||||
type pid_t is new int;
|
type pid_t is new int;
|
||||||
|
Self_PID : constant pid_t := 0;
|
||||||
|
|
||||||
type time_t is new long;
|
type time_t is new long;
|
||||||
|
|
||||||
|
|
@ -710,66 +753,15 @@ private
|
||||||
end record;
|
end record;
|
||||||
pragma Convention (C, struct_timeval);
|
pragma Convention (C, struct_timeval);
|
||||||
|
|
||||||
|
type record_type_1 is null record;
|
||||||
|
pragma Convention (C, record_type_1);
|
||||||
|
|
||||||
type enumeral_type_3 is new int;
|
type pthread_t is access record_type_1;
|
||||||
type pthread_attr_t is record
|
type pthread_attr_t is access record_type_1;
|
||||||
schedparam_policy : enumeral_type_3;
|
type pthread_mutex_t is access record_type_1;
|
||||||
prio : int;
|
type pthread_mutexattr_t is access record_type_1;
|
||||||
suspend : int;
|
type pthread_cond_t is access record_type_1;
|
||||||
flags : int;
|
type pthread_condattr_t is access record_type_1;
|
||||||
arg_attr : System.Address;
|
type pthread_key_t is new int;
|
||||||
cleanup_attr : System.Address;
|
|
||||||
stackaddr_attr : System.Address;
|
|
||||||
stacksize_attr : size_t;
|
|
||||||
end record;
|
|
||||||
pragma Convention (C, pthread_attr_t);
|
|
||||||
|
|
||||||
type enumeral_type_2 is new int;
|
|
||||||
type pthread_condattr_t is record
|
|
||||||
c_type : enumeral_type_2;
|
|
||||||
c_flags : long;
|
|
||||||
end record;
|
|
||||||
pragma Convention (C, pthread_condattr_t);
|
|
||||||
|
|
||||||
type enumeral_type_1 is new int;
|
|
||||||
type pthread_mutexattr_t is record
|
|
||||||
m_type : enumeral_type_1;
|
|
||||||
m_flags : long;
|
|
||||||
end record;
|
|
||||||
pragma Convention (C, pthread_mutexattr_t);
|
|
||||||
|
|
||||||
type record_type_3 is null record;
|
|
||||||
pragma Convention (C, record_type_3);
|
|
||||||
type pthread_t is access record_type_3;
|
|
||||||
|
|
||||||
type enumeral_type_4 is new int;
|
|
||||||
type pthread_queue_t is record
|
|
||||||
q_next : System.Address;
|
|
||||||
q_last : System.Address;
|
|
||||||
q_data : System.Address;
|
|
||||||
end record;
|
|
||||||
pragma Convention (C, pthread_queue_t);
|
|
||||||
type union_type_1 is new int;
|
|
||||||
type pthread_mutex_t is record
|
|
||||||
m_type : enumeral_type_4;
|
|
||||||
m_queue : pthread_queue_t;
|
|
||||||
m_owner : System.Address;
|
|
||||||
-- m_lock : long;
|
|
||||||
m_data : union_type_1;
|
|
||||||
m_flags : long;
|
|
||||||
end record;
|
|
||||||
pragma Convention (C, pthread_mutex_t);
|
|
||||||
|
|
||||||
type enumeral_type_5 is new int;
|
|
||||||
type pthread_cond_t is record
|
|
||||||
c_type : enumeral_type_5;
|
|
||||||
c_queue : pthread_queue_t;
|
|
||||||
-- c_lock : long;
|
|
||||||
c_data : System.Address;
|
|
||||||
c_flags : long;
|
|
||||||
end record;
|
|
||||||
pragma Convention (C, pthread_cond_t);
|
|
||||||
|
|
||||||
type pthread_key_t is new int;
|
|
||||||
|
|
||||||
end System.OS_Interface;
|
end System.OS_Interface;
|
||||||
|
|
|
||||||
File diff suppressed because it is too large
Load diff
|
|
@ -1,15 +1,14 @@
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
-- --
|
-- --
|
||||||
-- GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS --
|
-- GNU ADA RUN-TIME LIBRARY (GNARL) COMPONENTS --
|
||||||
-- --
|
-- --
|
||||||
-- S Y S T E M . T A S K _ P R I M I T I V E S --
|
-- S Y S T E M . T A S K _ P R I M I T I V E S --
|
||||||
-- --
|
-- --
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (Version for new GNARL) --
|
|
||||||
-- --
|
-- --
|
||||||
-- $Revision: 1.1 $ --
|
-- $Revision: 1.1 $ --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1991,92,93,94,95,1996 Free Software Foundation, Inc. --
|
-- Copyright (C) 1991-1997, 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- --
|
||||||
|
|
@ -36,35 +35,7 @@
|
||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
|
|
||||||
-- This is the FreeBSD PTHREADS version of this package. Contributed
|
-- This is the FreeBSD PTHREADS version of this package. Contributed
|
||||||
-- by Daniel M. Eischen (deischen@iworks.InterWorks.org).
|
-- by Daniel M. Eischen (eischen@vigrid.com).
|
||||||
|
|
||||||
-- DO NOT EDIT this file.
|
|
||||||
-- It was automatically generated from another file by the m4 macro processor.
|
|
||||||
-- The name of the file you should edit is the same as this one, but with
|
|
||||||
-- ".ads" replaced by ".sm4", or
|
|
||||||
-- ".adb" replaced by ".bm4", or
|
|
||||||
-- ".c" replaced by ".cm4", or
|
|
||||||
-- ".dat" replaced by ".tm4"
|
|
||||||
|
|
||||||
-- Local options selected:
|
|
||||||
-- __TARGET = i386-unknown-freebsd
|
|
||||||
-- __ARCH = I386
|
|
||||||
-- __OS = FREEBSD
|
|
||||||
-- __HAS_SIGCONTEXT = 1
|
|
||||||
-- __HAS_UCONTEXT = 0
|
|
||||||
-- __THREADS = POSIX_THREADS
|
|
||||||
-- __THREAD_VARIANT = ??
|
|
||||||
-- __HAS_TIMESPEC = 1
|
|
||||||
-- __HAS_NANOSLEEP = 1
|
|
||||||
-- __HAS_CLOCK_GETTIME = 0
|
|
||||||
-- __HAS_GETTIMEOFDAY = 1
|
|
||||||
-- __POSIX_THREAD_PRIO_PROTECT = 0
|
|
||||||
-- __POSIX_THREAD_PRIO_INHERIT = 0
|
|
||||||
-- __POSIX_THREAD_ATTR_STACKADDR = 1
|
|
||||||
-- __POSIX_THREAD_ATTR_STACKSIZE = 1
|
|
||||||
-- __POSIX_THREAD_PRIORITY_SCHEDULING = 0
|
|
||||||
|
|
||||||
-- This package provides low-level support for most tasking features.
|
|
||||||
|
|
||||||
with Interfaces.C;
|
with Interfaces.C;
|
||||||
-- used for int
|
-- used for int
|
||||||
|
|
@ -99,6 +70,7 @@ private
|
||||||
|
|
||||||
type Lock is new System.OS_Interface.pthread_mutex_t;
|
type Lock is new System.OS_Interface.pthread_mutex_t;
|
||||||
type RTS_Lock is new System.OS_Interface.pthread_mutex_t;
|
type RTS_Lock is new System.OS_Interface.pthread_mutex_t;
|
||||||
|
|
||||||
type Private_Data is record
|
type Private_Data is record
|
||||||
Thread : aliased System.OS_Interface.pthread_t;
|
Thread : aliased System.OS_Interface.pthread_t;
|
||||||
pragma Atomic (Thread);
|
pragma Atomic (Thread);
|
||||||
|
|
@ -107,30 +79,38 @@ private
|
||||||
-- They put the same value (thr_self value). We do not want to
|
-- They put the same value (thr_self value). We do not want to
|
||||||
-- use lock on those operations and the only thing we have to
|
-- use lock on those operations and the only thing we have to
|
||||||
-- make sure is that they are updated in atomic fashion.
|
-- make sure is that they are updated in atomic fashion.
|
||||||
CV : aliased System.OS_Interface.pthread_cond_t;
|
|
||||||
L : aliased RTS_Lock;
|
CV : aliased System.OS_Interface.pthread_cond_t;
|
||||||
|
|
||||||
|
L : aliased RTS_Lock;
|
||||||
-- protection for all components is lock L
|
-- protection for all components is lock L
|
||||||
|
|
||||||
Current_Priority : Interfaces.C.int := 0;
|
Current_Priority : Interfaces.C.int := 0;
|
||||||
-- Active priority, except that the effects of protected object
|
-- Active priority, except that the effects of protected object
|
||||||
-- priority ceilings are not reflected. This only reflects explicit
|
-- priority ceilings are not reflected. This only reflects explicit
|
||||||
-- priority changes and priority inherited through task activation
|
-- priority changes and priority inherited through task activation
|
||||||
-- and rendezvous.
|
-- and rendezvous.
|
||||||
|
--
|
||||||
-- Ada 95 notes: In Ada 95, this field will be transferred to the
|
-- Ada 95 notes: In Ada 95, this field will be transferred to the
|
||||||
-- Priority field of an Entry_Calls component when an entry call
|
-- Priority field of an Entry_Calls component when an entry call
|
||||||
-- is initiated. The Priority of the Entry_Calls component will not
|
-- is initiated. The Priority of the Entry_Calls component will not
|
||||||
-- change for the duration of the call. The accepting task can
|
-- change for the duration of the call. The accepting task can
|
||||||
-- use it to boost its own priority without fear of its changing in
|
-- use it to boost its own priority without fear of its changing in
|
||||||
-- the meantime.
|
-- the meantime.
|
||||||
|
--
|
||||||
-- This can safely be used in the priority ordering
|
-- This can safely be used in the priority ordering
|
||||||
-- of entry queues. Once a call is queued, its priority does not
|
-- of entry queues. Once a call is queued, its priority does not
|
||||||
-- change.
|
-- change.
|
||||||
|
--
|
||||||
-- Since an entry call cannot be made while executing
|
-- Since an entry call cannot be made while executing
|
||||||
-- a protected action, the priority of a task will never reflect a
|
-- a protected action, the priority of a task will never reflect a
|
||||||
-- priority ceiling change at the point of an entry call.
|
-- priority ceiling change at the point of an entry call.
|
||||||
|
--
|
||||||
-- Protection: Only written by Self, and only accessed when Acceptor
|
-- Protection: Only written by Self, and only accessed when Acceptor
|
||||||
-- accepts an entry or when Created activates, at which points Self is
|
-- accepts an entry or when Created activates, at which points Self is
|
||||||
-- suspended.
|
-- suspended.
|
||||||
Stack_Size : Interfaces.c.size_t;
|
|
||||||
|
Stack_Size : Interfaces.C.size_t;
|
||||||
-- Requested stack size.
|
-- Requested stack size.
|
||||||
-- Protection: Only used by Self.
|
-- Protection: Only used by Self.
|
||||||
end record;
|
end record;
|
||||||
|
|
|
||||||
538
lang/gnat/files/freebsdgcc28-patches
Normal file
538
lang/gnat/files/freebsdgcc28-patches
Normal file
|
|
@ -0,0 +1,538 @@
|
||||||
|
--- config/i386/freebsd.h.orig Sun Oct 19 09:31:05 1997
|
||||||
|
+++ config/i386/freebsd.h Tue Aug 11 14:28:56 1998
|
||||||
|
@@ -35,10 +35,21 @@
|
||||||
|
#include "i386/perform.h"
|
||||||
|
|
||||||
|
#undef CPP_PREDEFINES
|
||||||
|
-#define CPP_PREDEFINES "-Dunix -Di386 -D__FreeBSD__ -D__386BSD__ -Asystem(unix) -Asystem(FreeBSD) -Acpu(i386) -Amachine(i386)"
|
||||||
|
+#define CPP_PREDEFINES "-Dunix -Di386 -D__FreeBSD__=2 -Asystem(unix) -Asystem(FreeBSD) -Acpu(i386) -Amachine(i386)"
|
||||||
|
+
|
||||||
|
+/* FreeBSD using a.out does not support DWARF2 unwinding mechanisms.
|
||||||
|
+ Thus, need the equivalent of "-fsjlj-exceptions" (use setjmp/longjmp
|
||||||
|
+ for exceptions). */
|
||||||
|
+#define DWARF2_UNWIND_INFO 0
|
||||||
|
+
|
||||||
|
+/* Provide a CPP_SPEC appropriate for OpenBSD. Current we just deal with
|
||||||
|
+ the GCC option `-posix'. */
|
||||||
|
+
|
||||||
|
+#undef CPP_SPEC
|
||||||
|
+#define CPP_SPEC "%{posix:-D_POSIX_SOURCE}"
|
||||||
|
|
||||||
|
/* Like the default, except no -lg. */
|
||||||
|
-#define LIB_SPEC "%{!p:%{!pg:-lc}}%{p:-lc_p}%{pg:-lc_p}"
|
||||||
|
+#define LIB_SPEC "%{!shared:%{!pg:-lc}%{pg:-lc_p}}"
|
||||||
|
|
||||||
|
#undef SIZE_TYPE
|
||||||
|
#define SIZE_TYPE "unsigned int"
|
||||||
|
@@ -54,8 +65,13 @@
|
||||||
|
#undef WCHAR_TYPE_SIZE
|
||||||
|
#define WCHAR_TYPE_SIZE 16
|
||||||
|
|
||||||
|
+/* We have atexit(3). */
|
||||||
|
#define HAVE_ATEXIT
|
||||||
|
|
||||||
|
+/* We want gcc.c to call mktemp() for each file it generates. We would
|
||||||
|
+ prefer mkstemp(), but we will take what we get. XXX busted */
|
||||||
|
+/* #undef MKTEMP_EACH_FILE */
|
||||||
|
+
|
||||||
|
#undef ASM_APP_ON
|
||||||
|
#define ASM_APP_ON "#APP\n"
|
||||||
|
|
||||||
|
@@ -114,6 +130,7 @@
|
||||||
|
|
||||||
|
#define TYPE_ASM_OP ".type"
|
||||||
|
#define SIZE_ASM_OP ".size"
|
||||||
|
+#define SET_ASM_OP ".set"
|
||||||
|
|
||||||
|
/* The following macro defines the format used to output the second
|
||||||
|
operand of the .type assembler directive. Different svr4 assemblers
|
||||||
|
@@ -123,6 +140,16 @@
|
||||||
|
|
||||||
|
#define TYPE_OPERAND_FMT "@%s"
|
||||||
|
|
||||||
|
+/* Handle #pragma weak and #pragma pack. */
|
||||||
|
+
|
||||||
|
+#define HANDLE_SYSV_PRAGMA 1
|
||||||
|
+
|
||||||
|
+/* This is how we tell the assembler that a symbol is weak. */
|
||||||
|
+
|
||||||
|
+#define ASM_WEAKEN_LABEL(FILE,NAME) \
|
||||||
|
+ do { fputs ("\t.weak\t", FILE); assemble_name (FILE, NAME); \
|
||||||
|
+ fputc ('\n', FILE); } while (0)
|
||||||
|
+
|
||||||
|
/* Write the extra assembler code needed to declare a function's result.
|
||||||
|
Most svr4 assemblers don't require any special declaration of the
|
||||||
|
result value, but there are exceptions. */
|
||||||
|
@@ -131,9 +158,9 @@
|
||||||
|
#define ASM_DECLARE_RESULT(FILE, RESULT)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
-/* These macros generate the special .type and .size directives which
|
||||||
|
+/* these macros generate the special .type and .size directives which
|
||||||
|
are used to set the corresponding fields of the linker symbol table
|
||||||
|
- entries in an ELF object file under SVR4. These macros also output
|
||||||
|
+ entries in an elf object file under svr4. these macros also output
|
||||||
|
the starting labels for the relevant functions/objects. */
|
||||||
|
|
||||||
|
/* Write the extra assembler code needed to declare a function properly.
|
||||||
|
@@ -185,6 +212,7 @@
|
||||||
|
&& DECL_INITIAL (DECL) == error_mark_node \
|
||||||
|
&& !size_directive_output) \
|
||||||
|
{ \
|
||||||
|
+ size_directive_output = 1; \
|
||||||
|
fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
|
||||||
|
assemble_name (FILE, name); \
|
||||||
|
fprintf (FILE, ",%d\n", int_size_in_bytes (TREE_TYPE (DECL)));\
|
||||||
|
@@ -213,33 +241,57 @@
|
||||||
|
} \
|
||||||
|
} while (0)
|
||||||
|
|
||||||
|
+/* XXX - should ASM_SPEC be " %| %{fpic:-k} %{fPIC:-k -K}" ??? */
|
||||||
|
#define ASM_SPEC " %| %{fpic:-k} %{fPIC:-k}"
|
||||||
|
+
|
||||||
|
#define LINK_SPEC \
|
||||||
|
- "%{!nostdlib:%{!r*:%{!e*:-e start}}} -dc -dp %{static:-Bstatic} %{assert*}"
|
||||||
|
+ "%{p:%e`-p' not supported; use `-pg' and gprof(1)} \
|
||||||
|
+ %{shared:-Bshareable} \
|
||||||
|
+ %{!shared:%{!nostdlib:%{!r:%{!e*:-e start}}} -dc -dp %{static:-Bstatic} \
|
||||||
|
+ %{pg:-Bstatic} %{Z}} \
|
||||||
|
+ %{assert*} %{R*}"
|
||||||
|
+
|
||||||
|
+#ifdef FROM_OPENBSD
|
||||||
|
+/* This defines which switch letters take arguments.
|
||||||
|
+ make -R /path/to/lib work the same as -R/path/to/lib */
|
||||||
|
+#undef SWITCH_TAKES_ARG
|
||||||
|
+#define SWITCH_TAKES_ARG(CHAR) \
|
||||||
|
+ (DEFAULT_SWITCH_TAKES_ARG(CHAR) \
|
||||||
|
+ || (CHAR) == 'R')
|
||||||
|
+#endif
|
||||||
|
+
|
||||||
|
+#define STARTFILE_SPEC \
|
||||||
|
+ "%{shared:c++rt0.o%s} \
|
||||||
|
+ %{!shared:%{pg:gcrt0.o%s}%{!pg:%{static:scrt0.o%s}%{!static:crt0.o%s}}}"
|
||||||
|
|
||||||
|
-/* This is defined when gcc is compiled in the BSD-directory-tree, and must
|
||||||
|
- * make up for the gap to all the stuff done in the GNU-makefiles.
|
||||||
|
+#define MD_STARTFILE_PREFIX "/usr/lib/aout/"
|
||||||
|
+
|
||||||
|
+/* FREEBSD_NATIVE is defined when gcc is compiled in the BSD-directory-tree,
|
||||||
|
+ * and must make up for the gap to all the stuff done in the GNU-makefiles.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef FREEBSD_NATIVE
|
||||||
|
|
||||||
|
-#define INCLUDE_DEFAULTS { \
|
||||||
|
- { "/usr/include", 0, 0, 0 }, \
|
||||||
|
- { "/usr/include/g++", "G++", 1, 1 }, \
|
||||||
|
- { 0, 0, 0, 0} \
|
||||||
|
- }
|
||||||
|
+#undef GCC_INCLUDE_DIR
|
||||||
|
+#define GCC_INCLUDE_DIR "/usr/include"
|
||||||
|
+
|
||||||
|
+#undef GPLUSPLUS_INCLUDE_DIR
|
||||||
|
+#define GPLUSPLUS_INCLUDE_DIR "/usr/include/g++"
|
||||||
|
+
|
||||||
|
+/* Look for the include files in the system-defined places. */
|
||||||
|
+
|
||||||
|
+#undef INCLUDE_DEFAULTS
|
||||||
|
+#define INCLUDE_DEFAULTS \
|
||||||
|
+ { \
|
||||||
|
+ { GPLUSPLUS_INCLUDE_DIR, "G++", 1, 1 }, \
|
||||||
|
+ { GCC_INCLUDE_DIR, 0, 0, 0 }, \
|
||||||
|
+ { 0, 0, 0, 0 } \
|
||||||
|
+ }
|
||||||
|
|
||||||
|
#undef MD_EXEC_PREFIX
|
||||||
|
#define MD_EXEC_PREFIX "/usr/libexec/"
|
||||||
|
|
||||||
|
#undef STANDARD_STARTFILE_PREFIX
|
||||||
|
#define STANDARD_STARTFILE_PREFIX "/usr/lib"
|
||||||
|
-
|
||||||
|
-#if 0 /* This is very wrong!!! */
|
||||||
|
-#define DEFAULT_TARGET_MACHINE "i386-unknown-freebsd_1.0"
|
||||||
|
-#define GPLUSPLUS_INCLUDE_DIR "/usr/local/lib/gcc-lib/i386-unknown-freebsd_1.0/2.5.8/include"
|
||||||
|
-#define TOOL_INCLUDE_DIR "/usr/local/i386-unknown-freebsd_1.0/include"
|
||||||
|
-#define GCC_INCLUDE_DIR "/usr/local/lib/gcc-lib/i386-unknown-freebsd_1.0/2.5.8/include"
|
||||||
|
-#endif
|
||||||
|
|
||||||
|
#endif /* FREEBSD_NATIVE */
|
||||||
|
--- configure.orig Sat Feb 28 18:02:02 1998
|
||||||
|
+++ configure Tue Aug 11 13:51:17 1998
|
||||||
|
@@ -677,9 +677,9 @@
|
||||||
|
if test -z "$ac_aux_dir"; then
|
||||||
|
{ echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
|
||||||
|
fi
|
||||||
|
-ac_config_guess=$ac_aux_dir/config.guess
|
||||||
|
-ac_config_sub=$ac_aux_dir/config.sub
|
||||||
|
-ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
|
||||||
|
+ac_config_guess="/bin/sh $ac_aux_dir/config.guess"
|
||||||
|
+ac_config_sub="/bin/sh $ac_aux_dir/config.sub"
|
||||||
|
+ac_configure="/bin/sh $ac_aux_dir/configure" # This should be Cygnus configure.
|
||||||
|
|
||||||
|
|
||||||
|
# Do some error checking and defaulting for the host and target type.
|
||||||
|
@@ -2797,6 +2797,20 @@
|
||||||
|
a29k-*-*) # Default a29k environment.
|
||||||
|
use_collect2=yes
|
||||||
|
;;
|
||||||
|
+ alpha*-*-freebsd*)
|
||||||
|
+ tm_file=alpha/freebsd.h
|
||||||
|
+ # On FreeBSD, the headers are already ok, except for math.h. (??right??)
|
||||||
|
+ fixincludes=fixinc.math
|
||||||
|
+ fixincludes=fixinc.math
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ ;;
|
||||||
|
+ alpha-*-openbsd*)
|
||||||
|
+ tm_file=alpha/openbsd.h
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ ;;
|
||||||
|
alpha*-*-linux-gnuecoff*)
|
||||||
|
tm_file="${tm_file} alpha/linux.h"
|
||||||
|
xm_file="${xm_file} alpha/xm-linux.h"
|
||||||
|
@@ -3158,6 +3172,14 @@
|
||||||
|
use_collect2=yes
|
||||||
|
fixincludes=Makefile.in
|
||||||
|
;;
|
||||||
|
+ hppa*-*-openbsd*)
|
||||||
|
+ target_cpu_default=1
|
||||||
|
+ tm_file="pa/pa-openbsd.h"
|
||||||
|
+ xm_file=pa/xm-openbsd.h
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ use_collect2=yes
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ ;;
|
||||||
|
i370-*-mvs*)
|
||||||
|
;;
|
||||||
|
i[34567]86-ibm-aix*) # IBM PS/2 running AIX
|
||||||
|
@@ -3277,6 +3299,13 @@
|
||||||
|
fixincludes=fixinc.math
|
||||||
|
tmake_file=t-netbsd
|
||||||
|
;;
|
||||||
|
+ i[34567]86-*-openbsd*)
|
||||||
|
+ tm_file=i386/openbsd.h
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ ;;
|
||||||
|
i[34567]86-*-coff*)
|
||||||
|
tm_file=i386/i386-coff.h
|
||||||
|
tmake_file=i386/t-i386bare
|
||||||
|
@@ -3964,6 +3993,13 @@
|
||||||
|
fixincludes=fixinc.math
|
||||||
|
tmake_file=t-netbsd
|
||||||
|
;;
|
||||||
|
+ m68k-*-openbsd*)
|
||||||
|
+ tm_file=m68k/openbsd.h
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ ;;
|
||||||
|
m68k-*-sysv3*) # Motorola m68k's running system V.3
|
||||||
|
xm_file=m68k/xm-m68kv.h
|
||||||
|
xmake_file=m68k/x-m68kv
|
||||||
|
@@ -4273,6 +4309,20 @@
|
||||||
|
prefix=$native_prefix
|
||||||
|
fi
|
||||||
|
;;
|
||||||
|
+ mips*el-*-openbsd*) # MIPS running OpenBSD
|
||||||
|
+ tm_file=mips/openbsd-le.h
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ ;;
|
||||||
|
+ mips*-*-openbsd*) # MIPS big-endian running OpenBSD
|
||||||
|
+ tm_file=mips/openbsd-be.h
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ ;;
|
||||||
|
mips-sony-bsd* | mips-sony-newsos*) # Sony NEWS 3600 or risc/news.
|
||||||
|
tm_file=mips/news4.h
|
||||||
|
if [ x$stabs = xyes ]; then
|
||||||
|
@@ -4612,6 +4662,13 @@
|
||||||
|
fixincludes=fixinc.math
|
||||||
|
tmake_file=t-netbsd
|
||||||
|
;;
|
||||||
|
+ ns32k-*-openbsd*)
|
||||||
|
+ tm_file=ns32k/openbsd.h
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ ;;
|
||||||
|
pdp11-*-bsd)
|
||||||
|
tm_file="${tm_file} pdp11/2bsd.h"
|
||||||
|
;;
|
||||||
|
@@ -4625,10 +4682,23 @@
|
||||||
|
romp-*-aos*)
|
||||||
|
use_collect2=yes
|
||||||
|
;;
|
||||||
|
+ romp-*-openbsd*)
|
||||||
|
+ tm_file=romp/openbsd.h
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ xmake_file=romp/x-openbsd
|
||||||
|
+ ;;
|
||||||
|
romp-*-mach*)
|
||||||
|
xmake_file=romp/x-mach
|
||||||
|
use_collect2=yes
|
||||||
|
;;
|
||||||
|
+ powerpc-*-*bsd*)
|
||||||
|
+ tm_file=rs6000/openbsd.h
|
||||||
|
+ tmake_file=rs6000/t-openbsd
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ xmake_file=rs6000/x-openbsd
|
||||||
|
+ ;;
|
||||||
|
powerpc-*-sysv* | powerpc-*-elf*)
|
||||||
|
tm_file=rs6000/sysv4.h
|
||||||
|
xm_file=rs6000/xm-sysv4.h
|
||||||
|
@@ -4841,6 +4911,13 @@
|
||||||
|
fixincludes=fixinc.math
|
||||||
|
tmake_file=t-netbsd
|
||||||
|
;;
|
||||||
|
+ sparc-*-openbsd*)
|
||||||
|
+ tm_file=sparc/openbsd.h
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ tmake_file=t-libc-ok
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
+ ;;
|
||||||
|
sparc-*-bsd*)
|
||||||
|
tm_file=sparc/bsd.h
|
||||||
|
;;
|
||||||
|
@@ -5009,6 +5086,14 @@
|
||||||
|
# On NetBSD, the headers are already okay, except for math.h.
|
||||||
|
fixincludes=fixinc.math
|
||||||
|
tmake_file=t-netbsd
|
||||||
|
+ float_format=vax
|
||||||
|
+ ;;
|
||||||
|
+ vax-*-openbsd*)
|
||||||
|
+ tm_file=vax/openbsd.h
|
||||||
|
+ tmake_file="t-libc-ok vax/t-openbsd"
|
||||||
|
+ # On OpenBSD, the headers are already okay.
|
||||||
|
+ fixincludes=Makefile.in
|
||||||
|
+ xmake_file=x-openbsd
|
||||||
|
float_format=vax
|
||||||
|
;;
|
||||||
|
vax-*-ultrix*) # vaxen running ultrix
|
||||||
|
--- choose-temp.c.orig Thu Dec 4 06:17:56 1997
|
||||||
|
+++ choose-temp.c Tue Aug 11 04:05:05 1998
|
||||||
|
@@ -107,12 +107,17 @@
|
||||||
|
base = try (getenv ("TMP"), base);
|
||||||
|
base = try (getenv ("TEMP"), base);
|
||||||
|
|
||||||
|
+#ifdef COMMENT_OUT /* XXX - P_tmpdir is not /tmp in 4.4BSD */
|
||||||
|
#ifdef P_tmpdir
|
||||||
|
base = try (P_tmpdir, base);
|
||||||
|
#endif
|
||||||
|
+#endif /* XXX */
|
||||||
|
|
||||||
|
/* Try /usr/tmp, then /tmp. */
|
||||||
|
+#ifdef COMMENT_OUT /* XXX - want /tmp used, peroid. Sometimes pkg_add can
|
||||||
|
+ create a /usr/tmp, so beware. */
|
||||||
|
base = try (usrtmp, base);
|
||||||
|
+#endif /* XXX */
|
||||||
|
base = try (tmp, base);
|
||||||
|
|
||||||
|
/* If all else fails, use the current directory! */
|
||||||
|
--- flags.h.orig Wed Dec 31 05:02:33 1997
|
||||||
|
+++ flags.h Tue Aug 11 13:31:22 1998
|
||||||
|
@@ -216,6 +216,20 @@
|
||||||
|
|
||||||
|
extern int flag_unroll_all_loops;
|
||||||
|
|
||||||
|
+/* Nonzero forces all invariant computations in loops to be moved
|
||||||
|
+ outside the loop. */
|
||||||
|
+
|
||||||
|
+extern int flag_move_all_movables;
|
||||||
|
+
|
||||||
|
+/* Nonzero forces all general induction variables in loops to be
|
||||||
|
+ strength reduced. */
|
||||||
|
+
|
||||||
|
+extern int flag_reduce_all_givs;
|
||||||
|
+
|
||||||
|
+/* Nonzero gets another run of loop_optimize performed. */
|
||||||
|
+
|
||||||
|
+extern int flag_rerun_loop_opt;
|
||||||
|
+
|
||||||
|
/* Nonzero for -fcse-follow-jumps:
|
||||||
|
have cse follow jumps to do a more extensive job. */
|
||||||
|
|
||||||
|
--- toplev.c.orig Wed Feb 25 18:04:46 1998
|
||||||
|
+++ toplev.c Tue Aug 11 14:40:22 1998
|
||||||
|
@@ -463,6 +463,20 @@
|
||||||
|
|
||||||
|
int flag_unroll_all_loops;
|
||||||
|
|
||||||
|
+/* Nonzero forces all invariant computations in loops to be moved
|
||||||
|
+ outside the loop. */
|
||||||
|
+
|
||||||
|
+int flag_move_all_movables = 0;
|
||||||
|
+
|
||||||
|
+/* Nonzero forces all general induction variables in loops to be
|
||||||
|
+ strength reduced. */
|
||||||
|
+
|
||||||
|
+int flag_reduce_all_givs = 0;
|
||||||
|
+
|
||||||
|
+/* Nonzero gets another run of loop_optimize performed. */
|
||||||
|
+
|
||||||
|
+int flag_rerun_loop_opt = 0;
|
||||||
|
+
|
||||||
|
/* Nonzero for -fwritable-strings:
|
||||||
|
store string constants in data segment and don't uniquize them. */
|
||||||
|
|
||||||
|
--- loop.c.orig Fri Feb 6 11:23:34 1998
|
||||||
|
+++ loop.c Tue Aug 11 16:57:35 1998
|
||||||
|
@@ -1637,6 +1637,7 @@
|
||||||
|
extra cost because something else was already moved. */
|
||||||
|
|
||||||
|
if (already_moved[regno]
|
||||||
|
+ || flag_move_all_movables
|
||||||
|
|| (threshold * savings * m->lifetime) >= insn_count
|
||||||
|
|| (m->forces && m->forces->done
|
||||||
|
&& n_times_used[m->forces->regno] == 1))
|
||||||
|
@@ -3911,7 +3912,7 @@
|
||||||
|
of such giv's whether or not we know they are used after the loop
|
||||||
|
exit. */
|
||||||
|
|
||||||
|
- if (v->lifetime * threshold * benefit < insn_count
|
||||||
|
+ if (!flag_reduce_all_givs && v->lifetime * threshold * benefit < insn_count
|
||||||
|
&& ! bl->reversed)
|
||||||
|
{
|
||||||
|
if (loop_dump_stream)
|
||||||
|
--- cp/lex.c.orig Wed Nov 26 12:13:20 1997
|
||||||
|
+++ cp/lex.c Tue Aug 11 13:37:17 1998
|
||||||
|
@@ -3329,6 +3329,14 @@
|
||||||
|
token_buffer[0] = '^';
|
||||||
|
token_buffer[1] = 0;
|
||||||
|
}
|
||||||
|
+ else if (ptr->token == NAMESPACE)
|
||||||
|
+ {
|
||||||
|
+ static int warned;
|
||||||
|
+ if (! warned)
|
||||||
|
+ warning ("namespaces are mostly broken in this version of g++");
|
||||||
|
+
|
||||||
|
+ warned = 1;
|
||||||
|
+ }
|
||||||
|
|
||||||
|
value = (int) ptr->token;
|
||||||
|
}
|
||||||
|
--- gcc.1.orig Tue Feb 17 10:44:00 1998
|
||||||
|
+++ gcc.1 Tue Aug 11 13:30:01 1998
|
||||||
|
@@ -182,7 +182,7 @@
|
||||||
|
\-Waggregate\-return
|
||||||
|
\-Wcast\-align
|
||||||
|
\-Wcast\-qual
|
||||||
|
-\-Wchar\-subscript
|
||||||
|
+\-Wchar\-subscripts
|
||||||
|
\-Wcomment
|
||||||
|
\-Wconversion
|
||||||
|
\-Wenum\-clash
|
||||||
|
--- invoke.texi.orig Tue Feb 17 10:54:05 1998
|
||||||
|
+++ invoke.texi Tue Aug 11 13:29:38 1998
|
||||||
|
@@ -115,7 +115,7 @@
|
||||||
|
@smallexample
|
||||||
|
-fsyntax-only -pedantic -pedantic-errors
|
||||||
|
-w -W -Wall -Waggregate-return -Wbad-function-cast
|
||||||
|
--Wcast-align -Wcast-qual -Wchar-subscript -Wcomment
|
||||||
|
+-Wcast-align -Wcast-qual -Wchar-subscripts -Wcomment
|
||||||
|
-Wconversion -Werror -Wformat
|
||||||
|
-Wid-clash-@var{len} -Wimplicit -Wimplicit-int
|
||||||
|
-Wimplicit-function-declarations -Wimport -Winline
|
||||||
|
@@ -153,6 +153,7 @@
|
||||||
|
-frerun-cse-after-loop -fschedule-insns
|
||||||
|
-fschedule-insns2 -fstrength-reduce -fthread-jumps
|
||||||
|
-funroll-all-loops -funroll-loops
|
||||||
|
+-fmove-all-movables -freduce-all-givs -frerun-loop-opt
|
||||||
|
-O -O0 -O1 -O2 -O3
|
||||||
|
@end smallexample
|
||||||
|
|
||||||
|
@@ -2284,6 +2285,47 @@
|
||||||
|
Perform the optimization of loop unrolling. This is done for all loops
|
||||||
|
and usually makes programs run more slowly. @samp{-funroll-all-loops}
|
||||||
|
implies @samp{-fstrength-reduce} as well as @samp{-frerun-cse-after-loop}.
|
||||||
|
+
|
||||||
|
+@item -fmove-all-movables
|
||||||
|
+Forces all invariant computations in loops to be moved
|
||||||
|
+outside the loop.
|
||||||
|
+This option is provided primarily to improve performance
|
||||||
|
+for some Fortran code, though it might improve code written
|
||||||
|
+in other languages.
|
||||||
|
+
|
||||||
|
+@emph{Note:} When compiling programs written in Fortran,
|
||||||
|
+this option is enabled by default.
|
||||||
|
+
|
||||||
|
+Analysis of Fortran code optimization and the resulting
|
||||||
|
+optimizations triggered by this option, and the
|
||||||
|
+@samp{-freduce-all-givs} and @samp{-frerun-loop-opt}
|
||||||
|
+options as well, were
|
||||||
|
+contributed by Toon Moene (@code{toon@@moene.indiv.nluug.nl}).
|
||||||
|
+
|
||||||
|
+Please let us (@code{fortran@@gnu.ai.mit.edu})
|
||||||
|
+know how use of these options affects
|
||||||
|
+the performance of your production code.
|
||||||
|
+We're very interested in code that runs @emph{slower}
|
||||||
|
+when these options are @emph{enabled}.
|
||||||
|
+
|
||||||
|
+@item -freduce-all-givs
|
||||||
|
+Forces all general-induction variables in loops to be
|
||||||
|
+strength-reduced.
|
||||||
|
+This option is provided primarily to improve performance
|
||||||
|
+for some Fortran code, though it might improve code written
|
||||||
|
+in other languages.
|
||||||
|
+
|
||||||
|
+@emph{Note:} When compiling programs written in Fortran,
|
||||||
|
+this option is enabled by default.
|
||||||
|
+
|
||||||
|
+@item -frerun-loop-opt
|
||||||
|
+Runs loop optimizations a second time.
|
||||||
|
+This option is provided primarily to improve performance
|
||||||
|
+for some Fortran code, though it might improve code written
|
||||||
|
+in other languages.
|
||||||
|
+
|
||||||
|
+@emph{Note:} When compiling programs written in Fortran,
|
||||||
|
+this option is enabled by default.
|
||||||
|
|
||||||
|
@item -fno-peephole
|
||||||
|
Disable any machine-specific peephole optimizations.
|
||||||
|
--- config/alpha/alpha.c.orig Fri Feb 6 17:23:50 1998
|
||||||
|
+++ config/alpha/alpha.c Tue Aug 11 04:06:42 1998
|
||||||
|
@@ -1843,7 +1843,7 @@
|
||||||
|
/* Write a version stamp. Don't write anything if we are running as a
|
||||||
|
cross-compiler. Otherwise, use the versions in /usr/include/stamp.h. */
|
||||||
|
|
||||||
|
-#if !defined(CROSS_COMPILE) && !defined(_WIN32) && !defined(__linux__) && !defined(VMS)
|
||||||
|
+#if !defined(CROSS_COMPILE) && !defined(_WIN32) && !defined(__OpenBSD__) && !defined(__FreeBSD__) && !defined(__linux__) && !defined(VMS)
|
||||||
|
#include <stamp.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
--- ginclude/stdarg.h.orig Sat Oct 18 10:26:07 1997
|
||||||
|
+++ ginclude/stdarg.h Tue Aug 11 13:27:03 1998
|
||||||
|
@@ -64,7 +64,7 @@
|
||||||
|
|
||||||
|
#ifndef __GNUC_VA_LIST
|
||||||
|
#define __GNUC_VA_LIST
|
||||||
|
-#if defined(__svr4__) || defined(_AIX) || defined(_M_UNIX) || defined(__NetBSD__)
|
||||||
|
+#if defined(__svr4__) || defined(_AIX) || defined(_M_UNIX) || defined(__NetBSD__) || defined(__OpenBSD__)
|
||||||
|
typedef char *__gnuc_va_list;
|
||||||
|
#else
|
||||||
|
typedef void *__gnuc_va_list;
|
||||||
|
--- ginclude/stddef.h.orig Mon Oct 28 04:35:28 1996
|
||||||
|
+++ ginclude/stddef.h Tue Aug 11 13:26:05 1998
|
||||||
|
@@ -24,7 +24,7 @@
|
||||||
|
|
||||||
|
/* On 4.3bsd-net2, make sure ansi.h is included, so we have
|
||||||
|
one less case to deal with in the following. */
|
||||||
|
-#if defined (__BSD_NET2__) || defined (____386BSD____) || defined (__FreeBSD__) || defined(__NetBSD__)
|
||||||
|
+#if defined (__BSD_NET2__) || defined (____386BSD____) || defined (__FreeBSD__) || defined(__NetBSD__) || defined (__OpenBSD__)
|
||||||
|
#include <machine/ansi.h>
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
@ -1,141 +1,36 @@
|
||||||
diff -c orig/Makefile.in gcc/Makefile.in
|
*** ./Makefile.in.orig Wed Jun 23 02:34:31 1999
|
||||||
*** orig/Makefile.in Thu Mar 27 17:32:15 1997
|
--- ./Makefile.in Wed Jun 23 02:35:29 1999
|
||||||
--- gcc-2.7.2.1/Makefile.in Fri Apr 4 19:55:09 1997
|
|
||||||
***************
|
***************
|
||||||
*** 189,200 ****
|
*** 152,158 ****
|
||||||
local_prefix = /usr/local
|
ENQUIRE_LDFLAGS = $(LDFLAGS)
|
||||||
# Directory in which to put host dependent programs and libraries
|
|
||||||
exec_prefix = $(prefix)
|
# Sed command to transform gcc to installed name. Overwritten by configure.
|
||||||
# Directory in which to put the executable for the command `gcc'
|
! program_transform_name = -e s,x,x,
|
||||||
bindir = $(exec_prefix)/bin
|
program_transform_cross_name = -e s,^,$(target_alias)-,
|
||||||
# Directory in which to put the directories used by the compiler.
|
|
||||||
libdir = $(exec_prefix)/lib
|
# Tools to use when building a cross-compiler.
|
||||||
# Directory in which the compiler finds executables, libraries, etc.
|
--- 152,158 ----
|
||||||
! libsubdir = $(libdir)/gcc-lib/$(target)/$(version)
|
ENQUIRE_LDFLAGS = $(LDFLAGS)
|
||||||
# Directory in which the compiler finds g++ includes.
|
|
||||||
gxx_include_dir= $(libdir)/g++-include
|
# Sed command to transform gcc to installed name. Overwritten by configure.
|
||||||
# Directory to search for site-specific includes.
|
! program_transform_name = -e s,^,ada,
|
||||||
--- 189,202 ----
|
program_transform_cross_name = -e s,^,$(target_alias)-,
|
||||||
local_prefix = /usr/local
|
|
||||||
# Directory in which to put host dependent programs and libraries
|
# Tools to use when building a cross-compiler.
|
||||||
exec_prefix = $(prefix)
|
|
||||||
+ # directory to hold compilers
|
|
||||||
+ compdir = $(prefix)/libexec/ada
|
|
||||||
# Directory in which to put the executable for the command `gcc'
|
|
||||||
bindir = $(exec_prefix)/bin
|
|
||||||
# Directory in which to put the directories used by the compiler.
|
|
||||||
libdir = $(exec_prefix)/lib
|
|
||||||
# Directory in which the compiler finds executables, libraries, etc.
|
|
||||||
! libsubdir = $(libdir)
|
|
||||||
# Directory in which the compiler finds g++ includes.
|
|
||||||
gxx_include_dir= $(libdir)/g++-include
|
|
||||||
# Directory to search for site-specific includes.
|
|
||||||
***************
|
***************
|
||||||
*** 213,219 ****
|
*** 2151,2157 ****
|
||||||
mandir = $(prefix)/man/man1
|
# Install the driver last so that the window when things are
|
||||||
# Directory in which to find other cross-compilation tools and headers.
|
# broken is small.
|
||||||
# Used in install-cross.
|
install-normal: install-common $(INSTALL_HEADERS) $(INSTALL_LIBGCC) \
|
||||||
! tooldir = $(exec_prefix)/$(target)
|
! install-man install-info lang.install-normal install-driver
|
||||||
# Dir for temp files.
|
|
||||||
tmpdir = /tmp
|
|
||||||
|
|
||||||
--- 215,221 ----
|
# Do nothing while making gcc with a cross-compiler. The person who
|
||||||
mandir = $(prefix)/man/man1
|
# makes gcc for the target machine has to know how to put a complete
|
||||||
# Directory in which to find other cross-compilation tools and headers.
|
--- 2151,2157 ----
|
||||||
# Used in install-cross.
|
# Install the driver last so that the window when things are
|
||||||
! tooldir = $(exec_prefix)
|
# broken is small.
|
||||||
# Dir for temp files.
|
install-normal: install-common $(INSTALL_HEADERS) $(INSTALL_LIBGCC) \
|
||||||
tmpdir = /tmp
|
! install-man lang.install-normal install-driver
|
||||||
|
|
||||||
***************
|
# Do nothing while making gcc with a cross-compiler. The person who
|
||||||
*** 1141,1148 ****
|
# makes gcc for the target machine has to know how to put a complete
|
||||||
|
|
||||||
gcc.o: gcc.c $(CONFIG_H) multilib.h config.status $(lang_specs_files)
|
|
||||||
$(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
|
|
||||||
-DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
|
|
||||||
! -DSTANDARD_EXEC_PREFIX=\"$(libdir)/gcc-lib/\" \
|
|
||||||
-DDEFAULT_TARGET_VERSION=\"$(version)\" \
|
|
||||||
-DDEFAULT_TARGET_MACHINE=\"$(target)\" \
|
|
||||||
-DTOOLDIR_BASE_PREFIX=\"$(exec_prefix)/\" \
|
|
||||||
--- 1143,1152 ----
|
|
||||||
|
|
||||||
gcc.o: gcc.c $(CONFIG_H) multilib.h config.status $(lang_specs_files)
|
|
||||||
$(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
|
|
||||||
+ -DFREEBSD_NATIVE \
|
|
||||||
+ -DFREEBSD_PREFIX=\"$(prefix)\" \
|
|
||||||
-DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
|
|
||||||
! -DSTANDARD_EXEC_PREFIX=\"$(libdir)/\" \
|
|
||||||
-DDEFAULT_TARGET_VERSION=\"$(version)\" \
|
|
||||||
-DDEFAULT_TARGET_MACHINE=\"$(target)\" \
|
|
||||||
-DTOOLDIR_BASE_PREFIX=\"$(exec_prefix)/\" \
|
|
||||||
***************
|
|
||||||
*** 2055,2069 ****
|
|
||||||
# Create the installation directory.
|
|
||||||
install-dir:
|
|
||||||
-if [ -d $(libdir) ] ; then true ; else mkdir $(libdir) ; chmod a+rx $(libdir) ; fi
|
|
||||||
- -if [ -d $(libdir)/gcc-lib ] ; then true ; else mkdir $(libdir)/gcc-lib ; chmod a+rx $(libdir)/gcc-lib ; fi
|
|
||||||
# This dir isn't currently searched by cpp.
|
|
||||||
# -if [ -d $(libdir)/gcc-lib/include ] ; then true ; else mkdir $(libdir)/gcc-lib/include ; chmod a+rx $(libdir)/gcc-lib/include ; fi
|
|
||||||
! -if [ -d $(libdir)/gcc-lib/$(target) ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target) ; chmod a+rx $(libdir)/gcc-lib/$(target) ; fi
|
|
||||||
! -if [ -d $(libdir)/gcc-lib/$(target)/$(version) ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target)/$(version) ; chmod a+rx $(libdir)/gcc-lib/$(target)/$(version) ; fi
|
|
||||||
! -if [ -d $(libdir)/gcc-lib/$(target)/$(version)/include ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target)/$(version)/include ; chmod a+rx $(libdir)/gcc-lib/$(target)/$(version)/include ; fi
|
|
||||||
-if [ -d $(bindir) ] ; then true ; else mkdir $(bindir) ; chmod a+rx $(bindir) ; fi
|
|
||||||
-if [ -d $(includedir) ] ; then true ; else mkdir $(includedir) ; chmod a+rx $(includedir) ; fi
|
|
||||||
-if [ -d $(tooldir) ] ; then true ; else mkdir $(tooldir) ; chmod a+rx $(tooldir) ; fi
|
|
||||||
-if [ -d $(assertdir) ] ; then true ; else mkdir $(assertdir) ; chmod a+rx $(assertdir) ; fi
|
|
||||||
-if [ -d $(infodir) ] ; then true ; else mkdir $(infodir) ; chmod a+rx $(infodir) ; fi
|
|
||||||
# We don't use mkdir -p to create the parents of mandir,
|
|
||||||
--- 2059,2073 ----
|
|
||||||
# Create the installation directory.
|
|
||||||
install-dir:
|
|
||||||
-if [ -d $(libdir) ] ; then true ; else mkdir $(libdir) ; chmod a+rx $(libdir) ; fi
|
|
||||||
# This dir isn't currently searched by cpp.
|
|
||||||
# -if [ -d $(libdir)/gcc-lib/include ] ; then true ; else mkdir $(libdir)/gcc-lib/include ; chmod a+rx $(libdir)/gcc-lib/include ; fi
|
|
||||||
! # -if [ -d $(libdir)/gcc-lib/$(target) ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target) ; chmod a+rx $(libdir)/gcc-lib/$(target) ; fi
|
|
||||||
! # -if [ -d $(libdir)/gcc-lib/$(target)/$(version) ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target)/$(version) ; chmod a+rx $(libdir)/gcc-lib/$(target)/$(version) ; fi
|
|
||||||
! # -if [ -d $(libdir)/gcc-lib/$(target)/$(version)/include ] ; then true ; else mkdir $(libdir)/gcc-lib/$(target)/$(version)/include ; chmod a+rx $(libdir)/gcc-lib/$(target)/$(version)/include ; fi
|
|
||||||
-if [ -d $(bindir) ] ; then true ; else mkdir $(bindir) ; chmod a+rx $(bindir) ; fi
|
|
||||||
-if [ -d $(includedir) ] ; then true ; else mkdir $(includedir) ; chmod a+rx $(includedir) ; fi
|
|
||||||
-if [ -d $(tooldir) ] ; then true ; else mkdir $(tooldir) ; chmod a+rx $(tooldir) ; fi
|
|
||||||
+ -if [ -d $(compdir) ] ; then true ; else mkdir $(compdir) ; chmod a+rx $(compdir) ; fi
|
|
||||||
-if [ -d $(assertdir) ] ; then true ; else mkdir $(assertdir) ; chmod a+rx $(assertdir) ; fi
|
|
||||||
-if [ -d $(infodir) ] ; then true ; else mkdir $(infodir) ; chmod a+rx $(infodir) ; fi
|
|
||||||
# We don't use mkdir -p to create the parents of mandir,
|
|
||||||
***************
|
|
||||||
*** 2077,2084 ****
|
|
||||||
install-common: native install-dir $(EXTRA_PARTS) lang.install-common
|
|
||||||
for file in $(COMPILERS); do \
|
|
||||||
if [ -f $$file ] ; then \
|
|
||||||
! rm -f $(libsubdir)/$$file; \
|
|
||||||
! $(INSTALL_PROGRAM) $$file $(libsubdir)/$$file; \
|
|
||||||
else true; \
|
|
||||||
fi; \
|
|
||||||
done
|
|
||||||
--- 2081,2088 ----
|
|
||||||
install-common: native install-dir $(EXTRA_PARTS) lang.install-common
|
|
||||||
for file in $(COMPILERS); do \
|
|
||||||
if [ -f $$file ] ; then \
|
|
||||||
! rm -f $(compdir)/$$file; \
|
|
||||||
! $(INSTALL_PROGRAM) $$file $(compdir)/$$file; \
|
|
||||||
else true; \
|
|
||||||
fi; \
|
|
||||||
done
|
|
||||||
***************
|
|
||||||
*** 2110,2117 ****
|
|
||||||
$(INSTALL_DATA) SYSCALLS.c.X $(libsubdir)/SYSCALLS.c.X; \
|
|
||||||
chmod a-x $(libsubdir)/SYSCALLS.c.X; \
|
|
||||||
fi
|
|
||||||
! -rm -f $(libsubdir)/cpp$(exeext)
|
|
||||||
! $(INSTALL_PROGRAM) cpp$(exeext) $(libsubdir)/cpp$(exeext)
|
|
||||||
|
|
||||||
# Install the driver program as $(target)-gcc
|
|
||||||
# and also as either gcc (if native) or $(tooldir)/bin/gcc.
|
|
||||||
--- 2114,2121 ----
|
|
||||||
$(INSTALL_DATA) SYSCALLS.c.X $(libsubdir)/SYSCALLS.c.X; \
|
|
||||||
chmod a-x $(libsubdir)/SYSCALLS.c.X; \
|
|
||||||
fi
|
|
||||||
! -rm -f $(compdir)/cpp$(exeext)
|
|
||||||
! $(INSTALL_PROGRAM) cpp$(exeext) $(compdir)/cpp$(exeext)
|
|
||||||
|
|
||||||
# Install the driver program as $(target)-gcc
|
|
||||||
# and also as either gcc (if native) or $(tooldir)/bin/gcc.
|
|
||||||
|
|
|
||||||
|
|
@ -1,36 +1,62 @@
|
||||||
diff -c orig/gcc.c gcc/gcc.c
|
*** ./config/i386/freebsd.h.orig Fri Sep 4 23:57:29 1998
|
||||||
*** orig/gcc.c Thu Apr 3 08:37:06 1997
|
--- ./config/i386/freebsd.h Fri Sep 4 23:58:54 1998
|
||||||
--- gcc-2.7.2.1/gcc.c Fri Apr 4 23:21:00 1997
|
|
||||||
***************
|
***************
|
||||||
*** 1354,1362 ****
|
*** 49,55 ****
|
||||||
#undef MD_STARTFILE_PREFIX_1
|
#define CPP_SPEC "%{posix:-D_POSIX_SOURCE}"
|
||||||
#endif
|
|
||||||
|
|
||||||
! #ifndef STANDARD_EXEC_PREFIX
|
/* Like the default, except no -lg. */
|
||||||
! #define STANDARD_EXEC_PREFIX "/usr/local/lib/gcc-lib/"
|
! #define LIB_SPEC "%{!shared:%{!pg:-lc}%{pg:-lc_p}}"
|
||||||
! #endif /* !defined STANDARD_EXEC_PREFIX */
|
|
||||||
|
|
||||||
static char *standard_exec_prefix = STANDARD_EXEC_PREFIX;
|
#undef SIZE_TYPE
|
||||||
static char *standard_exec_prefix_1 = "/usr/lib/gcc/";
|
#define SIZE_TYPE "unsigned int"
|
||||||
--- 1354,1360 ----
|
--- 49,55 ----
|
||||||
#undef MD_STARTFILE_PREFIX_1
|
#define CPP_SPEC "%{posix:-D_POSIX_SOURCE}"
|
||||||
#endif
|
|
||||||
|
|
||||||
! #define STANDARD_EXEC_PREFIX FREEBSD_PREFIX "/libexec/"
|
/* Like the default, except no -lg. */
|
||||||
|
! #define LIB_SPEC "%{!shared:%{!pg:%{!pthread:%{!kthread:-lc}%{kthread:-lpthread -lc}}%{pthread:-lc_r}}%{pg:%{!pthread:%{!kthread:-lc_p}%{kthread:-lpthread_p -lc_p}}%{pthread:-lc_r_p}}}"
|
||||||
|
|
||||||
static char *standard_exec_prefix = STANDARD_EXEC_PREFIX;
|
#undef SIZE_TYPE
|
||||||
static char *standard_exec_prefix_1 = "/usr/lib/gcc/";
|
#define SIZE_TYPE "unsigned int"
|
||||||
|
*** ./config/i386/freebsd-elf.h.orig Fri Dec 5 07:15:34 1997
|
||||||
|
--- ./config/i386/freebsd-elf.h Fri Feb 12 21:35:52 1999
|
||||||
***************
|
***************
|
||||||
*** 2708,2715 ****
|
*** 140,146 ****
|
||||||
--- 2706,2716 ----
|
#define WCHAR_TYPE_SIZE BITS_PER_WORD
|
||||||
/* Use 2 as fourth arg meaning try just the machine as a suffix,
|
|
||||||
as well as trying the machine and the version. */
|
#undef CPP_PREDEFINES
|
||||||
#ifdef FREEBSD_NATIVE
|
! #define CPP_PREDEFINES "-Dunix -D__ELF__ -D__FreeBSD__=2 -Asystem(FreeBSD)"
|
||||||
+ add_prefix (&exec_prefixes, FREEBSD_PREFIX "/libexec/ada/", 0, 0, NULL_PTR);
|
|
||||||
+ add_prefix (&exec_prefixes, FREEBSD_PREFIX "/libexec/", 0, 0, NULL_PTR);
|
#undef CPP_SPEC
|
||||||
add_prefix (&exec_prefixes, "/usr/libexec/", 0, 0, NULL_PTR);
|
#define CPP_SPEC "%(cpp_cpu) %[cpp_cpu] %{fPIC:-D__PIC__ -D__pic__} %{fpic:-D__PIC__ -D__pic__} %{posix:-D_POSIX_SOURCE}"
|
||||||
add_prefix (&exec_prefixes, "/usr/bin/", 0, 0, NULL_PTR);
|
--- 140,146 ----
|
||||||
+ add_prefix (&startfile_prefixes, FREEBSD_PREFIX "/lib/", 0, 0, NULL_PTR);
|
#define WCHAR_TYPE_SIZE BITS_PER_WORD
|
||||||
add_prefix (&startfile_prefixes, "/usr/libdata/gcc/", 0, 0, NULL_PTR);
|
|
||||||
#else /* not FREEBSD_NATIVE */
|
#undef CPP_PREDEFINES
|
||||||
#ifndef OS2
|
! #define CPP_PREDEFINES "-Di386 -Dunix -D__ELF__ -D__FreeBSD__=3 -Asystem(FreeBSD) -Asystem(FreeBSD) -Acpu(i386) -Amachine(i386)"
|
||||||
|
|
||||||
|
#undef CPP_SPEC
|
||||||
|
#define CPP_SPEC "%(cpp_cpu) %[cpp_cpu] %{fPIC:-D__PIC__ -D__pic__} %{fpic:-D__PIC__ -D__pic__} %{posix:-D_POSIX_SOURCE}"
|
||||||
|
***************
|
||||||
|
*** 152,159 ****
|
||||||
|
* -lc_p or -ggdb to LDFLAGS at the link time, respectively.
|
||||||
|
*/
|
||||||
|
#define LIB_SPEC \
|
||||||
|
! "%{!shared: %{mieee-fp:-lieee} %{p:-lgmon} %{pg:-lgmon} \
|
||||||
|
! %{!ggdb:-lc} %{ggdb:-lg}}"
|
||||||
|
#else
|
||||||
|
#define LIB_SPEC \
|
||||||
|
"%{!shared: \
|
||||||
|
--- 152,164 ----
|
||||||
|
* -lc_p or -ggdb to LDFLAGS at the link time, respectively.
|
||||||
|
*/
|
||||||
|
#define LIB_SPEC \
|
||||||
|
! "%{!shared: \
|
||||||
|
! %{!pg: \
|
||||||
|
! %{!pthread: %{!kthread:-lc} %{kthread:-lpthread -lc}} \
|
||||||
|
! %{pthread:-lc_r}} \
|
||||||
|
! %{pg: \
|
||||||
|
! %{!pthread: %{!kthread:-lc_p} %{kthread:-lpthread_p -lc_p}} \
|
||||||
|
! %{pthread:-lc_r_p}}}"
|
||||||
|
#else
|
||||||
|
#define LIB_SPEC \
|
||||||
|
"%{!shared: \
|
||||||
|
|
|
||||||
|
|
@ -1,32 +1,24 @@
|
||||||
*** gcc-2.7.2.1/ada/Makefile.in.orig Sun Nov 16 09:10:32 1997
|
*** ./ada/Makefile.in.orig Wed Jul 29 21:00:07 1998
|
||||||
--- gcc-2.7.2.1/ada/Makefile.in Sun Nov 16 09:14:37 1997
|
--- ./ada/Makefile.in Mon Aug 31 09:16:59 1998
|
||||||
***************
|
***************
|
||||||
*** 815,820 ****
|
*** 779,784 ****
|
||||||
--- 815,821 ----
|
--- 779,797 ----
|
||||||
fsu* | FSU*) letter=l;;\
|
endif
|
||||||
native | *) letter=i;;\
|
endif
|
||||||
esac;;\
|
|
||||||
+ *86*-freebsd*) letter=f ;;\
|
+ ifeq ($(strip $(filter-out %86 freebsd%,$(arch) $(osys))),)
|
||||||
mips-sgi-irix*) letter=g ;;\
|
+ LIBGNAT_TARGET_PAIRS = \
|
||||||
hppa*-hp-hpux*) letter=h ;;\
|
+ a-intnam.ads<4fintnam.ads \
|
||||||
*-ibm-aix4*) letter=c ;;\
|
+ s-inmaop.adb<7sinmaop.adb \
|
||||||
***************
|
+ s-intman.adb<5fintman.adb \
|
||||||
*** 865,870 ****
|
+ s-osinte.adb<5fosinte.adb \
|
||||||
--- 866,872 ----
|
+ s-osinte.ads<5fosinte.ads \
|
||||||
*-*-rtems* | *-rtems* |\
|
+ s-osprim.adb<7sosprim.adb \
|
||||||
*-go32-msdos | *-go32 |\
|
+ s-taprop.adb<5ftaprop.adb \
|
||||||
*86*-linux* |\
|
+ s-taspri.ads<5ftaspri.ads \
|
||||||
+ *86*-freebsd* |\
|
+ s-tpopsp.adb<7stpopsp.adb
|
||||||
mips-sni-* |\
|
+ endif
|
||||||
*) \
|
+
|
||||||
\
|
ifeq ($(strip $(filter-out mips sgi irix%,$(targ))),)
|
||||||
***************
|
LIBGNAT_TARGET_PAIRS = \
|
||||||
*** 920,925 ****
|
a-emstop.adb<4gemstop.adb \
|
||||||
--- 922,928 ----
|
|
||||||
*-*-rtems* | *-rtems* |\
|
|
||||||
*-go32-msdos | *-go32 |\
|
|
||||||
*86*-linux* |\
|
|
||||||
+ *86*-freebsd* |\
|
|
||||||
mips-sni-* |\
|
|
||||||
*-*-cygwin32* |\
|
|
||||||
*-*-mingw32* |\
|
|
||||||
|
|
|
||||||
|
|
@ -1,36 +1,19 @@
|
||||||
*** gcc-2.7.2.1/ada/make.adb.orig Thu Aug 14 00:02:45 1997
|
*** ./ada/make.adb.orig Wed Jul 29 21:01:09 1998
|
||||||
--- gcc-2.7.2.1/ada/make.adb Sun Nov 16 09:18:18 1997
|
--- ./ada/make.adb Tue Sep 1 00:24:06 1998
|
||||||
***************
|
***************
|
||||||
*** 201,207 ****
|
*** 202,208 ****
|
||||||
-- Compiler, Binder & Linker Data and Subprograms --
|
-- Compiler, Binder & Linker Data and Subprograms --
|
||||||
----------------------------------------------------
|
----------------------------------------------------
|
||||||
|
|
||||||
! Gcc : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gcc");
|
! Gcc : String_Access := Program_Name ("gcc");
|
||||||
Gnatbind : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatbind");
|
Gnatbind : String_Access := Program_Name ("gnatbind");
|
||||||
Gnatlink : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatlink");
|
Gnatlink : String_Access := Program_Name ("gnatlink");
|
||||||
|
-- Default compiler, binder, linker programs
|
||||||
--- 201,207 ----
|
--- 202,208 ----
|
||||||
-- Compiler, Binder & Linker Data and Subprograms --
|
-- Compiler, Binder & Linker Data and Subprograms --
|
||||||
----------------------------------------------------
|
----------------------------------------------------
|
||||||
|
|
||||||
! Gcc : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("adagcc");
|
! Gcc : String_Access := Program_Name ("adagcc");
|
||||||
Gnatbind : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatbind");
|
Gnatbind : String_Access := Program_Name ("gnatbind");
|
||||||
Gnatlink : String_Access := GNAT.OS_Lib.Locate_Exec_On_Path ("gnatlink");
|
Gnatlink : String_Access := Program_Name ("gnatlink");
|
||||||
|
-- Default compiler, binder, linker programs
|
||||||
***************
|
|
||||||
*** 941,947 ****
|
|
||||||
Comp_Last := Comp_Last + 1;
|
|
||||||
Comp_Args (Comp_Last) := new String'(Name_Buffer (1 .. Name_Len));
|
|
||||||
|
|
||||||
! Display ("gcc", Comp_Args (Args'First .. Comp_Last));
|
|
||||||
|
|
||||||
return
|
|
||||||
GNAT.OS_Lib.Non_Blocking_Spawn
|
|
||||||
--- 941,947 ----
|
|
||||||
Comp_Last := Comp_Last + 1;
|
|
||||||
Comp_Args (Comp_Last) := new String'(Name_Buffer (1 .. Name_Len));
|
|
||||||
|
|
||||||
! Display ("adagcc", Comp_Args (Args'First .. Comp_Last));
|
|
||||||
|
|
||||||
return
|
|
||||||
GNAT.OS_Lib.Non_Blocking_Spawn
|
|
||||||
|
|
|
||||||
|
|
@ -1,19 +1,19 @@
|
||||||
*** gcc-2.7.2.1/ada/gnatcmd.adb.orig Thu Aug 14 00:02:49 1997
|
*** ./ada/gnatcmd.adb.orig Wed Jul 29 21:01:07 1998
|
||||||
--- gcc-2.7.2.1/ada/gnatcmd.adb Sun Nov 16 09:23:23 1997
|
--- ./ada/gnatcmd.adb Tue Sep 1 00:25:06 1998
|
||||||
***************
|
***************
|
||||||
*** 987,993 ****
|
*** 988,994 ****
|
||||||
|
|
||||||
(Cname => new S'("COMPILE"),
|
(Cname => new S'("COMPILE"),
|
||||||
Usage => new S'("GNAT COMPILE file file .. file /qualifiers"),
|
Usage => new S'("GNAT COMPILE filespec[,...] /qualifiers"),
|
||||||
! Unixcmd => new S'("gcc -c"),
|
! Unixcmd => new S'("gcc -c -x ada"),
|
||||||
Switches => GCC_Switches'Access,
|
Switches => GCC_Switches'Access,
|
||||||
Minfile => 1,
|
Params => new Parameter_Array'(1 => FILES_OR_WILDCARD),
|
||||||
Maxfile => 0,
|
Defext => " "),
|
||||||
--- 987,993 ----
|
--- 988,994 ----
|
||||||
|
|
||||||
(Cname => new S'("COMPILE"),
|
(Cname => new S'("COMPILE"),
|
||||||
Usage => new S'("GNAT COMPILE file file .. file /qualifiers"),
|
Usage => new S'("GNAT COMPILE filespec[,...] /qualifiers"),
|
||||||
! Unixcmd => new S'("adagcc -c"),
|
! Unixcmd => new S'("adagcc -c -x ada"),
|
||||||
Switches => GCC_Switches'Access,
|
Switches => GCC_Switches'Access,
|
||||||
Minfile => 1,
|
Params => new Parameter_Array'(1 => FILES_OR_WILDCARD),
|
||||||
Maxfile => 0,
|
Defext => " "),
|
||||||
|
|
|
||||||
|
|
@ -1,37 +1,19 @@
|
||||||
*** gcc-2.7.2.1/ada/gnatlink.adb.orig Sun Nov 16 09:24:27 1997
|
*** ./ada/gnatlink.adb.orig Wed Jul 29 21:01:08 1998
|
||||||
--- gcc-2.7.2.1/ada/gnatlink.adb Sun Nov 16 09:25:18 1997
|
--- ./ada/gnatlink.adb Tue Sep 1 00:26:17 1998
|
||||||
***************
|
***************
|
||||||
*** 63,69 ****
|
*** 73,79 ****
|
||||||
Table_Increment => 100,
|
Table_Increment => 100,
|
||||||
Table_Name => "Gnatlink.Binder_Options");
|
Table_Name => "Gnatlink.Binder_Options");
|
||||||
|
|
||||||
! Gcc : constant String := "gcc";
|
! Gcc : String_Access := Program_Name ("gcc");
|
||||||
|
|
||||||
Read_Mode : constant String := "r" & Ascii.Nul;
|
Read_Mode : constant String := "r" & Ascii.Nul;
|
||||||
Write_Mode : constant String := "w" & Ascii.Nul;
|
|
||||||
--- 63,69 ----
|
--- 73,79 ----
|
||||||
Table_Increment => 100,
|
Table_Increment => 100,
|
||||||
Table_Name => "Gnatlink.Binder_Options");
|
Table_Name => "Gnatlink.Binder_Options");
|
||||||
|
|
||||||
! Gcc : constant String := "adagcc";
|
! Gcc : String_Access := Program_Name ("adagcc");
|
||||||
|
|
||||||
Read_Mode : constant String := "r" & Ascii.Nul;
|
Read_Mode : constant String := "r" & Ascii.Nul;
|
||||||
Write_Mode : constant String := "w" & Ascii.Nul;
|
|
||||||
***************
|
|
||||||
*** 424,430 ****
|
|
||||||
Write_Eol;
|
|
||||||
Write_Str (" [-v] -- verbose mode");
|
|
||||||
Write_Eol;
|
|
||||||
! Write_Str (" [-gnatlink name] -- full name for the linker (gcc)");
|
|
||||||
Write_Eol;
|
|
||||||
Write_Str (" [list of objects] -- non Ada binaries");
|
|
||||||
Write_Eol;
|
|
||||||
--- 424,431 ----
|
|
||||||
Write_Eol;
|
|
||||||
Write_Str (" [-v] -- verbose mode");
|
|
||||||
Write_Eol;
|
|
||||||
! Write_Str (" [-gnatlink name] -- full name for the linker " &
|
|
||||||
! "(adagcc)");
|
|
||||||
Write_Eol;
|
|
||||||
Write_Str (" [list of objects] -- non Ada binaries");
|
|
||||||
Write_Eol;
|
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
The GNU Ada Translator.
|
The GNU Ada Compiler system.
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
The GNU ada compiler Gnat 3.09 built on GCC 2.7.2.1.
|
The GNU Ada compiler system (GNAT 3.11p) built on GCC 2.8.1.
|
||||||
|
|
||||||
The libraries supplied with this version of GNAT support tasking if
|
The libraries supplied with this version of GNAT support tasking
|
||||||
minor modifications are made to FreeBSD's libc_r.
|
with FreeBSD 2.2.6+, 3.x, and 4.x versions of libc_r.
|
||||||
|
|
||||||
Maurice Castro
|
Daniel Eischen
|
||||||
maurice@serc.rmit.edu.au
|
eischen@vigrid.com
|
||||||
|
|
|
||||||
1864
lang/gnat/pkg-plist
1864
lang/gnat/pkg-plist
File diff suppressed because it is too large
Load diff
Loading…
Add table
Reference in a new issue