FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove obsolete IRIX 6.5 support

Browse source 
libstdc++-v3:
	* configure.host (irix6.5*): Remove.
	* config/os/irix: Remove.
	* config/io/basic_file_stdio.cc (__basic_file<char>::showmanyc())
	[_GLIBCXX_FIONREAD_TAKES_OFF_T]: Remove.

	* doc/xml/faq.xml: Remove IRIX reference.
	* doc/xml/manual/using.xml (Finding Dynamic or Shared Libraries):
	Remove IRIX example.

	* testsuite/20_util/shared_ptr/thread/default_weaktoshared.cc:
	Remove mips-sgi-irix6* handling.
	* testsuite/20_util/shared_ptr/thread/mutex_weaktoshared.cc: Likewise.
	* testsuite/21_strings/basic_string/pthread18185.cc: Likewise.
	* testsuite/21_strings/basic_string/pthread4.cc: Likewise.
	* testsuite/22_locale/locale/cons/12658_thread-1.cc: Likewise.
	* testsuite/22_locale/locale/cons/12658_thread-2.cc: Likewise.
	* testsuite/23_containers/list/pthread1.cc: Likewise.
	* testsuite/23_containers/list/pthread5.cc: Likewise.
	* testsuite/23_containers/map/pthread6.cc: Likewise.
	* testsuite/23_containers/vector/debug/multithreaded_swap.cc: Likewise.
	* testsuite/27_io/basic_ofstream/pthread2.cc: Likewise.
	* testsuite/27_io/basic_ostringstream/pthread3.cc: Likewise.
	* testsuite/30_threads/async/42819.cc: Likewise.
	* testsuite/30_threads/async/49668.cc: Likewise.
	* testsuite/30_threads/async/any.cc: Likewise.
	* testsuite/30_threads/async/async.cc: Likewise.
	* testsuite/30_threads/async/launch.cc: Likewise.
	* testsuite/30_threads/async/sync.cc: Likewise.
	* testsuite/30_threads/call_once/39909.cc: Likewise.
	* testsuite/30_threads/call_once/49668.cc: Likewise.
	* testsuite/30_threads/call_once/call_once1.cc: Likewise.
	* testsuite/30_threads/condition_variable/cons/1.cc: Likewise.
	* testsuite/30_threads/condition_variable/members/1.cc: Likewise.
	* testsuite/30_threads/condition_variable/members/2.cc: Likewise.
	* testsuite/30_threads/condition_variable/native_handle/typesizes.cc:
	Likewise.
	* testsuite/30_threads/condition_variable_any/50862.cc: Likewise.
	* testsuite/30_threads/condition_variable_any/cons/1.cc: Likewise.
	* testsuite/30_threads/condition_variable_any/members/1.cc: Likewise.
	* testsuite/30_threads/condition_variable_any/members/2.cc: Likewise.
	* testsuite/30_threads/future/cons/move.cc: Likewise.
	* testsuite/30_threads/future/members/45133.cc: Likewise.
	* testsuite/30_threads/future/members/get.cc: Likewise.
	* testsuite/30_threads/future/members/get2.cc: Likewise.
	* testsuite/30_threads/future/members/share.cc: Likewise.
	* testsuite/30_threads/future/members/valid.cc: Likewise.
	* testsuite/30_threads/future/members/wait.cc: Likewise.
	* testsuite/30_threads/future/members/wait_for.cc: Likewise.
	* testsuite/30_threads/future/members/wait_until.cc: Likewise.
	* testsuite/30_threads/lock/1.cc: Likewise.
	* testsuite/30_threads/lock/2.cc: Likewise.
	* testsuite/30_threads/lock/3.cc: Likewise.
	* testsuite/30_threads/lock/4.cc: Likewise.
	* testsuite/30_threads/lock_guard/cons/1.cc: Likewise.
	* testsuite/30_threads/mutex/cons/1.cc: Likewise.
	* testsuite/30_threads/mutex/dest/destructor_locked.cc: Likewise.
	* testsuite/30_threads/mutex/lock/1.cc: Likewise.
	* testsuite/30_threads/mutex/native_handle/1.cc: Likewise.
	* testsuite/30_threads/mutex/native_handle/typesizes.cc: Likewise.
	* testsuite/30_threads/mutex/try_lock/1.cc: Likewise.
	* testsuite/30_threads/mutex/try_lock/2.cc: Likewise.
	* testsuite/30_threads/mutex/unlock/1.cc: Likewise.
	* testsuite/30_threads/packaged_task/49668.cc: Likewise.
	* testsuite/30_threads/packaged_task/cons/1.cc: Likewise.
	* testsuite/30_threads/packaged_task/cons/2.cc: Likewise.
	* testsuite/30_threads/packaged_task/cons/3.cc: Likewise.
	* testsuite/30_threads/packaged_task/cons/alloc.cc: Likewise.
	* testsuite/30_threads/packaged_task/cons/move.cc: Likewise.
	* testsuite/30_threads/packaged_task/cons/move_assign.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/get_future.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/get_future2.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/invoke.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/invoke2.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/invoke3.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/invoke4.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/invoke5.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/reset.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/reset2.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/swap.cc: Likewise.
	* testsuite/30_threads/packaged_task/members/valid.cc: Likewise.
	* testsuite/30_threads/promise/cons/1.cc: Likewise.
	* testsuite/30_threads/promise/cons/alloc.cc: Likewise.
	* testsuite/30_threads/promise/cons/move.cc: Likewise.
	* testsuite/30_threads/promise/cons/move_assign.cc: Likewise.
	* testsuite/30_threads/promise/members/get_future.cc: Likewise.
	* testsuite/30_threads/promise/members/get_future2.cc: Likewise.
	* testsuite/30_threads/promise/members/set_exception.cc: Likewise.
	* testsuite/30_threads/promise/members/set_exception2.cc: Likewise.
	* testsuite/30_threads/promise/members/set_value.cc: Likewise.
	* testsuite/30_threads/promise/members/set_value2.cc: Likewise.
	* testsuite/30_threads/promise/members/set_value3.cc: Likewise.
	* testsuite/30_threads/promise/members/swap.cc: Likewise.
	* testsuite/30_threads/recursive_mutex/cons/1.cc: Likewise.
	* testsuite/30_threads/recursive_mutex/dest/destructor_locked.cc:
	Likewise.
	* testsuite/30_threads/recursive_mutex/lock/1.cc: Likewise.
	* testsuite/30_threads/recursive_mutex/native_handle/1.cc: Likewise.
	* testsuite/30_threads/recursive_mutex/native_handle/typesizes.cc:
	Likewise.
	* testsuite/30_threads/recursive_mutex/try_lock/1.cc: Likewise.
	* testsuite/30_threads/recursive_mutex/try_lock/2.cc: Likewise.
	* testsuite/30_threads/recursive_mutex/unlock/1.cc: Likewise.
	* testsuite/30_threads/recursive_timed_mutex/cons/1.cc: Likewise.
	* testsuite/30_threads/recursive_timed_mutex/dest/destructor_locked.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/lock/1.cc: Likewise.
	* testsuite/30_threads/recursive_timed_mutex/lock/2.cc: Likewise.
	* testsuite/30_threads/recursive_timed_mutex/native_handle/1.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/native_handle/typesizes.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock/1.cc: Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock/2.cc: Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock_for/1.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock_for/2.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock_for/3.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock_until/1.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/try_lock_until/2.cc:
	Likewise.
	* testsuite/30_threads/recursive_timed_mutex/unlock/1.cc: Likewise.
	* testsuite/30_threads/shared_future/cons/move.cc: Likewise.
	* testsuite/30_threads/shared_future/members/45133.cc: Likewise.
	* testsuite/30_threads/shared_future/members/get.cc: Likewise.
	* testsuite/30_threads/shared_future/members/get2.cc: Likewise.
	* testsuite/30_threads/shared_future/members/valid.cc: Likewise.
	* testsuite/30_threads/shared_future/members/wait.cc: Likewise.
	* testsuite/30_threads/shared_future/members/wait_for.cc: Likewise.
	* testsuite/30_threads/shared_future/members/wait_until.cc: Likewise.
	* testsuite/30_threads/this_thread/1.cc: Likewise.
	* testsuite/30_threads/this_thread/2.cc: Likewise.
	* testsuite/30_threads/this_thread/3.cc: Likewise.
	* testsuite/30_threads/this_thread/4.cc: Likewise.
	* testsuite/30_threads/thread/cons/1.cc: Likewise.
	* testsuite/30_threads/thread/cons/2.cc: Likewise.
	* testsuite/30_threads/thread/cons/3.cc: Likewise.
	* testsuite/30_threads/thread/cons/4.cc: Likewise.
	* testsuite/30_threads/thread/cons/49668.cc: Likewise.
	* testsuite/30_threads/thread/cons/5.cc: Likewise.
	* testsuite/30_threads/thread/cons/6.cc: Likewise.
	* testsuite/30_threads/thread/cons/7.cc: Likewise.
	* testsuite/30_threads/thread/cons/8.cc: Likewise.
	* testsuite/30_threads/thread/cons/9.cc: Likewise.
	* testsuite/30_threads/thread/cons/moveable.cc: Likewise.
	* testsuite/30_threads/thread/members/1.cc: Likewise.
	* testsuite/30_threads/thread/members/2.cc: Likewise.
	* testsuite/30_threads/thread/members/3.cc: Likewise.
	* testsuite/30_threads/thread/members/4.cc: Likewise.
	* testsuite/30_threads/thread/members/5.cc: Likewise.
	* testsuite/30_threads/thread/members/hardware_concurrency.cc: Likewise.
	* testsuite/30_threads/thread/native_handle/typesizes.cc: Likewise.
	* testsuite/30_threads/thread/swap/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/cons/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/dest/destructor_locked.cc: Likewise.
	* testsuite/30_threads/timed_mutex/lock/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/native_handle/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/native_handle/typesizes.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock/2.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock_for/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock_for/2.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock_for/3.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock_until/1.cc: Likewise.
	* testsuite/30_threads/timed_mutex/try_lock_until/2.cc: Likewise.
	* testsuite/30_threads/timed_mutex/unlock/1.cc: Likewise.
	* testsuite/30_threads/try_lock/1.cc: Likewise.
	* testsuite/30_threads/try_lock/2.cc: Likewise.
	* testsuite/30_threads/try_lock/3.cc: Likewise.
	* testsuite/30_threads/try_lock/4.cc: Likewise.
	* testsuite/30_threads/unique_lock/cons/1.cc: Likewise.
	* testsuite/30_threads/unique_lock/cons/2.cc: Likewise.
	* testsuite/30_threads/unique_lock/cons/3.cc: Likewise.
	* testsuite/30_threads/unique_lock/cons/4.cc: Likewise.
	* testsuite/30_threads/unique_lock/cons/5.cc: Likewise.
	* testsuite/30_threads/unique_lock/cons/6.cc: Likewise.
	* testsuite/30_threads/unique_lock/locking/1.cc: Likewise.
	* testsuite/30_threads/unique_lock/locking/2.cc: Likewise.
	* testsuite/30_threads/unique_lock/locking/3.cc: Likewise.
	* testsuite/30_threads/unique_lock/locking/4.cc: Likewise.
	* testsuite/30_threads/unique_lock/modifiers/1.cc: Likewise.
	* testsuite/30_threads/unique_lock/modifiers/2.cc: Likewise.
	* testsuite/ext/rope/pthread7-rope.cc: Likewise.
	* testsuite/tr1/2_general_utilities/shared_ptr/thread/default_weaktoshared.cc:
	Likewise.
	* testsuite/tr1/2_general_utilities/shared_ptr/thread/mutex_weaktoshared.cc:
	Likewise.

	* testsuite/23_containers/vector/capacity/resize/1.cc: Remove
	dg-options for mips*-*-irix6*.

	* testsuite/27_io/ios_base/storage/1.cc: Likewise.
	* testsuite/27_io/ios_base/storage/2.cc: Likewise.
	* testsuite/27_io/ios_base/storage/3.cc: Likewise.

	* testsuite/lib/libstdc++.exp (v3-build_support): Remove IRIX 6
	workaround.

	libjava:
	* configure.ac (libgcj_cv_exidx): Remove IRIX 6 ld workaround.
	(mips-sgi-irix6*): Remove.
	(mips-sgi-irix*): Remove.
	(AC_CHECK_HEADERS): Remove bstring.h.
	* configure: Regenerate.
	* include/config.h.in: Regenerate.
	* configure.host (mips-sgi-irix6*): Remove.

	* include/posix-signal.h [__sgi__]: Remove.

	* gnu/java/net/natPlainDatagramSocketImplPosix.cc
	[HAVE_BSTRING_H]: Remove.
	* gnu/java/net/natPlainDatagramSocketImplWin32.cc: Likewise.
	* gnu/java/net/natPlainSocketImplPosix.cc: Likewise.

	libitm:
	* configure.tgt (*-*-irix6*): Remove.

	libgomp:
	* configure.tgt (mips-sgi-irix6*): Remove.

	libgfortran:
	* intrinsics/c99_functions.c [__sgi__ && !HAVE_COMPLEX_H]: Remove.

	libgcc:
	* config.host (mips-sgi-irix6.5*): Remove.
	* config/mips/irix-crti.S: Remove.
	* config/mips/irix-crtn.S: Remove.
	* config/mips/irix6-unwind.h: Remove.
	* config/mips/t-irix6: Remove.
	* config/mips/t-slibgcc-irix: Remove.

	gnattools:
	* configure.ac (mips-sgi-irix*): Remove.
	* configure: Regenerate.

	gcc/testsuite:
	* g++.dg/other/anon5.C: Don't skip on mips-sgi-irix*.
	* g++.dg/tree-prof/partition1.C: Likewise.
	* g++.dg/tree-prof/partition2.C: Likewise.
	* g++.old-deja/g++.other/init19.C: Remove mips-sgi-irix*
	handling.
	* gcc.c-torture/compile/labels-3.c: Remove dg-options.
	* gcc.c-torture/execute/20010724-1.c: Remove.
	* gcc.c-torture/execute/20010724-1.x: Remove.
	* gcc.c-torture/execute/20040208-2.c: Remove.
	* gcc.c-torture/execute/20040208-2.x: Remove.
	* gcc.c-torture/execute/ieee/20000320-1.c [__mips__ && __sgi__]:
	Remove.
	(main) [__mips__ && __sgi__]: Remove.
	* gcc.c-torture/execute/ieee/copysign1.c: Remove IRIX reference.
	* gcc.c-torture/execute/ieee/copysign2.c: Likewise.
	* gcc.c-torture/execute/ieee/mul-subnormal-single-1.x: Remove
	mips-sgi-irix6* handling.
	* gcc.dg/cpp/assert4.c [__mips__]: Remove __sgi__, sgi.
	* gcc.dg/torture/20090618-1.c: Don't skip on mips-sgi-irix*.
	* gcc.dg/torture/builtin-frexp-1.c: Remove mips*-*-irix6*
	handling.
	* gcc.dg/torture/builtin-logb-1.c: Likewise.
	* gcc.dg/torture/pr47917.c: Remove mips-sgi-irix6.5 handling.
	* gcc.dg/tree-ssa/ssa-store-ccp-3.c: Don't skip on mips*-*-irix*.
	* gcc.misc-tests/linkage.exp: Remove mips-sgi-irix6* handling.
	* gcc.target/mips/args-1.c [!__sgi__]: Remove.
	* gcc.target/mips/interrupt_handler-2.c: Don't skip on
	mips-sgi-irix6*.
	* gcc.target/mips/interrupt_handler-3.c: Likewise.
	* gcc.target/mips/save-restore-1.c: Don't skip on mips-sgi-irix6*.
	* gcc.target/mips/save-restore-3.c: Likewise.
	* gcc.target/mips/save-restore-4.c: Likewise.
	* gcc.target/mips/save-restore-5.c: Likewise.
	* gfortran.dg/g77/cabs.f: Don't xfail on mips-sgi-irix6*.
	* lib/prune.exp (prune_gcc_output): Remove pruning of IRIX 6 ld
	messages.
	* lib/target-libpath.exp (set_ld_library_path_env_vars): Remove
	IRIX 6 handling.
	(restore_ld_library_path_env_vars): Likewise.
	* lib/target-supports.exp (check_profiling_available): Remove
	mips*-*-irix* handling.
	(check_ascii_locale_available): Remove mips-sgi-irix* handling.
	(add_options_for_c99_runtime): Remove mips-sgi-irix6.5* handling.
	* objc.dg/stabs-1.m: Don't xfail on mips-sgi-irix6.5.

	gcc/ada:
	* gcc-interface/Makefile.in (mips-sgi-irix6*): Remove.

	* a-intnam-irix.ads, mlib-tgt-specific-irix.adb,
	s-intman-irix.adb, s-mastop-irix.adb, s-osinte-irix.adb,
	s-osinte-irix.ads, s-proinf-irix-athread.adb,
	s-proinf-irix-athread.ads, s-taprop-irix.adb, s-tasinf-irix.ads,
	system-irix-n32.ads, system-irix-n64.ads, system-irix-o32.ads:
	Remove.

	* adaint.c [__mips && __sgi]: Remove.
	(__gnat_number_of_cpus) [__mips && __sgi]: Remove.
	[IS_CROSS && !(__mips && __sgi)]: Remove.
	* adaint.h [sgi && _LFAPI]: Remove.
	* cstreams.c (__gnat_full_name) [sgi]: Remove.
	* env.c (__gnat_unsetenv) [__mips && __sgi]: Remove.
	(__gnat_clearenv) [__mips && __sgi]: Remove.
	* errno.c (_SGI_MP_SOURCE): Remove.
	* gsocket.h [sgi]: Remove.
	* init.c: Remove IRIX reference.
	[sgi]: Remove.
	* link.c [sgi]: Remove.
	* s-oscons-tmplt.c [__mips && __sgi] (IOV_MAX): Don't define.
	(main) [__mips && __sgi] (MAX_tv_sec): Don't define.
	(CLOCK_SGI_FAST, CLOCK_SGI_CYCLE): Remove.
	* sysdep.c [sgi]: Remove.
	(getc_immediate_common) [sgi]: Remove.
	(__gnat_localtime_tzoff) [sgi]: Remove.
	* terminals.c [__mips && __sgi] (IRIX): Don't define.
	[IRIX] (USE_GETPTY): Don't define.
	(allocate_pty_desc) [USE_GETPTY]: Remove.

	* g-traceb.ads: Remove IRIX reference.
	* g-trasym.ads: Likewise.
	* memtrack.adb: Likewise.
	* s-interr-sigaction.adb: Likewise.

	* gnat_rm.texi (Implementation Advice): Remove SGI info.
	(Implementation Defined Characteristics): Likewise.
	* gnat_ugn.texi (Summary of Run-Time Configurations, mips-irix):
	Remove.
	(Irix-Specific Considerations): Remove.

	gcc/cp:
	* Make-lang.in (doc/g++.1): Remove IRIX 6.5 reference.

	gcc:
	* config.gcc (enable_obsolete): Remove mips-sgi-irix6.5.
	(mips-sgi-irix6.5*): Remove.
	* config.host (mips-sgi-irix*): Remove.
	* configure.ac (enable_fixed_point): Remove mips*-sgi-irix*.
	(set_have_as_tls): Remove *-*-irix6*.
	(gcc_cv_ld_static_dynamic): Remove mips-sgi-irix6*.
	* configure: Regenerate.

	* config/mips/iris6.h: Remove.
	* config/mips/iris6.opt: Remove.
	* config/mips/t-irix6: Remove.

	* config/mips/mips.h (TARGET_GPWORD): Remove IRIX 6 N64 handling.
	(TARGET_IRIX6): Remove.
	(TARGET_CPU_CPP_BUILTINS): Remove IRIX 6 handling.
	Don't define LANGUAGE_C, _LANGUAGE_C for Objective-C.
	* config/mips/mips.c (mips_build_builtin_va_list): Remove IRIX 6
	handling.
	(mips_file_start): Likewise.
	* config/mips/mips-protos.h (irix_asm_output_align): Remove.

	* config/mips/driver-native.c [__sgi__]: Remove.
	(host_detect_local_cpu) [__sgi__]: Remove.

	* config/mips/gnu-user.h: Remove iris5.h reference.

	* config/mips/mips-modes.def: Remove IRIX 6 reference.
	* config/mips/gnu-user64.h (MIPS_TFMODE_FORMAT): Remove.
	* config/mips/mips.c (mips_option_override) [MIPS_TFMODE_FORMAT]:
	Remove.

	* gcc.c (main): Move asm_debug initialization ...
	(asm_debug): ... here.

	* ginclude/stddef.h (__STDDEF_H__): Don't define.

	* defaults.h (LINK_ELIMINATE_DUPLICATE_LDIRECTORIES): Remove.
	* system.h (LINK_ELIMINATE_DUPLICATE_LDIRECTORIES): Poison.
	* collect2.c [LINK_ELIMINATE_DUPLICATE_LDIRECTORIES]: Remove.
	(main) [LINK_ELIMINATE_DUPLICATE_LDIRECTORIES]: Remove.
	[LINK_ELIMINATE_DUPLICATE_LDIRECTORIES] (is_in_args): Remove.
	* doc/tm.texi.in (Driver, LINK_ELIMINATE_DUPLICATE_LDIRECTORIES):
	Remove.
	* doc/tm.texi: Regenerate.

	* doc/invoke.texi (Debugging Options, -gdwarf-<version>): Remove
	IRIX 6 reference.
	(MIPS Options, -march): Remove IRIX reference.
	* doc/install.texi (Binaries, SGI IRIX): Remove.
	(Specific, mips-sgi-irix6): Document IRIX 6.5 removal, remove rest
	of section.
	* doc/trouble.texi (Interoperation): Remove -lgl_s handling.

	fixincludes:
	* inclhack.def (broken_cabs): Remove IRIX and SunOS 4 support.
	(irix___restrict): Remove.
	(irix___generic1): Remove.
	(irix___generic2): Remove.
	(irix_asm_apostrophe): Remove.
	(irix_complex): Remove.
	(irix_pthread_init): Remove.
	(irix_socklen_t): Remove.
	(irix_stdint_c99_mode): Remove.
	(irix_stdint_c99_types): Remove.
	(irix_stdint_c99_macros): Remove.
	(irix_stdio_va_list): Remove IRIX 6.5 support.
	(irix_wcsftime): Remove.
	(stdio_va_list): Remove IRIX 6.5 support.
	(svr4_profil): Remove IRIX bypass.
	* fixincl.x: Regenerate.

	* tests/base/complex.h [IRIX_COMPLEX_CHECK]: Remove.
	* tests/base/internal/math_core.h: Remove.
	* tests/base/internal/sgimacros.h: Remove.
	* tests/base/internal/wchar_core.h: Remove.
	* tests/base/math.h [BROKEN_CABS_CHECK]: Remove IRIX and SunOS 4
	support.
	* tests/base/pthread.h [IRIX_PTHREAD_INIT_CHECK]: Remove.
	* tests/base/stdint-irix65.h: Remove.
	* tests/base/stdint.h [IRIX_STDINT_C99_MODE_CHECK]: Remove.
	* tests/base/sys/asm.h: Remove.
	* tests/base/sys/socket.h [IRIX_SOCKLEN_T_CHECK]: Remove.

	contrib:
	* config-list.mk (LIST): Remove mips-sgi-irix6.5.

	toplevel:
	* MAINTAINERS (OS Port Maintainers): Remove irix.
	* configure.ac (enable_libgomp): Remove *-*-irix6*.
	(unsupported_languages): Remove mips-sgi-irix6.*.
	(noconfigdirs): Don't add ${libgcj} for mips*-*-irix6*.
	(with_stabs): Remove.
	* configure: Regenerate.

From-SVN: r185390
This commit is contained in:
Rainer Orth 2012-03-14 16:33:37 +00:00 • committed by Rainer Orth
parent 02f6574b2b
commit b24513a1a2
316 changed files with 922 additions and 7190 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,3 +1,12 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* MAINTAINERS (OS Port Maintainers): Remove irix.
* configure.ac (enable_libgomp): Remove *-*-irix6*.
(unsupported_languages): Remove mips-sgi-irix6.*.
(noconfigdirs): Don't add ${libgcj} for mips*-*-irix6*.
(with_stabs): Remove.
* configure: Regenerate.
2012-03-12 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* MAINTAINERS (OS Port Maintainers): Remove osf.

2
MAINTAINERS
View file

@ -122,7 +122,7 @@ freebsd Loren J. Rittle ljrittle@acm.org
GNU/Hurd Thomas Schwinge thomas@schwinge.name
hpux John David Anglin dave.anglin@nrc-cnrc.gc.ca
hpux Steve Ellcey sje@cup.hp.com
irix, solaris Rainer Orth ro@CeBiTec.Uni-Bielefeld.DE
solaris Rainer Orth ro@CeBiTec.Uni-Bielefeld.DE
netbsd Jason Thorpe thorpej@netbsd.org
netbsd Krister Walfridsson krister.walfridsson@gmail.com
sh-linux-gnu Kaz Kojima kkojima@gcc.gnu.org

23
configure vendored
View file

@ -3054,7 +3054,7 @@ if test x$enable_libgomp = x ; then
;;
*-*-netbsd* | *-*-freebsd* | *-*-openbsd* | *-*-dragonfly*)
;;
*-*-solaris2* | *-*-irix6* | *-*-hpux11*)
*-*-solaris2* | *-*-hpux11*)
;;
*-*-darwin* | *-*-aix*)
;;
@ -3145,7 +3145,7 @@ case "${target}" in
;;
m68k-*-*)
;;
mips-sgi-irix6.* | mips*-*-rtems*)
mips*-*-rtems*)
;;
mips*-*-linux*)
;;
@ -3261,13 +3261,6 @@ case "${target}" in
rs6000-*-aix*)
noconfigdirs="$noconfigdirs ${libgcj}"
;;
mips*-*-irix6*)
# Linking libjava exceeds command-line length limits on at least
# IRIX 6.2, but not on IRIX 6.5.
# Also, boehm-gc won't build on IRIX 6.5, according to Jeffrey Oldham
# <oldham@codesourcery.com>
noconfigdirs="$noconfigdirs ${libgcj}"
;;
*-*-lynxos*)
noconfigdirs="$noconfigdirs ${libgcj}"
;;
@ -6873,18 +6866,6 @@ case "${enable_target_optspace}:${target}" in
;;
esac
# Default to using --with-stabs for certain targets.
if test x${with_stabs} = x ; then
case "${target}" in
mips*-*-irix[56]*)
;;
mips*-*-*)
with_stabs=yes;
extra_host_args="${extra_host_args} --with-stabs"
;;
esac
fi
# Some systems (e.g., one of the i386-aix systems the gas testers are
# using) don't handle "\$" correctly, so don't use it here.
tooldir='${exec_prefix}'/${target_noncanonical}

23
configure.ac
View file

@ -483,7 +483,7 @@ if test x$enable_libgomp = x ; then
;;
*-*-netbsd* | *-*-freebsd* | *-*-openbsd* | *-*-dragonfly*)
;;
*-*-solaris2* | *-*-irix6* | *-*-hpux11*)
*-*-solaris2* | *-*-hpux11*)
;;
*-*-darwin* | *-*-aix*)
;;
@ -571,7 +571,7 @@ case "${target}" in
;;
m68k-*-*)
;;
mips-sgi-irix6.* | mips*-*-rtems*)
mips*-*-rtems*)
;;
mips*-*-linux*)
;;
@ -687,13 +687,6 @@ case "${target}" in
rs6000-*-aix*)
noconfigdirs="$noconfigdirs ${libgcj}"
;;
mips*-*-irix6*)
# Linking libjava exceeds command-line length limits on at least
# IRIX 6.2, but not on IRIX 6.5.
# Also, boehm-gc won't build on IRIX 6.5, according to Jeffrey Oldham
# <oldham@codesourcery.com>
noconfigdirs="$noconfigdirs ${libgcj}"
;;
*-*-lynxos*)
noconfigdirs="$noconfigdirs ${libgcj}"
;;
@ -2331,18 +2324,6 @@ case "${enable_target_optspace}:${target}" in
;;
esac
# Default to using --with-stabs for certain targets.
if test x${with_stabs} = x ; then
case "${target}" in
mips*-*-irix[[56]]*)
;;
mips*-*-*)
with_stabs=yes;
extra_host_args="${extra_host_args} --with-stabs"
;;
esac
fi
# Some systems (e.g., one of the i386-aix systems the gas testers are
# using) don't handle "\$" correctly, so don't use it here.
tooldir='${exec_prefix}'/${target_noncanonical}

4
contrib/ChangeLog
View file

@ -1,3 +1,7 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* config-list.mk (LIST): Remove mips-sgi-irix6.5.
2012-03-13 Joseph Myers <joseph@codesourcery.com>
* gennews (files): Add files for GCC 4.7.

1
contrib/config-list.mk
View file

