aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/link.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/link.c')
-rw-r--r--gcc/ada/link.c233
1 files changed, 233 insertions, 0 deletions
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 *
+ * <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 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 <string.h>
+
+/* 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
generated by cgit v1.1 at 2025-04-24 21:33:46 +0000