From 903e846578b8a97c311a6e120edbd116a8b3f992 Mon Sep 17 00:00:00 2001 From: Martin Liska Date: Tue, 18 Jan 2022 09:54:35 +0100 Subject: Revert Ada .cc renaming renaming. gcc/ada/ChangeLog: * Make-generated.in: Revert renaming changes. * Makefile.rtl: Likewise. * adadecode.cc: Moved to... * adadecode.c: ...here. * affinity.cc: Moved to... * affinity.c: ...here. * argv-lynxos178-raven-cert.cc: Moved to... * argv-lynxos178-raven-cert.c: ...here. * argv.cc: Moved to... * argv.c: ...here. * aux-io.cc: Moved to... * aux-io.c: ...here. * cio.cc: Moved to... * cio.c: ...here. * cstreams.cc: Moved to... * cstreams.c: ...here. * env.cc: Moved to... * env.c: ...here. * exit.cc: Moved to... * exit.c: ...here. * expect.cc: Moved to... * expect.c: ...here. * final.cc: Moved to... * final.c: ...here. * gcc-interface/Makefile.in: * init.cc: Moved to... * init.c: ...here. * initialize.cc: Moved to... * initialize.c: ...here. * libgnarl/thread.cc: Moved to... * libgnarl/thread.c: ...here. * link.cc: Moved to... * link.c: ...here. * locales.cc: Moved to... * locales.c: ...here. * mkdir.cc: Moved to... * mkdir.c: ...here. * raise.cc: Moved to... * raise.c: ...here. * rtfinal.cc: Moved to... * rtfinal.c: ...here. * rtinit.cc: Moved to... * rtinit.c: ...here. * s-oscons-tmplt.c (CND): Revert renaming changes. * seh_init.cc: Moved to... * seh_init.c: ...here. * sigtramp-armdroid.cc: Moved to... * sigtramp-armdroid.c: ...here. * sigtramp-ios.cc: Moved to... * sigtramp-ios.c: ...here. * sigtramp-qnx.cc: Moved to... * sigtramp-qnx.c: ...here. * sigtramp-vxworks.cc: Moved to... * sigtramp-vxworks.c: ...here. * socket.cc: Moved to... * socket.c: ...here. * tracebak.cc: Moved to... * tracebak.c: ...here. * version.cc: Moved to... * version.c: ...here. * vx_stack_info.cc: Moved to... * vx_stack_info.c: ...here. --- gcc/ada/link.c | 233 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 233 insertions(+) create mode 100644 gcc/ada/link.c (limited to 'gcc/ada/link.c') diff --git a/gcc/ada/link.c b/gcc/ada/link.c new file mode 100644 index 0000000..a7574ef --- /dev/null +++ b/gcc/ada/link.c @@ -0,0 +1,233 @@ +/**************************************************************************** + * * + * GNAT COMPILER COMPONENTS * + * * + * L I N K * + * * + * C Implementation File * + * * + * Copyright (C) 1992-2022, 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 * + * . * + * * + * GNAT was originally developed by the GNAT team at New York University. * + * Extensive contributions were provided by Ada Core Technologies Inc. * + * * + ****************************************************************************/ + +/* This file contains host-specific parameters describing the behavior of the + linker. It is used by gnatlink as well as all tools that use Mlib. */ + +#ifdef __cplusplus +extern "C" { +#endif + +#ifdef IN_GCC +#include "auto-host.h" +#endif + +#include + +/* objlist_file_supported is set to 1 when the system linker allows */ +/* response file, that is a file that contains the list of object files. */ +/* This is useful on systems where the command line length is limited, */ +/* meaning that putting all the object files on the command line can */ +/* result in an unacceptable limit on the number of files. */ + +/* object_file_option denotes the system dependent linker option which */ +/* allows object file names to be placed in a file and then passed to */ +/* the linker. object_file_option must be set if objlist_file_supported */ +/* is set to 1. */ + +/* link_max is a conservative system specific threshold (in bytes) of the */ +/* argument length passed to the linker which will trigger a file being */ +/* used instead of the command line directly. If the argument length is */ +/* greater than this threshold, then an objlist_file will be generated */ +/* and object_file_option and objlist_file_supported must be set. If */ +/* objlist_file_supported is set to 0 (unsupported), then link_max is */ +/* set to 2**31-1 so that the limit will never be exceeded. */ + +/* run_path_option is the system dependent linker option which specifies */ +/* the run time path to use when loading dynamic libraries. This should */ +/* be set to the null string if the system does not support dynamic */ +/* loading of libraries. */ + +/* shared_libgnat_default gives the system dependent link method that */ +/* be used by default for linking libgnat (shared or static) */ + +/* shared_libgcc_default gives the system dependent link method that */ +/* be used by default for linking libgcc (shared or static) */ + +/* separate_run_path_options is set to 1 when separate "rpath" arguments */ +/* must be passed to the linker for each directory in the rpath. */ + +/* default_libgcc_subdir is the subdirectory name (from the installation */ +/* root) where we may find a shared libgcc to use by default. */ + +#define SHARED 'H' +#define STATIC 'T' + +#if defined (__WIN32) +const char *__gnat_object_file_option = "-Wl,@"; +const char *__gnat_run_path_option = ""; +int __gnat_link_max = 30000; +unsigned char __gnat_objlist_file_supported = 1; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif defined (__hpux__) +const char *__gnat_object_file_option = "-Wl,-c,"; +const char *__gnat_run_path_option = "-Wl,+b,"; +int __gnat_link_max = 5000; +unsigned char __gnat_objlist_file_supported = 1; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif defined (__FreeBSD__) || defined (__DragonFly__) \ + || defined (__NetBSD__) || defined (__OpenBSD__) \ + || defined (__QNX__) +const char *__gnat_object_file_option = "-Wl,@"; +const char *__gnat_run_path_option = "-Wl,-rpath,"; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 8192; +unsigned char __gnat_objlist_file_supported = 1; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif defined (__APPLE__) +const char *__gnat_object_file_option = "-Wl,-filelist,"; +const char *__gnat_run_path_option = "-Wl,-rpath,"; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = SHARED; +int __gnat_link_max = 262144; +unsigned char __gnat_objlist_file_supported = 1; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 1; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif defined (__linux__) || defined (__GLIBC__) +const char *__gnat_object_file_option = "-Wl,@"; +const char *__gnat_run_path_option = "-Wl,-rpath,"; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 8192; +unsigned char __gnat_objlist_file_supported = 1; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +#if defined (__x86_64) +# if defined (__LP64__) +const char *__gnat_default_libgcc_subdir = "lib64"; +# else +const char *__gnat_default_libgcc_subdir = "libx32"; +# endif +#else +const char *__gnat_default_libgcc_subdir = "lib"; +#endif + +#elif defined (_AIX) +/* On AIX, even when with GNU ld we use native linker switches. This is + particularly important for '-f' as it should be interpreted by collect2. */ + +const char *__gnat_object_file_option = "-Wl,-f,"; +const char *__gnat_run_path_option = ""; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 15000; +unsigned char __gnat_objlist_file_supported = 1; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif (HAVE_GNU_LD) +/* These are the settings for all systems that use gnu ld. GNU style response + file is supported, the shared library default is STATIC. */ + +const char *__gnat_object_file_option = "-Wl,@"; +const char *__gnat_run_path_option = ""; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 8192; +unsigned char __gnat_objlist_file_supported = 1; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif defined (VMS) +const char *__gnat_object_file_option = ""; +const char *__gnat_run_path_option = ""; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 2147483647; +unsigned char __gnat_objlist_file_supported = 0; +const char *__gnat_object_library_extension = ".olb"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#elif defined (__sun__) +const char *__gnat_object_file_option = ""; +const char *__gnat_run_path_option = "-Wl,-R"; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 2147483647; +unsigned char __gnat_objlist_file_supported = 0; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +#if defined (__sparc_v9__) || defined (__sparcv9) +const char *__gnat_default_libgcc_subdir = "lib/sparcv9"; +#elif defined (__x86_64) +const char *__gnat_default_libgcc_subdir = "lib/amd64"; +#else +const char *__gnat_default_libgcc_subdir = "lib"; +#endif + +#elif defined (__svr4__) && defined (__i386__) +const char *__gnat_object_file_option = ""; +const char *__gnat_run_path_option = ""; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 2147483647; +unsigned char __gnat_objlist_file_supported = 0; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; + +#else + +/* These are the default settings for all other systems. No response file + is supported, the shared library default is STATIC. */ +const char *__gnat_run_path_option = ""; +const char *__gnat_object_file_option = ""; +char __gnat_shared_libgnat_default = STATIC; +char __gnat_shared_libgcc_default = STATIC; +int __gnat_link_max = 2147483647; +unsigned char __gnat_objlist_file_supported = 0; +const char *__gnat_object_library_extension = ".a"; +unsigned char __gnat_separate_run_path_options = 0; +const char *__gnat_default_libgcc_subdir = "lib"; +#endif + +#ifdef __cplusplus +} +#endif -- cgit v1.1