@ -36,7 +36,6 @@ LIST = alpha-linux-gnu alpha-freebsd6 alpha-netbsd alpha-openbsd \
m32r-linux m32rle-linux m68k-elf m68k-netbsdelf \
m68k-openbsd m68k-uclinux m68k-linux m68k-rtems \
mcore-elf mep-elf microblaze-linux microblaze-elf \
mips-sgi-irix6.5OPT-with-stabsOPT-enable-threads=posixOPT-enable-obsolete \
mips-netbsd \
mips64el-st-linux-gnu mips64octeon-linux mipsisa64r2-linux \
mipsisa32r2-linux-gnu mipsisa64r2-sde-elf mipsisa32-elfoabi \

31
fixincludes/ChangeLog
View file

@ -1,3 +1,34 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* inclhack.def (broken_cabs): Remove IRIX and SunOS 4 support.
(irix___restrict): Remove.
(irix___generic1): Remove.
(irix___generic2): Remove.
(irix_asm_apostrophe): Remove.
(irix_complex): Remove.
(irix_pthread_init): Remove.
(irix_socklen_t): Remove.
(irix_stdint_c99_mode): Remove.
(irix_stdint_c99_types): Remove.
(irix_stdint_c99_macros): Remove.
(irix_stdio_va_list): Remove IRIX 6.5 support.
(irix_wcsftime): Remove.
(stdio_va_list): Remove IRIX 6.5 support.
(svr4_profil): Remove IRIX bypass.
* fixincl.x: Regenerate.
* tests/base/complex.h [IRIX_COMPLEX_CHECK]: Remove.
* tests/base/internal/math_core.h: Remove.
* tests/base/internal/sgimacros.h: Remove.
* tests/base/internal/wchar_core.h: Remove.
* tests/base/math.h [BROKEN_CABS_CHECK]: Remove IRIX and SunOS 4
support.
* tests/base/pthread.h [IRIX_PTHREAD_INIT_CHECK]: Remove.
* tests/base/stdint-irix65.h: Remove.
* tests/base/stdint.h [IRIX_STDINT_C99_MODE_CHECK]: Remove.
* tests/base/sys/asm.h: Remove.
* tests/base/sys/socket.h [IRIX_SOCKLEN_T_CHECK]: Remove.
2012-03-12 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* inclhack.def (alpha___extern_prefix): Remove.

520
fixincludes/fixincl.x
View file

