1 /* Collect static initialization info into data structures that can be
2 traversed by C++ initialization and finalization routines.
3 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998,
4 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
5 Contributed by Chris Smith (csmith@convex.com).
6 Heavily modified by Michael Meissner (meissner@cygnus.com),
7 Per Bothner (bothner@cygnus.com), and John Gilmore (gnu@cygnus.com).
9 This file is part of GCC.
11 GCC is free software; you can redistribute it and/or modify it under
12 the terms of the GNU General Public License as published by the Free
13 Software Foundation; either version 2, or (at your option) any later
16 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
17 WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 You should have received a copy of the GNU General Public License
22 along with GCC; see the file COPYING. If not, write to the Free
23 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
27 /* Build tables of static constructors and destructors and run ld. */
31 #include "coretypes.h"
34 #if ! defined( SIGCHLD ) && defined( SIGCLD )
35 # define SIGCHLD SIGCLD
38 #ifdef vfork /* Autoconf may define this to fork for us. */
39 # define VFORK_STRING "fork"
41 # define VFORK_STRING "vfork"
47 #define vfork() (decc$$alloc_vfork_blocks() >= 0 ? \
48 lib$get_current_invo_context(decc$$get_vfork_jmpbuf()) : -1)
51 #ifndef LIBRARY_PATH_ENV
52 #define LIBRARY_PATH_ENV "LIBRARY_PATH"
63 /* On certain systems, we have code that works by scanning the object file
64 directly. But this code uses system-specific header files and library
65 functions, so turn it off in a cross-compiler. Likewise, the names of
66 the utilities are not correct for a cross-compiler; we have to hope that
67 cross-versions are in the proper directories. */
70 #undef OBJECT_FORMAT_COFF
72 #undef REAL_LD_FILE_NAME
73 #undef REAL_NM_FILE_NAME
74 #undef REAL_STRIP_FILE_NAME
77 /* If we cannot use a special method, use the ordinary one:
78 run nm to find what symbols are present.
79 In a cross-compiler, this means you need a cross nm,
80 but that is not quite as unpleasant as special headers. */
82 #if !defined (OBJECT_FORMAT_COFF)
83 #define OBJECT_FORMAT_NONE
86 #ifdef OBJECT_FORMAT_COFF
95 /* Many versions of ldfcn.h define these. */
103 /* Some systems have an ISCOFF macro, but others do not. In some cases
104 the macro may be wrong. MY_ISCOFF is defined in tm.h files for machines
105 that either do not have an ISCOFF macro in /usr/include or for those
106 where it is wrong. */
109 #define MY_ISCOFF(X) ISCOFF (X)
112 #endif /* OBJECT_FORMAT_COFF */
114 #ifdef OBJECT_FORMAT_NONE
116 /* Default flags to pass to nm. */
118 #define NM_FLAGS "-n"
121 #endif /* OBJECT_FORMAT_NONE */
123 /* Some systems use __main in a way incompatible with its use in gcc, in these
124 cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
125 give the same symbol without quotes for an alternative entry point. */
127 #define NAME__MAIN "__main"
130 /* This must match tree.h. */
131 #define DEFAULT_INIT_PRIORITY 65535
133 #ifndef COLLECT_SHARED_INIT_FUNC
134 #define COLLECT_SHARED_INIT_FUNC(STREAM, FUNC) \
135 fprintf ((STREAM), "void _GLOBAL__DI() {\n\t%s();\n}\n", (FUNC))
137 #ifndef COLLECT_SHARED_FINI_FUNC
138 #define COLLECT_SHARED_FINI_FUNC(STREAM, FUNC) \
139 fprintf ((STREAM), "void _GLOBAL__DD() {\n\t%s();\n}\n", (FUNC))
143 #define SCAN_LIBRARIES
147 int do_collecting
= 1;
149 int do_collecting
= 0;
152 /* Nonzero if we should suppress the automatic demangling of identifiers
153 in linker error messages. Set from COLLECT_NO_DEMANGLE. */
156 /* Linked lists of constructor and destructor names. */
172 /* Enumeration giving which pass this is for scanning the program file. */
175 PASS_FIRST
, /* without constructors */
176 PASS_OBJ
, /* individual objects */
177 PASS_LIB
, /* looking for shared libraries */
178 PASS_SECOND
/* with constructors linked in */
181 int vflag
; /* true if -v */
182 static int rflag
; /* true if -r */
183 static int strip_flag
; /* true if -s */
184 static const char *demangle_flag
;
185 #ifdef COLLECT_EXPORT_LIST
186 static int export_flag
; /* true if -bE */
187 static int aix64_flag
; /* true if -b64 */
188 static int aixrtl_flag
; /* true if -brtl */
191 int debug
; /* true if -debug */
193 static int shared_obj
; /* true if -shared */
195 static const char *c_file
; /* <xxx>.c for constructor/destructor list. */
196 static const char *o_file
; /* <xxx>.o for constructor/destructor list. */
197 #ifdef COLLECT_EXPORT_LIST
198 static const char *export_file
; /* <xxx>.x for AIX export list. */
200 const char *ldout
; /* File for ld errors. */
201 static const char *output_file
; /* Output file for ld. */
202 static const char *nm_file_name
; /* pathname of nm */
204 static const char *ldd_file_name
; /* pathname of ldd (or equivalent) */
206 static const char *strip_file_name
; /* pathname of strip */
207 const char *c_file_name
; /* pathname of gcc */
208 static char *initname
, *fininame
; /* names of init and fini funcs */
210 static struct head constructors
; /* list of constructors found */
211 static struct head destructors
; /* list of destructors found */
212 #ifdef COLLECT_EXPORT_LIST
213 static struct head exports
; /* list of exported symbols */
215 static struct head frame_tables
; /* list of frame unwind info tables */
217 struct obstack temporary_obstack
;
218 char * temporary_firstobj
;
220 /* Holds the return value of pexecute and fork. */
223 /* Structure to hold all the directories in which to search for files to
228 const char *prefix
; /* String to prepend to the path. */
229 struct prefix_list
*next
; /* Next in linked list. */
234 struct prefix_list
*plist
; /* List of prefixes to try */
235 int max_len
; /* Max length of a prefix in PLIST */
236 const char *name
; /* Name of this list (used in config stuff) */
239 #ifdef COLLECT_EXPORT_LIST
240 /* Lists to keep libraries to be scanned for global constructors/destructors. */
241 static struct head libs
; /* list of libraries */
242 static struct path_prefix cmdline_lib_dirs
; /* directories specified with -L */
243 static struct path_prefix libpath_lib_dirs
; /* directories in LIBPATH */
244 static struct path_prefix
*libpaths
[3] = {&cmdline_lib_dirs
,
245 &libpath_lib_dirs
, NULL
};
248 static void handler (int);
249 static int is_ctor_dtor (const char *);
250 static char *find_a_file (struct path_prefix
*, const char *);
251 static void add_prefix (struct path_prefix
*, const char *);
252 static void prefix_from_env (const char *, struct path_prefix
*);
253 static void prefix_from_string (const char *, struct path_prefix
*);
254 static void do_wait (const char *);
255 static void fork_execute (const char *, char **);
256 static void maybe_unlink (const char *);
257 static void add_to_list (struct head
*, const char *);
258 static int extract_init_priority (const char *);
259 static void sort_ids (struct head
*);
260 static void write_list (FILE *, const char *, struct id
*);
261 #ifdef COLLECT_EXPORT_LIST
262 static void dump_list (FILE *, const char *, struct id
*);
265 static void dump_prefix_list (FILE *, const char *, struct prefix_list
*);
267 static void write_list_with_asm (FILE *, const char *, struct id
*);
268 static void write_c_file (FILE *, const char *);
269 static void write_c_file_stat (FILE *, const char *);
270 #ifndef LD_INIT_SWITCH
271 static void write_c_file_glob (FILE *, const char *);
273 static void scan_prog_file (const char *, enum pass
);
274 #ifdef SCAN_LIBRARIES
275 static void scan_libraries (const char *);
277 #if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
278 static int is_in_args (const char *, const char **, const char **);
280 #ifdef COLLECT_EXPORT_LIST
282 static int is_in_list (const char *, struct id
*);
284 static void write_aix_file (FILE *, struct id
*);
285 static char *resolve_lib_name (const char *);
287 static char *extract_string (const char **);
291 dup2 (int oldfd
, int newfd
)
300 while ((fd
= dup (oldfd
)) != newfd
&& fd
>= 0) /* good enough for low fd's */
303 close (fdtmp
[--fdx
]);
307 #endif /* ! HAVE_DUP2 */
309 /* Delete tempfiles and exit function. */
312 collect_exit (int status
)
314 if (c_file
!= 0 && c_file
[0])
315 maybe_unlink (c_file
);
317 if (o_file
!= 0 && o_file
[0])
318 maybe_unlink (o_file
);
320 #ifdef COLLECT_EXPORT_LIST
321 if (export_file
!= 0 && export_file
[0])
322 maybe_unlink (export_file
);
325 if (ldout
!= 0 && ldout
[0])
328 maybe_unlink (ldout
);
331 if (status
!= 0 && output_file
!= 0 && output_file
[0])
332 maybe_unlink (output_file
);
338 /* Notify user of a non-error. */
340 notice (const char *msgid
, ...)
344 va_start (ap
, msgid
);
345 vfprintf (stderr
, _(msgid
), ap
);
349 /* Die when sys call fails. */
352 fatal_perror (const char * msgid
, ...)
357 va_start (ap
, msgid
);
358 fprintf (stderr
, "collect2: ");
359 vfprintf (stderr
, _(msgid
), ap
);
360 fprintf (stderr
, ": %s\n", xstrerror (e
));
363 collect_exit (FATAL_EXIT_CODE
);
369 fatal (const char * msgid
, ...)
373 va_start (ap
, msgid
);
374 fprintf (stderr
, "collect2: ");
375 vfprintf (stderr
, _(msgid
), ap
);
376 fprintf (stderr
, "\n");
379 collect_exit (FATAL_EXIT_CODE
);
382 /* Write error message. */
385 error (const char * msgid
, ...)
389 va_start (ap
, msgid
);
390 fprintf (stderr
, "collect2: ");
391 vfprintf (stderr
, _(msgid
), ap
);
392 fprintf (stderr
, "\n");
396 /* In case obstack is linked in, and abort is defined to fancy_abort,
397 provide a default entry. */
400 fancy_abort (const char *file
, int line
, const char *func
)
402 fatal ("internal gcc abort in %s, at %s:%d", func
, file
, line
);
408 if (c_file
!= 0 && c_file
[0])
409 maybe_unlink (c_file
);
411 if (o_file
!= 0 && o_file
[0])
412 maybe_unlink (o_file
);
414 if (ldout
!= 0 && ldout
[0])
415 maybe_unlink (ldout
);
417 #ifdef COLLECT_EXPORT_LIST
418 if (export_file
!= 0 && export_file
[0])
419 maybe_unlink (export_file
);
422 signal (signo
, SIG_DFL
);
423 kill (getpid (), signo
);
428 file_exists (const char *name
)
430 return access (name
, R_OK
) == 0;
433 /* Parse a reasonable subset of shell quoting syntax. */
436 extract_string (const char **pp
)
449 obstack_1grow (&temporary_obstack
, c
);
450 else if (! inside
&& c
== ' ')
452 else if (! inside
&& c
== '\\')
457 obstack_1grow (&temporary_obstack
, c
);
460 obstack_1grow (&temporary_obstack
, '\0');
462 return obstack_finish (&temporary_obstack
);
466 dump_file (const char *name
)
468 FILE *stream
= fopen (name
, "r");
475 while (c
= getc (stream
),
476 c
!= EOF
&& (ISIDNUM (c
) || c
== '$' || c
== '.'))
477 obstack_1grow (&temporary_obstack
, c
);
478 if (obstack_object_size (&temporary_obstack
) > 0)
480 const char *word
, *p
;
482 obstack_1grow (&temporary_obstack
, '\0');
483 word
= obstack_finish (&temporary_obstack
);
486 ++word
, putc ('.', stderr
);
488 if (!strncmp (p
, USER_LABEL_PREFIX
, strlen (USER_LABEL_PREFIX
)))
489 p
+= strlen (USER_LABEL_PREFIX
);
491 #ifdef HAVE_LD_DEMANGLE
497 result
= cplus_demangle (p
, DMGL_PARAMS
| DMGL_ANSI
| DMGL_VERBOSE
);
503 fputs (result
, stderr
);
505 diff
= strlen (word
) - strlen (result
);
506 while (diff
> 0 && c
== ' ')
507 --diff
, putc (' ', stderr
);
508 while (diff
< 0 && c
== ' ')
509 ++diff
, c
= getc (stream
);
514 fputs (word
, stderr
);
517 obstack_free (&temporary_obstack
, temporary_firstobj
);
526 /* Decide whether the given symbol is: a constructor (1), a destructor
527 (2), a routine in a shared object that calls all the constructors
528 (3) or destructors (4), a DWARF exception-handling table (5), or
529 nothing special (0). */
532 is_ctor_dtor (const char *s
)
534 struct names
{ const char *const name
; const int len
; const int ret
;
535 const int two_underscores
; };
537 const struct names
*p
;
539 const char *orig_s
= s
;
541 static const struct names special
[] = {
542 #ifndef NO_DOLLAR_IN_LABEL
543 { "GLOBAL__I$", sizeof ("GLOBAL__I$")-1, 1, 0 },
544 { "GLOBAL__D$", sizeof ("GLOBAL__D$")-1, 2, 0 },
546 #ifndef NO_DOT_IN_LABEL
547 { "GLOBAL__I.", sizeof ("GLOBAL__I.")-1, 1, 0 },
548 { "GLOBAL__D.", sizeof ("GLOBAL__D.")-1, 2, 0 },
549 #endif /* NO_DOT_IN_LABEL */
550 #endif /* NO_DOLLAR_IN_LABEL */
551 { "GLOBAL__I_", sizeof ("GLOBAL__I_")-1, 1, 0 },
552 { "GLOBAL__D_", sizeof ("GLOBAL__D_")-1, 2, 0 },
553 { "GLOBAL__F_", sizeof ("GLOBAL__F_")-1, 5, 0 },
554 { "GLOBAL__FI_", sizeof ("GLOBAL__FI_")-1, 3, 0 },
555 { "GLOBAL__FD_", sizeof ("GLOBAL__FD_")-1, 4, 0 },
559 while ((ch
= *s
) == '_')
565 for (p
= &special
[0]; p
->len
> 0; p
++)
568 && (!p
->two_underscores
|| ((s
- orig_s
) >= 2))
569 && strncmp(s
, p
->name
, p
->len
) == 0)
577 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
578 and one from the PATH variable. */
580 static struct path_prefix cpath
, path
;
583 /* This is the name of the target machine. We use it to form the name
584 of the files to execute. */
586 static const char *const target_machine
= TARGET_MACHINE
;
589 /* Search for NAME using prefix list PPREFIX. We only look for executable
592 Return 0 if not found, otherwise return its name, allocated with malloc. */
595 find_a_file (struct path_prefix
*pprefix
, const char *name
)
598 struct prefix_list
*pl
;
599 int len
= pprefix
->max_len
+ strlen (name
) + 1;
602 fprintf (stderr
, "Looking for '%s'\n", name
);
604 #ifdef HOST_EXECUTABLE_SUFFIX
605 len
+= strlen (HOST_EXECUTABLE_SUFFIX
);
608 temp
= xmalloc (len
);
610 /* Determine the filename to execute (special case for absolute paths). */
613 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
614 || (*name
&& name
[1] == ':')
618 if (access (name
, X_OK
) == 0)
623 fprintf (stderr
, " - found: absolute path\n");
628 #ifdef HOST_EXECUTABLE_SUFFIX
629 /* Some systems have a suffix for executable files.
630 So try appending that. */
632 strcat (temp
, HOST_EXECUTABLE_SUFFIX
);
634 if (access (temp
, X_OK
) == 0)
639 fprintf (stderr
, " - failed to locate using absolute path\n");
642 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
646 strcpy (temp
, pl
->prefix
);
649 if (stat (temp
, &st
) >= 0
650 && ! S_ISDIR (st
.st_mode
)
651 && access (temp
, X_OK
) == 0)
654 #ifdef HOST_EXECUTABLE_SUFFIX
655 /* Some systems have a suffix for executable files.
656 So try appending that. */
657 strcat (temp
, HOST_EXECUTABLE_SUFFIX
);
659 if (stat (temp
, &st
) >= 0
660 && ! S_ISDIR (st
.st_mode
)
661 && access (temp
, X_OK
) == 0)
666 if (debug
&& pprefix
->plist
== NULL
)
667 fprintf (stderr
, " - failed: no entries in prefix list\n");
673 /* Add an entry for PREFIX to prefix list PPREFIX. */
676 add_prefix (struct path_prefix
*pprefix
, const char *prefix
)
678 struct prefix_list
*pl
, **prev
;
683 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
688 prev
= &pprefix
->plist
;
690 /* Keep track of the longest prefix. */
692 len
= strlen (prefix
);
693 if (len
> pprefix
->max_len
)
694 pprefix
->max_len
= len
;
696 pl
= xmalloc (sizeof (struct prefix_list
));
697 pl
->prefix
= xstrdup (prefix
);
702 pl
->next
= (struct prefix_list
*) 0;
706 /* Take the value of the environment variable ENV, break it into a path, and
707 add of the entries to PPREFIX. */
710 prefix_from_env (const char *env
, struct path_prefix
*pprefix
)
713 GET_ENVIRONMENT (p
, env
);
716 prefix_from_string (p
, pprefix
);
720 prefix_from_string (const char *p
, struct path_prefix
*pprefix
)
722 const char *startp
, *endp
;
723 char *nstore
= xmalloc (strlen (p
) + 3);
726 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
731 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
733 strncpy (nstore
, startp
, endp
-startp
);
736 strcpy (nstore
, "./");
738 else if (! IS_DIR_SEPARATOR (endp
[-1]))
740 nstore
[endp
-startp
] = DIR_SEPARATOR
;
741 nstore
[endp
-startp
+1] = 0;
744 nstore
[endp
-startp
] = 0;
747 fprintf (stderr
, " - add prefix: %s\n", nstore
);
749 add_prefix (pprefix
, nstore
);
752 endp
= startp
= endp
+ 1;
762 main (int argc
, char **argv
)
764 static const char *const ld_suffix
= "ld";
765 static const char *const real_ld_suffix
= "real-ld";
766 static const char *const collect_ld_suffix
= "collect-ld";
767 static const char *const nm_suffix
= "nm";
768 static const char *const gnm_suffix
= "gnm";
770 static const char *const ldd_suffix
= LDD_SUFFIX
;
772 static const char *const strip_suffix
= "strip";
773 static const char *const gstrip_suffix
= "gstrip";
776 /* If we look for a program in the compiler directories, we just use
777 the short name, since these directories are already system-specific.
778 But it we look for a program in the system directories, we need to
779 qualify the program name with the target machine. */
781 const char *const full_ld_suffix
=
782 concat(target_machine
, "-", ld_suffix
, NULL
);
783 const char *const full_nm_suffix
=
784 concat (target_machine
, "-", nm_suffix
, NULL
);
785 const char *const full_gnm_suffix
=
786 concat (target_machine
, "-", gnm_suffix
, NULL
);
788 const char *const full_ldd_suffix
=
789 concat (target_machine
, "-", ldd_suffix
, NULL
);
791 const char *const full_strip_suffix
=
792 concat (target_machine
, "-", strip_suffix
, NULL
);
793 const char *const full_gstrip_suffix
=
794 concat (target_machine
, "-", gstrip_suffix
, NULL
);
796 const char *const full_ld_suffix
= ld_suffix
;
797 const char *const full_nm_suffix
= nm_suffix
;
798 const char *const full_gnm_suffix
= gnm_suffix
;
800 const char *const full_ldd_suffix
= ldd_suffix
;
802 const char *const full_strip_suffix
= strip_suffix
;
803 const char *const full_gstrip_suffix
= gstrip_suffix
;
804 #endif /* CROSS_COMPILE */
808 #ifdef COLLECT_EXPORT_LIST
811 const char *ld_file_name
;
822 int num_c_args
= argc
+9;
824 no_demangle
= !! getenv ("COLLECT_NO_DEMANGLE");
826 /* Suppress demangling by the real linker, which may be broken. */
827 putenv (xstrdup ("COLLECT_NO_DEMANGLE="));
829 #if defined (COLLECT2_HOST_INITIALIZATION)
830 /* Perform system dependent initialization, if necessary. */
831 COLLECT2_HOST_INITIALIZATION
;
835 /* We *MUST* set SIGCHLD to SIG_DFL so that the wait4() call will
836 receive the signal. A different setting is inheritable */
837 signal (SIGCHLD
, SIG_DFL
);
842 /* Do not invoke xcalloc before this point, since locale needs to be
843 set first, in case a diagnostic is issued. */
845 ld1
= (const char **)(ld1_argv
= xcalloc(sizeof (char *), argc
+4));
846 ld2
= (const char **)(ld2_argv
= xcalloc(sizeof (char *), argc
+11));
847 object
= (const char **)(object_lst
= xcalloc(sizeof (char *), argc
));
853 /* Parse command line early for instances of -debug. This allows
854 the debug flag to be set before functions like find_a_file()
859 for (i
= 1; argv
[i
] != NULL
; i
++)
861 if (! strcmp (argv
[i
], "-debug"))
867 #ifndef DEFAULT_A_OUT_NAME
868 output_file
= "a.out";
870 output_file
= DEFAULT_A_OUT_NAME
;
873 obstack_begin (&temporary_obstack
, 0);
874 temporary_firstobj
= obstack_alloc (&temporary_obstack
, 0);
876 #ifndef HAVE_LD_DEMANGLE
877 current_demangling_style
= auto_demangling
;
879 p
= getenv ("COLLECT_GCC_OPTIONS");
882 const char *q
= extract_string (&p
);
883 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
886 obstack_free (&temporary_obstack
, temporary_firstobj
);
888 /* -fno-profile-arcs -fno-test-coverage -fno-branch-probabilities
889 -fno-exceptions -w */
892 c_ptr
= (const char **) (c_argv
= xcalloc (sizeof (char *), num_c_args
));
895 fatal ("no arguments");
898 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
899 signal (SIGQUIT
, handler
);
901 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
902 signal (SIGINT
, handler
);
904 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
905 signal (SIGALRM
, handler
);
908 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
909 signal (SIGHUP
, handler
);
911 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
912 signal (SIGSEGV
, handler
);
914 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
915 signal (SIGBUS
, handler
);
918 /* Extract COMPILER_PATH and PATH into our prefix list. */
919 prefix_from_env ("COMPILER_PATH", &cpath
);
920 prefix_from_env ("PATH", &path
);
922 /* Try to discover a valid linker/nm/strip to use. */
924 /* Maybe we know the right file to use (if not cross). */
926 #ifdef DEFAULT_LINKER
927 if (access (DEFAULT_LINKER
, X_OK
) == 0)
928 ld_file_name
= DEFAULT_LINKER
;
929 if (ld_file_name
== 0)
931 #ifdef REAL_LD_FILE_NAME
932 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
933 if (ld_file_name
== 0)
935 /* Search the (target-specific) compiler dirs for ld'. */
936 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
937 /* Likewise for `collect-ld'. */
938 if (ld_file_name
== 0)
939 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
940 /* Search the compiler directories for `ld'. We have protection against
941 recursive calls in find_a_file. */
942 if (ld_file_name
== 0)
943 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
944 /* Search the ordinary system bin directories
945 for `ld' (if native linking) or `TARGET-ld' (if cross). */
946 if (ld_file_name
== 0)
947 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
949 #ifdef REAL_NM_FILE_NAME
950 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
951 if (nm_file_name
== 0)
953 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
954 if (nm_file_name
== 0)
955 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
956 if (nm_file_name
== 0)
957 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
958 if (nm_file_name
== 0)
959 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
962 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
963 if (ldd_file_name
== 0)
964 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
967 #ifdef REAL_STRIP_FILE_NAME
968 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
969 if (strip_file_name
== 0)
971 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
972 if (strip_file_name
== 0)
973 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
974 if (strip_file_name
== 0)
975 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
976 if (strip_file_name
== 0)
977 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
979 /* Determine the full path name of the C compiler to use. */
980 c_file_name
= getenv ("COLLECT_GCC");
981 if (c_file_name
== 0)
984 c_file_name
= concat (target_machine
, "-gcc", NULL
);
990 p
= find_a_file (&cpath
, c_file_name
);
992 /* Here it should be safe to use the system search path since we should have
993 already qualified the name of the compiler when it is needed. */
995 p
= find_a_file (&path
, c_file_name
);
1000 *ld1
++ = *ld2
++ = ld_file_name
;
1002 /* Make temp file names. */
1003 c_file
= make_temp_file (".c");
1004 o_file
= make_temp_file (".o");
1005 #ifdef COLLECT_EXPORT_LIST
1006 export_file
= make_temp_file (".x");
1008 ldout
= make_temp_file (".ld");
1009 *c_ptr
++ = c_file_name
;
1016 #ifdef COLLECT_EXPORT_LIST
1017 /* Generate a list of directories from LIBPATH. */
1018 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1019 /* Add to this list also two standard directories where
1020 AIX loader always searches for libraries. */
1021 add_prefix (&libpath_lib_dirs
, "/lib");
1022 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1025 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1027 AIX support needs to know if -shared has been specified before
1028 parsing commandline arguments. */
1030 p
= getenv ("COLLECT_GCC_OPTIONS");
1033 const char *q
= extract_string (&p
);
1034 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1035 *c_ptr
++ = xstrdup (q
);
1036 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1037 *c_ptr
++ = xstrdup (q
);
1038 if (strcmp (q
, "-shared") == 0)
1040 if (*q
== '-' && q
[1] == 'B')
1042 *c_ptr
++ = xstrdup (q
);
1045 q
= extract_string (&p
);
1046 *c_ptr
++ = xstrdup (q
);
1050 obstack_free (&temporary_obstack
, temporary_firstobj
);
1051 *c_ptr
++ = "-fno-profile-arcs";
1052 *c_ptr
++ = "-fno-test-coverage";
1053 *c_ptr
++ = "-fno-branch-probabilities";
1054 *c_ptr
++ = "-fno-exceptions";
1057 /* !!! When GCC calls collect2,
1058 it does not know whether it is calling collect2 or ld.
1059 So collect2 cannot meaningfully understand any options
1060 except those ld understands.
1061 If you propose to make GCC pass some other option,
1062 just imagine what will happen if ld is really ld!!! */
1064 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1065 /* After the first file, put in the c++ rt0. */
1068 #ifdef HAVE_LD_DEMANGLE
1069 if (!demangle_flag
&& !no_demangle
)
1070 demangle_flag
= "--demangle";
1072 *ld1
++ = *ld2
++ = demangle_flag
;
1074 while ((arg
= *++argv
) != (char *) 0)
1076 *ld1
++ = *ld2
++ = arg
;
1082 #ifdef COLLECT_EXPORT_LIST
1083 /* We want to disable automatic exports on AIX when user
1084 explicitly puts an export list in command line */
1086 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1088 else if (arg
[2] == '6' && arg
[3] == '4')
1090 else if (arg
[2] == 'r' && arg
[3] == 't' && arg
[4] == 'l')
1096 if (!strcmp (arg
, "-debug"))
1098 /* Already parsed. */
1102 if (!strcmp (arg
, "-dynamic-linker") && argv
[1])
1105 *ld1
++ = *ld2
++ = *argv
;
1112 /* place o_file BEFORE this argument! */
1118 #ifdef COLLECT_EXPORT_LIST
1120 /* Resolving full library name. */
1121 const char *s
= resolve_lib_name (arg
+2);
1123 /* Saving a full library name. */
1124 add_to_list (&libs
, s
);
1129 #ifdef COLLECT_EXPORT_LIST
1130 /* Saving directories where to search for libraries. */
1132 add_prefix (&cmdline_lib_dirs
, arg
+2);
1135 #if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
1137 if (is_in_args (arg
, (const char **) ld1_argv
, ld1
-1))
1140 #endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
1145 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1147 #ifdef SWITCHES_NEED_SPACES
1148 && ! strchr (SWITCHES_NEED_SPACES
, arg
[1])
1152 output_file
= &arg
[2];
1161 if (arg
[2] == '\0' && do_collecting
)
1163 /* We must strip after the nm run, otherwise C++ linking
1164 will not work. Thus we strip in the second ld run, or
1165 else with strip if there is no second ld run. */
1177 if (strcmp (arg
, "--no-demangle") == 0)
1179 demangle_flag
= arg
;
1184 else if (strncmp (arg
, "--demangle", 10) == 0)
1186 demangle_flag
= arg
;
1188 #ifndef HAVE_LD_DEMANGLE
1191 enum demangling_styles style
1192 = cplus_demangle_name_to_style (arg
+11);
1193 if (style
== unknown_demangling
)
1194 error ("unknown demangling style '%s'", arg
+11);
1196 current_demangling_style
= style
;
1205 else if ((p
= strrchr (arg
, '.')) != (char *) 0
1206 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1207 || strcmp (p
, ".so") == 0 || strcmp (p
, ".lo") == 0
1208 || strcmp (p
, ".obj") == 0))
1217 /* place o_file BEFORE this argument! */
1223 if (p
[1] == 'o' || p
[1] == 'l')
1225 #ifdef COLLECT_EXPORT_LIST
1226 /* libraries can be specified directly, i.e. without -l flag. */
1229 /* Saving a full library name. */
1230 add_to_list (&libs
, arg
);
1236 #ifdef COLLECT_EXPORT_LIST
1237 /* This is added only for debugging purposes. */
1240 fprintf (stderr
, "List of libraries:\n");
1241 dump_list (stderr
, "\t", libs
.first
);
1244 /* The AIX linker will discard static constructors in object files if
1245 nothing else in the file is referenced, so look at them first. */
1247 const char **export_object_lst
= (const char **)object_lst
;
1249 while (export_object_lst
< object
)
1250 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1253 struct id
*list
= libs
.first
;
1255 for (; list
; list
= list
->next
)
1256 scan_prog_file (list
->name
, PASS_FIRST
);
1261 char *buf
= concat ("-bE:", export_file
, NULL
);
1266 exportf
= fopen (export_file
, "w");
1267 if (exportf
== (FILE *) 0)
1268 fatal_perror ("fopen %s", export_file
);
1269 write_aix_file (exportf
, exports
.first
);
1270 if (fclose (exportf
))
1271 fatal_perror ("fclose %s", export_file
);
1276 *c_ptr
= *ld1
= *object
= (char *) 0;
1280 notice ("collect2 version %s", version_string
);
1281 #ifdef TARGET_VERSION
1284 fprintf (stderr
, "\n");
1290 fprintf (stderr
, "ld_file_name = %s\n",
1291 (ld_file_name
? ld_file_name
: "not found"));
1292 fprintf (stderr
, "c_file_name = %s\n",
1293 (c_file_name
? c_file_name
: "not found"));
1294 fprintf (stderr
, "nm_file_name = %s\n",
1295 (nm_file_name
? nm_file_name
: "not found"));
1297 fprintf (stderr
, "ldd_file_name = %s\n",
1298 (ldd_file_name
? ldd_file_name
: "not found"));
1300 fprintf (stderr
, "strip_file_name = %s\n",
1301 (strip_file_name
? strip_file_name
: "not found"));
1302 fprintf (stderr
, "c_file = %s\n",
1303 (c_file
? c_file
: "not found"));
1304 fprintf (stderr
, "o_file = %s\n",
1305 (o_file
? o_file
: "not found"));
1307 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1309 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1311 ptr
= getenv ("COLLECT_GCC");
1313 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1315 ptr
= getenv ("COMPILER_PATH");
1317 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1319 ptr
= getenv (LIBRARY_PATH_ENV
);
1321 fprintf (stderr
, "%-20s= %s\n", LIBRARY_PATH_ENV
, ptr
);
1323 fprintf (stderr
, "\n");
1326 /* Load the program, searching all libraries and attempting to provide
1327 undefined symbols from repository information. */
1329 /* On AIX we do this later. */
1330 #ifndef COLLECT_EXPORT_LIST
1331 do_tlink (ld1_argv
, object_lst
);
1334 /* If -r or they will be run via some other method, do not build the
1335 constructor or destructor list, just return now. */
1337 #ifndef COLLECT_EXPORT_LIST
1342 #ifdef COLLECT_EXPORT_LIST
1343 /* Do the link we avoided above if we are exiting. */
1344 do_tlink (ld1_argv
, object_lst
);
1346 /* But make sure we delete the export file we may have created. */
1347 if (export_file
!= 0 && export_file
[0])
1348 maybe_unlink (export_file
);
1350 maybe_unlink (c_file
);
1351 maybe_unlink (o_file
);
1355 /* Examine the namelist with nm and search it for static constructors
1356 and destructors to call.
1357 Write the constructor and destructor tables to a .s file and reload. */
1359 /* On AIX we already scanned for global constructors/destructors. */
1360 #ifndef COLLECT_EXPORT_LIST
1361 scan_prog_file (output_file
, PASS_FIRST
);
1364 #ifdef SCAN_LIBRARIES
1365 scan_libraries (output_file
);
1370 notice ("%d constructor(s) found\n", constructors
.number
);
1371 notice ("%d destructor(s) found\n", destructors
.number
);
1372 notice ("%d frame table(s) found\n", frame_tables
.number
);
1375 if (constructors
.number
== 0 && destructors
.number
== 0
1376 && frame_tables
.number
== 0
1377 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1378 /* If we will be running these functions ourselves, we want to emit
1379 stubs into the shared library so that we do not have to relink
1380 dependent programs when we add static objects. */
1385 #ifdef COLLECT_EXPORT_LIST
1386 /* Do tlink without additional code generation. */
1387 do_tlink (ld1_argv
, object_lst
);
1389 /* Strip now if it was requested on the command line. */
1392 char **real_strip_argv
= xcalloc (sizeof (char *), 3);
1393 const char ** strip_argv
= (const char **) real_strip_argv
;
1395 strip_argv
[0] = strip_file_name
;
1396 strip_argv
[1] = output_file
;
1397 strip_argv
[2] = (char *) 0;
1398 fork_execute ("strip", real_strip_argv
);
1401 #ifdef COLLECT_EXPORT_LIST
1402 maybe_unlink (export_file
);
1404 maybe_unlink (c_file
);
1405 maybe_unlink (o_file
);
1409 /* Sort ctor and dtor lists by priority. */
1410 sort_ids (&constructors
);
1411 sort_ids (&destructors
);
1413 maybe_unlink(output_file
);
1414 outf
= fopen (c_file
, "w");
1415 if (outf
== (FILE *) 0)
1416 fatal_perror ("fopen %s", c_file
);
1418 write_c_file (outf
, c_file
);
1421 fatal_perror ("fclose %s", c_file
);
1423 /* Tell the linker that we have initializer and finalizer functions. */
1424 #ifdef LD_INIT_SWITCH
1425 #ifdef COLLECT_EXPORT_LIST
1426 *ld2
++ = concat (LD_INIT_SWITCH
, ":", initname
, ":", fininame
, NULL
);
1428 *ld2
++ = LD_INIT_SWITCH
;
1430 *ld2
++ = LD_FINI_SWITCH
;
1435 #ifdef COLLECT_EXPORT_LIST
1438 /* If we did not add export flag to link arguments before, add it to
1439 second link phase now. No new exports should have been added. */
1440 if (! exports
.first
)
1441 *ld2
++ = concat ("-bE:", export_file
, NULL
);
1443 #ifndef LD_INIT_SWITCH
1444 add_to_list (&exports
, initname
);
1445 add_to_list (&exports
, fininame
);
1446 add_to_list (&exports
, "_GLOBAL__DI");
1447 add_to_list (&exports
, "_GLOBAL__DD");
1449 exportf
= fopen (export_file
, "w");
1450 if (exportf
== (FILE *) 0)
1451 fatal_perror ("fopen %s", export_file
);
1452 write_aix_file (exportf
, exports
.first
);
1453 if (fclose (exportf
))
1454 fatal_perror ("fclose %s", export_file
);
1458 /* End of arguments to second link phase. */
1463 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1464 output_file
, c_file
);
1465 write_c_file (stderr
, "stderr");
1466 fprintf (stderr
, "========== end of c_file\n\n");
1467 #ifdef COLLECT_EXPORT_LIST
1468 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1469 write_aix_file (stderr
, exports
.first
);
1470 fprintf (stderr
, "========== end of export_file\n\n");
1474 /* Assemble the constructor and destructor tables.
1475 Link the tables in with the rest of the program. */
1477 fork_execute ("gcc", c_argv
);
1478 #ifdef COLLECT_EXPORT_LIST
1479 /* On AIX we must call tlink because of possible templates resolution. */
1480 do_tlink (ld2_argv
, object_lst
);
1482 /* Otherwise, simply call ld because tlink is already done. */
1483 fork_execute ("ld", ld2_argv
);
1485 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1486 constructors/destructors in shared libraries. */
1487 scan_prog_file (output_file
, PASS_SECOND
);
1490 maybe_unlink (c_file
);
1491 maybe_unlink (o_file
);
1493 #ifdef COLLECT_EXPORT_LIST
1494 maybe_unlink (export_file
);
1501 /* Wait for a process to finish, and exit if a nonzero status is found. */
1504 collect_wait (const char *prog
)
1508 pwait (pid
, &status
, 0);
1511 if (WIFSIGNALED (status
))
1513 int sig
= WTERMSIG (status
);
1514 error ("%s terminated with signal %d [%s]%s",
1515 prog
, sig
, strsignal(sig
),
1516 WCOREDUMP(status
) ? ", core dumped" : "");
1517 collect_exit (FATAL_EXIT_CODE
);
1520 if (WIFEXITED (status
))
1521 return WEXITSTATUS (status
);
1527 do_wait (const char *prog
)
1529 int ret
= collect_wait (prog
);
1532 error ("%s returned %d exit status", prog
, ret
);
1538 /* Execute a program, and wait for the reply. */
1541 collect_execute (const char *prog
, char **argv
, const char *redir
)
1545 int redir_handle
= -1;
1546 int stdout_save
= -1;
1547 int stderr_save
= -1;
1555 fprintf (stderr
, "%s", argv
[0]);
1557 notice ("[cannot find %s]", prog
);
1559 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1560 fprintf (stderr
, " %s", str
);
1562 fprintf (stderr
, "\n");
1568 /* If we cannot find a program we need, complain error. Do this here
1569 since we might not end up needing something that we could not find. */
1572 fatal ("cannot find '%s'", prog
);
1576 /* Open response file. */
1577 redir_handle
= open (redir
, O_WRONLY
| O_TRUNC
| O_CREAT
);
1579 /* Duplicate the stdout and stderr file handles
1580 so they can be restored later. */
1581 stdout_save
= dup (STDOUT_FILENO
);
1582 if (stdout_save
== -1)
1583 fatal_perror ("redirecting stdout: %s", redir
);
1584 stderr_save
= dup (STDERR_FILENO
);
1585 if (stderr_save
== -1)
1586 fatal_perror ("redirecting stdout: %s", redir
);
1588 /* Redirect stdout & stderr to our response file. */
1589 dup2 (redir_handle
, STDOUT_FILENO
);
1590 dup2 (redir_handle
, STDERR_FILENO
);
1593 pid
= pexecute (argv
[0], argv
, argv
[0], NULL
, &errmsg_fmt
, &errmsg_arg
,
1594 (PEXECUTE_FIRST
| PEXECUTE_LAST
| PEXECUTE_SEARCH
));
1598 /* Restore stdout and stderr to their previous settings. */
1599 dup2 (stdout_save
, STDOUT_FILENO
);
1600 dup2 (stderr_save
, STDERR_FILENO
);
1602 /* Close response file. */
1603 close (redir_handle
);
1607 fatal_perror (errmsg_fmt
, errmsg_arg
);
1611 fork_execute (const char *prog
, char **argv
)
1613 collect_execute (prog
, argv
, NULL
);
1617 /* Unlink a file unless we are debugging. */
1620 maybe_unlink (const char *file
)
1625 notice ("[Leaving %s]\n", file
);
1629 static long sequence_number
= 0;
1631 /* Add a name to a linked list. */
1634 add_to_list (struct head
*head_ptr
, const char *name
)
1636 struct id
*newid
= xcalloc (sizeof (struct id
) + strlen (name
), 1);
1638 strcpy (newid
->name
, name
);
1640 if (head_ptr
->first
)
1641 head_ptr
->last
->next
= newid
;
1643 head_ptr
->first
= newid
;
1645 /* Check for duplicate symbols. */
1646 for (p
= head_ptr
->first
;
1647 strcmp (name
, p
->name
) != 0;
1652 head_ptr
->last
->next
= 0;
1657 newid
->sequence
= ++sequence_number
;
1658 head_ptr
->last
= newid
;
1662 /* Grab the init priority number from an init function name that
1663 looks like "_GLOBAL_.I.12345.foo". */
1666 extract_init_priority (const char *name
)
1670 while (name
[pos
] == '_')
1672 pos
+= 10; /* strlen ("GLOBAL__X_") */
1674 /* Extract init_p number from ctor/dtor name. */
1675 pri
= atoi (name
+ pos
);
1676 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1679 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1680 ctors will be run from right to left, dtors from left to right. */
1683 sort_ids (struct head
*head_ptr
)
1685 /* id holds the current element to insert. id_next holds the next
1686 element to insert. id_ptr iterates through the already sorted elements
1687 looking for the place to insert id. */
1688 struct id
*id
, *id_next
, **id_ptr
;
1690 id
= head_ptr
->first
;
1692 /* We don't have any sorted elements yet. */
1693 head_ptr
->first
= NULL
;
1695 for (; id
; id
= id_next
)
1698 id
->sequence
= extract_init_priority (id
->name
);
1700 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1702 /* If the sequence numbers are the same, we put the id from the
1703 file later on the command line later in the list. */
1704 || id
->sequence
> (*id_ptr
)->sequence
1705 /* Hack: do lexical compare, too.
1706 || (id->sequence == (*id_ptr)->sequence
1707 && strcmp (id->name, (*id_ptr)->name) > 0) */
1716 /* Now set the sequence numbers properly so write_c_file works. */
1717 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1718 id
->sequence
= ++sequence_number
;
1721 /* Write: `prefix', the names on list LIST, `suffix'. */
1724 write_list (FILE *stream
, const char *prefix
, struct id
*list
)
1728 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1733 #if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
1734 /* Given a STRING, return nonzero if it occurs in the list in range
1735 [ARGS_BEGIN,ARGS_END). */
1738 is_in_args (const char *string
, const char **args_begin
,
1739 const char **args_end
)
1741 const char **args_pointer
;
1742 for (args_pointer
= args_begin
; args_pointer
!= args_end
; ++args_pointer
)
1743 if (strcmp (string
, *args_pointer
) == 0)
1747 #endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
1749 #ifdef COLLECT_EXPORT_LIST
1750 /* This function is really used only on AIX, but may be useful. */
1753 is_in_list (const char *prefix
, struct id
*list
)
1757 if (!strcmp (prefix
, list
->name
)) return 1;
1763 #endif /* COLLECT_EXPORT_LIST */
1765 /* Added for debugging purpose. */
1766 #ifdef COLLECT_EXPORT_LIST
1768 dump_list (FILE *stream
, const char *prefix
, struct id
*list
)
1772 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1780 dump_prefix_list (FILE *stream
, const char *prefix
, struct prefix_list
*list
)
1784 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1791 write_list_with_asm (FILE *stream
, const char *prefix
, struct id
*list
)
1795 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1796 prefix
, list
->sequence
, list
->name
);
1801 /* Write out the constructor and destructor tables statically (for a shared
1802 object), along with the functions to execute them. */
1805 write_c_file_stat (FILE *stream
, const char *name ATTRIBUTE_UNUSED
)
1809 int frames
= (frame_tables
.number
> 0);
1811 /* Figure out name of output_file, stripping off .so version. */
1812 p
= strrchr (output_file
, '/');
1828 if (strncmp (q
, ".so", 3) == 0)
1837 /* q points to null at end of the string (or . of the .so version) */
1838 prefix
= xmalloc (q
- p
+ 1);
1839 strncpy (prefix
, p
, q
- p
);
1841 for (r
= prefix
; *r
; r
++)
1842 if (!ISALNUM ((unsigned char)*r
))
1845 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
1846 output_file
, prefix
);
1848 initname
= concat ("_GLOBAL__FI_", prefix
, NULL
);
1849 fininame
= concat ("_GLOBAL__FD_", prefix
, NULL
);
1853 /* Write the tables as C code. */
1855 fprintf (stream
, "static int count;\n");
1856 fprintf (stream
, "typedef void entry_pt();\n");
1857 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1861 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1863 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1864 write_list (stream
, "\t\t&", frame_tables
.first
);
1865 fprintf (stream
, "\t0\n};\n");
1867 /* This must match what's in frame.h. */
1868 fprintf (stream
, "struct object {\n");
1869 fprintf (stream
, " void *pc_begin;\n");
1870 fprintf (stream
, " void *pc_end;\n");
1871 fprintf (stream
, " void *fde_begin;\n");
1872 fprintf (stream
, " void *fde_array;\n");
1873 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1874 fprintf (stream
, " struct object *next;\n");
1875 fprintf (stream
, "};\n");
1877 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1878 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1880 fprintf (stream
, "static void reg_frame () {\n");
1881 fprintf (stream
, "\tstatic struct object ob;\n");
1882 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1883 fprintf (stream
, "\t}\n");
1885 fprintf (stream
, "static void dereg_frame () {\n");
1886 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1887 fprintf (stream
, "\t}\n");
1890 fprintf (stream
, "void %s() {\n", initname
);
1891 if (constructors
.number
> 0 || frames
)
1893 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
1894 write_list (stream
, "\t\t", constructors
.first
);
1896 fprintf (stream
, "\treg_frame,\n");
1897 fprintf (stream
, "\t};\n");
1898 fprintf (stream
, "\tentry_pt **p;\n");
1899 fprintf (stream
, "\tif (count++ != 0) return;\n");
1900 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
1901 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
1904 fprintf (stream
, "\t++count;\n");
1905 fprintf (stream
, "}\n");
1906 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
1907 fprintf (stream
, "void %s() {\n", fininame
);
1908 if (destructors
.number
> 0 || frames
)
1910 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
1911 write_list (stream
, "\t\t", destructors
.first
);
1913 fprintf (stream
, "\tdereg_frame,\n");
1914 fprintf (stream
, "\t};\n");
1915 fprintf (stream
, "\tentry_pt **p;\n");
1916 fprintf (stream
, "\tif (--count != 0) return;\n");
1917 fprintf (stream
, "\tp = dtors;\n");
1918 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
1919 destructors
.number
+ frames
);
1921 fprintf (stream
, "}\n");
1925 COLLECT_SHARED_INIT_FUNC(stream
, initname
);
1926 COLLECT_SHARED_FINI_FUNC(stream
, fininame
);
1930 /* Write the constructor/destructor tables. */
1932 #ifndef LD_INIT_SWITCH
1934 write_c_file_glob (FILE *stream
, const char *name ATTRIBUTE_UNUSED
)
1936 /* Write the tables as C code. */
1938 int frames
= (frame_tables
.number
> 0);
1940 fprintf (stream
, "typedef void entry_pt();\n\n");
1942 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1946 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1948 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1949 write_list (stream
, "\t\t&", frame_tables
.first
);
1950 fprintf (stream
, "\t0\n};\n");
1952 /* This must match what's in frame.h. */
1953 fprintf (stream
, "struct object {\n");
1954 fprintf (stream
, " void *pc_begin;\n");
1955 fprintf (stream
, " void *pc_end;\n");
1956 fprintf (stream
, " void *fde_begin;\n");
1957 fprintf (stream
, " void *fde_array;\n");
1958 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1959 fprintf (stream
, " struct object *next;\n");
1960 fprintf (stream
, "};\n");
1962 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1963 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1965 fprintf (stream
, "static void reg_frame () {\n");
1966 fprintf (stream
, "\tstatic struct object ob;\n");
1967 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1968 fprintf (stream
, "\t}\n");
1970 fprintf (stream
, "static void dereg_frame () {\n");
1971 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1972 fprintf (stream
, "\t}\n");
1975 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
1976 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
1977 write_list (stream
, "\t", constructors
.first
);
1979 fprintf (stream
, "\treg_frame,\n");
1980 fprintf (stream
, "\t0\n};\n\n");
1982 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
1984 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
1985 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
1986 write_list (stream
, "\t", destructors
.first
);
1988 fprintf (stream
, "\tdereg_frame,\n");
1989 fprintf (stream
, "\t0\n};\n\n");
1991 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
1992 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
1994 #endif /* ! LD_INIT_SWITCH */
1997 write_c_file (FILE *stream
, const char *name
)
1999 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2000 #ifndef LD_INIT_SWITCH
2002 write_c_file_glob (stream
, name
);
2005 write_c_file_stat (stream
, name
);
2006 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2009 #ifdef COLLECT_EXPORT_LIST
2011 write_aix_file (FILE *stream
, struct id
*list
)
2013 for (; list
; list
= list
->next
)
2015 fputs (list
->name
, stream
);
2016 putc ('\n', stream
);
2021 #ifdef OBJECT_FORMAT_NONE
2023 /* Generic version to scan the name list of the loaded program for
2024 the symbols g++ uses for static constructors and destructors.
2026 The constructor table begins at __CTOR_LIST__ and contains a count
2027 of the number of pointers (or -1 if the constructors are built in a
2028 separate section by the linker), followed by the pointers to the
2029 constructor functions, terminated with a null pointer. The
2030 destructor table has the same format, and begins at __DTOR_LIST__. */
2033 scan_prog_file (const char *prog_name
, enum pass which_pass
)
2035 void (*int_handler
) (int);
2036 void (*quit_handler
) (int);
2037 char *real_nm_argv
[4];
2038 const char **nm_argv
= (const char **) real_nm_argv
;
2044 if (which_pass
== PASS_SECOND
)
2047 /* If we do not have an `nm', complain. */
2048 if (nm_file_name
== 0)
2049 fatal ("cannot find 'nm'");
2051 nm_argv
[argc
++] = nm_file_name
;
2052 if (NM_FLAGS
[0] != '\0')
2053 nm_argv
[argc
++] = NM_FLAGS
;
2055 nm_argv
[argc
++] = prog_name
;
2056 nm_argv
[argc
++] = (char *) 0;
2058 if (pipe (pipe_fd
) < 0)
2059 fatal_perror ("pipe");
2061 inf
= fdopen (pipe_fd
[0], "r");
2062 if (inf
== (FILE *) 0)
2063 fatal_perror ("fdopen");
2065 /* Trace if needed. */
2068 const char **p_argv
;
2071 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2072 fprintf (stderr
, " %s", str
);
2074 fprintf (stderr
, "\n");
2080 /* Spawn child nm on pipe. */
2083 fatal_perror (VFORK_STRING
);
2085 if (pid
== 0) /* child context */
2088 if (dup2 (pipe_fd
[1], 1) < 0)
2089 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2091 if (close (pipe_fd
[0]) < 0)
2092 fatal_perror ("close %d", pipe_fd
[0]);
2094 if (close (pipe_fd
[1]) < 0)
2095 fatal_perror ("close %d", pipe_fd
[1]);
2097 execv (nm_file_name
, real_nm_argv
);
2098 fatal_perror ("execv %s", nm_file_name
);
2101 /* Parent context from here on. */
2102 int_handler
= (void (*) (int)) signal (SIGINT
, SIG_IGN
);
2104 quit_handler
= (void (*) (int)) signal (SIGQUIT
, SIG_IGN
);
2107 if (close (pipe_fd
[1]) < 0)
2108 fatal_perror ("close %d", pipe_fd
[1]);
2111 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2113 /* Read each line of nm output. */
2114 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2119 /* If it contains a constructor or destructor name, add the name
2120 to the appropriate list. */
2122 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2123 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2130 /* Find the end of the symbol name.
2131 Do not include `|', because Encore nm can tack that on the end. */
2132 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2138 switch (is_ctor_dtor (name
))
2141 if (which_pass
!= PASS_LIB
)
2142 add_to_list (&constructors
, name
);
2146 if (which_pass
!= PASS_LIB
)
2147 add_to_list (&destructors
, name
);
2151 if (which_pass
!= PASS_LIB
)
2152 fatal ("init function found in object %s", prog_name
);
2153 #ifndef LD_INIT_SWITCH
2154 add_to_list (&constructors
, name
);
2159 if (which_pass
!= PASS_LIB
)
2160 fatal ("fini function found in object %s", prog_name
);
2161 #ifndef LD_FINI_SWITCH
2162 add_to_list (&destructors
, name
);
2167 if (which_pass
!= PASS_LIB
)
2168 add_to_list (&frame_tables
, name
);
2171 default: /* not a constructor or destructor */
2176 fprintf (stderr
, "\t%s\n", buf
);
2180 fprintf (stderr
, "\n");
2182 if (fclose (inf
) != 0)
2183 fatal_perror ("fclose");
2185 do_wait (nm_file_name
);
2187 signal (SIGINT
, int_handler
);
2189 signal (SIGQUIT
, quit_handler
);
2195 /* Use the List Dynamic Dependencies program to find shared libraries that
2196 the output file depends upon and their initialization/finalization
2197 routines, if any. */
2200 scan_libraries (const char *prog_name
)
2202 static struct head libraries
; /* list of shared libraries found */
2204 void (*int_handler
) (int);
2205 void (*quit_handler
) (int);
2206 char *real_ldd_argv
[4];
2207 const char **ldd_argv
= (const char **) real_ldd_argv
;
2213 /* If we do not have an `ldd', complain. */
2214 if (ldd_file_name
== 0)
2216 error ("cannot find 'ldd'");
2220 ldd_argv
[argc
++] = ldd_file_name
;
2221 ldd_argv
[argc
++] = prog_name
;
2222 ldd_argv
[argc
++] = (char *) 0;
2224 if (pipe (pipe_fd
) < 0)
2225 fatal_perror ("pipe");
2227 inf
= fdopen (pipe_fd
[0], "r");
2228 if (inf
== (FILE *) 0)
2229 fatal_perror ("fdopen");
2231 /* Trace if needed. */
2234 const char **p_argv
;
2237 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2238 fprintf (stderr
, " %s", str
);
2240 fprintf (stderr
, "\n");
2246 /* Spawn child ldd on pipe. */
2249 fatal_perror (VFORK_STRING
);
2251 if (pid
== 0) /* child context */
2254 if (dup2 (pipe_fd
[1], 1) < 0)
2255 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2257 if (close (pipe_fd
[0]) < 0)
2258 fatal_perror ("close %d", pipe_fd
[0]);
2260 if (close (pipe_fd
[1]) < 0)
2261 fatal_perror ("close %d", pipe_fd
[1]);
2263 execv (ldd_file_name
, real_ldd_argv
);
2264 fatal_perror ("execv %s", ldd_file_name
);
2267 /* Parent context from here on. */
2268 int_handler
= (void (*) (int)) signal (SIGINT
, SIG_IGN
);
2270 quit_handler
= (void (*) (int)) signal (SIGQUIT
, SIG_IGN
);
2273 if (close (pipe_fd
[1]) < 0)
2274 fatal_perror ("close %d", pipe_fd
[1]);
2277 notice ("\nldd output with constructors/destructors.\n");
2279 /* Read each line of ldd output. */
2280 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2283 char *name
, *end
, *p
= buf
;
2285 /* Extract names of libraries and add to list. */
2286 PARSE_LDD_OUTPUT (p
);
2291 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2292 fatal ("dynamic dependency %s not found", buf
);
2294 /* Find the end of the symbol name. */
2296 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2301 if (access (name
, R_OK
) == 0)
2302 add_to_list (&libraries
, name
);
2304 fatal ("unable to open dynamic dependency '%s'", buf
);
2307 fprintf (stderr
, "\t%s\n", buf
);
2310 fprintf (stderr
, "\n");
2312 if (fclose (inf
) != 0)
2313 fatal_perror ("fclose");
2315 do_wait (ldd_file_name
);
2317 signal (SIGINT
, int_handler
);
2319 signal (SIGQUIT
, quit_handler
);
2322 /* Now iterate through the library list adding their symbols to
2324 for (list
= libraries
.first
; list
; list
= list
->next
)
2325 scan_prog_file (list
->name
, PASS_LIB
);
2328 #endif /* LDD_SUFFIX */
2330 #endif /* OBJECT_FORMAT_NONE */
2334 * COFF specific stuff.
2337 #ifdef OBJECT_FORMAT_COFF
2339 #if defined (EXTENDED_COFF)
2341 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2342 # define GCC_SYMENT SYMR
2343 # define GCC_OK_SYMBOL(X) ((X).st == stProc || (X).st == stGlobal)
2344 # define GCC_SYMINC(X) (1)
2345 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2346 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2350 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2351 # define GCC_SYMENT SYMENT
2352 # if defined (C_WEAKEXT)
2353 # define GCC_OK_SYMBOL(X) \
2354 (((X).n_sclass == C_EXT || (X).n_sclass == C_WEAKEXT) && \
2355 ((X).n_scnum > N_UNDEF) && \
2357 || (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) \
2358 || ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT))))
2359 # define GCC_UNDEF_SYMBOL(X) \
2360 (((X).n_sclass == C_EXT || (X).n_sclass == C_WEAKEXT) && \
2361 ((X).n_scnum == N_UNDEF))
2363 # define GCC_OK_SYMBOL(X) \
2364 (((X).n_sclass == C_EXT) && \
2365 ((X).n_scnum > N_UNDEF) && \
2367 || (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) \
2368 || ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT))))
2369 # define GCC_UNDEF_SYMBOL(X) \
2370 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2372 # define GCC_SYMINC(X) ((X).n_numaux+1)
2373 # define GCC_SYMZERO(X) 0
2375 /* 0757 = U803XTOCMAGIC (AIX 4.3) and 0767 = U64_TOCMAGIC (AIX V5) */
2377 # define GCC_CHECK_HDR(X) \
2378 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2379 || (HEADER (X).f_magic == 0767 && aix64_flag))
2381 # define GCC_CHECK_HDR(X) \
2382 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2383 || (HEADER (X).f_magic == 0757 && aix64_flag))
2388 #ifdef COLLECT_EXPORT_LIST
2389 /* Array of standard AIX libraries which should not
2390 be scanned for ctors/dtors. */
2391 static const char *const aix_std_libs
[] = {
2399 "/usr/lib/libc_r.a",
2400 "/usr/lib/libm_r.a",
2401 "/usr/lib/threads/libc.a",
2402 "/usr/ccs/lib/libc.a",
2403 "/usr/ccs/lib/libm.a",
2404 "/usr/ccs/lib/libc_r.a",
2405 "/usr/ccs/lib/libm_r.a",
2409 /* This function checks the filename and returns 1
2410 if this name matches the location of a standard AIX library. */
2411 static int ignore_library (const char *);
2413 ignore_library (const char *name
)
2415 const char *const *p
= &aix_std_libs
[0];
2416 while (*p
++ != NULL
)
2417 if (! strcmp (name
, *p
)) return 1;
2420 #endif /* COLLECT_EXPORT_LIST */
2422 #if defined (HAVE_DECL_LDGETNAME) && !HAVE_DECL_LDGETNAME
2423 extern char *ldgetname (LDFILE
*, GCC_SYMENT
*);
2426 /* COFF version to scan the name list of the loaded program for
2427 the symbols g++ uses for static constructors and destructors.
2429 The constructor table begins at __CTOR_LIST__ and contains a count
2430 of the number of pointers (or -1 if the constructors are built in a
2431 separate section by the linker), followed by the pointers to the
2432 constructor functions, terminated with a null pointer. The
2433 destructor table has the same format, and begins at __DTOR_LIST__. */
2436 scan_prog_file (const char *prog_name
, enum pass which_pass
)
2438 LDFILE
*ldptr
= NULL
;
2439 int sym_index
, sym_count
;
2442 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2445 #ifdef COLLECT_EXPORT_LIST
2446 /* We do not need scanning for some standard C libraries. */
2447 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2450 /* On AIX we have a loop, because there is not much difference
2451 between an object and an archive. This trick allows us to
2452 eliminate scan_libraries() function. */
2456 /* Some platforms (e.g. OSF4) declare ldopen as taking a
2457 non-const char * filename parameter, even though it will not
2458 modify that string. So we must cast away const-ness here,
2459 which will cause -Wcast-qual to burp. */
2460 if ((ldptr
= ldopen ((char *)prog_name
, ldptr
)) != NULL
)
2462 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2463 fatal ("%s: not a COFF file", prog_name
);
2465 if (GCC_CHECK_HDR (ldptr
))
2467 sym_count
= GCC_SYMBOLS (ldptr
);
2468 sym_index
= GCC_SYMZERO (ldptr
);
2470 #ifdef COLLECT_EXPORT_LIST
2471 /* Is current archive member a shared object? */
2472 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2475 while (sym_index
< sym_count
)
2479 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2481 sym_index
+= GCC_SYMINC (symbol
);
2483 if (GCC_OK_SYMBOL (symbol
))
2487 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2488 continue; /* Should never happen. */
2490 #ifdef XCOFF_DEBUGGING_INFO
2491 /* All AIX function names have a duplicate entry
2492 beginning with a dot. */
2497 switch (is_ctor_dtor (name
))
2501 add_to_list (&constructors
, name
);
2502 #if defined (COLLECT_EXPORT_LIST) && !defined (LD_INIT_SWITCH)
2503 if (which_pass
== PASS_OBJ
)
2504 add_to_list (&exports
, name
);
2510 add_to_list (&destructors
, name
);
2511 #if defined (COLLECT_EXPORT_LIST) && !defined (LD_INIT_SWITCH)
2512 if (which_pass
== PASS_OBJ
)
2513 add_to_list (&exports
, name
);
2517 #ifdef COLLECT_EXPORT_LIST
2519 #ifndef LD_INIT_SWITCH
2521 add_to_list (&constructors
, name
);
2526 #ifndef LD_INIT_SWITCH
2528 add_to_list (&destructors
, name
);
2535 add_to_list (&frame_tables
, name
);
2536 #if defined (COLLECT_EXPORT_LIST) && !defined (LD_INIT_SWITCH)
2537 if (which_pass
== PASS_OBJ
)
2538 add_to_list (&exports
, name
);
2542 default: /* not a constructor or destructor */
2543 #ifdef COLLECT_EXPORT_LIST
2544 /* Explicitly export all global symbols when
2545 building a shared object on AIX, but do not
2546 re-export symbols from another shared object
2547 and do not export symbols if the user
2548 provides an explicit export list. */
2549 if (shared_obj
&& !is_shared
2550 && which_pass
== PASS_OBJ
&& !export_flag
)
2551 add_to_list (&exports
, name
);
2557 #if !defined(EXTENDED_COFF)
2558 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2559 symbol
.n_scnum
, symbol
.n_sclass
,
2560 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2564 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2565 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2570 #ifdef COLLECT_EXPORT_LIST
2573 /* If archive contains both 32-bit and 64-bit objects,
2574 we want to skip objects in other mode so mismatch normal. */
2576 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2577 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2583 fatal ("%s: cannot open as COFF file", prog_name
);
2585 #ifdef COLLECT_EXPORT_LIST
2586 /* On AIX loop continues while there are more members in archive. */
2588 while (ldclose (ldptr
) == FAILURE
);
2590 /* Otherwise we simply close ldptr. */
2591 (void) ldclose(ldptr
);
2594 #endif /* OBJECT_FORMAT_COFF */
2596 #ifdef COLLECT_EXPORT_LIST
2597 /* Given a library name without "lib" prefix, this function
2598 returns a full library name including a path. */
2600 resolve_lib_name (const char *name
)
2604 /* Library extensions for AIX dynamic linking. */
2605 const char * const libexts
[2] = {"a", "so"};
2607 for (i
= 0; libpaths
[i
]; i
++)
2608 if (libpaths
[i
]->max_len
> l
)
2609 l
= libpaths
[i
]->max_len
;
2611 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
2613 for (i
= 0; libpaths
[i
]; i
++)
2615 struct prefix_list
*list
= libpaths
[i
]->plist
;
2616 for (; list
; list
= list
->next
)
2618 /* The following lines are needed because path_prefix list
2619 may contain directories both with trailing '/' and
2622 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
2624 for (j
= 0; j
< 2; j
++)
2626 sprintf (lib_buf
, "%s%slib%s.%s",
2627 list
->prefix
, p
, name
,
2628 libexts
[(j
+ aixrtl_flag
) % 2]);
2629 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
2630 if (file_exists (lib_buf
))
2632 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
2639 fprintf (stderr
, "not found\n");
2641 fatal ("library lib%s not found", name
);
2644 #endif /* COLLECT_EXPORT_LIST */