@ -2,11 +2,11 @@
*
* DO NOT EDIT THIS FILE (fixincl.x)
*
* It has been AutoGen-ed Monday March 12, 2012 at 04:25:19 PM MET
* It has been AutoGen-ed Wednesday March 14, 2012 at 02:41:19 PM MET
* From the definitions inclhack.def
* and the template file fixincl
*/
/* DO NOT SVN-MERGE THIS FILE, EITHER Mon Mar 12 16:25:19 MET 2012
/* DO NOT SVN-MERGE THIS FILE, EITHER Wed Mar 14 14:41:19 MET 2012
*
* You must regenerate it. Use the ./genfixes script.
*
@ -15,7 +15,7 @@
* certain ANSI-incompatible system header files which are fixed to work
* correctly with ANSI C and placed in a directory that GNU C will search.
*
* This file contains 223 fixup descriptions.
* This file contains 212 fixup descriptions.
*
* See README for more information.
*
@ -4314,203 +4314,6 @@ static const char* apzIp_Missing_SemiPatch[] = { sed_cmd_z,
"-e", "/^struct/,/^};/s/}$/};/",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix___Restrict fix
*/
tSCC zIrix___RestrictName[] =
"irix___restrict";
/*
* File name selection pattern
*/
tSCC zIrix___RestrictList[] =
"internal/sgimacros.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix___RestrictMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix___RestrictSelect0[] =
"(#ifdef __c99\n\
)(#[ \t]*define __restrict restrict)";
#define IRIX___RESTRICT_TEST_CT 1
static tTestDesc aIrix___RestrictTests[] = {
{ TT_EGREP, zIrix___RestrictSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix___Restrict
*/
static const char* apzIrix___RestrictPatch[] = {
"format",
"%1# ifndef __cplusplus\n\
%2\n\
# endif",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix___Generic1 fix
*/
tSCC zIrix___Generic1Name[] =
"irix___generic1";
/*
* File name selection pattern
*/
tSCC zIrix___Generic1List[] =
"internal/math_core.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix___Generic1Machs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix___Generic1Select0[] =
"#define ([a-z]+)\\(x\\) *__generic.*";
#define IRIX___GENERIC1_TEST_CT 1
static tTestDesc aIrix___Generic1Tests[] = {
{ TT_EGREP, zIrix___Generic1Select0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix___Generic1
*/
static const char* apzIrix___Generic1Patch[] = {
"format",
"extern int %1(double);\n\
extern int %1f(float);\n\
extern int %1l(long double);\n\
#define %1(x) (sizeof(x) == sizeof(double) ? _%1(x) \\\n\
: sizeof(x) == sizeof(float) ? _%1f(x) \\\n\
: _%1l(x))\n",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix___Generic2 fix
*/
tSCC zIrix___Generic2Name[] =
"irix___generic2";
/*
* File name selection pattern
*/
tSCC zIrix___Generic2List[] =
"internal/math_core.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix___Generic2Machs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix___Generic2Select0[] =
"#define ([a-z]+)\\(x,y\\) *__generic.*";
#define IRIX___GENERIC2_TEST_CT 1
static tTestDesc aIrix___Generic2Tests[] = {
{ TT_EGREP, zIrix___Generic2Select0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix___Generic2
*/
static const char* apzIrix___Generic2Patch[] = {
"format",
"#define %1(x,y) \\\n\
((sizeof(x)<=4 && sizeof(y)<=4) ? _%1f(x,y) \\\n\
: (sizeof(x)<=8 && sizeof(y)<=8) ? _%1(x,y) \\\n\
: _%1l(x,y))\n",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Asm_Apostrophe fix
*/
tSCC zIrix_Asm_ApostropheName[] =
"irix_asm_apostrophe";
/*
* File name selection pattern
*/
tSCC zIrix_Asm_ApostropheList[] =
"sys/asm.h\0";
/*
* Machine/OS name selection pattern
*/
#define apzIrix_Asm_ApostropheMachs (const char**)NULL
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix_Asm_ApostropheSelect0[] =
"^[ \t]*#.*[Ww]e're";
#define IRIX_ASM_APOSTROPHE_TEST_CT 1
static tTestDesc aIrix_Asm_ApostropheTests[] = {
{ TT_EGREP, zIrix_Asm_ApostropheSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix_Asm_Apostrophe
*/
static const char* apzIrix_Asm_ApostrophePatch[] = {
"format",
"%1 are",
"^([ \t]*#.*[Ww]e)'re",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Complex fix
*/
tSCC zIrix_ComplexName[] =
"irix_complex";
/*
* File name selection pattern
*/
tSCC zIrix_ComplexList[] =
"complex.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_ComplexMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix_ComplexSelect0[] =
"#define[ \t]_Complex_I[ \t]\\(\\(float[ \t]_Complex\\)[ \t]\\(__I__\\)\\)";
#define IRIX_COMPLEX_TEST_CT 1
static tTestDesc aIrix_ComplexTests[] = {
{ TT_EGREP, zIrix_ComplexSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix_Complex
*/
static const char* apzIrix_ComplexPatch[] = { sed_cmd_z,
"-e", "s/#define[ \t]_Complex_I[ \t]((float[ \t]_Complex)[ \t](__I__))/#define _Complex_I (__extension__ 1.0iF)/",
"-e", "/#define[ \t]imaginary[ \t]_Imaginary/d",
"-e", "/#define[ \t]_Imaginary_I/d",
"-e", "s/#define[ \t]I[ \t]_Imaginary_I/#define I _Complex_I/",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Limits_Const fix
@ -4546,201 +4349,6 @@ static const char* apzIrix_Limits_ConstPatch[] = {
"extern __const ",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Pthread_Init fix
*/
tSCC zIrix_Pthread_InitName[] =
"irix_pthread_init";
/*
* File name selection pattern
*/
tSCC zIrix_Pthread_InitList[] =
"pthread.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_Pthread_InitMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix_Pthread_InitSelect0[] =
"^(#define[ \t]+PTHREAD_.*_INITIALIZER[ \t]+)(\\{ 0 \\})";
#define IRIX_PTHREAD_INIT_TEST_CT 1
static tTestDesc aIrix_Pthread_InitTests[] = {
{ TT_EGREP, zIrix_Pthread_InitSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix_Pthread_Init
*/
static const char* apzIrix_Pthread_InitPatch[] = {
"format",
"%1{ %2 }",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Socklen_T fix
*/
tSCC zIrix_Socklen_TName[] =
"irix_socklen_t";
/*
* File name selection pattern
*/
tSCC zIrix_Socklen_TList[] =
"sys/socket.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_Socklen_TMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix_Socklen_TSelect0[] =
"(#define _SOCKLEN_T\n\
)(typedef u_int32_t socklen_t;)";
#define IRIX_SOCKLEN_T_TEST_CT 1
static tTestDesc aIrix_Socklen_TTests[] = {
{ TT_EGREP, zIrix_Socklen_TSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix_Socklen_T
*/
static const char* apzIrix_Socklen_TPatch[] = {
"format",
"%1#if _NO_XOPEN4 && _NO_XOPEN5\n\
typedef int socklen_t;\n\
#else\n\
%2\n\
#endif /* _NO_XOPEN4 && _NO_XOPEN5 */",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Stdint_C99_Mode fix
*/
tSCC zIrix_Stdint_C99_ModeName[] =
"irix_stdint_c99_mode";
/*
* File name selection pattern
*/
tSCC zIrix_Stdint_C99_ModeList[] =
"stdint.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_Stdint_C99_ModeMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix_Stdint_C99_ModeSelect0[] =
"(#ifndef __c99\n\
)(#error This header file is to be used only for c99 mode compilations)";
#define IRIX_STDINT_C99_MODE_TEST_CT 1
static tTestDesc aIrix_Stdint_C99_ModeTests[] = {
{ TT_EGREP, zIrix_Stdint_C99_ModeSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix_Stdint_C99_Mode
*/
static const char* apzIrix_Stdint_C99_ModePatch[] = {
"format",
"#if 0\n\
%2",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Stdint_C99_Types fix
*/
tSCC zIrix_Stdint_C99_TypesName[] =
"irix_stdint_c99_types";
/*
* File name selection pattern
*/
tSCC zIrix_Stdint_C99_TypesList[] =
"stdint-irix65.h\0stdint.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_Stdint_C99_TypesMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
#define IRIX_STDINT_C99_TYPES_TEST_CT 0
#define aIrix_Stdint_C99_TypesTests (tTestDesc*)NULL
/*
* Fix Command Arguments for Irix_Stdint_C99_Types
*/
static const char* apzIrix_Stdint_C99_TypesPatch[] = { sed_cmd_z,
"-e", "s@^#define INT64_MIN.*(-0x7fffffffffffffff - 1)$@#define INT64_MIN (-0x7fffffffffffffffLL - 1)@",
"-e", "s@^#define INT64_MAX.*0x7fffffffffffffff$@#define INT64_MAX 0x7fffffffffffffffLL@",
"-e", "s@^#define UINT32_MAX.*0xffffffff$@#define UINT32_MAX 0xffffffffU@",
"-e", "s@^#define UINT64_MAX.*0xffffffffffffffff$@#define UINT64_MAX 0xffffffffffffffffULL@",
"-e", "s@^#define INTPTR_MIN.*INT32_MIN$@#define INTPTR_MIN (-0x7fffffffL - 1)@",
"-e", "s@^#define INTPTR_MAX.*INT32_MAX$@#define INTPTR_MAX 0x7fffffffL@",
"-e", "s@^#define UINTPTR_MAX.*UINT32_MAX$@#define UINTPTR_MAX 0xffffffffUL@",
"-e", "s@^#define INTPTR_MIN.*INT64_MIN@#define INTPTR_MIN (-0x7fffffffffffffffL - 1)@",
"-e", "s@^#define INTPTR_MAX.*INT64_MAX$@#define INTPTR_MAX 0x7fffffffffffffffL@",
"-e", "s@^#define UINTPTR_MAX.*UINT64_MAX$@#define UINTPTR_MAX 0xffffffffffffffffUL@",
"-e", "s@^#define PTRDIFF_MIN.*INT64_MIN$@#define PTRDIFF_MIN (-0x7fffffffffffffffL - 1)@",
"-e", "s@^#define PTRDIFF_MAX.*INT64_MAX$@#define PTRDIFF_MAX 0x7fffffffffffffffL@",
"-e", "s@^#define SIZE_MAX.*UINT64_MAX$@#define SIZE_MAX 0xffffffffffffffffUL@",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Stdint_C99_Macros fix
*/
tSCC zIrix_Stdint_C99_MacrosName[] =
"irix_stdint_c99_macros";
/*
* File name selection pattern
*/
tSCC zIrix_Stdint_C99_MacrosList[] =
"stdint-irix65.h\0stdint.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_Stdint_C99_MacrosMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
#define IRIX_STDINT_C99_MACROS_TEST_CT 0
#define aIrix_Stdint_C99_MacrosTests (tTestDesc*)NULL
/*
* Fix Command Arguments for Irix_Stdint_C99_Macros
*/
static const char* apzIrix_Stdint_C99_MacrosPatch[] = { sed_cmd_z,
"-e", "s@^#define INT8_C(x).*int.*_t.*$@#define INT8_C(x) (x)@",
"-e", "s@^#define INT16_C(x).*int.*_t.*$@#define INT16_C(x) (x)@",
"-e", "s@^#define INT32_C(x).*int.*_t.*$@#define INT32_C(x) (x)@",
"-e", "s@^#define INT64_C(x).*int.*_t.*$@#define INT64_C(x) (x ## LL)@",
"-e", "s@^#define UINT8_C(x).*int.*_t.*$@#define UINT8_C(x) (x)@",
"-e", "s@^#define UINT16_C(x).*int.*_t.*$@#define UINT16_C(x) (x)@",
"-e", "s@^#define UINT32_C(x).*int.*_t.*$@#define UINT32_C(x) (x ## U)@",
"-e", "s@^#define UINT64_C(x).*int.*_t.*$@#define UINT64_C(x) (x ## ULL)@",
"-e", "s@^#define INTMAX_C(x).*int.*_t.*$@#define INTMAX_C(x) (x ## LL)@",
"-e", "s@^#define UINTMAX_C(x).*int.*_t.*$@#define UINTMAX_C(x) (x ## ULL)@",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Stdio_Va_List fix
@ -4752,7 +4360,7 @@ tSCC zIrix_Stdio_Va_ListName[] =
* File name selection pattern
*/
tSCC zIrix_Stdio_Va_ListList[] =
"stdio.h\0internal/stdio_core.h\0";
"stdio.h\0";
/*
* Machine/OS name selection pattern
*/
@ -4776,45 +4384,6 @@ static const char* apzIrix_Stdio_Va_ListPatch[] = {
"__gnuc_va_list",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Irix_Wcsftime fix
*/
tSCC zIrix_WcsftimeName[] =
"irix_wcsftime";
/*
* File name selection pattern
*/
tSCC zIrix_WcsftimeList[] =
"internal/wchar_core.h\0";
/*
* Machine/OS name selection pattern
*/
tSCC* apzIrix_WcsftimeMachs[] = {
"mips-sgi-irix6.5",
(const char*)NULL };
/*
* content selection pattern - do fix if pattern found
*/
tSCC zIrix_WcsftimeSelect0[] =
"#if _NO_XOPEN5\n\
(extern size_t[ \t]+wcsftime.*const char *.*)";
#define IRIX_WCSFTIME_TEST_CT 1
static tTestDesc aIrix_WcsftimeTests[] = {
{ TT_EGREP, zIrix_WcsftimeSelect0, (regex_t*)NULL }, };
/*
* Fix Command Arguments for Irix_Wcsftime
*/
static const char* apzIrix_WcsftimePatch[] = {
"format",
"#if _NO_XOPEN5 && !defined(__c99)\n\
%1",
(char*)NULL };
/* * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Description of Kandr_Concat fix
@ -7269,7 +6838,7 @@ tSCC zStdio_Va_ListName[] =
* File name selection pattern
*/
tSCC zStdio_Va_ListList[] =
"stdio.h\0internal/stdio_core.h\0internal/wchar_core.h\0";
"stdio.h\0";
/*
* Machine/OS name selection pattern
*/
@ -7929,15 +7498,8 @@ tSCC zSvr4_ProfilList[] =
tSCC zSvr4_ProfilSelect0[] =
"profil\\(unsigned short \\*, unsigned int, unsigned int, unsigned int\\)";
/*
* content bypass pattern - skip fix if pattern found
*/
tSCC zSvr4_ProfilBypass0[] =
"Silicon Graphics";
#define SVR4_PROFIL_TEST_CT 2
#define SVR4_PROFIL_TEST_CT 1
static tTestDesc aSvr4_ProfilTests[] = {
{ TT_NEGREP, zSvr4_ProfilBypass0, (regex_t*)NULL },
{ TT_EGREP, zSvr4_ProfilSelect0, (regex_t*)NULL }, };
/*
@ -9068,9 +8630,9 @@ static const char* apzX11_SprintfPatch[] = {
*
* List of all fixes
*/
#define REGEX_COUNT 265
#define REGEX_COUNT 255
#define MACH_LIST_SIZE_LIMIT 181
#define FIX_COUNT 223
#define FIX_COUNT 212
/*
* Enumerate the fixes
@ -9180,19 +8742,8 @@ typedef enum {
IO_QUOTES_DEF_FIXIDX,
IO_QUOTES_USE_FIXIDX,
IP_MISSING_SEMI_FIXIDX,
IRIX___RESTRICT_FIXIDX,
IRIX___GENERIC1_FIXIDX,
IRIX___GENERIC2_FIXIDX,
IRIX_ASM_APOSTROPHE_FIXIDX,
IRIX_COMPLEX_FIXIDX,
IRIX_LIMITS_CONST_FIXIDX,
IRIX_PTHREAD_INIT_FIXIDX,
IRIX_SOCKLEN_T_FIXIDX,
IRIX_STDINT_C99_MODE_FIXIDX,
IRIX_STDINT_C99_TYPES_FIXIDX,
IRIX_STDINT_C99_MACROS_FIXIDX,
IRIX_STDIO_VA_LIST_FIXIDX,
IRIX_WCSFTIME_FIXIDX,
KANDR_CONCAT_FIXIDX,
LINUX_IA64_UCONTEXT_FIXIDX,
LYNXOS_NO_WARNING_IN_SYS_TIME_H_FIXIDX,
@ -9822,71 +9373,16 @@ tFixDesc fixDescList[ FIX_COUNT ] = {
IP_MISSING_SEMI_TEST_CT, FD_MACH_ONLY,
aIp_Missing_SemiTests, apzIp_Missing_SemiPatch, 0 },
{ zIrix___RestrictName, zIrix___RestrictList,
apzIrix___RestrictMachs,
IRIX___RESTRICT_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix___RestrictTests, apzIrix___RestrictPatch, 0 },
{ zIrix___Generic1Name, zIrix___Generic1List,
apzIrix___Generic1Machs,
IRIX___GENERIC1_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix___Generic1Tests, apzIrix___Generic1Patch, 0 },
{ zIrix___Generic2Name, zIrix___Generic2List,
apzIrix___Generic2Machs,
IRIX___GENERIC2_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix___Generic2Tests, apzIrix___Generic2Patch, 0 },
{ zIrix_Asm_ApostropheName, zIrix_Asm_ApostropheList,
apzIrix_Asm_ApostropheMachs,
IRIX_ASM_APOSTROPHE_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_Asm_ApostropheTests, apzIrix_Asm_ApostrophePatch, 0 },
{ zIrix_ComplexName, zIrix_ComplexList,
apzIrix_ComplexMachs,
IRIX_COMPLEX_TEST_CT, FD_MACH_ONLY,
aIrix_ComplexTests, apzIrix_ComplexPatch, 0 },
{ zIrix_Limits_ConstName, zIrix_Limits_ConstList,
apzIrix_Limits_ConstMachs,
IRIX_LIMITS_CONST_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_Limits_ConstTests, apzIrix_Limits_ConstPatch, 0 },
{ zIrix_Pthread_InitName, zIrix_Pthread_InitList,
apzIrix_Pthread_InitMachs,
IRIX_PTHREAD_INIT_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_Pthread_InitTests, apzIrix_Pthread_InitPatch, 0 },
{ zIrix_Socklen_TName, zIrix_Socklen_TList,
apzIrix_Socklen_TMachs,
IRIX_SOCKLEN_T_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_Socklen_TTests, apzIrix_Socklen_TPatch, 0 },
{ zIrix_Stdint_C99_ModeName, zIrix_Stdint_C99_ModeList,
apzIrix_Stdint_C99_ModeMachs,
IRIX_STDINT_C99_MODE_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_Stdint_C99_ModeTests, apzIrix_Stdint_C99_ModePatch, 0 },
{ zIrix_Stdint_C99_TypesName, zIrix_Stdint_C99_TypesList,
apzIrix_Stdint_C99_TypesMachs,
IRIX_STDINT_C99_TYPES_TEST_CT, FD_MACH_ONLY,
aIrix_Stdint_C99_TypesTests, apzIrix_Stdint_C99_TypesPatch, 0 },
{ zIrix_Stdint_C99_MacrosName, zIrix_Stdint_C99_MacrosList,
apzIrix_Stdint_C99_MacrosMachs,
IRIX_STDINT_C99_MACROS_TEST_CT, FD_MACH_ONLY,
aIrix_Stdint_C99_MacrosTests, apzIrix_Stdint_C99_MacrosPatch, 0 },
{ zIrix_Stdio_Va_ListName, zIrix_Stdio_Va_ListList,
apzIrix_Stdio_Va_ListMachs,
IRIX_STDIO_VA_LIST_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_Stdio_Va_ListTests, apzIrix_Stdio_Va_ListPatch, 0 },
{ zIrix_WcsftimeName, zIrix_WcsftimeList,
apzIrix_WcsftimeMachs,
IRIX_WCSFTIME_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,
aIrix_WcsftimeTests, apzIrix_WcsftimePatch, 0 },
{ zKandr_ConcatName, zKandr_ConcatList,
apzKandr_ConcatMachs,
KANDR_CONCAT_TEST_CT, FD_MACH_ONLY | FD_SUBROUTINE,

288
fixincludes/inclhack.def
View file

@ -780,10 +780,6 @@ fix = {
/*
* Remove `extern double cabs' declarations from math.h.
* This conflicts with C99. Discovered on AIX.
* IRIX 5 and IRIX 6 before 6.5.18 (where C99 support was introduced)
* declares cabs() to take a struct __cabs_s argument.
* SunOS4 has its cabs() declaration followed by a comment which
* terminates on the following line.
* Darwin hides its broken cabs in architecture-specific subdirs.
*/
fix = {
@ -799,11 +795,7 @@ fix = {
"#else\n"
"extern double cabs();\n"
"#endif\n"
"extern double cabs ( _Complex z );\n"
"extern double cabs(); /* This is a comment\n"
" and it ends here. */\n"
"extern double cabs(struct __cabs_s);\n"
"extern long double cabsl( struct __cabsl_s );";
"extern double cabs ( _Complex z );";
};
@ -2242,110 +2234,6 @@ fix = {
};
/*
* IRIX 6.5.1[89] <internal/sgimacros.h> unconditionally defines
* __restrict as restrict iff __c99. This is wrong for C++, which
* needs many C99 features, but only supports __restrict.
*/
fix = {
hackname = irix___restrict;
files = internal/sgimacros.h;
select = "(#ifdef __c99\n)(#[ \t]*define __restrict restrict)";
mach = "mips-sgi-irix6.5";
c_fix = format;
c_fix_arg = "%1"
"# ifndef __cplusplus\n%2\n# endif";
test_text = "#ifdef __c99\n# define __restrict restrict";
};
/*
* IRIX 6.5.22 <internal/math_core.h> uses the SGI c99 __generic() intrinsic
* to define the fpclasify, isfinite, isinf, isnan, isnormal and signbit
* functions.
*
* This was probably introduced around IRIX 6.5.18
*/
fix = {
hackname = irix___generic1;
files = internal/math_core.h;
mach = "mips-sgi-irix6.5";
select = "#define ([a-z]+)\\(x\\) *__generic.*";
c_fix = format;
c_fix_arg = "extern int %1(double);\n"
"extern int %1f(float);\n"
"extern int %1l(long double);\n"
"#define %1(x) (sizeof(x) == sizeof(double) ? _%1(x) \\\n"
" : sizeof(x) == sizeof(float) ? _%1f(x) \\\n"
" : _%1l(x))\n";
test_text =
"#define isnan(x) __generic(x,,, _isnan, _isnanf, _isnanl,,,)(x)\n";
};
/* Likewise <internal/math_core.h> on IRIX 6.5.19 and later uses the SGI
compiler's __generic intrinsic to define isgreater, isgreaterequal,
isless, islessequal, islessgreater and isunordered functions. */
fix = {
hackname = irix___generic2;
files = internal/math_core.h;
mach = "mips-sgi-irix6.5";
select = "#define ([a-z]+)\\(x,y\\) *__generic.*";
c_fix = format;
c_fix_arg = "#define %1(x,y) \\\n"
" ((sizeof(x)<=4 && sizeof(y)<=4) ? _%1f(x,y) \\\n"
" : (sizeof(x)<=8 && sizeof(y)<=8) ? _%1(x,y) \\\n"
" : _%1l(x,y))\n";
test_text =
"#define isless(x,y) __generic(x,y,, _isless, _islessf, _islessl,,,)(x,y)";
};
/*
* IRIX 5.2's <sys/asm.h> contains an asm comment with a contraction
* that causes the assembly preprocessor to complain about an
* unterminated character constant.
*/
fix = {
hackname = irix_asm_apostrophe;
files = sys/asm.h;
select = "^[ \t]*#.*[Ww]e're";
c_fix = format;
c_fix_arg = "%1 are";
c_fix_arg = "^([ \t]*#.*[Ww]e)'re";
test_text = "\t# and we're on vacation";
};
/*
* IRIX 6.5 complex.h defines _Complex_I and _Imaginary_I in terms of __I__,
* which is a MIPSpro compiler builtin. Remove _Imaginary_I and imaginary
* definitions which are not supported by GCC.
*/
fix = {
hackname = irix_complex;
mach = "mips-sgi-irix6.5";
files = complex.h;
select = "#define[ \t]_Complex_I[ \t]\\(\\(float[ \t]_Complex\\)[ \t]\\(__I__\\)\\)";
sed = "s/#define[ \t]_Complex_I[ \t]((float[ \t]_Complex)[ \t](__I__))/"
"#define _Complex_I (__extension__ 1.0iF)/";
sed = "/#define[ \t]imaginary[ \t]_Imaginary/d";
sed = "/#define[ \t]_Imaginary_I/d";
sed = "s/#define[ \t]I[ \t]_Imaginary_I/#define I _Complex_I/";
test_text = "#define _Complex_I ((float _Complex) (__I__))\n"
"#define imaginary _Imaginary\n"
"// #define _Imaginary_I ((float _Imaginary) 1)\n"
"#define _Imaginary_I __I__\n"
"#define I _Imaginary_I";
};
/*
* Non-traditional "const" declaration in Irix's limits.h.
*/
@ -2360,155 +2248,12 @@ fix = {
/*
* IRIX 6.5 PTHREAD_*_INITIALIZER need an additional level of braces in
* <pthread.h>.
*/
fix = {
hackname = irix_pthread_init;
files = pthread.h;
select = "^(#define[ \t]+PTHREAD_.*_INITIALIZER[ \t]+)(\\{ 0 \\})";
mach = "mips-sgi-irix6.5";
c_fix = format;
c_fix_arg = "%1{ %2 }";
test_text = "#define PTHREAD_MUTEX_INITIALIZER { 0 }\n"
"#define PTHREAD_COND_INITIALIZER { 0 }\n"
"#define PTHREAD_RWLOCK_INITIALIZER { 0 }";
};
/*
* IRIX 6.5.1[78] <sys/socket.h> has a broken definition of socklen_t.
* Various socket function prototypes use different types instead,
* depending on the API in use (BSD, XPG4/5), but the socklen_t
* definition doesn't reflect this (SGI Bug Id 864477, fixed in
* IRIX 6.5.19).
*/
fix = {
hackname = irix_socklen_t;
files = sys/socket.h;
select = "(#define _SOCKLEN_T\n)(typedef u_int32_t socklen_t;)";
mach = "mips-sgi-irix6.5";
c_fix = format;
c_fix_arg = "%1"
"#if _NO_XOPEN4 && _NO_XOPEN5\n"
"typedef int socklen_t;\n"
"#else\n"
"%2\n"
"#endif /* _NO_XOPEN4 && _NO_XOPEN5 */";
test_text = "#define _SOCKLEN_T\ntypedef u_int32_t socklen_t;";
};
/*
* IRIX 6.5 <stdint.h> only works with ISO C99 and errors out
* otherwise.
*/
fix = {
hackname = irix_stdint_c99_mode;
files = stdint.h;
select = "(#ifndef __c99\n)(#error This header file is to be used only for c99 mode compilations)";
mach = "mips-sgi-irix6.5";
c_fix = format;
c_fix_arg = "#if 0\n"
"%2";
test_text =
"#ifndef __c99\n#error This header file is to be used only for c99 mode compilations\n#else";
};
/*
* IRIX 6.5 <stdint.h> has some *_MIN/MAX constants whose types don't
* match the corresponding types, as required by ISO C99.
*/
fix = {
hackname = irix_stdint_c99_types;
files = stdint-irix65.h, stdint.h;
mach = "mips-sgi-irix6.5";
sed = "s@^#define INT64_MIN.*(-0x7fffffffffffffff - 1)$@"
"#define INT64_MIN (-0x7fffffffffffffffLL - 1)@";
sed = "s@^#define INT64_MAX.*0x7fffffffffffffff$@"
"#define INT64_MAX 0x7fffffffffffffffLL@";
sed = "s@^#define UINT32_MAX.*0xffffffff$@"
"#define UINT32_MAX 0xffffffffU@";
sed = "s@^#define UINT64_MAX.*0xffffffffffffffff$@"
"#define UINT64_MAX 0xffffffffffffffffULL@";
sed = "s@^#define INTPTR_MIN.*INT32_MIN$@"
"#define INTPTR_MIN (-0x7fffffffL - 1)@";
sed = "s@^#define INTPTR_MAX.*INT32_MAX$@"
"#define INTPTR_MAX 0x7fffffffL@";
sed = "s@^#define UINTPTR_MAX.*UINT32_MAX$@"
"#define UINTPTR_MAX 0xffffffffUL@";
sed = "s@^#define INTPTR_MIN.*INT64_MIN@"
"#define INTPTR_MIN (-0x7fffffffffffffffL - 1)@";
sed = "s@^#define INTPTR_MAX.*INT64_MAX$@"
"#define INTPTR_MAX 0x7fffffffffffffffL@";
sed = "s@^#define UINTPTR_MAX.*UINT64_MAX$@"
"#define UINTPTR_MAX 0xffffffffffffffffUL@";
sed = "s@^#define PTRDIFF_MIN.*INT64_MIN$@"
"#define PTRDIFF_MIN (-0x7fffffffffffffffL - 1)@";
sed = "s@^#define PTRDIFF_MAX.*INT64_MAX$@"
"#define PTRDIFF_MAX 0x7fffffffffffffffL@";
sed = "s@^#define SIZE_MAX.*UINT64_MAX$@"
"#define SIZE_MAX 0xffffffffffffffffUL@";
test_text = "#define INT64_MIN (-0x7fffffffffffffff - 1)\n"
"#define INT64_MAX 0x7fffffffffffffff\n"
"#define UINT32_MAX 0xffffffff\n"
"#define UINT64_MAX 0xffffffffffffffff\n"
"#define INTPTR_MIN INT32_MIN\n"
"#define INTPTR_MAX INT32_MAX\n"
"#define UINTPTR_MAX UINT32_MAX\n"
"#define INTPTR_MIN INT64_MIN\n"
"#define INTPTR_MAX INT64_MAX\n"
"#define UINTPTR_MAX UINT64_MAX\n"
"#define PTRDIFF_MIN INT64_MIN\n"
"#define PTRDIFF_MAX INT64_MAX\n"
"#define SIZE_MAX UINT64_MAX";
};
/*
* IRIX 6.5 <stdint.h> uses casts in some macros which cannot thus be used
* in preprocessor tests, although ISO C99 requires this.
*/
fix = {
hackname = irix_stdint_c99_macros;
files = stdint-irix65.h, stdint.h;
mach = "mips-sgi-irix6.5";
sed = "s@^#define INT8_C(x).*int.*_t.*$@#define INT8_C(x) (x)@";
sed = "s@^#define INT16_C(x).*int.*_t.*$@#define INT16_C(x) (x)@";
sed = "s@^#define INT32_C(x).*int.*_t.*$@#define INT32_C(x) (x)@";
sed = "s@^#define INT64_C(x).*int.*_t.*$@#define INT64_C(x) (x ## LL)@";
sed = "s@^#define UINT8_C(x).*int.*_t.*$@#define UINT8_C(x) (x)@";
sed = "s@^#define UINT16_C(x).*int.*_t.*$@#define UINT16_C(x) (x)@";
sed = "s@^#define UINT32_C(x).*int.*_t.*$@#define UINT32_C(x) (x ## U)@";
sed = "s@^#define UINT64_C(x).*int.*_t.*$@#define UINT64_C(x) (x ## ULL)@";
sed = "s@^#define INTMAX_C(x).*int.*_t.*$@#define INTMAX_C(x) (x ## LL)@";
sed = "s@^#define UINTMAX_C(x).*int.*_t.*$@#define UINTMAX_C(x) (x ## ULL)@";
test_text = "#define INT8_C(x) (int_least8_t)(x)\n"
"#define INT16_C(x) (int_least16_t)(x)\n"
"#define INT32_C(x) (int_least32_t)(x)\n"
"#define INT64_C(x) (int_least64_t)(x)\n"
"#define UINT8_C(x) (uint_least8_t)(x)\n"
"#define UINT16_C(x) (uint_least16_t)(x)\n"
"#define UINT32_C(x) (uint_least32_t)(x)\n"
"#define UINT64_C(x) (uint_least64_t)(x)\n"
"#define INTMAX_C(x) (intmax_t)(x)\n"
"#define UINTMAX_C(x) (uintmax_t)(x)";
};
/*
* IRIX 5.x's stdio.h and IRIX 6.5's internal/stdio_core.h declare
* some functions that take a va_list as
* IRIX 5.x's stdio.h declares some functions that take a va_list as
* taking char *. However, GCC uses void * for va_list, so
* calling vfprintf with a va_list fails in C++. */
fix = {
hackname = irix_stdio_va_list;
files = stdio.h;
files = internal/stdio_core.h;
select = '/\* va_list \*/ char \*';
c_fix = format;
@ -2518,26 +2263,6 @@ fix = {
};
/*
* IRIX 6.5.19 <internal/wchar_core.h> provides the XPG4 variant of
* wcsftime by default. ISO C99 requires the XPG5 variant instead.
*/
fix = {
hackname = irix_wcsftime;
files = internal/wchar_core.h;
select = "#if _NO_XOPEN5\n(extern size_t[ \t]+wcsftime.*const char \*.*)";
mach = "mips-sgi-irix6.5";
c_fix = format;
c_fix_arg = "#if _NO_XOPEN5 && !defined(__c99)\n%1";
test_text = "#if _NO_XOPEN5\n"
"extern size_t wcsftime(wchar_t *, "
"__SGI_LIBC_NAMESPACE_QUALIFIER size_t, const char *, "
"const struct tm *);";
};
/*
* These files in Sun OS 4.x and ARM/RISCiX and BSD4.3
* use / * * / to concatenate tokens.
@ -3767,15 +3492,11 @@ fix = {
* of __gnuc_va_list, __DJ_va_list, or _G_va_list is taken to
* indicate that the header knows what it's doing -- under SUSv2,
* stdio.h is required to define va_list, and we shouldn't break
* that. On IRIX 6.5, internal/wchar_core.h used to get its
* definition of va_list from stdio.h. Since this doesn't happen any
* longer, use __gnuc_va_list there, too.
* that.
*/
fix = {
hackname = stdio_va_list;
files = stdio.h;
files = internal/stdio_core.h;
files = internal/wchar_core.h;
bypass = '__gnuc_va_list|_BSD_VA_LIST_|__DJ_va_list|_G_va_list';
/*
* On Solaris 10, the definition in
@ -4151,9 +3872,6 @@ fix = {
select =
'profil\(unsigned short \*, unsigned int, unsigned int, unsigned int\)';
/* The fix is wrong on IRIX 5/6 and creates a conflict with another
prototype in <sys/profil.h>. */
bypass = 'Silicon Graphics';
c_fix = format;
c_fix_arg = 'profil(unsigned short *, size_t, int, unsigned int)';

6
fixincludes/tests/base/complex.h
View file

@ -21,12 +21,6 @@
#endif /* HPUX_IMAGINARY_I_CHECK */
#if defined( IRIX_COMPLEX_CHECK )
#define _Complex_I (__extension__ 1.0iF)
#define I _Complex_I
#endif /* IRIX_COMPLEX_CHECK */
#if defined( SOLARIS_COMPLEX_CHECK )
#define _Complex_I (__extension__ 1.0iF)
#define complex _Complex

30
fixincludes/tests/base/internal/math_core.h
View file

@ -1,30 +0,0 @@
/* DO NOT EDIT THIS FILE.
It has been auto-edited by fixincludes from:
"fixinc/tests/inc/internal/math_core.h"
This had to be done to correct non-standard usages in the
original, manufacturer supplied header file. */
#if defined( IRIX___GENERIC1_CHECK )
extern int isnan(double);
extern int isnanf(float);
extern int isnanl(long double);
#define isnan(x) (sizeof(x) == sizeof(double) ? _isnan(x) \
: sizeof(x) == sizeof(float) ? _isnanf(x) \
: _isnanl(x))
#endif /* IRIX___GENERIC1_CHECK */
#if defined( IRIX___GENERIC2_CHECK )
#define isless(x,y) \
((sizeof(x)<=4 && sizeof(y)<=4) ? _islessf(x,y) \
: (sizeof(x)<=8 && sizeof(y)<=8) ? _isless(x,y) \
: _islessl(x,y))
#endif /* IRIX___GENERIC2_CHECK */

17
fixincludes/tests/base/internal/sgimacros.h
View file

@ -1,17 +0,0 @@
/* DO NOT EDIT THIS FILE.
It has been auto-edited by fixincludes from:
"fixinc/tests/inc/internal/sgimacros.h"
This had to be done to correct non-standard usages in the
original, manufacturer supplied header file. */
#if defined( IRIX___RESTRICT_CHECK )
#ifdef __c99
# ifndef __cplusplus
# define __restrict restrict
# endif
#endif /* IRIX___RESTRICT_CHECK */

15
fixincludes/tests/base/internal/wchar_core.h
View file

@ -1,15 +0,0 @@
/* DO NOT EDIT THIS FILE.
It has been auto-edited by fixincludes from:
"fixinc/tests/inc/internal/wchar_core.h"
This had to be done to correct non-standard usages in the
original, manufacturer supplied header file. */
#if defined( IRIX_WCSFTIME_CHECK )
#if _NO_XOPEN5 && !defined(__c99)
extern size_t wcsftime(wchar_t *, __SGI_LIBC_NAMESPACE_QUALIFIER size_t, const char *, const struct tm *);
#endif /* IRIX_WCSFTIME_CHECK */

4
fixincludes/tests/base/math.h
View file

@ -27,10 +27,6 @@
#endif
/* This is a comment
and it ends here. */
#endif /* BROKEN_CABS_CHECK */

7
fixincludes/tests/base/pthread.h
View file

@ -70,13 +70,6 @@
#endif /* GLIBC_MUTEX_INIT_CHECK */
#if defined( IRIX_PTHREAD_INIT_CHECK )
#define PTHREAD_MUTEX_INITIALIZER { { 0 } }
#define PTHREAD_COND_INITIALIZER { { 0 } }
#define PTHREAD_RWLOCK_INITIALIZER { { 0 } }
#endif /* IRIX_PTHREAD_INIT_CHECK */
#if defined( PTHREAD_INCOMPLETE_STRUCT_ARGUMENT_CHECK )
extern int __sigsetjmp (struct __jmp_buf_tag *__env, int __savemask);
#endif /* PTHREAD_INCOMPLETE_STRUCT_ARGUMENT_CHECK */

40
fixincludes/tests/base/stdint-irix65.h
View file

@ -1,40 +0,0 @@
/* DO NOT EDIT THIS FILE.
It has been auto-edited by fixincludes from:
"fixinc/tests/inc/stdint-irix65.h"
This had to be done to correct non-standard usages in the
original, manufacturer supplied header file. */
#if defined( IRIX_STDINT_C99_TYPES_CHECK )
#define INT64_MIN (-0x7fffffffffffffffLL - 1)
#define INT64_MAX 0x7fffffffffffffffLL
#define UINT32_MAX 0xffffffffU
#define UINT64_MAX 0xffffffffffffffffULL
#define INTPTR_MIN (-0x7fffffffL - 1)
#define INTPTR_MAX 0x7fffffffL
#define UINTPTR_MAX 0xffffffffUL
#define INTPTR_MIN (-0x7fffffffffffffffL - 1)
#define INTPTR_MAX 0x7fffffffffffffffL
#define UINTPTR_MAX 0xffffffffffffffffUL
#define PTRDIFF_MIN (-0x7fffffffffffffffL - 1)
#define PTRDIFF_MAX 0x7fffffffffffffffL
#define SIZE_MAX 0xffffffffffffffffUL
#endif /* IRIX_STDINT_C99_TYPES_CHECK */
#if defined( IRIX_STDINT_C99_MACROS_CHECK )
#define INT8_C(x) (x)
#define INT16_C(x) (x)
#define INT32_C(x) (x)
#define INT64_C(x) (x ## LL)
#define UINT8_C(x) (x)
#define UINT16_C(x) (x)
#define UINT32_C(x) (x ## U)
#define UINT64_C(x) (x ## ULL)
#define INTMAX_C(x) (x ## LL)
#define UINTMAX_C(x) (x ## ULL)
#endif /* IRIX_STDINT_C99_MACROS_CHECK */

7
fixincludes/tests/base/stdint.h
View file

@ -14,10 +14,3 @@
# define UINT8_C(c) c
# define UINT16_C(c) c
#endif /* GLIBC_STDINT_CHECK */
#if defined( IRIX_STDINT_C99_MODE_CHECK )
#if 0
#error This header file is to be used only for c99 mode compilations
#else
#endif /* IRIX_STDINT_C99_MODE_CHECK */

14
fixincludes/tests/base/sys/asm.h
View file

@ -1,14 +0,0 @@
/* DO NOT EDIT THIS FILE.
It has been auto-edited by fixincludes from:
"fixinc/tests/inc/sys/asm.h"
This had to be done to correct non-standard usages in the
original, manufacturer supplied header file. */
#if defined( IRIX_ASM_APOSTROPHE_CHECK )
# and we are on vacation
#endif /* IRIX_ASM_APOSTROPHE_CHECK */

10
fixincludes/tests/base/sys/socket.h
View file

@ -25,13 +25,3 @@
#endif
#endif /* HPUX11_EXTERN_SENDPATH_CHECK */
#if defined( IRIX_SOCKLEN_T_CHECK )
#define _SOCKLEN_T
#if _NO_XOPEN4 && _NO_XOPEN5
typedef int socklen_t;
#else
typedef u_int32_t socklen_t;
#endif /* _NO_XOPEN4 && _NO_XOPEN5 */
#endif /* IRIX_SOCKLEN_T_CHECK */

55
gcc/ChangeLog
View file

@ -1,3 +1,58 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* config.gcc (enable_obsolete): Remove mips-sgi-irix6.5.
(mips-sgi-irix6.5*): Remove.
* config.host (mips-sgi-irix*): Remove.
* configure.ac (enable_fixed_point): Remove mips*-sgi-irix*.
(set_have_as_tls): Remove *-*-irix6*.
(gcc_cv_ld_static_dynamic): Remove mips-sgi-irix6*.
* configure: Regenerate.
* config/mips/iris6.h: Remove.
* config/mips/iris6.opt: Remove.
* config/mips/t-irix6: Remove.
* config/mips/mips.h (TARGET_GPWORD): Remove IRIX 6 N64 handling.
(TARGET_IRIX6): Remove.
(TARGET_CPU_CPP_BUILTINS): Remove IRIX 6 handling.
Don't define LANGUAGE_C, _LANGUAGE_C for Objective-C.
* config/mips/mips.c (mips_build_builtin_va_list): Remove IRIX 6
handling.
(mips_file_start): Likewise.
* config/mips/mips-protos.h (irix_asm_output_align): Remove.
* config/mips/driver-native.c [__sgi__]: Remove.
(host_detect_local_cpu) [__sgi__]: Remove.
* config/mips/gnu-user.h: Remove iris5.h reference.
* config/mips/mips-modes.def: Remove IRIX 6 reference.
* config/mips/gnu-user64.h (MIPS_TFMODE_FORMAT): Remove.
* config/mips/mips.c (mips_option_override) [MIPS_TFMODE_FORMAT]:
Remove.
* gcc.c (main): Move asm_debug initialization ...
(asm_debug): ... here.
* ginclude/stddef.h (__STDDEF_H__): Don't define.
* defaults.h (LINK_ELIMINATE_DUPLICATE_LDIRECTORIES): Remove.
* system.h (LINK_ELIMINATE_DUPLICATE_LDIRECTORIES): Poison.
* collect2.c [LINK_ELIMINATE_DUPLICATE_LDIRECTORIES]: Remove.
(main) [LINK_ELIMINATE_DUPLICATE_LDIRECTORIES]: Remove.
[LINK_ELIMINATE_DUPLICATE_LDIRECTORIES] (is_in_args): Remove.
* doc/tm.texi.in (Driver, LINK_ELIMINATE_DUPLICATE_LDIRECTORIES):
Remove.
* doc/tm.texi: Regenerate.
* doc/invoke.texi (Debugging Options, -gdwarf-<version>): Remove
IRIX 6 reference.
(MIPS Options, -march): Remove IRIX reference.
* doc/install.texi (Binaries, SGI IRIX): Remove.
(Specific, mips-sgi-irix6): Document IRIX 6.5 removal, remove rest
of section.
* doc/trouble.texi (Interoperation): Remove -lgl_s handling.
2012-03-14 Martin Jambor <mjambor@suse.cz>
* expr.c (expand_assignment): Use expand_expr with EXPAND_WRITE

44
gcc/ada/ChangeLog
View file

@ -1,3 +1,47 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* gcc-interface/Makefile.in (mips-sgi-irix6*): Remove.
* a-intnam-irix.ads, mlib-tgt-specific-irix.adb,
s-intman-irix.adb, s-mastop-irix.adb, s-osinte-irix.adb,
s-osinte-irix.ads, s-proinf-irix-athread.adb,
s-proinf-irix-athread.ads, s-taprop-irix.adb, s-tasinf-irix.ads,
system-irix-n32.ads, system-irix-n64.ads, system-irix-o32.ads:
Remove.
* adaint.c [__mips && __sgi]: Remove.
(__gnat_number_of_cpus) [__mips && __sgi]: Remove.
[IS_CROSS && !(__mips && __sgi)]: Remove.
* adaint.h [sgi && _LFAPI]: Remove.
* cstreams.c (__gnat_full_name) [sgi]: Remove.
* env.c (__gnat_unsetenv) [__mips && __sgi]: Remove.
(__gnat_clearenv) [__mips && __sgi]: Remove.
* errno.c (_SGI_MP_SOURCE): Remove.
* gsocket.h [sgi]: Remove.
* init.c: Remove IRIX reference.
[sgi]: Remove.
* link.c [sgi]: Remove.
* s-oscons-tmplt.c [__mips && __sgi] (IOV_MAX): Don't define.
(main) [__mips && __sgi] (MAX_tv_sec): Don't define.
(CLOCK_SGI_FAST, CLOCK_SGI_CYCLE): Remove.
* sysdep.c [sgi]: Remove.
(getc_immediate_common) [sgi]: Remove.
(__gnat_localtime_tzoff) [sgi]: Remove.
* terminals.c [__mips && __sgi] (IRIX): Don't define.
[IRIX] (USE_GETPTY): Don't define.
(allocate_pty_desc) [USE_GETPTY]: Remove.
* g-traceb.ads: Remove IRIX reference.
* g-trasym.ads: Likewise.
* memtrack.adb: Likewise.
* s-interr-sigaction.adb: Likewise.
* gnat_rm.texi (Implementation Advice): Remove SGI info.
(Implementation Defined Characteristics): Likewise.
* gnat_ugn.texi (Summary of Run-Time Configurations, mips-irix):
Remove.
(Irix-Specific Considerations): Remove.
2012-03-13 Tristan Gingold <gingold@adacore.com>
* gcc-interface/gigi.h (flag_vms_malloc64): Refine condition.

195
gcc/ada/a-intnam-irix.ads
View file

@ -1,195 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
-- --
-- A D A . I N T E R R U P T S . N A M E S --
-- --
-- S p e c --
-- --
-- Copyright (C) 1991-2011, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNARL was developed by the GNARL team at Florida State University. --
-- Extensive contributions were provided by Ada Core Technologies, Inc. --
-- --
------------------------------------------------------------------------------
-- This is the Irix version of this package
-- The following signals are reserved by the run time (Athread library):
-- SIGFPE, SIGILL, SIGSEGV, SIGBUS, SIGTRAP, SIGSTOP, SIGKILL
-- The following signals are reserved by the run time (Pthread library):
-- SIGTSTP, SIGILL, SIGTRAP, SIGEMT, SIGFPE, SIGBUS, SIGSTOP, SIGKILL,
-- SIGSEGV, SIGSYS, SIGXCPU, SIGXFSZ, SIGPROF, SIGPTINTR, SIGPTRESCHED,
-- SIGABRT, SIGINT
-- The pragma Unreserve_All_Interrupts affects the following signal
-- (Pthread library):
-- SIGINT: made available for Ada handler
-- This target-dependent package spec contains names of interrupts
-- supported by the local system.
with System.OS_Interface;
package Ada.Interrupts.Names is
-- All identifiers in this unit are implementation defined
pragma Implementation_Defined;
-- Beware that the mapping of names to signals may be many-to-one. There
-- may be aliases. Also, for all signal names that are not supported on
-- the current system the value of the corresponding constant will be zero.
SIGHUP : constant Interrupt_ID :=
System.OS_Interface.SIGHUP; -- hangup
SIGINT : constant Interrupt_ID :=
System.OS_Interface.SIGINT; -- interrupt (rubout)
SIGQUIT : constant Interrupt_ID :=
System.OS_Interface.SIGQUIT; -- quit (ASCD FS)
SIGILL : constant Interrupt_ID :=
System.OS_Interface.SIGILL; -- illegal instruction (not reset)
SIGTRAP : constant Interrupt_ID :=
System.OS_Interface.SIGTRAP; -- trace trap (not reset)
SIGIOT : constant Interrupt_ID :=
System.OS_Interface.SIGIOT; -- IOT instruction
SIGABRT : constant Interrupt_ID :=
System.OS_Interface.SIGABRT; -- used by abort, replace SIGIOT in the
-- future
SIGEMT : constant Interrupt_ID :=
System.OS_Interface.SIGEMT; -- EMT instruction
SIGFPE : constant Interrupt_ID :=
System.OS_Interface.SIGFPE; -- floating point exception
SIGKILL : constant Interrupt_ID :=
System.OS_Interface.SIGKILL; -- kill (cannot be caught or ignored)
SIGBUS : constant Interrupt_ID :=
System.OS_Interface.SIGBUS; -- bus error
SIGSEGV : constant Interrupt_ID :=
System.OS_Interface.SIGSEGV; -- segmentation violation
SIGSYS : constant Interrupt_ID :=
System.OS_Interface.SIGSYS; -- bad argument to system call
SIGPIPE : constant Interrupt_ID :=
System.OS_Interface.SIGPIPE; -- write on pipe with no one to read it
SIGALRM : constant Interrupt_ID :=
System.OS_Interface.SIGALRM; -- alarm clock
SIGTERM : constant Interrupt_ID :=
System.OS_Interface.SIGTERM; -- software termination signal from kill
SIGUSR1 : constant Interrupt_ID :=
System.OS_Interface.SIGUSR1; -- user defined signal 1
SIGUSR2 : constant Interrupt_ID :=
System.OS_Interface.SIGUSR2; -- user defined signal 2
SIGCLD : constant Interrupt_ID :=
System.OS_Interface.SIGCLD; -- alias for SIGCHLD
SIGCHLD : constant Interrupt_ID :=
System.OS_Interface.SIGCHLD; -- child status change
SIGPWR : constant Interrupt_ID :=
System.OS_Interface.SIGPWR; -- power-fail restart
SIGWINCH : constant Interrupt_ID :=
System.OS_Interface.SIGWINCH; -- window size change
SIGURG : constant Interrupt_ID :=
System.OS_Interface.SIGURG; -- urgent condition on IO channel
SIGPOLL : constant Interrupt_ID :=
System.OS_Interface.SIGPOLL; -- pollable event occurred
SIGIO : constant Interrupt_ID :=
System.OS_Interface.SIGIO; -- I/O possible (Solaris SIGPOLL alias)
SIGSTOP : constant Interrupt_ID :=
System.OS_Interface.SIGSTOP; -- stop (cannot be caught or ignored)
SIGTSTP : constant Interrupt_ID :=
System.OS_Interface.SIGTSTP; -- user stop requested from tty
SIGCONT : constant Interrupt_ID :=
System.OS_Interface.SIGCONT; -- stopped process has been continued
SIGTTIN : constant Interrupt_ID :=
System.OS_Interface.SIGTTIN; -- background tty read attempted
SIGTTOU : constant Interrupt_ID :=
System.OS_Interface.SIGTTOU; -- background tty write attempted
SIGVTALRM : constant Interrupt_ID :=
System.OS_Interface.SIGVTALRM; -- virtual timer expired
SIGPROF : constant Interrupt_ID :=
System.OS_Interface.SIGPROF; -- profiling timer expired
SIGXCPU : constant Interrupt_ID :=
System.OS_Interface.SIGXCPU; -- CPU time limit exceeded
SIGXFSZ : constant Interrupt_ID :=
System.OS_Interface.SIGXFSZ; -- filesize limit exceeded
SIGK32 : constant Interrupt_ID :=
System.OS_Interface.SIGK32; -- reserved for kernel (IRIX)
SIGCKPT : constant Interrupt_ID :=
System.OS_Interface.SIGCKPT; -- Checkpoint warning
SIGRESTART : constant Interrupt_ID :=
System.OS_Interface.SIGRESTART; -- Restart warning
SIGUME : constant Interrupt_ID :=
System.OS_Interface.SIGUME; -- Uncorrectable memory error
-- Signals defined for Posix 1003.1c
SIGPTINTR : constant Interrupt_ID :=
System.OS_Interface.SIGPTINTR; -- Pthread Interrupt Signal
SIGPTRESCHED : constant Interrupt_ID :=
System.OS_Interface.SIGPTRESCHED; -- Pthread Rescheduling Signal
-- Posix 1003.1b signals
SIGRTMIN : constant Interrupt_ID :=
System.OS_Interface.SIGRTMIN; -- Posix 1003.1b signals
SIGRTMAX : constant Interrupt_ID :=
System.OS_Interface.SIGRTMAX; -- Posix 1003.1b signals
end Ada.Interrupts.Names;

8
gcc/ada/adaint.c
View file

@ -62,7 +62,7 @@ extern "C" {
#endif /* VxWorks */
#if (defined (__mips) && defined (__sgi)) || defined (__APPLE__)
#if defined (__APPLE__)
#include <unistd.h>
#endif
@ -2470,9 +2470,6 @@ __gnat_number_of_cpus (void)
#if defined (linux) || defined (sun) || defined (AIX) || defined (__APPLE__)
cores = (int) sysconf (_SC_NPROCESSORS_ONLN);
#elif (defined (__mips) && defined (__sgi))
cores = (int) sysconf (_SC_NPROC_ONLN);
#elif defined (__hpux__)
struct pst_dynamic psd;
if (pstat_getdynamic (&psd, sizeof (psd), 1, 0) != -1)
@ -3541,8 +3538,7 @@ _flush_cache()
&& ! defined (__APPLE__) \
&& ! defined (_AIX) \
&& ! defined (VMS) \
&& ! defined (__MINGW32__) \
&& ! (defined (__mips) && defined (__sgi)))
&& ! defined (__MINGW32__))
/* Dummy function to satisfy g-trasym.o. See the preprocessor conditional
just above for a list of native platforms that provide a non-dummy

4
gcc/ada/adaint.h
View file

@ -6,7 +6,7 @@
* *
* C Header File *
* *
* Copyright (C) 1992-2011, Free Software Foundation, Inc. *
* Copyright (C) 1992-2012, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@ -51,7 +51,7 @@ extern "C" {
determine at compile time what support the system offers for large files.
For now we just list the platforms we have manually tested. */
#if defined (__GLIBC__) || defined (sun) || (defined (__sgi) && defined(_LFAPI))
#if defined (__GLIBC__) || defined (sun)
#define GNAT_FOPEN fopen64
#define GNAT_STAT stat64
#define GNAT_FSTAT fstat64

4
gcc/ada/cstreams.c
View file

@ -6,7 +6,7 @@
* *
* Auxiliary C functions for Interfaces.C.Streams *
* *
* Copyright (C) 1992-2011, Free Software Foundation, Inc. *
* Copyright (C) 1992-2012, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@ -187,7 +187,7 @@ __gnat_full_name (char *nam, char *buffer)
*p = '\\';
}
#elif defined (sgi) || defined (__FreeBSD__)
#elif defined (__FreeBSD__)
/* Use realpath function which resolves links and references to . and ..
on those Unix systems that support it. Note that GNU/Linux provides it but

7
gcc/ada/env.c
View file

@ -229,11 +229,10 @@ void __gnat_unsetenv (char *name) {
/* Not implemented */
return;
#elif defined (__hpux__) || defined (sun) \
|| (defined (__mips) && defined (__sgi)) \
|| (defined (__vxworks) && ! defined (__RTP__)) \
|| defined (_AIX) || defined (__Lynx__)
/* On Solaris, HP-UX and IRIX there is no function to clear an environment
/* On Solaris and HP-UX there is no function to clear an environment
variable. So we look for the variable in the environ table and delete it
by setting the entry to NULL. This can clearly cause some memory leaks
but free cannot be used on this context as not all strings in the environ
@ -287,9 +286,9 @@ void __gnat_clearenv (void) {
#if defined (VMS)
/* not implemented */
return;
#elif defined (sun) || (defined (__mips) && defined (__sgi)) \
#elif defined (sun) \
|| (defined (__vxworks) && ! defined (__RTP__)) || defined (__Lynx__)
/* On Solaris, IRIX, VxWorks (not RTPs), and Lynx there is no system
/* On Solaris, VxWorks (not RTPs), and Lynx there is no system
call to unset a variable or to clear the environment so set all
the entries in the environ table to NULL (see comment in
__gnat_unsetenv for more explanation). */

3
gcc/ada/errno.c
View file

@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
* Copyright (C) 1992-2009, Free Software Foundation, Inc. *
* Copyright (C) 1992-2012, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@ -38,7 +38,6 @@
#define _REENTRANT
#define _THREAD_SAFE
#define _SGI_MP_SOURCE
#ifdef MaRTE

1
gcc/ada/g-traceb.ads
View file

@ -60,7 +60,6 @@
-- AiX PowerPC
-- HP-UX
-- GNU/Linux x86
-- Irix MIPS
-- LynxOS x86
-- Solaris x86
-- Solaris sparc

1
gcc/ada/g-trasym.ads
View file

@ -34,7 +34,6 @@
-- The full capability is currently supported on the following targets:
-- HP-UX ia64
-- IRIX
-- GNU/Linux x86, x86_64, ia64
-- FreeBSD x86, x86_64
-- Solaris sparc and x86

43
gcc/ada/gcc-interface/Makefile.in
View file

@ -1306,49 +1306,6 @@ ifeq ($(strip $(filter-out s390% linux%,$(arch) $(osys))),)
LIBRARY_VERSION := $(LIB_VERSION)
endif
ifeq ($(strip $(filter-out mips sgi irix6%,$(targ))),)
LIBGNAT_TARGET_PAIRS = \
a-intnam.ads<a-intnam-irix.ads \
a-synbar.adb<a-synbar-posix.adb \
a-synbar.ads<a-synbar-posix.ads \
s-inmaop.adb<s-inmaop-posix.adb \
s-intman.adb<s-intman-irix.adb \
s-mastop.adb<s-mastop-irix.adb \
s-osinte.adb<s-osinte-irix.adb \
s-osinte.ads<s-osinte-irix.ads \
s-osprim.adb<s-osprim-posix.adb \
s-proinf.adb<s-proinf-irix-athread.adb \
s-proinf.ads<s-proinf-irix-athread.ads \
s-taprop.adb<s-taprop-irix.adb \
s-tasinf.ads<s-tasinf-irix.ads \
s-taspri.ads<s-taspri-posix.ads \
s-tpopsp.adb<s-tpopsp-posix.adb \
s-traceb.adb<s-traceb-mastop.adb
ifeq ($(strip $(MULTISUBDIR)),/64)
LIBGNAT_TARGET_PAIRS += \
system.ads<system-irix-n64.ads
else
ifeq ($(strip $(MULTISUBDIR)),/32)
LIBGNAT_TARGET_PAIRS += \
system.ads<system-irix-o32.ads
else
LIBGNAT_TARGET_PAIRS += \
system.ads<system-irix-n32.ads
endif
endif
THREADSLIB = -lpthread
GNATLIB_SHARED = gnatlib-shared-default
EH_MECHANISM=-gcc
TOOLS_TARGET_PAIRS = mlib-tgt-specific.adb<mlib-tgt-specific-irix.adb
TGT_LIB = -lexc
MISCLIB = -lexc
LIBRARY_VERSION := $(LIB_VERSION)
GMEM_LIB = gmemlib
endif
ifeq ($(strip $(filter-out hppa% hp hpux10%,$(targ))),)
LIBGNAT_TARGET_PAIRS = \
a-excpol.adb<a-excpol-abort.adb \

21
gcc/ada/gnat_rm.texi
View file

@ -15,7 +15,7 @@
@setfilename gnat_rm.info
@copying
Copyright @copyright{} 1995-2008, Free Software Foundation, Inc.
Copyright @copyright{} 1995-2012, Free Software Foundation, Inc.
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -8928,10 +8928,6 @@ of interrupt blocking.
Whenever possible, the implementation should allow interrupt handlers to
be called directly by the hardware.
@end cartouche
@c SGI info:
@ignore
This is never possible under IRIX, so this is followed by default.
@end ignore
Followed on any target where the underlying operating system permits
such direct calls.
@ -9244,11 +9240,6 @@ A requirement for conforming Ada compilers is that they provide
documentation describing how the implementation deals with each of these
issues. In this chapter, you will find each point in Annex M listed
followed by a description in italic font of how GNAT
@c SGI info:
@ignore
in the ProDev Ada
implementation on IRIX 5.3 operating system or greater
@end ignore
handles the implementation dependence.
You can use this chapter as a guide to minimizing implementation
@ -10515,11 +10506,6 @@ object does not keep its processor busy.
on task dispatching. See D.2.1(9).
@end cartouche
@noindent
@c SGI info
@ignore
Tasks map to IRIX threads, and the dispatching policy is as defined by
the IRIX implementation of threads.
@end ignore
Tasks map to threads in the threads package used by GNAT@. Where possible
and appropriate, these threads correspond to native threads of the
underlying operating system.
@ -10550,11 +10536,6 @@ of delay expirations for lower priority tasks.
@strong{100}. Implementation-defined task dispatching. See D.2.2(18).
@end cartouche
@noindent
@c SGI info:
@ignore
Tasks map to IRIX threads, and the dispatching policy is as defined by
the IRIX implementation of threads.
@end ignore
The policy is the same as that of the underlying threads implementation.
@sp 1

25
gcc/ada/gnat_ugn.texi
View file

@ -584,7 +584,6 @@ Platform-Specific Information for the Run-Time Libraries
* Solaris-Specific Considerations::
* Linux-Specific Considerations::
* AIX-Specific Considerations::
* Irix-Specific Considerations::
* RTX-Specific Considerations::
* HP-UX-Specific Considerations::
@ -22150,7 +22149,6 @@ information about several specific platforms.
* Solaris-Specific Considerations::
* Linux-Specific Considerations::
* AIX-Specific Considerations::
* Irix-Specific Considerations::
* RTX-Specific Considerations::
* HP-UX-Specific Considerations::
@end menu
@ -22188,11 +22186,6 @@ information about several specific platforms.
@item @code{@ @ @ @ }Tasking @tab pthread library
@item @code{@ @ @ @ }Exceptions @tab ZCX
@*
@item @b{mips-irix}
@item @code{@ @ }@i{rts-native (default)}
@item @code{@ @ @ @ }Tasking @tab native IRIX threads
@item @code{@ @ @ @ }Exceptions @tab ZCX
@*
@item @b{pa-hpux}
@item @code{@ @ }@i{rts-native (default)}
@item @code{@ @ @ @ }Tasking @tab native HP-UX threads
@ -22481,24 +22474,6 @@ occurs in the environment task, or use @code{pragma Storage_Size} to
specify a sufficiently large size for the stack of the task that contains
this call.
@node Irix-Specific Considerations
@section Irix-Specific Considerations
@cindex Irix libraries
@noindent
The GCC support libraries coming with the Irix compiler have moved to
their canonical place with respect to the general Irix ABI related
conventions. Running applications built with the default shared GNAT
run-time now requires the LD_LIBRARY_PATH environment variable to
include this location. A possible way to achieve this is to issue the
following command line on a bash prompt:
@smallexample
@group
$ LD_LIBRARY_PATH=$LD_LIBRARY_PATH:`dirname \`gcc --print-file-name=libgcc_s.so\``
@end group
@end smallexample
@node RTX-Specific Considerations
@section RTX-Specific Considerations
@cindex RTX libraries

2
gcc/ada/gsocket.h
View file

@ -202,7 +202,7 @@
defined (_WIN32) || defined (__APPLE__)
# define HAVE_THREAD_SAFE_GETxxxBYyyy 1
#elif defined (sgi) || defined (linux) || defined (__GLIBC__) || \
#elif defined (linux) || defined (__GLIBC__) || \
(defined (sun) && defined (__SVR4) && !defined (__vxworks)) || \
defined(__rtems__)
# define HAVE_GETxxxBYyyy_R 1

171
gcc/ada/init.c
View file

@ -70,7 +70,8 @@ extern "C" {
extern void __gnat_raise_program_error (const char *, int);
/* Addresses of exception data blocks for predefined exceptions. Tasking_Error
is not used in this unit, and the abort signal is only used on IRIX. */
is not used in this unit, and the abort signal is only used on IRIX.
??? Revisit this part since IRIX is no longer supported. */
extern struct Exception_Data constraint_error;
extern struct Exception_Data numeric_error;
extern struct Exception_Data program_error;
@ -603,174 +604,6 @@ __gnat_install_handler (void)
__gnat_handler_installed = 1;
}
/****************/
/* IRIX Section */
/****************/
#elif defined (sgi)
#include <signal.h>
#include <siginfo.h>
#ifndef NULL
#define NULL 0
#endif
#define SIGADAABORT 48
#define SIGNAL_STACK_SIZE 4096
#define SIGNAL_STACK_ALIGNMENT 64
#define Check_Abort_Status \
system__soft_links__check_abort_status
extern int (*Check_Abort_Status) (void);
extern struct Exception_Data _abort_signal;
/* We are not setting the SA_SIGINFO bit in the sigaction flags when
connecting that handler, with the effects described in the sigaction
man page:
SA_SIGINFO If set and the signal is caught, sig is passed as the
first argument to the signal-catching function. If the
second argument is not equal to NULL, it points to a
siginfo_t structure containing the reason why the
signal was generated [see siginfo(5)]; the third
argument points to a ucontext_t structure containing
the receiving process's context when the signal was
delivered [see ucontext(5)]. If cleared and the signal
is caught, the first argument is also the signal number
but the second argument is the signal code identifying
the cause of the signal. The third argument points to a
sigcontext_t structure containing the receiving
process's context when the signal was delivered. This
is the default behavior (see signal(5) for more
details). Additionally, when SA_SIGINFO is set for a
signal, multiple occurrences of that signal will be
queued for delivery in FIFO order (see sigqueue(3) for
a more detailed explanation of this concept), if those
occurrences of that signal were generated using
sigqueue(3). */
static void
__gnat_error_handler (int sig, siginfo_t *reason, void *uc ATTRIBUTE_UNUSED)
{
/* This handler is installed with SA_SIGINFO cleared, but there's no
prototype for the resulting alternative three-argument form, so we
have to hack around this by casting reason to the int actually
passed. */
int code = (int) reason;
struct Exception_Data *exception;
const char *msg;
switch (sig)
{
case SIGSEGV:
if (code == EFAULT)
{
exception = &program_error;
msg = "SIGSEGV: (Invalid virtual address)";
}
else if (code == ENXIO)
{
exception = &program_error;
msg = "SIGSEGV: (Read beyond mapped object)";
}
else if (code == ENOSPC)
{
exception = &program_error; /* ??? storage_error ??? */
msg = "SIGSEGV: (Autogrow for file failed)";
}
else if (code == EACCES || code == EEXIST)
{
/* ??? We handle stack overflows here, some of which do trigger
SIGSEGV + EEXIST on Irix 6.5 although EEXIST is not part of
the documented valid codes for SEGV in the signal(5) man
page. */
/* ??? Re-add smarts to further verify that we launched
the stack into a guard page, not an attempt to
write to .text or something. */
exception = &storage_error;
msg = "SIGSEGV: stack overflow or erroneous memory access";
}
else
{
/* Just in case the OS guys did it to us again. Sometimes
they fail to document all of the valid codes that are
passed to signal handlers, just in case someone depends
on knowing all the codes. */
exception = &program_error;
msg = "SIGSEGV: (Undocumented reason)";
}
break;
case SIGBUS:
/* Map all bus errors to Program_Error. */
exception = &program_error;
msg = "SIGBUS";
break;
case SIGFPE:
/* Map all fpe errors to Constraint_Error. */
exception = &constraint_error;
msg = "SIGFPE";
break;
case SIGADAABORT:
if ((*Check_Abort_Status) ())
{
exception = &_abort_signal;
msg = "";
}
else
return;
break;
default:
/* Everything else is a Program_Error. */
exception = &program_error;
msg = "unhandled signal";
}
Raise_From_Signal_Handler (exception, msg);
}
void
__gnat_install_handler (void)
{
struct sigaction act;
/* Setup signal handler to map synchronous signals to appropriate
exceptions. Make sure that the handler isn't interrupted by another
signal that might cause a scheduling event!
The handler is installed with SA_SIGINFO cleared, but there's no
C++ prototype for the three-argument form, so fake it by using
sa_sigaction and casting the arguments instead. */
act.sa_sigaction = __gnat_error_handler;
act.sa_flags = SA_NODEFER + SA_RESTART;
sigfillset (&act.sa_mask);
sigemptyset (&act.sa_mask);
/* Do not install handlers if interrupt state is "System". */
if (__gnat_get_interrupt_state (SIGABRT) != 's')
sigaction (SIGABRT, &act, NULL);
if (__gnat_get_interrupt_state (SIGFPE) != 's')
sigaction (SIGFPE, &act, NULL);
if (__gnat_get_interrupt_state (SIGILL) != 's')
sigaction (SIGILL, &act, NULL);
if (__gnat_get_interrupt_state (SIGSEGV) != 's')
sigaction (SIGSEGV, &act, NULL);
if (__gnat_get_interrupt_state (SIGBUS) != 's')
sigaction (SIGBUS, &act, NULL);
if (__gnat_get_interrupt_state (SIGADAABORT) != 's')
sigaction (SIGADAABORT, &act, NULL);
__gnat_handler_installed = 1;
}
/*******************/
/* LynxOS Section */
/*******************/

22
gcc/ada/link.c
View file

@ -96,27 +96,7 @@ extern "C" {
#define SHARED 'H'
#define STATIC 'T'
#if defined (sgi)
const char *__gnat_object_file_option = "-Wl,-objectlist,";
const char *__gnat_run_path_option = "-Wl,-rpath,";
int __gnat_link_max = 5000;
unsigned char __gnat_objlist_file_supported = 1;
char __gnat_shared_libgnat_default = STATIC;
char __gnat_shared_libgcc_default = STATIC;
unsigned char __gnat_using_gnu_linker = 0;
const char *__gnat_object_library_extension = ".a";
unsigned char __gnat_separate_run_path_options = 0;
/* The libgcc_s locations have changed in GCC 4. The n32 version used
to be in "lib", it moved to "lib32" and "lib" became the home of
the o32 version. We are targetting n32 by default, so ... */
#if __GNUC__ < 4
const char *__gnat_default_libgcc_subdir = "lib";
#else
const char *__gnat_default_libgcc_subdir = "lib32";
#endif
#elif defined (__WIN32)
#if defined (__WIN32)
const char *__gnat_object_file_option = "";
const char *__gnat_run_path_option = "";
int __gnat_link_max = 30000;

1
gcc/ada/memtrack.adb
View file

@ -59,7 +59,6 @@
-- AIX
-- GNU/Linux
-- HP-UX
-- Irix
-- Solaris
-- Alpha OpenVMS

182
gcc/ada/mlib-tgt-specific-irix.adb
View file

@ -1,182 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- M L I B . T G T . S P E C I F I C --
-- (IRIX Version) --
-- --
-- B o d y --
-- --
-- Copyright (C) 2003-2008, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING3. If not, go to --
-- http://www.gnu.org/licenses for a complete copy of the license. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This is the IRIX version of the body
with MLib.Fil;
with MLib.Utl;
with Opt;
with Output; use Output;
package body MLib.Tgt.Specific is
-- Non default subprogram
procedure Build_Dynamic_Library
(Ofiles : Argument_List;
Options : Argument_List;
Interfaces : Argument_List;
Lib_Filename : String;
Lib_Dir : String;
Symbol_Data : Symbol_Record;
Driver_Name : Name_Id := No_Name;
Lib_Version : String := "";
Auto_Init : Boolean := False);
function Is_Archive_Ext (Ext : String) return Boolean;
---------------------------
-- Build_Dynamic_Library --
---------------------------
procedure Build_Dynamic_Library
(Ofiles : Argument_List;
Options : Argument_List;
Interfaces : Argument_List;
Lib_Filename : String;
Lib_Dir : String;
Symbol_Data : Symbol_Record;
Driver_Name : Name_Id := No_Name;
Lib_Version : String := "";
Auto_Init : Boolean := False)
is
pragma Unreferenced (Interfaces);
pragma Unreferenced (Symbol_Data);
pragma Unreferenced (Auto_Init);
Lib_File : constant String :=
"lib" & MLib.Fil.Append_To (Lib_Filename, DLL_Ext);
Lib_Path : constant String :=
Lib_Dir & Directory_Separator & Lib_File;
Version_Arg : String_Access;
Symbolic_Link_Needed : Boolean := False;
N_Options : Argument_List := Options;
Options_Last : Natural := N_Options'Last;
-- After moving -lxxx to Options_2, N_Options up to index Options_Last
-- will contain the Options to pass to MLib.Utl.Gcc.
Real_Options_2 : Argument_List (1 .. Options'Length);
Real_Options_2_Last : Natural := 0;
-- Real_Options_2 up to index Real_Options_2_Last will contain the
-- Options_2 to pass to MLib.Utl.Gcc.
begin
if Opt.Verbose_Mode then
Write_Str ("building relocatable shared library ");
Write_Line (Lib_Path);
end if;
-- Move all -lxxx to Options_2
declare
Index : Natural := N_Options'First;
Arg : String_Access;
begin
while Index <= Options_Last loop
Arg := N_Options (Index);
if Arg'Length > 2
and then Arg (Arg'First .. Arg'First + 1) = "-l"
then
Real_Options_2_Last := Real_Options_2_Last + 1;
Real_Options_2 (Real_Options_2_Last) := Arg;
N_Options (Index .. Options_Last - 1) :=
N_Options (Index + 1 .. Options_Last);
Options_Last := Options_Last - 1;
else
Index := Index + 1;
end if;
end loop;
end;
if Lib_Version = "" then
MLib.Utl.Gcc
(Output_File => Lib_Path,
Objects => Ofiles,
Options => N_Options (N_Options'First .. Options_Last),
Driver_Name => Driver_Name,
Options_2 => Real_Options_2 (1 .. Real_Options_2_Last));
else
declare
Maj_Version : constant String :=
Major_Id_Name (Lib_File, Lib_Version);
begin
if Maj_Version'Length /= 0 then
Version_Arg := new String'("-Wl,-soname," & Maj_Version);
else
Version_Arg := new String'("-Wl,-soname," & Lib_Version);
end if;
if Is_Absolute_Path (Lib_Version) then
MLib.Utl.Gcc
(Output_File => Lib_Version,
Objects => Ofiles,
Options => N_Options (N_Options'First .. Options_Last) &
Version_Arg,
Driver_Name => Driver_Name,
Options_2 => Real_Options_2 (1 .. Real_Options_2_Last));
Symbolic_Link_Needed := Lib_Version /= Lib_Path;
else
MLib.Utl.Gcc
(Output_File => Lib_Dir & Directory_Separator & Lib_Version,
Objects => Ofiles,
Options => N_Options (N_Options'First .. Options_Last) &
Version_Arg,
Driver_Name => Driver_Name,
Options_2 => Real_Options_2 (1 .. Real_Options_2_Last));
Symbolic_Link_Needed :=
Lib_Dir & Directory_Separator & Lib_Version /= Lib_Path;
end if;
if Symbolic_Link_Needed then
Create_Sym_Links
(Lib_Path, Lib_Version, Lib_Dir, Maj_Version);
end if;
end;
end if;
end Build_Dynamic_Library;
--------------------
-- Is_Archive_Ext --
--------------------
function Is_Archive_Ext (Ext : String) return Boolean is
begin
return Ext = ".a" or else Ext = ".so";
end Is_Archive_Ext;
begin
Build_Dynamic_Library_Ptr := Build_Dynamic_Library'Access;
Is_Archive_Ext_Ptr := Is_Archive_Ext'Access;
end MLib.Tgt.Specific;

4
gcc/ada/s-interr-sigaction.adb
View file

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1998-2009, Free Software Foundation, Inc. --
-- Copyright (C) 1998-2012, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -29,7 +29,7 @@
-- --
------------------------------------------------------------------------------
-- This is the IRIX & NT version of this package
-- This is the NT version of this package
with Ada.Task_Identification;
with Ada.Unchecked_Conversion;

137
gcc/ada/s-intman-irix.adb
View file

@ -1,137 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
-- --
-- S Y S T E M . I N T E R R U P T _ M A N A G E M E N T --
-- --
-- B o d y --
-- --
-- Copyright (C) 1995-2010, AdaCore --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNARL was developed by the GNARL team at Florida State University. --
-- Extensive contributions were provided by Ada Core Technologies, Inc. --
-- --
------------------------------------------------------------------------------
-- This is a SGI Pthread version of this package
-- Make a careful study of all signals available under the OS, to see which
-- need to be reserved, kept always unmasked, or kept always unmasked. Be on
-- the lookout for special signals that may be used by the thread library.
package body System.Interrupt_Management is
use System.OS_Interface;
type Interrupt_List is array (Interrupt_ID range <>) of Interrupt_ID;
Exception_Interrupts : constant Interrupt_List :=
(SIGTSTP, SIGILL, SIGTRAP, SIGEMT, SIGFPE, SIGBUS, SIGSTOP, SIGKILL,
SIGSEGV, SIGSYS, SIGXCPU, SIGXFSZ, SIGPROF, SIGPTINTR, SIGPTRESCHED,
SIGABRT, SIGPIPE);
Unreserve_All_Interrupts : Interfaces.C.int;
pragma Import
(C, Unreserve_All_Interrupts, "__gl_unreserve_all_interrupts");
function State (Int : Interrupt_ID) return Character;
pragma Import (C, State, "__gnat_get_interrupt_state");
-- Get interrupt state. Defined in a-init.c
-- The input argument is the interrupt number,
-- and the result is one of the following:
User : constant Character := 'u';
Runtime : constant Character := 'r';
Default : constant Character := 's';
-- 'n' this interrupt not set by any Interrupt_State pragma
-- 'u' Interrupt_State pragma set state to User
-- 'r' Interrupt_State pragma set state to Runtime
-- 's' Interrupt_State pragma set state to System (use "default"
-- system handler)
----------------
-- Initialize --
----------------
Initialized : Boolean := False;
procedure Initialize is
use type Interfaces.C.int;
begin
if Initialized then
return;
end if;
Initialized := True;
Abort_Task_Interrupt := SIGABRT;
-- Change this if you want to use another signal for task abort.
-- SIGTERM might be a good one.
pragma Assert (Keep_Unmasked = (Interrupt_ID'Range => False));
pragma Assert (Reserve = (Interrupt_ID'Range => False));
-- Process state of exception signals
for J in Exception_Interrupts'Range loop
if State (Exception_Interrupts (J)) /= User then
Keep_Unmasked (Exception_Interrupts (J)) := True;
Reserve (Exception_Interrupts (J)) := True;
end if;
end loop;
if State (Abort_Task_Interrupt) /= User then
Keep_Unmasked (Abort_Task_Interrupt) := True;
Reserve (Abort_Task_Interrupt) := True;
end if;
-- Set SIGINT to unmasked state as long as it's
-- not in "User" state. Check for Unreserve_All_Interrupts last
if State (SIGINT) /= User then
Keep_Unmasked (SIGINT) := True;
end if;
-- Check all signals for state that requires keeping them
-- unmasked and reserved
for J in Interrupt_ID'Range loop
if State (J) = Default or else State (J) = Runtime then
Keep_Unmasked (J) := True;
Reserve (J) := True;
end if;
end loop;
-- Process pragma Unreserve_All_Interrupts. This overrides any
-- settings due to pragma Interrupt_State:
if Unreserve_All_Interrupts /= 0 then
Keep_Unmasked (SIGINT) := False;
Reserve (SIGINT) := False;
end if;
-- We do not have Signal 0 in reality. We just use this value
-- to identify not existing signals (see s-intnam.ads). Therefore,
-- Signal 0 should not be used in all signal related operations hence
-- mark it as reserved.
Reserve (0) := True;
end Initialize;
end System.Interrupt_Management;

351
gcc/ada/s-mastop-irix.adb
View file

@ -1,351 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- SYSTEM.MACHINE_STATE_OPERATIONS --
-- --
-- B o d y --
-- (Version for IRIX/MIPS) --
-- --
-- Copyright (C) 1999-2009, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This version of Ada.Exceptions.Machine_State_Operations is for use on
-- SGI Irix systems. By means of compile time conditional calculations, it
-- can handle both n32/n64 and o32 modes.
with System.Machine_Code; use System.Machine_Code;
with System.Memory;
with System.Soft_Links; use System.Soft_Links;
with Ada.Unchecked_Conversion;
package body System.Machine_State_Operations is
use System.Storage_Elements;
-- The exc_unwind function in libexc operates on a Sigcontext
-- Type sigcontext_t is defined in /usr/include/sys/signal.h.
-- We define an equivalent Ada type here. From the comments in
-- signal.h:
-- sigcontext is not part of the ABI - so this version is used to
-- handle 32 and 64 bit applications - it is a constant size regardless
-- of compilation mode, and always returns 64 bit register values
type Uns32 is mod 2 ** 32;
type Uns64 is mod 2 ** 64;
type Uns32_Ptr is access all Uns32;
type Uns64_Array is array (Integer range <>) of Uns64;
type Reg_Array is array (0 .. 31) of Uns64;
type Sigcontext is record
SC_Regmask : Uns32; -- 0
SC_Status : Uns32; -- 4
SC_PC : Uns64; -- 8
SC_Regs : Reg_Array; -- 16
SC_Fpregs : Reg_Array; -- 272
SC_Ownedfp : Uns32; -- 528
SC_Fpc_Csr : Uns32; -- 532
SC_Fpc_Eir : Uns32; -- 536
SC_Ssflags : Uns32; -- 540
SC_Mdhi : Uns64; -- 544
SC_Mdlo : Uns64; -- 552
SC_Cause : Uns64; -- 560
SC_Badvaddr : Uns64; -- 568
SC_Triggersave : Uns64; -- 576
SC_Sigset : Uns64; -- 584
SC_Fp_Rounded_Result : Uns64; -- 592
SC_Pancake : Uns64_Array (0 .. 5);
SC_Pad : Uns64_Array (0 .. 26);
end record;
type Sigcontext_Ptr is access all Sigcontext;
SC_Regs_Pos : constant String := "16";
SC_Fpregs_Pos : constant String := "272";
-- Byte offset of the Integer and Floating Point register save areas
-- within the Sigcontext.
function To_Sigcontext_Ptr is
new Ada.Unchecked_Conversion (Machine_State, Sigcontext_Ptr);
type Addr_Int is mod 2 ** Long_Integer'Size;
-- An unsigned integer type whose size is the same as System.Address.
-- We rely on the fact that Long_Integer'Size = System.Address'Size in
-- all ABIs. Type Addr_Int can be converted to Uns64.
function To_Code_Loc is
new Ada.Unchecked_Conversion (Addr_Int, Code_Loc);
function To_Addr_Int is
new Ada.Unchecked_Conversion (System.Address, Addr_Int);
function To_Uns32_Ptr is
new Ada.Unchecked_Conversion (Addr_Int, Uns32_Ptr);
--------------------------------
-- ABI-Dependent Declarations --
--------------------------------
o32 : constant Boolean := System.Word_Size = 32;
n32 : constant Boolean := System.Word_Size = 64;
o32n : constant Natural := Boolean'Pos (o32);
n32n : constant Natural := Boolean'Pos (n32);
-- Flags to indicate which ABI is in effect for this compilation. For the
-- purposes of this unit, the n32 and n64 ABIs are identical.
LSC : constant Character := Character'Val (o32n * Character'Pos ('w') +
n32n * Character'Pos ('d'));
-- This is 'w' for o32, and 'd' for n32/n64, used for constructing the
-- load/store instructions used to save/restore machine instructions.
Roff : constant Character := Character'Val (o32n * Character'Pos ('4') +
n32n * Character'Pos ('0'));
-- Offset from first byte of a __uint64 register save location where
-- the register value is stored. For n32/64 we store the entire 64
-- bit register into the uint64. For o32, only 32 bits are stored
-- at an offset of 4 bytes. This is used as part of expressions with
-- '+' signs on both sides, so a null offset has to be '0' and not ' '
-- to avoid assembler syntax errors on "X + + Y" in the latter case.
procedure Update_GP (Scp : Sigcontext_Ptr);
---------------
-- Update_GP --
---------------
procedure Update_GP (Scp : Sigcontext_Ptr) is
type F_op is mod 2 ** 6;
type F_reg is mod 2 ** 5;
type F_imm is new Short_Integer;
type I_Type is record
op : F_op;
rs : F_reg;
rt : F_reg;
imm : F_imm;
end record;
pragma Pack (I_Type);
for I_Type'Size use 32;
type I_Type_Ptr is access all I_Type;
LW : constant F_op := 2#100011#;
Reg_GP : constant := 28;
type Address_Int is mod 2 ** Standard'Address_Size;
function To_I_Type_Ptr is new
Ada.Unchecked_Conversion (Address_Int, I_Type_Ptr);
Ret_Ins : constant I_Type_Ptr := To_I_Type_Ptr (Address_Int (Scp.SC_PC));
GP_Ptr : Uns32_Ptr;
begin
if Ret_Ins.op = LW and then Ret_Ins.rt = Reg_GP then
GP_Ptr := To_Uns32_Ptr
(Addr_Int (Scp.SC_Regs (Integer (Ret_Ins.rs)))
+ Addr_Int (Ret_Ins.imm));
Scp.SC_Regs (Reg_GP) := Uns64 (GP_Ptr.all);
end if;
end Update_GP;
----------------------------
-- Allocate_Machine_State --
----------------------------
function Allocate_Machine_State return Machine_State is
begin
return Machine_State
(Memory.Alloc (Sigcontext'Max_Size_In_Storage_Elements));
end Allocate_Machine_State;
----------------
-- Fetch_Code --
----------------
function Fetch_Code (Loc : Code_Loc) return Code_Loc is
begin
return Loc;
end Fetch_Code;
------------------------
-- Free_Machine_State --
------------------------
procedure Free_Machine_State (M : in out Machine_State) is
begin
Memory.Free (Address (M));
M := Machine_State (Null_Address);
end Free_Machine_State;
------------------
-- Get_Code_Loc --
------------------
function Get_Code_Loc (M : Machine_State) return Code_Loc is
SC : constant Sigcontext_Ptr := To_Sigcontext_Ptr (M);
begin
return To_Code_Loc (Addr_Int (SC.SC_PC));
end Get_Code_Loc;
--------------------------
-- Machine_State_Length --
--------------------------
function Machine_State_Length return Storage_Offset is
begin
return Sigcontext'Max_Size_In_Storage_Elements;
end Machine_State_Length;
---------------
-- Pop_Frame --
---------------
procedure Pop_Frame (M : Machine_State) is
Scp : constant Sigcontext_Ptr := To_Sigcontext_Ptr (M);
procedure Exc_Unwind (Scp : Sigcontext_Ptr; Fde : Long_Integer := 0);
pragma Import (C, Exc_Unwind, "exc_unwind");
pragma Linker_Options ("-lexc");
begin
-- exc_unwind is apparently not thread-safe under IRIX, so protect it
-- against race conditions within the GNAT run time.
-- ??? Note that we might want to use a fine grained lock here since
-- Lock_Task is used in many other places.
Lock_Task.all;
Exc_Unwind (Scp);
Unlock_Task.all;
if Scp.SC_PC = 0 or else Scp.SC_PC = 1 then
-- A return value of 0 or 1 means exc_unwind couldn't find a parent
-- frame. Propagate_Exception expects a zero return address to
-- indicate TOS.
Scp.SC_PC := 0;
else
-- Set the GP to restore to the caller value (not callee value)
-- This is done only in o32 mode. In n32/n64 mode, GP is a normal
-- callee save register
if o32 then
Update_GP (Scp);
end if;
-- Adjust the return address to the call site, not the
-- instruction following the branch delay slot. This may
-- be necessary if the last instruction of a pragma No_Return
-- subprogram is a call. The first instruction following the
-- delay slot may be the start of another subprogram. We back
-- off the address by 8, which points safely into the middle
-- of the generated subprogram code, avoiding end effects.
Scp.SC_PC := Scp.SC_PC - 8;
end if;
end Pop_Frame;
-----------------------
-- Set_Machine_State --
-----------------------
procedure Set_Machine_State (M : Machine_State) is
SI : constant String (1 .. 2) := 's' & LSC;
-- This is "sw" in o32 mode, and "sd" in n32 mode
SF : constant String (1 .. 4) := 's' & LSC & "c1";
-- This is "swc1" in o32 mode and "sdc1" in n32 mode
PI : String renames SC_Regs_Pos;
PF : String renames SC_Fpregs_Pos;
Scp : Sigcontext_Ptr;
begin
-- Save the integer registers. Note that we know that $4 points
-- to M, since that is where the first parameter is passed.
-- Restore integer registers from machine state. Note that we know
-- that $4 points to M since this is the standard calling sequence
<<Past_Prolog>>
Asm (SI & " $16, 16*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $17, 17*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $18, 18*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $19, 19*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $20, 20*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $21, 21*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $22, 22*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $23, 23*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $24, 24*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $25, 25*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $26, 26*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $27, 27*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $28, 28*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $29, 29*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $30, 30*8+" & Roff & "+" & PI & "($4)", Volatile => True);
Asm (SI & " $31, 31*8+" & Roff & "+" & PI & "($4)", Volatile => True);
-- Restore floating-point registers from machine state
Asm (SF & " $f16, 16*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f17, 17*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f18, 18*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f19, 19*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f20, 20*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f21, 21*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f22, 22*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f23, 23*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f24, 24*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f25, 25*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f26, 26*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f27, 27*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f28, 28*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f29, 29*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f30, 30*8+" & Roff & "+" & PF & "($4)", Volatile => True);
Asm (SF & " $f31, 31*8+" & Roff & "+" & PF & "($4)", Volatile => True);
-- Set the PC value for the context to a location after the
-- prolog has been executed.
Scp := To_Sigcontext_Ptr (M);
Scp.SC_PC := Uns64 (To_Addr_Int (Past_Prolog'Address));
-- We saved the state *inside* this routine, but what we want is
-- the state at the call site. So we need to do one pop operation.
-- This pop operation will properly set the PC value in the machine
-- state, so there is no need to save PC in the above code.
Pop_Frame (M);
end Set_Machine_State;
end System.Machine_State_Operations;

18
gcc/ada/s-oscons-tmplt.c
View file

@ -84,15 +84,6 @@ pragma Style_Checks ("M32766");
/** For Linux _XOPEN_SOURCE must be defined, otherwise IOV_MAX is not defined
**/
#define _XOPEN_SOURCE 500
#elif defined (__mips) && defined (__sgi)
/** For IRIX 6, _XOPEN5 must be defined and _XOPEN_IOV_MAX must be used as
** IOV_MAX, otherwise IOV_MAX is not defined. IRIX 5 has neither.
**/
#ifdef _XOPEN_IOV_MAX
#define _XOPEN5
#define IOV_MAX _XOPEN_IOV_MAX
#endif
#endif
/* Include gsocket.h before any system header so it can redefine FD_SETSIZE */
@ -1233,11 +1224,11 @@ CND(SIZEOF_tv_usec, "tv_usec")
*/
/**
** On Solaris and IRIX, field tv_sec in struct timeval has an undocumented
** On Solaris, field tv_sec in struct timeval has an undocumented
** hard-wired limit of 100 million.
** On IA64 HP-UX the limit is 2**31 - 1.
**/
#if defined (sun) || (defined (__mips) && defined (__sgi))
#if defined (sun)
# define MAX_tv_sec "100_000_000"
#elif defined (__hpux__)
@ -1348,11 +1339,6 @@ CND(CLOCK_MONOTONIC, "System monotonic clock")
CND(CLOCK_FASTEST, "Fastest clock")
#endif
#if defined (__sgi)
CND(CLOCK_SGI_FAST, "SGI fast clock")
CND(CLOCK_SGI_CYCLE, "SGI CPU clock")
#endif
#ifndef CLOCK_THREAD_CPUTIME_ID
# define CLOCK_THREAD_CPUTIME_ID -1
#endif

87
gcc/ada/s-osinte-irix.adb
View file

@ -1,87 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
-- --
-- S Y S T E M . O S _ I N T E R F A C E --
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNARL was developed by the GNARL team at Florida State University. --
-- Extensive contributions were provided by Ada Core Technologies, Inc. --
-- --
------------------------------------------------------------------------------
-- This is the IRIX version of this package
-- This package encapsulates all direct interfaces to OS services that are
-- needed by children of System.
pragma Polling (Off);
-- Turn off polling, we do not want ATC polling to take place during tasking
-- operations. It causes infinite loops and other problems.
with Interfaces.C; use Interfaces.C;
package body System.OS_Interface is
------------------
-- pthread_init --
------------------
procedure pthread_init is
begin
null;
end pthread_init;
-----------------
-- To_Duration --
-----------------
function To_Duration (TS : timespec) return Duration is
begin
return Duration (TS.tv_sec) + Duration (TS.tv_nsec) / 10#1#E9;
end To_Duration;
-----------------
-- To_Timespec --
-----------------
function To_Timespec (D : Duration) return timespec is
S : time_t;
F : Duration;
begin
S := time_t (Long_Long_Integer (D));
F := D - Duration (S);
-- If F has negative value due to a round-up, adjust for positive F
-- value.
if F < 0.0 then
S := S - 1;
F := F + 1.0;
end if;
return timespec'(tv_sec => S,
tv_nsec => long (Long_Long_Integer (F * 10#1#E9)));
end To_Timespec;
end System.OS_Interface;

519
gcc/ada/s-osinte-irix.ads
View file

@ -1,519 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS --
-- --
-- S Y S T E M . O S _ I N T E R F A C E --
-- --
-- S p e c --
-- --
-- Copyright (C) 1991-1994, Florida State University --
-- Copyright (C) 1995-2011, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNARL was developed by the GNARL team at Florida State University. --
-- Extensive contributions were provided by Ada Core Technologies, Inc. --
-- --
------------------------------------------------------------------------------
-- This is the SGI Pthreads version of this package
-- This package encapsulates all direct interfaces to OS services that are
-- needed by the tasking run-time (libgnarl).
-- PLEASE DO NOT add any with-clauses to this package or remove the pragma
-- Preelaborate. This package is designed to be a bottom-level (leaf) package.
with Ada.Unchecked_Conversion;
with Interfaces.C;
package System.OS_Interface is
pragma Preelaborate;
pragma Linker_Options ("-lpthread");
subtype int is Interfaces.C.int;
subtype short is Interfaces.C.short;
subtype long is Interfaces.C.long;
subtype unsigned is Interfaces.C.unsigned;
subtype unsigned_short is Interfaces.C.unsigned_short;
subtype unsigned_long is Interfaces.C.unsigned_long;
subtype unsigned_char is Interfaces.C.unsigned_char;
subtype plain_char is Interfaces.C.plain_char;
subtype size_t is Interfaces.C.size_t;
-----------
-- Errno --
-----------
function errno return int;
pragma Import (C, errno, "__get_errno");
EINTR : constant := 4; -- interrupted system call
EAGAIN : constant := 11; -- No more processes
ENOMEM : constant := 12; -- Not enough core
EINVAL : constant := 22; -- Invalid argument
ETIMEDOUT : constant := 145; -- Connection timed out
-------------
-- Signals --
-------------
Max_Interrupt : constant := 64;
type Signal is new int range 0 .. Max_Interrupt;
for Signal'Size use int'Size;
SIGHUP : constant := 1; -- hangup
SIGINT : constant := 2; -- interrupt (rubout)
SIGQUIT : constant := 3; -- quit (ASCD FS)
SIGILL : constant := 4; -- illegal instruction (not reset)
SIGTRAP : constant := 5; -- trace trap (not reset)
SIGIOT : constant := 6; -- IOT instruction
SIGABRT : constant := 6; -- used by abort, replace SIGIOT in the future
SIGEMT : constant := 7; -- EMT instruction
SIGFPE : constant := 8; -- floating point exception
SIGKILL : constant := 9; -- kill (cannot be caught or ignored)
SIGBUS : constant := 10; -- bus error
SIGSEGV : constant := 11; -- segmentation violation
SIGSYS : constant := 12; -- bad argument to system call
SIGPIPE : constant := 13; -- write on a pipe with no one to read it
SIGALRM : constant := 14; -- alarm clock
SIGTERM : constant := 15; -- software termination signal from kill
SIGUSR1 : constant := 16; -- user defined signal 1
SIGUSR2 : constant := 17; -- user defined signal 2
SIGCLD : constant := 18; -- alias for SIGCHLD
SIGCHLD : constant := 18; -- child status change
SIGPWR : constant := 19; -- power-fail restart
SIGWINCH : constant := 20; -- window size change
SIGURG : constant := 21; -- urgent condition on IO channel
SIGPOLL : constant := 22; -- pollable event occurred
SIGIO : constant := 22; -- I/O possible (Solaris SIGPOLL alias)
SIGSTOP : constant := 23; -- stop (cannot be caught or ignored)
SIGTSTP : constant := 24; -- user stop requested from tty
SIGCONT : constant := 25; -- stopped process has been continued
SIGTTIN : constant := 26; -- background tty read attempted
SIGTTOU : constant := 27; -- background tty write attempted
SIGVTALRM : constant := 28; -- virtual timer expired
SIGPROF : constant := 29; -- profiling timer expired
SIGXCPU : constant := 30; -- CPU time limit exceeded
SIGXFSZ : constant := 31; -- filesize limit exceeded
SIGK32 : constant := 32; -- reserved for kernel (IRIX)
SIGCKPT : constant := 33; -- Checkpoint warning
SIGRESTART : constant := 34; -- Restart warning
SIGUME : constant := 35; -- Uncorrectable memory error
-- Signals defined for Posix 1003.1c
SIGPTINTR : constant := 47;
SIGPTRESCHED : constant := 48;
-- Posix 1003.1b signals
SIGRTMIN : constant := 49; -- Posix 1003.1b signals
SIGRTMAX : constant := 64; -- Posix 1003.1b signals
type sigset_t is private;
function sigaddset (set : access sigset_t; sig : Signal) return int;
pragma Import (C, sigaddset, "sigaddset");
function sigdelset (set : access sigset_t; sig : Signal) return int;
pragma Import (C, sigdelset, "sigdelset");
function sigfillset (set : access sigset_t) return int;
pragma Import (C, sigfillset, "sigfillset");
function sigismember (set : access sigset_t; sig : Signal) return int;
pragma Import (C, sigismember, "sigismember");
function sigemptyset (set : access sigset_t) return int;
pragma Import (C, sigemptyset, "sigemptyset");
type array_type_2 is array (Integer range 0 .. 1) of int;
type struct_sigaction is record
sa_flags : int;
sa_handler : System.Address;
sa_mask : sigset_t;
sa_resv : array_type_2;
end record;
pragma Convention (C, struct_sigaction);
type struct_sigaction_ptr is access all struct_sigaction;
SIG_BLOCK : constant := 1;
SIG_UNBLOCK : constant := 2;
SIG_SETMASK : constant := 3;
SIG_DFL : constant := 0;
SIG_IGN : constant := 1;
function sigaction
(sig : Signal;
act : struct_sigaction_ptr;
oact : struct_sigaction_ptr := null) return int;
pragma Import (C, sigaction, "sigaction");
----------
-- Time --
----------
type timespec is private;
type timespec_ptr is access all timespec;
type clockid_t is new int;
SGI_CYCLECNTR_SIZE : constant := 165;
function syssgi (request : Interfaces.C.int) return Interfaces.C.ptrdiff_t;
pragma Import (C, syssgi, "syssgi");
function clock_gettime
(clock_id : clockid_t;
tp : access timespec) return int;
pragma Import (C, clock_gettime, "clock_gettime");
function clock_getres
(clock_id : clockid_t;
tp : access timespec) return int;
pragma Import (C, clock_getres, "clock_getres");
function To_Duration (TS : timespec) return Duration;
pragma Inline (To_Duration);
function To_Timespec (D : Duration) return timespec;
pragma Inline (To_Timespec);
-------------------------
-- Priority Scheduling --
-------------------------
SCHED_FIFO : constant := 1;
SCHED_RR : constant := 2;
SCHED_TS : constant := 3;
SCHED_OTHER : constant := 3;
SCHED_NP : constant := 4;
function sched_get_priority_min (Policy : int) return int;
pragma Import (C, sched_get_priority_min, "sched_get_priority_min");
function sched_get_priority_max (Policy : int) return int;
pragma Import (C, sched_get_priority_max, "sched_get_priority_max");
-------------
-- Process --
-------------
type pid_t is private;
function kill (pid : pid_t; sig : Signal) return int;
pragma Import (C, kill, "kill");
function getpid return pid_t;
pragma Import (C, getpid, "getpid");
-------------
-- Threads --
-------------
type Thread_Body is access
function (arg : System.Address) return System.Address;
pragma Convention (C, Thread_Body);
function Thread_Body_Access is new
Ada.Unchecked_Conversion (System.Address, Thread_Body);
type pthread_t is private;
subtype Thread_Id is pthread_t;
type pthread_mutex_t is limited private;
type pthread_cond_t is limited private;
type pthread_attr_t is limited private;
type pthread_mutexattr_t is limited private;
type pthread_condattr_t is limited private;
type pthread_key_t is private;
PTHREAD_CREATE_DETACHED : constant := 1;
-- Read/Write lock not supported on SGI. To add support both types
-- pthread_rwlock_t and pthread_rwlockattr_t must properly be defined
-- with the associated routines pthread_rwlock_[init/destroy] and
-- pthread_rwlock_[rdlock/wrlock/unlock].
subtype pthread_rwlock_t is pthread_mutex_t;
subtype pthread_rwlockattr_t is pthread_mutexattr_t;
-----------
-- Stack --
-----------
Alternate_Stack_Size : constant := 0;
-- No alternate signal stack is used on this platform
---------------------------------------
-- Nonstandard Thread Initialization --
---------------------------------------
procedure pthread_init;
pragma Inline (pthread_init);
-- This is a dummy procedure to share some GNULLI files
-------------------------
-- POSIX.1c Section 3 --
-------------------------
function sigwait
(set : access sigset_t;
sig : access Signal) return int;
pragma Import (C, sigwait, "sigwait");
function pthread_kill
(thread : pthread_t;
sig : Signal) return int;
pragma Import (C, pthread_kill, "pthread_kill");
function pthread_sigmask
(how : int;
set : access sigset_t;
oset : access sigset_t) return int;
pragma Import (C, pthread_sigmask, "pthread_sigmask");
--------------------------
-- POSIX.1c Section 11 --
--------------------------
function pthread_mutexattr_init
(attr : access pthread_mutexattr_t) return int;
pragma Import (C, pthread_mutexattr_init, "pthread_mutexattr_init");
function pthread_mutexattr_destroy
(attr : access pthread_mutexattr_t) return int;
pragma Import (C, pthread_mutexattr_destroy, "pthread_mutexattr_destroy");
function pthread_mutex_init
(mutex : access pthread_mutex_t;
attr : access pthread_mutexattr_t) return int;
pragma Import (C, pthread_mutex_init, "pthread_mutex_init");
function pthread_mutex_destroy (mutex : access pthread_mutex_t) return int;
pragma Import (C, pthread_mutex_destroy, "pthread_mutex_destroy");
function pthread_mutex_lock (mutex : access pthread_mutex_t) return int;
pragma Import (C, pthread_mutex_lock, "pthread_mutex_lock");
function pthread_mutex_unlock (mutex : access pthread_mutex_t) return int;
pragma Import (C, pthread_mutex_unlock, "pthread_mutex_unlock");
function pthread_condattr_init
(attr : access pthread_condattr_t) return int;
pragma Import (C, pthread_condattr_init, "pthread_condattr_init");
function pthread_condattr_destroy
(attr : access pthread_condattr_t) return int;
pragma Import (C, pthread_condattr_destroy, "pthread_condattr_destroy");
function pthread_cond_init
(cond : access pthread_cond_t;
attr : access pthread_condattr_t) return int;
pragma Import (C, pthread_cond_init, "pthread_cond_init");
function pthread_cond_destroy (cond : access pthread_cond_t) return int;
pragma Import (C, pthread_cond_destroy, "pthread_cond_destroy");
function pthread_cond_signal (cond : access pthread_cond_t) return int;
pragma Import (C, pthread_cond_signal, "pthread_cond_signal");
function pthread_cond_wait
(cond : access pthread_cond_t;
mutex : access pthread_mutex_t) return int;
pragma Import (C, pthread_cond_wait, "pthread_cond_wait");
function pthread_cond_timedwait
(cond : access pthread_cond_t;
mutex : access pthread_mutex_t;
abstime : access timespec) return int;
pragma Import (C, pthread_cond_timedwait, "pthread_cond_timedwait");
--------------------------
-- POSIX.1c Section 13 --
--------------------------
PTHREAD_PRIO_NONE : constant := 0;
PTHREAD_PRIO_PROTECT : constant := 2;
PTHREAD_PRIO_INHERIT : constant := 1;
function pthread_mutexattr_setprotocol
(attr : access pthread_mutexattr_t;
protocol : int) return int;
pragma Import (C, pthread_mutexattr_setprotocol);
function pthread_mutexattr_setprioceiling
(attr : access pthread_mutexattr_t;
prioceiling : int) return int;
pragma Import (C, pthread_mutexattr_setprioceiling);
type struct_sched_param is record
sched_priority : int;
end record;
pragma Convention (C, struct_sched_param);
function pthread_setschedparam
(thread : pthread_t;
policy : int;
param : access struct_sched_param)
return int;
pragma Import (C, pthread_setschedparam, "pthread_setschedparam");
function pthread_attr_setscope
(attr : access pthread_attr_t;
contentionscope : int) return int;
pragma Import (C, pthread_attr_setscope, "pthread_attr_setscope");
function pthread_attr_setinheritsched
(attr : access pthread_attr_t;
inheritsched : int) return int;
pragma Import
(C, pthread_attr_setinheritsched, "pthread_attr_setinheritsched");
function pthread_attr_setschedpolicy
(attr : access pthread_attr_t;
policy : int) return int;
pragma Import (C, pthread_attr_setschedpolicy);
function pthread_attr_setschedparam
(attr : access pthread_attr_t;
sched_param : access struct_sched_param)
return int;
pragma Import (C, pthread_attr_setschedparam, "pthread_attr_setschedparam");
function sched_yield return int;
pragma Import (C, sched_yield, "sched_yield");
---------------------------
-- P1003.1c - Section 16 --
---------------------------
function pthread_attr_init (attributes : access pthread_attr_t) return int;
pragma Import (C, pthread_attr_init, "pthread_attr_init");
function pthread_attr_destroy
(attributes : access pthread_attr_t) return int;
pragma Import (C, pthread_attr_destroy, "pthread_attr_destroy");
function pthread_attr_setdetachstate
(attr : access pthread_attr_t;
detachstate : int) return int;
pragma Import (C, pthread_attr_setdetachstate);
function pthread_attr_setstacksize
(attr : access pthread_attr_t;
stacksize : size_t) return int;
pragma Import (C, pthread_attr_setstacksize, "pthread_attr_setstacksize");
function pthread_create
(thread : access pthread_t;
attributes : access pthread_attr_t;
start_routine : Thread_Body;
arg : System.Address) return int;
pragma Import (C, pthread_create, "pthread_create");
procedure pthread_exit (status : System.Address);
pragma Import (C, pthread_exit, "pthread_exit");
function pthread_self return pthread_t;
pragma Import (C, pthread_self, "pthread_self");
--------------------------
-- POSIX.1c Section 17 --
--------------------------
function pthread_setspecific
(key : pthread_key_t;
value : System.Address) return int;
pragma Import (C, pthread_setspecific, "pthread_setspecific");
function pthread_getspecific (key : pthread_key_t) return System.Address;
pragma Import (C, pthread_getspecific, "pthread_getspecific");
type destructor_pointer is access procedure (arg : System.Address);
pragma Convention (C, destructor_pointer);
function pthread_key_create
(key : access pthread_key_t;
destructor : destructor_pointer) return int;
pragma Import (C, pthread_key_create, "pthread_key_create");
-------------------
-- SGI Additions --
-------------------
-- Non portable SGI 6.5 additions to the pthread interface must be
-- executed from within the context of a system scope task.
function pthread_setrunon_np (cpu : int) return int;
pragma Import (C, pthread_setrunon_np, "pthread_setrunon_np");
private
type array_type_1 is array (Integer range 0 .. 3) of unsigned;
type sigset_t is record
X_X_sigbits : array_type_1;
end record;
pragma Convention (C, sigset_t);
type pid_t is new long;
type time_t is new long;
type timespec is record
tv_sec : time_t;
tv_nsec : long;
end record;
pragma Convention (C, timespec);
type array_type_9 is array (Integer range 0 .. 4) of long;
type pthread_attr_t is record
X_X_D : array_type_9;
end record;
pragma Convention (C, pthread_attr_t);
type array_type_8 is array (Integer range 0 .. 1) of long;
type pthread_condattr_t is record
X_X_D : array_type_8;
end record;
pragma Convention (C, pthread_condattr_t);
type array_type_7 is array (Integer range 0 .. 1) of long;
type pthread_mutexattr_t is record
X_X_D : array_type_7;
end record;
pragma Convention (C, pthread_mutexattr_t);
type pthread_t is new unsigned;
type array_type_10 is array (Integer range 0 .. 7) of long;
type pthread_mutex_t is record
X_X_D : array_type_10;
end record;
pragma Convention (C, pthread_mutex_t);
type array_type_11 is array (Integer range 0 .. 7) of long;
type pthread_cond_t is record
X_X_D : array_type_11;
end record;
pragma Convention (C, pthread_cond_t);
type pthread_key_t is new int;
end System.OS_Interface;

225
gcc/ada/s-proinf-irix-athread.adb
View file

@ -1,225 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- S Y S T E M . P R O G R A M _ I N F O --
-- --
-- B o d y --
-- --
-- Copyright (C) 1997-2009, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This is an Irix (old pthread library) version of this package
-- This package contains the parameters used by the run-time system at
-- program startup. These parameters are isolated in this package body to
-- facilitate replacement by the end user.
--
-- To replace the default values, copy this source file into your build
-- directory, edit the file to reflect your desired behavior, and recompile
-- with the command:
--
-- % gcc -c -O2 -gnatpg s-proinf.adb
--
-- then relink your application as usual.
pragma Warnings (Off); -- why???
with System.OS_Lib;
pragma Warnings (On);
package body System.Program_Info is
Kbytes : constant := 1024;
Default_Initial_Sproc_Count : constant := 0;
Default_Max_Sproc_Count : constant := 128;
Default_Sproc_Stack_Size : constant := 16#4000#;
Default_Stack_Guard_Pages : constant := 1;
Default_Default_Time_Slice : constant := 0.0;
Default_Default_Task_Stack : constant := 12 * Kbytes;
Default_Pthread_Sched_Signal : constant := 35;
Default_Pthread_Arena_Size : constant := 16#40000#;
Default_Os_Default_Priority : constant := 0;
-------------------------
-- Initial_Sproc_Count --
-------------------------
function Initial_Sproc_Count return Integer is
function sysmp (P1 : Integer) return Integer;
pragma Import (C, sysmp, "sysmp", "sysmp");
MP_NPROCS : constant := 1; -- # processor in complex
Pthread_Sproc_Count : constant System.OS_Lib.String_Access :=
System.OS_Lib.Getenv ("PTHREAD_SPROC_COUNT");
begin
if Pthread_Sproc_Count.all'Length = 0 then
return Default_Initial_Sproc_Count;
elsif Pthread_Sproc_Count.all = "AUTO" then
return sysmp (MP_NPROCS);
else
return Integer'Value (Pthread_Sproc_Count.all);
end if;
exception
when others =>
return Default_Initial_Sproc_Count;
end Initial_Sproc_Count;
---------------------
-- Max_Sproc_Count --
---------------------
function Max_Sproc_Count return Integer is
Pthread_Max_Sproc_Count : constant System.OS_Lib.String_Access :=
System.OS_Lib.Getenv ("PTHREAD_MAX_SPROC_COUNT");
begin
if Pthread_Max_Sproc_Count.all'Length = 0 then
return Default_Max_Sproc_Count;
else
return Integer'Value (Pthread_Max_Sproc_Count.all);
end if;
exception
when others =>
return Default_Max_Sproc_Count;
end Max_Sproc_Count;
----------------------
-- Sproc_Stack_Size --
----------------------
function Sproc_Stack_Size return Integer is
begin
return Default_Sproc_Stack_Size;
end Sproc_Stack_Size;
------------------------
-- Default_Time_Slice --
------------------------
function Default_Time_Slice return Duration is
Pthread_Time_Slice_Sec : constant System.OS_Lib.String_Access :=
System.OS_Lib.Getenv
("PTHREAD_TIME_SLICE_SEC");
Pthread_Time_Slice_Usec : constant System.OS_Lib.String_Access :=
System.OS_Lib.Getenv
("PTHREAD_TIME_SLICE_USEC");
Val_Sec, Val_Usec : Integer := 0;
begin
if Pthread_Time_Slice_Sec.all'Length /= 0 or
Pthread_Time_Slice_Usec.all'Length /= 0
then
if Pthread_Time_Slice_Sec.all'Length /= 0 then
Val_Sec := Integer'Value (Pthread_Time_Slice_Sec.all);
end if;
if Pthread_Time_Slice_Usec.all'Length /= 0 then
Val_Usec := Integer'Value (Pthread_Time_Slice_Usec.all);
end if;
return Duration (Val_Sec) + Duration (Val_Usec) / 1000.0;
else
return Default_Default_Time_Slice;
end if;
exception
when others =>
return Default_Default_Time_Slice;
end Default_Time_Slice;
------------------------
-- Default_Task_Stack --
------------------------
function Default_Task_Stack return Integer is
begin
return Default_Default_Task_Stack;
end Default_Task_Stack;
-----------------------
-- Stack_Guard_Pages --
-----------------------
function Stack_Guard_Pages return Integer is
Pthread_Stack_Guard_Pages : constant System.OS_Lib.String_Access :=
System.OS_Lib.Getenv
("PTHREAD_STACK_GUARD_PAGES");
begin
if Pthread_Stack_Guard_Pages.all'Length /= 0 then
return Integer'Value (Pthread_Stack_Guard_Pages.all);
else
return Default_Stack_Guard_Pages;
end if;
exception
when others =>
return Default_Stack_Guard_Pages;
end Stack_Guard_Pages;
--------------------------
-- Pthread_Sched_Signal --
--------------------------
function Pthread_Sched_Signal return Integer is
begin
return Default_Pthread_Sched_Signal;
end Pthread_Sched_Signal;
------------------------
-- Pthread_Arena_Size --
------------------------
function Pthread_Arena_Size return Integer is
Pthread_Arena_Size : constant System.OS_Lib.String_Access :=
System.OS_Lib.Getenv
("PTHREAD_ARENA_SIZE");
begin
if Pthread_Arena_Size.all'Length = 0 then
return Default_Pthread_Arena_Size;
else
return Integer'Value (Pthread_Arena_Size.all);
end if;
exception
when others =>
return Default_Pthread_Arena_Size;
end Pthread_Arena_Size;
-------------------------
-- Os_Default_Priority --
-------------------------
function Os_Default_Priority return Integer is
begin
return Default_Os_Default_Priority;
end Os_Default_Priority;
end System.Program_Info;

76
gcc/ada/s-proinf-irix-athread.ads
View file

@ -1,76 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- S Y S T E M . P R O G R A M _ I N F O --
-- --
-- S p e c --
-- --
-- Copyright (C) 1997-2009, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This package contains the definitions and routines used as parameters to
-- the run-time system at program startup for the SGI implementation.
package System.Program_Info is
pragma Preelaborate;
function Initial_Sproc_Count return Integer;
-- The number of sproc created at program startup for scheduling threads
function Max_Sproc_Count return Integer;
-- The maximum number of sprocs that can be created by the program for
-- servicing threads. This limit includes both the pre-created sprocs and
-- those explicitly created under program control.
function Sproc_Stack_Size return Integer;
-- The size, in bytes, of the sproc's initial stack
function Default_Time_Slice return Duration;
-- The default time quanta for round-robin scheduling of threads of
-- equal priority. This default value can be overridden on a per-task
-- basis by specifying an alternate value via the implementation-defined
-- Task_Info pragma. See s-tasinf.ads for more information.
function Default_Task_Stack return Integer;
-- The default stack size for each created thread. This default value can
-- be overridden on a per-task basis by the language-defined Storage_Size
-- pragma.
function Stack_Guard_Pages return Integer;
-- The number of non-writable, guard pages to append to the bottom of
-- each thread's stack.
function Pthread_Sched_Signal return Integer;
-- The signal used by the Pthreads library to affect scheduling actions
-- in remote sprocs.
function Pthread_Arena_Size return Integer;
-- The size of the shared arena from which pthread locks are allocated.
-- See the usinit(3p) man page for more information on shared arenas.
function Os_Default_Priority return Integer;
-- The default Irix Non-Degrading priority for each sproc created to
-- service threads.
end System.Program_Info;

1358
gcc/ada/s-taprop-irix.adb
View file

File diff suppressed because it is too large Load diff

118
gcc/ada/s-tasinf-irix.ads
View file

@ -1,118 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- S Y S T E M . T A S K _ I N F O --
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- This package contains the definitions and routines associated with the
-- implementation and use of the Task_Info pragma. It is specialized
-- appropriately for targets that make use of this pragma.
-- Note: the compiler generates direct calls to this interface, via Rtsfind.
-- Any changes to this interface may require corresponding compiler changes.
-- This unit may be used directly from an application program by providing
-- an appropriate WITH, and the interface can be expected to remain stable.
-- This is the IRIX (kernel threads) version of this package
with Interfaces.C;
package System.Task_Info is
pragma Preelaborate;
pragma Elaborate_Body;
-- To ensure that a body is allowed
-----------------------------------------
-- Implementation of Task_Info Feature --
-----------------------------------------
-- Pragma Task_Info allows an application to set the underlying
-- pthread scheduling attributes for a specific task.
------------------
-- Declarations --
------------------
type Thread_Scheduling_Scope is
(PTHREAD_SCOPE_PROCESS, PTHREAD_SCOPE_SYSTEM);
for Thread_Scheduling_Scope'Size use Interfaces.C.int'Size;
type Thread_Scheduling_Inheritance is
(PTHREAD_EXPLICIT_SCHED, PTHREAD_INHERIT_SCHED);
for Thread_Scheduling_Inheritance'Size use Interfaces.C.int'Size;
type Thread_Scheduling_Policy is
(SCHED_FIFO, -- The first-in-first-out real-time policy
SCHED_RR, -- The round-robin real-time scheduling policy
SCHED_TS); -- The timeshare earnings based scheduling policy
for Thread_Scheduling_Policy'Size use Interfaces.C.int'Size;
for Thread_Scheduling_Policy use
(SCHED_FIFO => 1,
SCHED_RR => 2,
SCHED_TS => 3);
function SCHED_OTHER return Thread_Scheduling_Policy renames SCHED_TS;
No_Specified_Priority : constant := -1;
subtype Thread_Scheduling_Priority is Integer range
No_Specified_Priority .. 255;
subtype FIFO_Priority is Thread_Scheduling_Priority range 0 .. 255;
subtype RR_Priority is Thread_Scheduling_Priority range 0 .. 255;
subtype TS_Priority is Thread_Scheduling_Priority range 1 .. 40;
subtype OTHER_Priority is Thread_Scheduling_Priority range 1 .. 40;
subtype CPU_Number is Integer range -1 .. Integer'Last;
ANY_CPU : constant CPU_Number := CPU_Number'First;
type Thread_Attributes is record
Scope : Thread_Scheduling_Scope := PTHREAD_SCOPE_PROCESS;
Inheritance : Thread_Scheduling_Inheritance := PTHREAD_EXPLICIT_SCHED;
Policy : Thread_Scheduling_Policy := SCHED_RR;
Priority : Thread_Scheduling_Priority := No_Specified_Priority;
Runon_CPU : CPU_Number := ANY_CPU;
end record;
Default_Thread_Attributes : constant Thread_Attributes :=
(PTHREAD_SCOPE_PROCESS, PTHREAD_EXPLICIT_SCHED, SCHED_RR,
No_Specified_Priority, ANY_CPU);
type Task_Info_Type is access all Thread_Attributes;
Unspecified_Task_Info : constant Task_Info_Type := null;
-- Value passed to task in the absence of a Task_Info pragma
end System.Task_Info;

10
gcc/ada/sysdep.c
View file

@ -251,7 +251,7 @@ __gnat_ttyname (int filedes)
}
#endif
#if defined (linux) || defined (sun) || defined (sgi) \
#if defined (linux) || defined (sun) \
|| defined (WINNT) \
|| defined (__MACHTEN__) || defined (__hpux__) || defined (_AIX) \
|| (defined (__svr4__) && defined (i386)) || defined (__Lynx__) \
@ -309,7 +309,7 @@ getc_immediate_common (FILE *stream,
int *avail,
int waiting)
{
#if defined (linux) || defined (sun) || defined (sgi) \
#if defined (linux) || defined (sun) \
|| defined (__CYGWIN32__) || defined (__MACHTEN__) || defined (__hpux__) \
|| defined (_AIX) || (defined (__svr4__) && defined (i386)) \
|| defined (__Lynx__) || defined (__FreeBSD__) || defined (__OpenBSD__) \
@ -329,7 +329,7 @@ getc_immediate_common (FILE *stream,
/* Set RAW mode, with no echo */
termios_rec.c_lflag = termios_rec.c_lflag & ~ICANON & ~ECHO;
#if defined(linux) || defined (sun) || defined (sgi) \
#if defined(linux) || defined (sun) \
|| defined (__MACHTEN__) || defined (__hpux__) \
|| defined (_AIX) || (defined (__svr4__) && defined (i386)) \
|| defined (__Lynx__) || defined (__FreeBSD__) || defined (__OpenBSD__) \
@ -780,8 +780,8 @@ __gnat_localtime_tzoff (const time_t *timer, const int *is_historic, long *off)
{
struct tm tp;
/* AIX, HPUX, SGI Irix, Sun Solaris */
#if defined (_AIX) || defined (__hpux__) || defined (sgi) || defined (sun)
/* AIX, HPUX, Sun Solaris */
#if defined (_AIX) || defined (__hpux__) || defined (sun)
{
(*Lock_Task) ();

158
gcc/ada/system-irix-n32.ads
View file

@ -1,158 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME COMPONENTS --
-- --
-- S Y S T E M --
-- --
-- S p e c --
-- (SGI Irix, n32 ABI) --
-- --
-- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- apply solely to the contents of the part following the private keyword. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
package System is
pragma Pure;
-- Note that we take advantage of the implementation permission to make
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
-- 2005, this is Pure in any case (AI-362).
type Name is (SYSTEM_NAME_GNAT);
System_Name : constant Name := SYSTEM_NAME_GNAT;
-- System-Dependent Named Numbers
Min_Int : constant := Long_Long_Integer'First;
Max_Int : constant := Long_Long_Integer'Last;
Max_Binary_Modulus : constant := 2 ** Long_Long_Integer'Size;
Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
Max_Base_Digits : constant := Long_Long_Float'Digits;
Max_Digits : constant := Long_Long_Float'Digits;
Max_Mantissa : constant := 63;
Fine_Delta : constant := 2.0 ** (-Max_Mantissa);
Tick : constant := 0.01;
-- Storage-related Declarations
type Address is private;
pragma Preelaborable_Initialization (Address);
Null_Address : constant Address;
Storage_Unit : constant := 8;
Word_Size : constant := 64;
Memory_Size : constant := 2 ** 32;
-- Address comparison
function "<" (Left, Right : Address) return Boolean;
function "<=" (Left, Right : Address) return Boolean;
function ">" (Left, Right : Address) return Boolean;
function ">=" (Left, Right : Address) return Boolean;
function "=" (Left, Right : Address) return Boolean;
pragma Import (Intrinsic, "<");
pragma Import (Intrinsic, "<=");
pragma Import (Intrinsic, ">");
pragma Import (Intrinsic, ">=");
pragma Import (Intrinsic, "=");
-- Other System-Dependent Declarations
type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := High_Order_First;
pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
-- Priority-related Declarations (RM D.1)
-- IRIX priorities as defined by realtime(5):
--
-- 255 is for system-level interrupts
-- 240 - 254 are suggested for hard real-time threads
-- 200 - 239 are used by system device driver interrupt threads
-- 110 - 199 are suggested for interactive real-time applications
-- 90 - 109 are used by system daemon threads
-- 0 - 89 are suggested for soft real-time applications
--
-- We don't express the full range of IRIX priorities. For now, we
-- handle only the subset for soft real-time applications.
Max_Priority : constant Positive := 88;
Max_Interrupt_Priority : constant Positive := 89;
subtype Any_Priority is Integer range 0 .. 89;
subtype Priority is Any_Priority range 0 .. 88;
subtype Interrupt_Priority is Any_Priority range 89 .. 89;
Default_Priority : constant Priority := 44;
private
type Address is mod Memory_Size;
Null_Address : constant Address := 0;
--------------------------------------
-- System Implementation Parameters --
--------------------------------------
-- These parameters provide information about the target that is used
-- by the compiler. They are in the private part of System, where they
-- can be accessed using the special circuitry in the Targparm unit
-- whose source should be consulted for more detailed descriptions
-- of the individual switch values.
Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := True;
Command_Line_Args : constant Boolean := True;
Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False;
Exit_Status_Supported : constant Boolean := True;
Fractional_Fixed_Ops : constant Boolean := False;
Frontend_Layout : constant Boolean := False;
Machine_Overflows : constant Boolean := False;
Machine_Rounds : constant Boolean := True;
Preallocated_Stacks : constant Boolean := False;
Signed_Zeros : constant Boolean := True;
Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False;
Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True;
Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := False;
ZCX_By_Default : constant Boolean := True;
-- Note: Denorm is False because denormals are not supported on the
-- R10000, and we want the code to be valid for this processor.
end System;

159
gcc/ada/system-irix-n64.ads
View file

@ -1,159 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME COMPONENTS --
-- --
-- S Y S T E M --
-- --
-- S p e c --
-- (SGI Irix, n64 ABI) --
-- --
-- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- apply solely to the contents of the part following the private keyword. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
package System is
pragma Pure;
-- Note that we take advantage of the implementation permission to make
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
-- 2005, this is Pure in any case (AI-362).
type Name is (SYSTEM_NAME_GNAT);
System_Name : constant Name := SYSTEM_NAME_GNAT;
-- System-Dependent Named Numbers
Min_Int : constant := Long_Long_Integer'First;
Max_Int : constant := Long_Long_Integer'Last;
Max_Binary_Modulus : constant := 2 ** Long_Long_Integer'Size;
Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
Max_Base_Digits : constant := Long_Long_Float'Digits;
Max_Digits : constant := Long_Long_Float'Digits;
Max_Mantissa : constant := 63;
Fine_Delta : constant := 2.0 ** (-Max_Mantissa);
Tick : constant := 0.01;
-- Storage-related Declarations
type Address is private;
pragma Preelaborable_Initialization (Address);
Null_Address : constant Address;
Storage_Unit : constant := 8;
Word_Size : constant := 64;
Memory_Size : constant := 2 ** 64;
-- Address comparison
function "<" (Left, Right : Address) return Boolean;
function "<=" (Left, Right : Address) return Boolean;
function ">" (Left, Right : Address) return Boolean;
function ">=" (Left, Right : Address) return Boolean;
function "=" (Left, Right : Address) return Boolean;
pragma Import (Intrinsic, "<");
pragma Import (Intrinsic, "<=");
pragma Import (Intrinsic, ">");
pragma Import (Intrinsic, ">=");
pragma Import (Intrinsic, "=");
-- Other System-Dependent Declarations
type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := High_Order_First;
pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
-- Priority-related Declarations (RM D.1)
-- IRIX priorities as defined by realtime(5):
--
-- 255 is for system-level interrupts
-- 240 - 254 are suggested for hard real-time threads
-- 200 - 239 are used by system device driver interrupt threads
-- 110 - 199 are suggested for interactive real-time applications
-- 90 - 109 are used by system daemon threads
-- 0 - 89 are suggested for soft real-time applications
--
-- We don't express the full range of IRIX priorities. For now, we
-- handle only the subset for soft real-time applications.
Max_Priority : constant Positive := 88;
Max_Interrupt_Priority : constant Positive := 89;
subtype Any_Priority is Integer range 0 .. 89;
subtype Priority is Any_Priority range 0 .. 88;
subtype Interrupt_Priority is Any_Priority range 89 .. 89;
Default_Priority : constant Priority := 44;
private
type Address is mod Memory_Size;
Null_Address : constant Address := 0;
--------------------------------------
-- System Implementation Parameters --
--------------------------------------
-- These parameters provide information about the target that is used
-- by the compiler. They are in the private part of System, where they
-- can be accessed using the special circuitry in the Targparm unit
-- whose source should be consulted for more detailed descriptions
-- of the individual switch values.
Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True;
Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False;
Exit_Status_Supported : constant Boolean := True;
Fractional_Fixed_Ops : constant Boolean := False;
Frontend_Layout : constant Boolean := False;
Machine_Overflows : constant Boolean := False;
Machine_Rounds : constant Boolean := True;
Preallocated_Stacks : constant Boolean := False;
Signed_Zeros : constant Boolean := True;
Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True;
Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := False;
ZCX_By_Default : constant Boolean := True;
-- Note: Denorm is False because denormals are not supported on the
-- R10000, and we want the code to be valid for this processor.
end System;

146
gcc/ada/system-irix-o32.ads
View file

@ -1,146 +0,0 @@
------------------------------------------------------------------------------
-- --
-- GNAT RUN-TIME COMPONENTS --
-- --
-- S Y S T E M --
-- --
-- S p e c --
-- (SGI Irix, o32 ABI) --
-- --
-- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- apply solely to the contents of the part following the private keyword. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 3, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- As a special exception under Section 7 of GPL version 3, you are granted --
-- additional permissions described in the GCC Runtime Library Exception, --
-- version 3.1, as published by the Free Software Foundation. --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
package System is
pragma Pure;
-- Note that we take advantage of the implementation permission to make
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
-- 2005, this is Pure in any case (AI-362).
type Name is (SYSTEM_NAME_GNAT);
System_Name : constant Name := SYSTEM_NAME_GNAT;
-- System-Dependent Named Numbers
Min_Int : constant := Long_Long_Integer'First;
Max_Int : constant := Long_Long_Integer'Last;
Max_Binary_Modulus : constant := 2 ** Long_Long_Integer'Size;
Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1;
Max_Base_Digits : constant := Long_Long_Float'Digits;
Max_Digits : constant := Long_Long_Float'Digits;
Max_Mantissa : constant := 63;
Fine_Delta : constant := 2.0 ** (-Max_Mantissa);
Tick : constant := 0.01;
-- Storage-related Declarations
type Address is private;
pragma Preelaborable_Initialization (Address);
Null_Address : constant Address;
Storage_Unit : constant := 8;
Word_Size : constant := 32;
Memory_Size : constant := 2 ** 32;
-- Address comparison
function "<" (Left, Right : Address) return Boolean;
function "<=" (Left, Right : Address) return Boolean;
function ">" (Left, Right : Address) return Boolean;
function ">=" (Left, Right : Address) return Boolean;
function "=" (Left, Right : Address) return Boolean;
pragma Import (Intrinsic, "<");
pragma Import (Intrinsic, "<=");
pragma Import (Intrinsic, ">");
pragma Import (Intrinsic, ">=");
pragma Import (Intrinsic, "=");
-- Other System-Dependent Declarations
type Bit_Order is (High_Order_First, Low_Order_First);
Default_Bit_Order : constant Bit_Order := High_Order_First;
pragma Warnings (Off, Default_Bit_Order); -- kill constant condition warning
-- Priority-related Declarations (RM D.1)
Max_Priority : constant Positive := 30;
Max_Interrupt_Priority : constant Positive := 31;
subtype Any_Priority is Integer range 0 .. 31;
subtype Priority is Any_Priority range 0 .. 30;
subtype Interrupt_Priority is Any_Priority range 31 .. 31;
Default_Priority : constant Priority := 15;
private
type Address is mod Memory_Size;
Null_Address : constant Address := 0;
--------------------------------------
-- System Implementation Parameters --
--------------------------------------
-- These parameters provide information about the target that is used
-- by the compiler. They are in the private part of System, where they
-- can be accessed using the special circuitry in the Targparm unit
-- whose source should be consulted for more detailed descriptions
-- of the individual switch values.
Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := True;
Command_Line_Args : constant Boolean := True;
Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False;
Exit_Status_Supported : constant Boolean := True;
Fractional_Fixed_Ops : constant Boolean := False;
Frontend_Layout : constant Boolean := False;
Machine_Overflows : constant Boolean := False;
Machine_Rounds : constant Boolean := True;
Preallocated_Stacks : constant Boolean := False;
Signed_Zeros : constant Boolean := True;
Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False;
Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True;
Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := False;
ZCX_By_Default : constant Boolean := True;
-- Note: Denorm is False because denormals are not supported on the
-- R10000, and we want the code to be valid for this processor.
end System;

9
gcc/ada/terminals.c
View file

@ -976,9 +976,6 @@ __gnat_setup_winsize (void *desc, int rows, int columns)
|| defined (__DragonFly__)
# define FREEBSD
#endif
#if defined (__mips) && defined (__sgi)
# define IRIX
#endif
/* Include every system header we need */
#define _GNU_SOURCE
@ -1025,7 +1022,6 @@ __gnat_setup_winsize (void *desc, int rows, int columns)
1- using a cloning device (USE_CLONE_DEVICE)
2- getpt (USE_GETPT)
3- openpty (USE_OPENPTY)
4- _getpty (USE_GETPTY)
When using the cloning device method, the macro USE_CLONE_DEVICE should
contains a full path to the adequate device.
@ -1037,8 +1033,6 @@ __gnat_setup_winsize (void *desc, int rows, int columns)
/* Configurable part */
#if defined (__APPLE__) || defined (FREEBSD)
#define USE_OPENPTY
#elif defined (IRIX)
#define USE_GETPTY
#elif defined (linux)
#define USE_GETPT
#elif defined (sun)
@ -1093,9 +1087,6 @@ allocate_pty_desc (pty_desc **desc) {
master_fd = getpt ();
#elif defined (USE_OPENPTY)
status = openpty (&master_fd, &slave_fd, NULL, NULL, NULL);
#elif defined (USE_GETPTY)
slave_name = _getpty (&master_fd, O_RDWR | O_NDELAY, 0600, 0);
if (slave_name == NULL) status = -1;
#elif defined (USE_CLONE_DEVICE)
master_fd = open (USE_CLONE_DEVICE, O_RDWR | O_NONBLOCK, 0);
#else

30
gcc/collect2.c
View file

@ -1,7 +1,7 @@
/* Collect static initialization info into data structures that can be
traversed by C++ initialization and finalization routines.
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998,
1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011
1999, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011, 2012
Free Software Foundation, Inc.
Contributed by Chris Smith (csmith@convex.com).
Heavily modified by Michael Meissner (meissner@cygnus.com),
@ -323,9 +323,6 @@ static void write_c_file_glob (FILE *, const char *);
#ifdef SCAN_LIBRARIES
static void scan_libraries (const char *);
#endif
#if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
static int is_in_args (const char *, const char **, const char **);
#endif
#ifdef COLLECT_EXPORT_LIST
#if 0
static int is_in_list (const char *, struct id *);
@ -1524,15 +1521,6 @@ main (int argc, char **argv)
case 'L':
add_prefix (&cmdline_lib_dirs, arg+2);
break;
#else
#if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
case 'L':
if (is_in_args (arg,
CONST_CAST2 (const char **, char **, ld1_argv),
ld1 - 1))
--ld1;
break;
#endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
#endif
case 'o':
@ -2235,22 +2223,6 @@ write_list (FILE *stream, const char *prefix, struct id *list)
}
}
#if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
/* Given a STRING, return nonzero if it occurs in the list in range
[ARGS_BEGIN,ARGS_END). */
static int
is_in_args (const char *string, const char **args_begin,
const char **args_end)
{
const char **args_pointer;
for (args_pointer = args_begin; args_pointer != args_end; ++args_pointer)
if (strcmp (string, *args_pointer) == 0)
return 1;
return 0;
}
#endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
#ifdef COLLECT_EXPORT_LIST
/* This function is really used only on AIX, but may be useful. */
#if 0

21
gcc/config.gcc
View file

@ -250,7 +250,6 @@ case ${target} in
| arm*-*-rtems* \
| arm*-*-uclinux* \
| arm*-wince-pe* \
| mips-sgi-irix6.5 \
| score-* \
| *-*-solaris2.8* \
)
@ -1682,26 +1681,6 @@ microblaze*-*-*)
cxx_target_objs="${cxx_target_objs} microblaze-c.o"
tmake_file="${tmake_file} microblaze/t-microblaze"
;;
mips-sgi-irix6.5*)
tm_file="elfos.h ${tm_file} mips/iris6.h"
tmake_file="mips/t-irix6 t-slibgcc"
extra_options="${extra_options} rpath.opt mips/iris6.opt"
target_cpu_default="MASK_ABICALLS"
tm_defines="${tm_defines} MIPS_ISA_DEFAULT=3 MIPS_ABI_DEFAULT=ABI_N32"
# Only IRIX Development Foundation 1.3 for IRIX 6.5 provides stdint.h.
use_gcc_stdint=wrap
if test "x$stabs" = xyes
then
tm_file="${tm_file} dbx.h"
fi
if test "x$gnu_ld" = xyes
then
tm_defines="${tm_defines} IRIX_USING_GNU_LD"
fi
case ${enable_threads}:${have_pthread_h} in
"":yes | yes:yes ) thread_file=posix ;;
esac
;;
mips*-*-netbsd*) # NetBSD/mips, either endian.
target_cpu_default="MASK_ABICALLS"
tm_file="elfos.h ${tm_file} mips/elf.h netbsd.h netbsd-elf.h mips/netbsd.h"

4
gcc/config.host
View file

@ -126,9 +126,9 @@ case ${host} in
;;
esac
;;
mips*-*-linux* | mips-sgi-irix*)
mips*-*-linux*)
case ${target} in
mips*-*-linux* | mips-sgi-irix*)
mips*-*-linux*)
host_extra_gcc_objs="driver-native.o"
host_xmake_file="${host_xmake_file} mips/x-native"
;;

61
gcc/config/mips/driver-native.c
View file

@ -1,5 +1,5 @@
/* Subroutines for the gcc driver.
Copyright (C) 2008, 2011 Free Software Foundation, Inc.
Copyright (C) 2008, 2011, 2012 Free Software Foundation, Inc.
This file is part of GCC.
@ -22,59 +22,6 @@ along with GCC; see the file COPYING3. If not see
#include "coretypes.h"
#include "tm.h"
#ifdef __sgi__
#include <invent.h>
#include <sys/sbd.h>
/* Cf. MIPS R10000 Microprocessor User Guide, Version 2.0, 14.13 Processor
Revision Identifier (PRId) Register (15).
http://techpubs.sgi.com/library/tpl/cgi-bin/getdoc.cgi/hdwr/bks/SGI_Developer/books/R10K_UM/sgi_html/t5.Ver.2.0.book_279.html */
static const struct cpu_types {
int impl;
const char *cpu;
} cpu_types[] = {
{ C0_IMP_R2000, "r2000" },
{ C0_IMP_R3000, "r3000" },
{ C0_IMP_R6000, "r6000" },
{ C0_IMP_R4000, "r4000" },
{ C0_IMP_R6000A, "r6000" },
{ C0_IMP_R10000, "r10000" },
{ C0_IMP_R12000, "r12000" },
{ C0_IMP_R14000, "r14000" },
{ C0_IMP_R8000, "r8000" },
{ C0_IMP_R4600, "r4600" },
{ C0_IMP_R4700, "r4600" },
{ C0_IMP_R4650, "r4650" },
{ C0_IMP_R5000, "vr5000" },
{ C0_IMP_RM7000, "rm7000" },
{ C0_IMP_RM5271, "vr5000" },
{ 0, 0 }
};
static int
cputype (inventory_t *inv, void *arg)
{
if (inv != NULL
&& inv->inv_class == INV_PROCESSOR
&& inv->inv_type == INV_CPUCHIP)
{
int i;
/* inv_state is the cpu revision number. */
int impl = (inv->inv_state & C0_IMPMASK) >> C0_IMPSHIFT;
for (i = 0; cpu_types[i].cpu != NULL; i++)
if (cpu_types[i].impl == impl)
{
*((const char **) arg) = cpu_types[i].cpu;
break;
}
}
return 0;
}
#endif
/* This will be called by the spec parser in gcc.c when it sees
a %:local_cpu_detect(args) construct. Currently it will be called
with either "arch" or "tune" as argument depending on if -march=native
@ -92,10 +39,8 @@ const char *
host_detect_local_cpu (int argc, const char **argv)
{
const char *cpu = NULL;
#ifndef __sgi__
char buf[128];
FILE *f;
#endif
bool arch;
if (argc < 1)
@ -105,9 +50,6 @@ host_detect_local_cpu (int argc, const char **argv)
if (!arch && strcmp (argv[0], "tune"))
return NULL;
#ifdef __sgi__
scaninvent (cputype, &cpu);
#else
f = fopen ("/proc/cpuinfo", "r");
if (f == NULL)
return NULL;
@ -133,7 +75,6 @@ host_detect_local_cpu (int argc, const char **argv)
}
fclose (f);
#endif
if (cpu == NULL)
return NULL;

3
gcc/config/mips/gnu-user.h
View file

@ -1,6 +1,6 @@
/* Definitions for MIPS systems using GNU userspace.
Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
2007, 2008, 2010, 2011 Free Software Foundation, Inc.
2007, 2008, 2010, 2011, 2012 Free Software Foundation, Inc.
This file is part of GCC.
@ -48,7 +48,6 @@ along with GCC; see the file COPYING3. If not see
#undef SUBTARGET_CC1_SPEC
#define SUBTARGET_CC1_SPEC "%{profile:-p}"
/* From iris5.h */
/* -G is incompatible with -KPIC which is the default, so only allow objects
in the small data section if the user explicitly asks for it. */
#undef MIPS_DEFAULT_GVALUE

8
gcc/config/mips/gnu-user64.h
View file

@ -1,5 +1,5 @@
/* Definitions for MIPS systems using GNU userspace and n32/64 abi.
Copyright 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2010, 2011
Copyright 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2010, 2011, 2012
Free Software Foundation, Inc.
This file is part of GCC.
@ -52,9 +52,3 @@ along with GCC; see the file COPYING3. If not see
#undef LOCAL_LABEL_PREFIX
#define LOCAL_LABEL_PREFIX (TARGET_OLDABI ? "$" : ".")
/* GNU/Linux doesn't use the same floating-point format that IRIX uses
for long double. There's no need to override this here, since
ieee_quad_format is the default, but let's put this here to make
sure nobody thinks we just forgot to set it to something else. */
#define MIPS_TFMODE_FORMAT mips_quad_format

353
gcc/config/mips/iris6.h
View file

@ -1,353 +0,0 @@
/* Definitions of target machine for GNU compiler. IRIX 6.5 version.
Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2000,
2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.
GCC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
/* We are compiling for IRIX 6 now. */
#undef TARGET_IRIX6
#define TARGET_IRIX6 1
/* Default to -mabi=n32 and -mips3. */
#undef MULTILIB_DEFAULTS
#define MULTILIB_DEFAULTS { "mabi=n32" }
/* -march=native handling only makes sense with compiler running on
a MIPS chip. */
#if defined(__mips__)
extern const char *host_detect_local_cpu (int argc, const char **argv);
# define EXTRA_SPEC_FUNCTIONS \
{ "local_cpu_detect", host_detect_local_cpu },
# define MARCH_MTUNE_NATIVE_SPECS \
" %{march=native:%<march=native %:local_cpu_detect(arch)}" \
" %{mtune=native:%<mtune=native %:local_cpu_detect(tune)}"
#else
# define MARCH_MTUNE_NATIVE_SPECS ""
#endif
/* Force the default ABI onto the command line in order to make the specs
easier to write. */
#undef DRIVER_SELF_SPECS
#define DRIVER_SELF_SPECS \
"%{!mabi=*: -mabi=n32}", \
/* Configuration-independent MIPS rules. */ \
BASE_DRIVER_SELF_SPECS, \
MARCH_MTUNE_NATIVE_SPECS
/* IRIX 6.5 has the float and long double forms of math functions. */
#define TARGET_C99_FUNCTIONS 1
/* MIPS specific debugging info */
#define MIPS_DEBUGGING_INFO 1
/* Force the generation of dwarf .debug_frame sections even if not
compiling -g. This guarantees that we can unwind the stack. */
#define DWARF2_FRAME_INFO 1
/* The system unwinder in libexc requires a specific dwarf return address
column to work. */
#undef DWARF_FRAME_RETURN_COLUMN
#define DWARF_FRAME_RETURN_COLUMN (FP_REG_LAST + 1)
/* The size in bytes of a DWARF field indicating an offset or length
relative to a debug info section, specified to be 4 bytes in the DWARF-2
specification. The SGI/MIPS ABI defines it to be the same as PTR_SIZE. */
#define DWARF_OFFSET_SIZE PTR_SIZE
/* The size in bytes of the initial length field in a debug info
section. The DWARF 3 (draft) specification defines this to be
either 4 or 12 (with a 4-byte "escape" word when it's 12), but the
SGI/MIPS ABI predates this standard and defines it to be the same
as DWARF_OFFSET_SIZE. */
#define DWARF_INITIAL_LENGTH_SIZE DWARF_OFFSET_SIZE
/* MIPS assemblers don't have the usual .set foo,bar construct;
.set is used for assembler options instead. */
#undef SET_ASM_OP
#define ASM_OUTPUT_DEF(FILE, LABEL1, LABEL2) \
do \
{ \
fputc ('\t', FILE); \
assemble_name (FILE, LABEL1); \
fputs (" = ", FILE); \
assemble_name (FILE, LABEL2); \
fputc ('\n', FILE); \
} \
while (0)
#undef LOCAL_LABEL_PREFIX
#define LOCAL_LABEL_PREFIX "."
#undef ASM_DECLARE_OBJECT_NAME
#define ASM_DECLARE_OBJECT_NAME mips_declare_object_name
#undef ASM_FINISH_DECLARE_OBJECT
#define ASM_FINISH_DECLARE_OBJECT mips_finish_declare_object
/* The native IRIX 6 linker does not support merging without a special
elspec(5) file. */
#ifndef IRIX_USING_GNU_LD
#undef HAVE_GAS_SHF_MERGE
#define HAVE_GAS_SHF_MERGE 0
#endif
/* Specify wchar_t types. */
#undef WCHAR_TYPE
#define WCHAR_TYPE (Pmode == DImode ? "int" : "long int")
#undef WCHAR_TYPE_SIZE
#define WCHAR_TYPE_SIZE INT_TYPE_SIZE
/* Same for wint_t. */
#undef WINT_TYPE
#define WINT_TYPE (Pmode == DImode ? "int" : "long int")
#undef WINT_TYPE_SIZE
#define WINT_TYPE_SIZE INT_TYPE_SIZE
/* C99 stdint.h types. */
#define INT8_TYPE "signed char"
#define INT16_TYPE "short int"
#define INT32_TYPE "int"
#define INT64_TYPE "long long int"
#define UINT8_TYPE "unsigned char"
#define UINT16_TYPE "short unsigned int"
#define UINT32_TYPE "unsigned int"
#define UINT64_TYPE "long long unsigned int"
#define INT_LEAST8_TYPE "signed char"
#define INT_LEAST16_TYPE "short int"
#define INT_LEAST32_TYPE "int"
#define INT_LEAST64_TYPE "long long int"
#define UINT_LEAST8_TYPE "unsigned char"
#define UINT_LEAST16_TYPE "short unsigned int"
#define UINT_LEAST32_TYPE "unsigned int"
#define UINT_LEAST64_TYPE "long long unsigned int"
#define INT_FAST8_TYPE "signed char"
#define INT_FAST16_TYPE "short int"
#define INT_FAST32_TYPE "int"
#define INT_FAST64_TYPE "long long int"
#define UINT_FAST8_TYPE "unsigned char"
#define UINT_FAST16_TYPE "short unsigned int"
#define UINT_FAST32_TYPE "unsigned int"
#define UINT_FAST64_TYPE "long long unsigned int"
#define INTMAX_TYPE "long long int"
#define UINTMAX_TYPE "long long unsigned int"
#define INTPTR_TYPE "long int"
#define UINTPTR_TYPE "long unsigned int"
#define SIG_ATOMIC_TYPE "int"
/* Plain char is unsigned in the SGI compiler. */
#undef DEFAULT_SIGNED_CHAR
#define DEFAULT_SIGNED_CHAR 0
#define TARGET_OS_CPP_BUILTINS() \
do \
{ \
builtin_define_std ("host_mips"); \
builtin_define_std ("sgi"); \
builtin_define_std ("unix"); \
builtin_define_std ("SYSTYPE_SVR4"); \
builtin_define ("_MODERN_C"); \
builtin_define ("_SVR4_SOURCE"); \
builtin_define ("__DSO__"); \
builtin_assert ("system=unix"); \
builtin_assert ("system=svr4"); \
builtin_assert ("machine=sgi"); \
\
if (!ISA_MIPS1 && !ISA_MIPS2) \
builtin_define ("_COMPILER_VERSION=601"); \
\
/* We must always define _LONGLONG, even when -ansi is \
used, because IRIX 5 system header files require it. \
This is OK, because gcc never warns when long long \
is used in system header files. \
\
An alternative would be to support the SGI builtin \
type __long_long. */ \
builtin_define ("_LONGLONG"); \
\
/* IRIX 6.5.18 and above provide many ISO C99 \
features protected by the __c99 macro. \
libstdc++ v3 needs them as well. */ \
if (flag_isoc99 || c_dialect_cxx ()) \
builtin_define ("__c99"); \
\
/* The GNU C++ standard library requires that \
__EXTENSIONS__ and _SGI_SOURCE be defined on at \
least IRIX 6.2 and probably all IRIX 6 prior to 6.5. \
We don't need this on IRIX 6.5 itself, but it \
shouldn't hurt other than the namespace pollution. */ \
if (!flag_iso || c_dialect_cxx ()) \
{ \
builtin_define ("__EXTENSIONS__"); \
builtin_define ("_SGI_SOURCE"); \
} \
} \
while (0)
#undef SUBTARGET_CC1_SPEC
#define SUBTARGET_CC1_SPEC "%{static: -mno-abicalls}"
#undef SUBTARGET_CPP_SPEC
#define SUBTARGET_CPP_SPEC "%{pthread:-D_REENTRANT}"
#undef INIT_SECTION_ASM_OP
#define INIT_SECTION_ASM_OP "\t.section\t.gcc_init,\"ax\",@progbits"
#undef FINI_SECTION_ASM_OP
#define FINI_SECTION_ASM_OP "\t.section\t.gcc_fini,\"ax\",@progbits"
#ifdef IRIX_USING_GNU_LD
#define IRIX_NO_UNRESOLVED ""
#else
#define IRIX_NO_UNRESOLVED "-no_unresolved"
#endif
#ifdef IRIX_USING_GNU_LD
#define SUBTARGET_DONT_WARN_UNUSED_SPEC ""
#define SUBTARGET_WARN_UNUSED_SPEC ""
#else
#define SUBTARGET_DONT_WARN_UNUSED_SPEC "-dont_warn_unused"
#define SUBTARGET_WARN_UNUSED_SPEC "-warn_unused"
#endif
/* Profiling is supported via libprof1.a not -lc_p as in IRIX 3. */
#undef STARTFILE_SPEC
#define STARTFILE_SPEC \
"%{!shared: \
%{mabi=n32: \
%{mips4:%{pg:/usr/lib32/mips4/gcrt1.o%s} \
%{!pg:%{p:/usr/lib32/mips4/mcrt1.o%s /usr/lib32/mips4/libprof1.a%s} \
%{!p:/usr/lib32/mips4/crt1.o%s}}} \
%{!mips4:%{pg:/usr/lib32/mips3/gcrt1.o%s} \
%{!pg:%{p:/usr/lib32/mips3/mcrt1.o%s /usr/lib32/mips3/libprof1.a%s} \
%{!p:/usr/lib32/mips3/crt1.o%s}}}} \
%{mabi=64: \
%{mips4:%{pg:/usr/lib64/mips4/gcrt1.o} \
%{!pg:%{p:/usr/lib64/mips4/mcrt1.o /usr/lib64/mips4/libprof1.a} \
%{!p:/usr/lib64/mips4/crt1.o}}} \
%{!mips4:%{pg:/usr/lib64/mips3/gcrt1.o} \
%{!pg:%{p:/usr/lib64/mips3/mcrt1.o /usr/lib64/mips3/libprof1.a} \
%{!p:/usr/lib64/mips3/crt1.o}}}}} \
irix-crti.o%s crtbegin.o%s"
#undef LIB_SPEC
#define LIB_SPEC \
"%{mabi=n32: %{mips4:-L/usr/lib32/mips4} %{!mips4:-L/usr/lib32/mips3} \
-L/usr/lib32} \
%{mabi=64: %{mips4:-L/usr/lib64/mips4} %{!mips4:-L/usr/lib64/mips3} \
-L/usr/lib64} \
%{!shared:" \
SUBTARGET_DONT_WARN_UNUSED_SPEC \
" %{pthread:-lpthread} %{p:libprof1.a%s}%{pg:libprof1.a%s} -lc " \
SUBTARGET_WARN_UNUSED_SPEC "}"
/* Avoid getting two warnings for libgcc.a everytime we link. libgcc.a
contains references to copysignl, so link with libm to resolve them. */
#undef LIBGCC_SPEC
#define LIBGCC_SPEC \
SUBTARGET_DONT_WARN_UNUSED_SPEC " -lgcc -lm " SUBTARGET_WARN_UNUSED_SPEC
#undef ENDFILE_SPEC
#define ENDFILE_SPEC \
"%{Ofast|ffast-math|funsafe-math-optimizations:crtfastmath.o%s} \
crtend.o%s irix-crtn.o%s \
%{!shared: \
%{mabi=n32:%{mips4:/usr/lib32/mips4/crtn.o%s}\
%{!mips4:/usr/lib32/mips3/crtn.o%s}}\
%{mabi=64:%{mips4:/usr/lib64/mips4/crtn.o%s}\
%{!mips4:/usr/lib64/mips3/crtn.o%s}}}"
/* Generic part of the LINK_SPEC. */
#undef LINK_SPEC
#define LINK_SPEC "\
%{G*} %{EB} %{EL} %{mips1} %{mips2} %{mips3} %{mips4} \
%{bestGnum} %{shared} %{non_shared} \
%{call_shared} %{no_archive} %{exact_version} \
%{!shared: \
%{!non_shared: %{!call_shared:%{!r: -call_shared " IRIX_NO_UNRESOLVED "}}}} \
%{rpath} %{!r: -init __gcc_init -fini __gcc_fini} " IRIX_SUBTARGET_LINK_SPEC
#ifdef IRIX_USING_GNU_LD
#define IRIX_SUBTARGET_LINK_SPEC \
"%{mabi=n32: -melf32bmipn32}%{mabi=64: -melf64bmip}"
#else
/* Explicitly hide crt symbols that would normally be marked with
a "hidden" visibility attribute.
We have traditionally disabled this attribute when using the
native linker because the native linker's visibility support is
not fully-compatible with the GNU linker's. In particular, the
native linker does not pull in archive objects purely to resolve
references to the object's hidden symbols, whereas the GNU
linker does.
The gcc build system currently hides symbols in some static
libraries (typically libgcov.a or libgcc.a) whenever visibility
attributes are supported. On targets with GNU semantics, this
makes sure that uses of libx.so symbols in one dynamic object are
not resolved to libx.a symbols in another dynamic object. But
on targets with IRIX semantics, hiding the symbols prevents the
static archive from working at all.
It would probably be better to enable visiblity attributes for
IRIX ld and disable the static archives versioning. It shouldn't
make anything worse, since libx.a symbols are global by default
anyway. However, no-one has volunteered to do this yet. */
#define IRIX_SUBTARGET_LINK_SPEC \
"%{w} -_SYSTYPE_SVR4 -woff 131 \
%{shared:-hidden_symbol __dso_handle} \
%{mabi=n32: -n32}%{mabi=64: -64}%{!mabi*: -n32}"
#endif
/* A linker error can empirically be avoided by removing duplicate
library search directories. */
#define LINK_ELIMINATE_DUPLICATE_LDIRECTORIES 1
/* The SGI linker doesn't understand constructor priorities. */
#ifndef IRIX_USING_GNU_LD
#define SUPPORTS_INIT_PRIORITY 0
#endif
/* Add -g to mips.h default to avoid confusing gas with local symbols
generated from stabs info. */
#undef NM_FLAGS
#define NM_FLAGS "-Bng"
/* The system header files are C++ aware. */
/* ??? Unfortunately, most but not all of the headers are C++ aware.
Specifically, curses.h is not, and as a consequence, defining this
used to prevent libg++ building. This is no longer the case so
define it again to prevent other problems, e.g. with getopt in
unistd.h. We still need some way to fix just those files that need
fixing. */
#define NO_IMPLICIT_EXTERN_C 1
/* -G is incompatible with -KPIC which is the default, so only allow objects
in the small data section if the user explicitly asks for it. */
#undef MIPS_DEFAULT_GVALUE
#define MIPS_DEFAULT_GVALUE 0
#define MIPS_TFMODE_FORMAT mips_extended_format

45
gcc/config/mips/iris6.opt
View file

@ -1,45 +0,0 @@
; IRIX 6.5 options.
; Copyright (C) 2011
; Free Software Foundation, Inc.
;
; This file is part of GCC.
;
; GCC is free software; you can redistribute it and/or modify it under
; the terms of the GNU General Public License as published by the Free
; Software Foundation; either version 3, or (at your option) any later
; version.
;
; GCC is distributed in the hope that it will be useful, but WITHOUT ANY
; WARRANTY; without even the implied warranty of MERCHANTABILITY or
; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
; for more details.
;
; You should have received a copy of the GNU General Public License
; along with GCC; see the file COPYING3. If not see
; <http://www.gnu.org/licenses/>.
; See the GCC internals manual (options.texi) for a description of
; this file's format.
; Please try to keep this file in ASCII collating order.
bestGnum
Driver
call_shared
Driver
exact_version
Driver
no_archive
Driver
non_shared
Driver
pthread
Driver
; This comment is to ensure we retain the blank line above.

3
gcc/config/mips/mips-modes.def
View file

@ -1,5 +1,5 @@
/* MIPS extra machine modes.
Copyright (C) 2003, 2004, 2007, 2008 Free Software Foundation, Inc.
Copyright (C) 2003, 2004, 2007, 2008, 2012 Free Software Foundation, Inc.
This file is part of GCC.
@ -22,7 +22,6 @@ along with GCC; see the file COPYING3. If not see
RESET_FLOAT_FORMAT (SF, mips_single_format);
RESET_FLOAT_FORMAT (DF, mips_double_format);
/* Irix6 will override this via MIPS_TFMODE_FORMAT. */
FLOAT_MODE (TF, 16, mips_quad_format);
/* Vector modes. */

3
gcc/config/mips/mips-protos.h
View file

@ -1,6 +1,6 @@
/* Prototypes of target machine for GNU compiler. MIPS version.
Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011
1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011, 2012
Free Software Foundation, Inc.
Contributed by A. Lichnewsky (lich@inria.inria.fr).
Changed by Michael Meissner (meissner@osf.org).
@ -299,7 +299,6 @@ extern bool mips_linked_madd_p (rtx, rtx);
extern bool mips_store_data_bypass_p (rtx, rtx);
extern rtx mips_prefetch_cookie (rtx, rtx);
extern void irix_asm_output_align (FILE *, unsigned);
extern const char *current_section_name (void);
extern unsigned int current_section_flags (void);
extern bool mips_use_ins_ext_p (rtx, HOST_WIDE_INT, HOST_WIDE_INT);

80
gcc/config/mips/mips.c
View file

@ -5488,9 +5488,6 @@ mips_build_builtin_va_list (void)
layout_type (record);
return record;
}
else if (TARGET_IRIX6)
/* On IRIX 6, this type is 'char *'. */
return build_pointer_type (char_type_node);
else
/* Otherwise, we use 'void *'. */
return ptr_type_node;
@ -8451,50 +8448,47 @@ mips_file_start (void)
default_file_start ();
/* Generate a special section to describe the ABI switches used to
produce the resultant binary. This is unnecessary on IRIX and
causes unwanted warnings from the native linker. */
if (!TARGET_IRIX6)
{
/* Record the ABI itself. Modern versions of binutils encode
this information in the ELF header flags, but GDB needs the
information in order to correctly debug binaries produced by
older binutils. See the function mips_gdbarch_init in
gdb/mips-tdep.c. */
fprintf (asm_out_file, "\t.section .mdebug.%s\n\t.previous\n",
mips_mdebug_abi_name ());
produce the resultant binary. */
/* There is no ELF header flag to distinguish long32 forms of the
EABI from long64 forms. Emit a special section to help tools
such as GDB. Do the same for o64, which is sometimes used with
-mlong64. */
if (mips_abi == ABI_EABI || mips_abi == ABI_O64)
fprintf (asm_out_file, "\t.section .gcc_compiled_long%d\n"
"\t.previous\n", TARGET_LONG64 ? 64 : 32);
/* Record the ABI itself. Modern versions of binutils encode
this information in the ELF header flags, but GDB needs the
information in order to correctly debug binaries produced by
older binutils. See the function mips_gdbarch_init in
gdb/mips-tdep.c. */
fprintf (asm_out_file, "\t.section .mdebug.%s\n\t.previous\n",
mips_mdebug_abi_name ());
/* There is no ELF header flag to distinguish long32 forms of the
EABI from long64 forms. Emit a special section to help tools
such as GDB. Do the same for o64, which is sometimes used with
-mlong64. */
if (mips_abi == ABI_EABI || mips_abi == ABI_O64)
fprintf (asm_out_file, "\t.section .gcc_compiled_long%d\n"
"\t.previous\n", TARGET_LONG64 ? 64 : 32);
#ifdef HAVE_AS_GNU_ATTRIBUTE
{
int attr;
{
int attr;
/* No floating-point operations, -mno-float. */
if (TARGET_NO_FLOAT)
attr = 0;
/* Soft-float code, -msoft-float. */
else if (!TARGET_HARD_FLOAT_ABI)
attr = 3;
/* Single-float code, -msingle-float. */
else if (!TARGET_DOUBLE_FLOAT)
attr = 2;
/* 64-bit FP registers on a 32-bit target, -mips32r2 -mfp64. */
else if (!TARGET_64BIT && TARGET_FLOAT64)
attr = 4;
/* Regular FP code, FP regs same size as GP regs, -mdouble-float. */
else
attr = 1;
/* No floating-point operations, -mno-float. */
if (TARGET_NO_FLOAT)
attr = 0;
/* Soft-float code, -msoft-float. */
else if (!TARGET_HARD_FLOAT_ABI)
attr = 3;
/* Single-float code, -msingle-float. */
else if (!TARGET_DOUBLE_FLOAT)
attr = 2;
/* 64-bit FP registers on a 32-bit target, -mips32r2 -mfp64. */
else if (!TARGET_64BIT && TARGET_FLOAT64)
attr = 4;
/* Regular FP code, FP regs same size as GP regs, -mdouble-float. */
else
attr = 1;
fprintf (asm_out_file, "\t.gnu_attribute 4, %d\n", attr);
}
fprintf (asm_out_file, "\t.gnu_attribute 4, %d\n", attr);
}
#endif
}
/* If TARGET_ABICALLS, tell GAS to generate -KPIC code. */
if (TARGET_ABICALLS)
@ -15982,10 +15976,6 @@ mips_option_override (void)
}
}
#ifdef MIPS_TFMODE_FORMAT
REAL_MODE_FORMAT (TFmode) = &MIPS_TFMODE_FORMAT;
#endif
/* Make sure that the user didn't turn off paired single support when
MIPS-3D support is requested. */
if (TARGET_MIPS3D

46
gcc/config/mips/mips.h
View file

@ -158,15 +158,9 @@ struct mips_cpu_info {
This is true for both the PIC and non-PIC VxWorks RTP modes. */
#define TARGET_USE_PIC_FN_ADDR_REG (TARGET_ABICALLS || TARGET_VXWORKS_RTP)
/* True if .gpword or .gpdword should be used for switch tables.
Although GAS does understand .gpdword, the SGI linker mishandles
the relocations GAS generates (R_MIPS_GPREL32 followed by R_MIPS_64).
We therefore disable GP-relative switch tables for n64 on IRIX targets. */
/* True if .gpword or .gpdword should be used for switch tables. */
#define TARGET_GPWORD \
(TARGET_ABICALLS \
&& !TARGET_ABSOLUTE_ABICALLS \
&& !(mips_abi == ABI_64 && TARGET_IRIX6))
(TARGET_ABICALLS && !TARGET_ABSOLUTE_ABICALLS)
/* True if the output must have a writable .eh_frame.
See ASM_PREFERRED_EH_DATA_FORMAT for details. */
@ -319,9 +313,6 @@ struct mips_cpu_info {
those loads and stores follow it. */
#define TARGET_SYNC_AFTER_SC (!TARGET_OCTEON)
/* IRIX specific stuff. */
#define TARGET_IRIX6 0
/* Define preprocessor macros for the -march and -mtune options.
PREFIX is either _MIPS_ARCH or _MIPS_TUNE, INFO is the selected
processor. If INFO's canonical name is "foo", define PREFIX to
@ -348,10 +339,7 @@ struct mips_cpu_info {
#define TARGET_CPU_CPP_BUILTINS() \
do \
{ \
/* Everyone but IRIX defines this to mips. */ \
if (!TARGET_IRIX6) \
builtin_assert ("machine=mips"); \
\
builtin_assert ("machine=mips"); \
builtin_assert ("cpu=mips"); \
builtin_define ("__mips__"); \
builtin_define ("_mips"); \
@ -369,22 +357,20 @@ struct mips_cpu_info {
if (TARGET_64BIT) \
builtin_define ("__mips64"); \
\
if (!TARGET_IRIX6) \
/* Treat _R3000 and _R4000 like register-size \
defines, which is how they've historically \
been used. */ \
if (TARGET_64BIT) \
{ \
/* Treat _R3000 and _R4000 like register-size \
defines, which is how they've historically \
been used. */ \
if (TARGET_64BIT) \
{ \
builtin_define_std ("R4000"); \
builtin_define ("_R4000"); \
} \
else \
{ \
builtin_define_std ("R3000"); \
builtin_define ("_R3000"); \
} \
builtin_define_std ("R4000"); \
builtin_define ("_R4000"); \
} \
else \
{ \
builtin_define_std ("R3000"); \
builtin_define ("_R3000"); \
} \
\
if (TARGET_FLOAT64) \
builtin_define ("__mips_fpr=64"); \
else \
@ -548,7 +534,7 @@ struct mips_cpu_info {
{ \
builtin_define ("_LANGUAGE_OBJECTIVE_C"); \
builtin_define ("__LANGUAGE_OBJECTIVE_C"); \
/* Bizarre, but needed at least for Irix. */ \
/* Bizarre, but retained for backwards compatibility. */ \
builtin_define_std ("LANGUAGE_C"); \
builtin_define ("_LANGUAGE_C"); \
} \

24
gcc/configure vendored
View file

@ -7131,16 +7131,7 @@ else
;;
mips*-*-*)
case $host in
mips*-sgi-irix*)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: fixed-point is not supported on IRIX, ignored" >&5
$as_echo "$as_me: WARNING: fixed-point is not supported on IRIX, ignored" >&2;}
enable_fixed_point=no
;;
*)
enable_fixed_point=yes
;;
esac
enable_fixed_point=yes
;;
*)
{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: fixed-point is not supported for this target, ignored" >&5
@ -17969,7 +17960,7 @@ else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
#line 17972 "configure"
#line 17963 "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
@ -18075,7 +18066,7 @@ else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
#line 18078 "configure"
#line 18069 "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
@ -23620,11 +23611,6 @@ if test $gcc_cv_as_tls = yes; then
fi
fi
case "$target" in
*-*-irix6*)
# IRIX 6.5 rld and libc.so lack TLS support, so even if gas and gld
# with TLS support are in use, native TLS cannot work.
set_have_as_tls=no
;;
# TLS was introduced in the Solaris 9 FCS release and backported to
# Solaris 8 patches. Support for GNU-style TLS on x86 was only
# introduced in Solaris 9 4/04, replacing the earlier Sun style that Sun
@ -23820,10 +23806,6 @@ elif test x$gcc_cv_ld != x; then
gcc_cv_ld_dynamic_option="-adefault"
fi
;;
# IRIX 6 ld supports -Bstatic/-Bdynamic.
mips-sgi-irix6*)
gcc_cv_ld_static_dynamic=yes
;;
# Solaris 2 ld always supports -Bstatic/-Bdynamic.
*-*-solaris2*)
gcc_cv_ld_static_dynamic=yes

19
gcc/configure.ac
View file

@ -661,15 +661,7 @@ AC_ARG_ENABLE(fixed-point,
;;
mips*-*-*)
case $host in
mips*-sgi-irix*)
AC_MSG_WARN([fixed-point is not supported on IRIX, ignored])
enable_fixed_point=no
;;
*)
enable_fixed_point=yes
;;
esac
enable_fixed_point=yes
;;
*)
AC_MSG_WARN([fixed-point is not supported for this target, ignored])
@ -3178,11 +3170,6 @@ else
[set_have_as_tls=yes])
fi
case "$target" in
*-*-irix6*)
# IRIX 6.5 rld and libc.so lack TLS support, so even if gas and gld
# with TLS support are in use, native TLS cannot work.
set_have_as_tls=no
;;
# TLS was introduced in the Solaris 9 FCS release and backported to
# Solaris 8 patches. Support for GNU-style TLS on x86 was only
# introduced in Solaris 9 4/04, replacing the earlier Sun style that Sun
@ -3305,10 +3292,6 @@ elif test x$gcc_cv_ld != x; then
gcc_cv_ld_dynamic_option="-adefault"
fi
;;
# IRIX 6 ld supports -Bstatic/-Bdynamic.
mips-sgi-irix6*)
gcc_cv_ld_static_dynamic=yes
;;
# Solaris 2 ld always supports -Bstatic/-Bdynamic.
*-*-solaris2*)
gcc_cv_ld_static_dynamic=yes

4
gcc/cp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* Make-lang.in (doc/g++.1): Remove IRIX 6.5 reference.
2012-03-14 Jakub Jelinek <jakub@redhat.com>
PR c++/52521

6
gcc/cp/Make-lang.in
View file

@ -1,6 +1,6 @@
# Top level -*- makefile -*- fragment for GNU C++.
# Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
# 2005, 2007, 2008, 2009, 2010, 2011
# 2005, 2007, 2008, 2009, 2010, 2011, 2012
# Free Software Foundation, Inc.
#This file is part of GCC.
@ -196,8 +196,8 @@ c++.install-common: installdirs
fi ; \
fi
# We can't use links because not everyone supports them, and we can't use
# .so because Irix 6.5 doesn't support them. So just copy the manpage.
# We can't use links because not everyone supports them. So just copy the
# manpage.
doc/g++.1: doc/gcc.1
cp $< doc/g++.1

9
gcc/defaults.h
View file

@ -1,6 +1,6 @@
/* Definitions of various defaults for tm.h macros.
Copyright (C) 1992, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
2005, 2007, 2008, 2009, 2010, 2011
2005, 2007, 2008, 2009, 2010, 2011, 2012
Free Software Foundation, Inc.
Contributed by Ron Guilmette (rfg@monkeys.com)
@ -350,13 +350,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define SUPPORTS_INIT_PRIORITY 1
#endif /* SUPPORTS_INIT_PRIORITY */
/* If duplicate library search directories can be removed from a
linker command without changing the linker's semantics, give this
symbol a nonzero. */
#ifndef LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
#define LINK_ELIMINATE_DUPLICATE_LDIRECTORIES 0
#endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
/* If we have a definition of INCOMING_RETURN_ADDR_RTX, assume that
the rest of the DWARF 2 frame unwind support is also provided. */
#if !defined (DWARF2_UNWIND_INFO) && defined (INCOMING_RETURN_ADDR_RTX)

107
gcc/doc/install.texi
View file

@ -2925,16 +2925,6 @@ Solaris 2 (SPARC, Intel):
@uref{http://jupiterrise.com/tgcware/,,TGCware}
@end itemize
@item
SGI IRIX:
@itemize
@item
@uref{http://nekochan.net/,,Nekoware}
@item
@uref{http://jupiterrise.com/tgcware/,,TGCware}
@end itemize
@item
Microsoft Windows:
@itemize
@ -2948,7 +2938,6 @@ The @uref{http://www.mingw.org/,,MinGW} project.
@uref{ftp://ftp.thewrittenword.com/packages/by-name/,,The
Written Word} offers binaries for
AIX 4.3.3, 5.1 and 5.2,
IRIX 6.5,
GNU/Linux (i386),
HP-UX 10.20, 11.00, and 11.11, and
Solaris/SPARC 2.5.1, 2.6, 7, 8, 9 and 10.
@ -3944,99 +3933,9 @@ Support for IRIX 5 has been removed in GCC 4.6.
@end html
@heading @anchor{mips-sgi-irix6}mips-sgi-irix6
Support for IRIX 6.5 has been obsoleted in GCC 4.7, but can still be
enabled by configuring with @option{--enable-obsolete}. Support will be
removed in GCC 4.8. Support for IRIX 6 releases before 6.5 has been
removed in GCC 4.6, as well as support for the O32 ABI. It is
@emph{strongly} recommended to upgrade to at least IRIX 6.5.18. This
release introduced full ISO C99 support, though for the N32 and N64 ABIs
only.
To build and use GCC on IRIX 6.5, you need the IRIX Development Foundation
(IDF) and IRIX Development Libraries (IDL). They are included with the
IRIX 6.5 media.
If you are using SGI's MIPSpro @command{cc} as your bootstrap compiler, you must
ensure that the N32 ABI is in use. To test this, compile a simple C
file with @command{cc} and then run @command{file} on the
resulting object file. The output should look like:
@smallexample
test.o: ELF N32 MSB @dots{}
@end smallexample
@noindent
If you see:
@smallexample
test.o: ELF 32-bit MSB @dots{}
@end smallexample
@noindent
or
@smallexample
test.o: ELF 64-bit MSB @dots{}
@end smallexample
@noindent
then your version of @command{cc} uses the O32 or N64 ABI by default. You
should set the environment variable @env{CC} to @samp{cc -n32}
before configuring GCC@.
If you want the resulting @command{gcc} to run on old 32-bit systems
with the MIPS R4400 CPU, you need to ensure that only code for the @samp{mips3}
instruction set architecture (ISA) is generated. While GCC 3.x does
this correctly, both GCC 2.95 and SGI's MIPSpro @command{cc} may change
the ISA depending on the machine where GCC is built. Using one of them
as the bootstrap compiler may result in @samp{mips4} code, which won't run at
all on @samp{mips3}-only systems. For the test program above, you should see:
@smallexample
test.o: ELF N32 MSB mips-3 @dots{}
@end smallexample
@noindent
If you get:
@smallexample
test.o: ELF N32 MSB mips-4 @dots{}
@end smallexample
@noindent
instead, you should set the environment variable @env{CC} to @samp{cc
-n32 -mips3} or @samp{gcc -mips3} respectively before configuring GCC@.
MIPSpro C 7.4 may cause bootstrap failures, due to a bug when inlining
@code{memcmp}. Either add @code{-U__INLINE_INTRINSICS} to the @env{CC}
environment variable as a workaround or upgrade to MIPSpro C 7.4.1m.
GCC on IRIX 6.5 is usually built to support the N32 and N64 ABIs. If
you build GCC on a system that doesn't have the N64 libraries installed
or cannot run 64-bit binaries,
you need to configure with @option{--disable-multilib} so GCC doesn't
try to use them.
Look for @file{/usr/lib64/libc.so.1} to see if you
have the 64-bit libraries installed.
GCC must be configured with GNU @command{as}. The latest version, from GNU
binutils 2.21, is known to work. On the other hand, bootstrap fails
with GNU @command{ld} at least since GNU binutils 2.17.
The @option{--enable-libgcj}
option is disabled by default: IRIX 6 uses a very low default limit
(20480) for the command line length. Although @command{libtool} contains a
workaround for this problem, at least the N64 @samp{libgcj} is known not
to build despite this, running into an internal error of the native
@command{ld}. A sure fix is to increase this limit (@samp{ncargs}) to
its maximum of 262144 bytes. If you have root access, you can use the
@command{systune} command to do this.
@c FIXME: does this work with current libtool?
@code{wchar_t} support in @samp{libstdc++} is not available for old
IRIX 6.5.x releases, @math{x < 19}. The problem cannot be autodetected
and in order to build GCC for such targets you need to configure with
@option{--disable-wchar_t}.
Support for IRIX 6.5 has been removed in GCC 4.8. Support for IRIX 6
releases before 6.5 has been removed in GCC 4.6, as well as support for
the O32 ABI.
@html
<hr />

7
gcc/doc/invoke.texi
View file

@ -4778,9 +4778,8 @@ assembler (GAS) to fail with an error.
@item -gdwarf-@var{version}
@opindex gdwarf-@var{version}
Produce debugging information in DWARF format (if that is
supported). This is the format used by DBX on IRIX 6. The value
of @var{version} may be either 2, 3 or 4; the default version is 2.
Produce debugging information in DWARF format (if that is supported).
The value of @var{version} may be either 2, 3 or 4; the default version is 2.
Note that with DWARF Version 2 some ports require, and will always
use, some non-conflicting DWARF 3 extensions in the unwind tables.
@ -15260,7 +15259,7 @@ The special value @samp{from-abi} selects the
most compatible architecture for the selected ABI (that is,
@samp{mips1} for 32-bit ABIs and @samp{mips3} for 64-bit ABIs)@.
Native Linux/GNU and IRIX toolchains also support the value @samp{native},
The native Linux/GNU toolchain also supports the value @samp{native},
which selects the best architecture option for the host processor.
@option{-march=native} has no effect if GCC does not recognize
the processor.

6
gcc/doc/tm.texi
View file

@ -387,12 +387,6 @@ the effect you need. Overriding this macro may be avoidable by overriding
@code{LINK_GCC_C_SEQUENCE_SPEC} instead.
@end defmac
@defmac LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
A nonzero value causes @command{collect2} to remove duplicate @option{-L@var{directory}} search
directories from linking commands. Do not give it a nonzero value if
removing duplicate search directories changes the linker's semantics.
@end defmac
@deftypevr {Common Target Hook} bool TARGET_ALWAYS_STRIP_DOTDOT
True if @file{..} components should always be removed from directory names computed relative to GCC's internal directories, false (default) if such components should be preserved and directory names containing them passed to other tools such as the linker.
@end deftypevr

6
gcc/doc/tm.texi.in
View file

@ -387,12 +387,6 @@ the effect you need. Overriding this macro may be avoidable by overriding
@code{LINK_GCC_C_SEQUENCE_SPEC} instead.
@end defmac
@defmac LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
A nonzero value causes @command{collect2} to remove duplicate @option{-L@var{directory}} search
directories from linking commands. Do not give it a nonzero value if
removing duplicate search directories changes the linker's semantics.
@end defmac
@hook TARGET_ALWAYS_STRIP_DOTDOT
@defmac MULTILIB_DEFAULTS

6
gcc/doc/trouble.texi
View file

@ -74,12 +74,6 @@ On some BSD systems, including some versions of Ultrix, use of profiling
causes static variable destructors (currently used only in C++) not to
be run.
@item
On some SGI systems, when you use @option{-lgl_s} as an option,
it gets translated magically to @samp{-lgl_s -lX11_s -lc_s}.
Naturally, this does not happen when you use GCC@.
You must specify all three options explicitly.
@item
On a SPARC, GCC aligns all values of type @code{double} on an 8-byte
boundary, and it expects every @code{double} to be so aligned. The Sun

6
gcc/gcc.c
View file

@ -703,7 +703,7 @@ proper position among the other output files. */
# define SYSROOT_HEADERS_SUFFIX_SPEC ""
#endif
static const char *asm_debug;
static const char *asm_debug = ASM_DEBUG_SPEC;
static const char *cpp_spec = CPP_SPEC;
static const char *cc1_spec = CC1_SPEC;
static const char *cc1plus_spec = CC1PLUS_SPEC;
@ -6118,10 +6118,6 @@ main (int argc, char **argv)
struct cl_decoded_option *decoded_options;
unsigned int decoded_options_count;
/* Initialize here, not in definition. The IRIX 6 O32 cc sometimes chokes
on ?: in file-scope variable initializations. */
asm_debug = ASM_DEBUG_SPEC;
p = argv[0] + strlen (argv[0]);
while (p != argv[0] && !IS_DIR_SEPARATOR (p[-1]))
--p;

4
gcc/ginclude/stddef.h
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1989, 1997, 1998, 1999, 2000, 2002, 2004, 2009, 2011
/* Copyright (C) 1989, 1997, 1998, 1999, 2000, 2002, 2004, 2009, 2011, 2012
Free Software Foundation, Inc.
This file is part of GCC.
@ -41,8 +41,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define _STDDEF_H_
/* snaroff@next.com says the NeXT needs this. */
#define _ANSI_STDDEF_H
/* Irix 5.1 needs this. */
#define __STDDEF_H__
#endif
#ifndef __sys_stdtypes_h

3
gcc/system.h
View file

@ -878,7 +878,8 @@ extern void fancy_abort (const char *, int, const char *) ATTRIBUTE_NORETURN;
MACHINE_TYPE TARGET_HAS_TARGETCM ASM_OUTPUT_BSS \
SETJMP_VIA_SAVE_AREA FORBIDDEN_INC_DEC_CLASSES \
PREFERRED_OUTPUT_RELOAD_CLASS SYSTEM_INCLUDE_DIR \
STANDARD_INCLUDE_DIR STANDARD_INCLUDE_COMPONENT
STANDARD_INCLUDE_DIR STANDARD_INCLUDE_COMPONENT \
LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
/* Hooks that are no longer used. */
#pragma GCC poison LANG_HOOKS_FUNCTION_MARK LANG_HOOKS_FUNCTION_FREE \

47
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,50 @@
2012-03-14 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* g++.dg/other/anon5.C: Don't skip on mips-sgi-irix*.
* g++.dg/tree-prof/partition1.C: Likewise.
* g++.dg/tree-prof/partition2.C: Likewise.
* g++.old-deja/g++.other/init19.C: Remove mips-sgi-irix*
handling.
* gcc.c-torture/compile/labels-3.c: Remove dg-options.
* gcc.c-torture/execute/20010724-1.c: Remove.
* gcc.c-torture/execute/20010724-1.x: Remove.
* gcc.c-torture/execute/20040208-2.c: Remove.
* gcc.c-torture/execute/20040208-2.x: Remove.
* gcc.c-torture/execute/ieee/20000320-1.c [__mips__ && __sgi__]:
Remove.
(main) [__mips__ && __sgi__]: Remove.
* gcc.c-torture/execute/ieee/copysign1.c: Remove IRIX reference.
* gcc.c-torture/execute/ieee/copysign2.c: Likewise.
* gcc.c-torture/execute/ieee/mul-subnormal-single-1.x: Remove
mips-sgi-irix6* handling.
* gcc.dg/cpp/assert4.c [__mips__]: Remove __sgi__, sgi.
* gcc.dg/torture/20090618-1.c: Don't skip on mips-sgi-irix*.
* gcc.dg/torture/builtin-frexp-1.c: Remove mips*-*-irix6*
handling.
* gcc.dg/torture/builtin-logb-1.c: Likewise.
* gcc.dg/torture/pr47917.c: Remove mips-sgi-irix6.5 handling.
* gcc.dg/tree-ssa/ssa-store-ccp-3.c: Don't skip on mips*-*-irix*.
* gcc.misc-tests/linkage.exp: Remove mips-sgi-irix6* handling.
* gcc.target/mips/args-1.c [!__sgi__]: Remove.
* gcc.target/mips/interrupt_handler-2.c: Don't skip on
mips-sgi-irix6*.
* gcc.target/mips/interrupt_handler-3.c: Likewise.
* gcc.target/mips/save-restore-1.c: Don't skip on mips-sgi-irix6*.
* gcc.target/mips/save-restore-3.c: Likewise.
* gcc.target/mips/save-restore-4.c: Likewise.
* gcc.target/mips/save-restore-5.c: Likewise.
* gfortran.dg/g77/cabs.f: Don't xfail on mips-sgi-irix6*.
* lib/prune.exp (prune_gcc_output): Remove pruning of IRIX 6 ld
messages.
* lib/target-libpath.exp (set_ld_library_path_env_vars): Remove
IRIX 6 handling.
(restore_ld_library_path_env_vars): Likewise.
* lib/target-supports.exp (check_profiling_available): Remove
mips*-*-irix* handling.
(check_ascii_locale_available): Remove mips-sgi-irix* handling.
(add_options_for_c99_runtime): Remove mips-sgi-irix6.5* handling.
* objc.dg/stabs-1.m: Don't xfail on mips-sgi-irix6.5.
2012-03-14 Jakub Jelinek <jakub@redhat.com>
PR c++/52582

2
gcc/testsuite/g++.dg/other/anon5.C
View file

@ -1,5 +1,5 @@
// PR c++/34094
// { dg-do link { target { ! { *-*-darwin* *-*-hpux* *-*-solaris2.* mips-sgi-irix* } } } }
// { dg-do link { target { ! { *-*-darwin* *-*-hpux* *-*-solaris2.* } } } }
// { dg-options "-g" }
namespace {

1
gcc/testsuite/g++.dg/tree-prof/partition1.C
View file

@ -1,6 +1,5 @@
/* { dg-require-effective-target freorder } */
/* { dg-options "-O2 -freorder-blocks-and-partition" } */
/* { dg-skip-if "PR target/47683" { mips-sgi-irix* } } */
struct A { A () __attribute__((noinline)); ~A () __attribute__((noinline)); };
A::A () { asm volatile ("" : : : "memory"); }

1
gcc/testsuite/g++.dg/tree-prof/partition2.C
View file

@ -1,7 +1,6 @@
// PR middle-end/45458
// { dg-require-effective-target freorder }
// { dg-options "-fnon-call-exceptions -freorder-blocks-and-partition" }
// { dg-skip-if "PR target/47683" { mips-sgi-irix* } }
int
main ()

2
gcc/testsuite/g++.old-deja/g++.other/init19.C
View file

@ -1,4 +1,4 @@
// { dg-do run { xfail { { ! cxa_atexit } && { ! { mips-sgi-irix* *-*-solaris2* } } } } }
// { dg-do run { xfail { { ! cxa_atexit } && { ! *-*-solaris2* } } } }
#include <stdlib.h>
#define assert(x) do { if (! (x)) abort(); } while (0)

6
gcc/testsuite/gcc.c-torture/compile/labels-3.c
View file

@ -1,9 +1,3 @@
/* This test does not compile on mips-irix6 using the native assembler,
though it does work with gas. See PR6200. Since we cannot (???)
distinguish which assembler is being used, always pass -S for
irix. */
/* { dg-options "-w -S" { target mips*-*-irix* } } */
/* Verify that we can narrow the storage associated with label diffs. */
int foo (int a)

59
gcc/testsuite/gcc.c-torture/execute/20010724-1.c
View file

@ -1,59 +0,0 @@
/* Verify that the workarounds in config/mips/irix6-libc-compat.c are still
needed. */
/* IRIX 6, unlike other Unix systems, defines union semun in <sys/sem.h>.
Inhibit this definition to be able to run this test on other platforms. */
#define _XOPEN_SOURCE
#include <sys/types.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <sys/ipc.h>
#include <sys/sem.h>
union semun {
int val;
struct semid_ds *buf;
ushort_t *array;
};
int
main (void)
{
struct in_addr ia;
int semid;
union semun su;
ia.s_addr = INADDR_BROADCAST;
if (strcmp (inet_ntoa (ia), "255.255.255.255") != 0)
abort ();
ia.s_addr = INADDR_LOOPBACK;
if (inet_lnaof (ia) != 1)
abort ();
if (inet_netof (ia) != IN_LOOPBACKNET)
abort ();
ia = inet_makeaddr (IN_LOOPBACKNET, 1);
if (ia.s_addr != INADDR_LOOPBACK)
abort ();
if ((semid = semget (IPC_PRIVATE, 1, IPC_CREAT | IPC_EXCL | SEM_R | SEM_A)) < 0)
abort ();
su.val = 10;
if (semctl (semid, 0, SETVAL, su) != 0)
abort ();
if (semctl (semid, 0, GETVAL) != 10)
abort ();
if (semctl (semid, 0, IPC_RMID) != 0)
abort ();
return 0;
}

3
gcc/testsuite/gcc.c-torture/execute/20010724-1.x
View file

@ -1,3 +0,0 @@
# This test is only needed on IRIX 6
if { ! [istarget "mips*-sgi-irix6*"] } { return 1 }
return 0

11
gcc/testsuite/gcc.c-torture/execute/20040208-2.c
View file

@ -1,11 +0,0 @@
int main ()
{
long double x, y;
x = 0x1.fffffffffffff8p1022L;
x *= 2;
y = 0x1.fffffffffffff8p1023L;
if (memcmp (&x, &y, sizeof (x)) != 0)
abort ();
exit (0);
}

1
gcc/testsuite/gcc.c-torture/execute/20040208-2.x
View file

@ -1 +0,0 @@
return [expr ![istarget mips*-*-irix6*]]

12
gcc/testsuite/gcc.c-torture/execute/ieee/20000320-1.c
View file

@ -1,6 +1,3 @@
#if defined(__mips__) && defined(__sgi__)
#include <sys/fpu.h>
#endif /* defined(__mips__) && defined(__sgi__) */
#if __INT_MAX__ != 2147483647 || (__LONG_LONG_MAX__ != 9223372036854775807ll && __LONG_MAX__ != 9223372036854775807ll)
int main(void) { exit (0); }
#else
@ -34,15 +31,6 @@ void c(ull d, ul f)
int main()
{
#if defined(__mips__) && defined(__sgi__)
/* Many MIPS chips round denormalized floating point numbers to zero
rather than follow the IEEE standard. Change the rounding mode
to correspond to the IEEE rounding mode that rounds numbers to
the nearest representable mode, the most common IEEE rounding
mode. */
set_fpc_csr(0);
#endif /* defined(__mips__) && defined(__sgi__) */
if (sizeof (float) != sizeof (ul)
|| sizeof (double) != sizeof (ull))
exit (0);

2
gcc/testsuite/gcc.c-torture/execute/ieee/copysign1.c
View file

@ -24,7 +24,7 @@
builds constants; the later is what we'll get from the negation operator
at runtime. */
/* ??? This hack only works for big-endian, which is fortunately true for
all of AIX, Darwin, and Irix. */
AIX and, Darwin. */
#if LDBL_MANT_DIG == 106
# undef fpsizeofl
# define fpsizeofl sizeof(double)

2
gcc/testsuite/gcc.c-torture/execute/ieee/copysign2.c
View file

@ -24,7 +24,7 @@
builds constants; the later is what we'll get from the negation operator
at runtime. */
/* ??? This hack only works for big-endian, which is fortunately true for
all of AIX, Darwin, and Irix. */
AIX and Darwin. */
#if LDBL_MANT_DIG == 106
# undef fpsizeofl
# define fpsizeofl sizeof(double)

5
gcc/testsuite/gcc.c-torture/execute/ieee/mul-subnormal-single-1.x
View file

@ -3,11 +3,6 @@ if [istarget "epiphany-*-*"] {
# support subnormals.
return 1
}
if [istarget "mips-sgi-irix6*"] {
# IRIX 6 sets the MIPS IV flush to zero bit by default, so this test
# isn't expected to work for n32 and n64 on MIPS IV targets.
return 1
}
if {[istarget "m68k-*-*"] && [check_effective_target_coldfire_fpu]} {
# ColdFire FPUs require software handling of subnormals. We are
# not aware of any system that has this.

9
gcc/testsuite/gcc.dg/cpp/assert4.c
View file

@ -1,4 +1,6 @@
/* Copyright (C) 2003, 2006, 2008, 2009, 2011 Free Software Foundation, Inc.
/* Copyright (C) 2003, 2006, 2008, 2009, 2011, 2012
Free Software Foundation, Inc.
Test builtin preprocessor assertions.
By Kaveh Ghazi <ghazi@caip.rutgers.edu>. */
@ -273,11 +275,10 @@
#endif
#if defined __mips__
# if !#cpu(mips) || (defined __sgi__ && !#machine(sgi)) \
|| (!defined __sgi__ && !#machine(mips))
# if !#cpu(mips)
# error
# endif
#elif #cpu(mips) || #machine(sgi) || #machine(mips)
#elif #cpu(mips) || #machine(mips)
# error
#endif

1
gcc/testsuite/gcc.dg/torture/20090618-1.c
View file

@ -1,6 +1,5 @@
/* { dg-do run } */
/* { dg-skip-if "" { *-*-* } { "-O0" } { "" } } */
/* { dg-skip-if "PR middle-end/47405" { mips-sgi-irix* } } */
extern void abort (void);

2
gcc/testsuite/gcc.dg/torture/builtin-frexp-1.c
View file

@ -9,7 +9,7 @@
/* { dg-options "-fno-finite-math-only" { target sh*-*-* } } */
/* In order to fold algebraic exprs below, targets with "composite"
floating point formats need -funsafe-math-optimizations. */
/* { dg-options "-funsafe-math-optimizations" { target mips*-*-irix6* powerpc*-*-* } } */
/* { dg-options "-funsafe-math-optimizations" { target powerpc*-*-* } } */
extern void link_error(int);

2
gcc/testsuite/gcc.dg/torture/builtin-logb-1.c
View file

@ -9,7 +9,7 @@
/* { dg-options "-fno-finite-math-only" { target sh*-*-* } } */
/* In order to fold algebraic exprs below, targets with "composite"
floating point formats need -funsafe-math-optimizations. */
/* { dg-options "-funsafe-math-optimizations" { target mips*-*-irix6* powerpc*-*-* } } */
/* { dg-options "-funsafe-math-optimizations" { target powerpc*-*-* } } */
extern void link_error(int);

2
gcc/testsuite/gcc.dg/torture/pr47917.c
View file

@ -1,6 +1,6 @@
/* { dg-do run } */
/* { dg-options "-std=c99" } */
/* { dg-options "-std=c99 -D_XOPEN_SOURCE=500" { target mips-sgi-irix6.5 *-*-solaris2.[89] } } */
/* { dg-options "-std=c99 -D_XOPEN_SOURCE=500" { target *-*-solaris2.[89] } } */
/* { dg-options "-std=gnu99" { target *-*-hpux* } } */
/* { dg-additional-options "-D__USE_MINGW_ANSI_STDIO=1" { target *-*-mingw* } } */
/* { dg-xfail-if "no C99 snprintf function" { *-*-hpux10* } } */

4
gcc/testsuite/gcc.dg/tree-ssa/ssa-store-ccp-3.c
View file

@ -1,7 +1,7 @@
/* { dg-do compile } */
/* Skipped on MIPS GNU/Linux and IRIX target because __PIC__ can be
/* Skipped on MIPS GNU/Linux target because __PIC__ can be
defined for executables as well as shared libraries. */
/* { dg-skip-if "" { *-*-darwin* hppa*64*-*-* mips*-*-linux* mips*-*-irix* *-*-mingw* } { "*" } { "" } } */
/* { dg-skip-if "" { *-*-darwin* hppa*64*-*-* mips*-*-linux* *-*-mingw* } { "*" } { "" } } */
/* { dg-options "-O2 -fno-common -fdump-tree-optimized" } */
const int conststaticvariable;

14
gcc/testsuite/gcc.misc-tests/linkage.exp
View file

@ -1,4 +1,4 @@
# Copyright (C) 1988, 90-96, 1997, 2000, 2001, 2002, 2007, 2008, 2010
# Copyright (C) 1988, 90-96, 1997, 2000, 2001, 2002, 2007, 2008, 2010, 2012
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
@ -28,18 +28,6 @@ if { [isnative] && ![is_remote host] } then {
# Need to ensure ABI for native compiler matches gcc
set native_cflags ""
if [istarget "mips-sgi-irix6*"] {
set file_string [exec file "linkage-x.o"]
if [ string match "*64*" $file_string ] {
set native_cflags "-64"
}
if [ string match "*ELF 32*" $file_string ] {
set native_cflags "-32"
}
if [ string match "*N32*" $file_string ] {
set native_cflags "-n32"
}
}
if [istarget "sparc*-sun-solaris2*"] {
set file_string [exec file "linkage-x.o"]
if [ string match "*64*" $file_string ] {

4
gcc/testsuite/gcc.target/mips/args-1.c
View file

@ -12,7 +12,7 @@ const char *optimized_for = _MIPS_TUNE;
/* Test complementary macro pairs: exactly one of each pair
must be defined. */
#if defined (_R3000) == defined (_R4000) && !defined (__sgi__)
#if defined (_R3000) == defined (_R4000)
#error _R3000 / _R4000 mismatch
#endif
@ -26,7 +26,7 @@ const char *optimized_for = _MIPS_TUNE;
/* Check for __mips64 consistency. */
#if defined (__mips64) != defined (_R4000) && !defined (__sgi__)
#if defined (__mips64) != defined (_R4000)
#error __mips64 / _R4000 mismatch
#endif

1
gcc/testsuite/gcc.target/mips/interrupt_handler-2.c
View file

@ -4,7 +4,6 @@
/* { dg-final { scan-assembler "\t\\\.cfi_restore 65\n" } } */
/* { dg-final { scan-assembler-not "\\\.cfi_def_cfa( |\t)" } } */
/* { dg-final { scan-assembler-not "\\\.cfi_def_cfa_register( |\t)" } } */
/* { dg-skip-if "PR target/50580" { mips-sgi-irix6* } } */
extern void f (void);

Some files were not shown because too many files have changed in this diff Show more