1 /* Collect static initialization info into data structures that can be
2 traversed by C++ initialization and finalization routines.
3 Copyright (C) 1992, 93-98, 1999 Free Software Foundation, Inc.
4 Contributed by Chris Smith (csmith@convex.com).
5 Heavily modified by Michael Meissner (meissner@cygnus.com),
6 Per Bothner (bothner@cygnus.com), and John Gilmore (gnu@cygnus.com).
8 This file is part of GNU CC.
10 GNU CC is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2, or (at your option)
15 GNU CC is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with GNU CC; see the file COPYING. If not, write to
22 the Free Software Foundation, 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
26 /* Build tables of static constructors and destructors and run ld. */
32 #ifdef vfork /* Autoconf may define this to fork for us. */
33 # define VFORK_STRING "fork"
35 # define VFORK_STRING "vfork"
41 #define vfork() (decc$$alloc_vfork_blocks() >= 0 ? \
42 lib$get_current_invo_context(decc$$get_vfork_jmpbuf()) : -1)
53 # define DIR_SEPARATOR '/'
54 # define IS_DIR_SEPARATOR(ch) ((ch) == '/')
55 #else /* DIR_SEPARATOR */
56 # ifndef DIR_SEPARATOR_2
57 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
58 # else /* DIR_SEPARATOR && DIR_SEPARATOR_2 */
59 # define IS_DIR_SEPARATOR(ch) \
60 (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
61 # endif /* DIR_SEPARATOR && DIR_SEPARATOR_2 */
62 #endif /* DIR_SEPARATOR */
64 /* Obstack allocation and deallocation routines. */
65 #define obstack_chunk_alloc xmalloc
66 #define obstack_chunk_free free
68 /* On certain systems, we have code that works by scanning the object file
69 directly. But this code uses system-specific header files and library
70 functions, so turn it off in a cross-compiler. Likewise, the names of
71 the utilities are not correct for a cross-compiler; we have to hope that
72 cross-versions are in the proper directories. */
75 #undef SUNOS4_SHARED_LIBRARIES
76 #undef OBJECT_FORMAT_COFF
77 #undef OBJECT_FORMAT_ROSE
79 #undef REAL_LD_FILE_NAME
80 #undef REAL_NM_FILE_NAME
81 #undef REAL_STRIP_FILE_NAME
84 /* If we cannot use a special method, use the ordinary one:
85 run nm to find what symbols are present.
86 In a cross-compiler, this means you need a cross nm,
87 but that is not quite as unpleasant as special headers. */
89 #if !defined (OBJECT_FORMAT_COFF) && !defined (OBJECT_FORMAT_ROSE)
90 #define OBJECT_FORMAT_NONE
93 #ifdef OBJECT_FORMAT_COFF
102 /* Many versions of ldfcn.h define these. */
110 /* Some systems have an ISCOFF macro, but others do not. In some cases
111 the macro may be wrong. MY_ISCOFF is defined in tm.h files for machines
112 that either do not have an ISCOFF macro in /usr/include or for those
113 where it is wrong. */
116 #define MY_ISCOFF(X) ISCOFF (X)
119 #endif /* OBJECT_FORMAT_COFF */
121 #ifdef OBJECT_FORMAT_ROSE
128 #include <sys/mman.h>
132 #include <mach_o_format.h>
133 #include <mach_o_header.h>
134 #include <mach_o_vals.h>
135 #include <mach_o_types.h>
137 #endif /* OBJECT_FORMAT_ROSE */
139 #ifdef OBJECT_FORMAT_NONE
141 /* Default flags to pass to nm. */
143 #define NM_FLAGS "-n"
146 #endif /* OBJECT_FORMAT_NONE */
148 /* Some systems use __main in a way incompatible with its use in gcc, in these
149 cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
150 give the same symbol without quotes for an alternative entry point. You
151 must define both, or neither. */
153 #define NAME__MAIN "__main"
154 #define SYMBOL__MAIN __main
157 /* This must match tree.h. */
158 #define DEFAULT_INIT_PRIORITY 65535
160 #if defined (LDD_SUFFIX) || SUNOS4_SHARED_LIBRARIES
161 #define SCAN_LIBRARIES
165 int do_collecting
= 1;
167 int do_collecting
= 0;
170 /* Linked lists of constructor and destructor names. */
186 /* Enumeration giving which pass this is for scanning the program file. */
189 PASS_FIRST
, /* without constructors */
190 PASS_OBJ
, /* individual objects */
191 PASS_LIB
, /* looking for shared libraries */
192 PASS_SECOND
/* with constructors linked in */
195 extern char *version_string
;
197 int vflag
; /* true if -v */
198 static int rflag
; /* true if -r */
199 static int strip_flag
; /* true if -s */
200 #ifdef COLLECT_EXPORT_LIST
201 static int export_flag
; /* true if -bE */
202 static int aix64_flag
; /* true if -b64 */
205 int debug
; /* true if -debug */
207 static int shared_obj
; /* true if -shared */
209 static const char *c_file
; /* <xxx>.c for constructor/destructor list. */
210 static const char *o_file
; /* <xxx>.o for constructor/destructor list. */
211 #ifdef COLLECT_EXPORT_LIST
212 static const char *export_file
; /* <xxx>.x for AIX export list. */
213 static const char *import_file
; /* <xxx>.p for AIX import list. */
215 const char *ldout
; /* File for ld errors. */
216 static const char *output_file
; /* Output file for ld. */
217 static const char *nm_file_name
; /* pathname of nm */
219 static const char *ldd_file_name
; /* pathname of ldd (or equivalent) */
221 static const char *strip_file_name
; /* pathname of strip */
222 const char *c_file_name
; /* pathname of gcc */
223 static char *initname
, *fininame
; /* names of init and fini funcs */
225 static struct head constructors
; /* list of constructors found */
226 static struct head destructors
; /* list of destructors found */
227 #ifdef COLLECT_EXPORT_LIST
228 static struct head exports
; /* list of exported symbols */
229 static struct head imports
; /* list of imported symbols */
230 static struct head undefined
; /* list of undefined symbols */
232 static struct head frame_tables
; /* list of frame unwind info tables */
234 struct obstack temporary_obstack
;
235 struct obstack permanent_obstack
;
236 char * temporary_firstobj
;
238 /* Holds the return value of pexecute. */
241 /* Defined in the automatically-generated underscore.c. */
242 extern int prepends_underscore
;
244 #ifndef GET_ENV_PATH_LIST
245 #define GET_ENV_PATH_LIST(VAR,NAME) do { (VAR) = getenv (NAME); } while (0)
248 /* Structure to hold all the directories in which to search for files to
253 const char *prefix
; /* String to prepend to the path. */
254 struct prefix_list
*next
; /* Next in linked list. */
259 struct prefix_list
*plist
; /* List of prefixes to try */
260 int max_len
; /* Max length of a prefix in PLIST */
261 const char *name
; /* Name of this list (used in config stuff) */
264 #ifdef COLLECT_EXPORT_LIST
265 /* Lists to keep libraries to be scanned for global constructors/destructors. */
266 static struct head libs
; /* list of libraries */
267 static struct path_prefix cmdline_lib_dirs
; /* directories specified with -L */
268 static struct path_prefix libpath_lib_dirs
; /* directories in LIBPATH */
269 static struct path_prefix
*libpaths
[3] = {&cmdline_lib_dirs
,
270 &libpath_lib_dirs
, NULL
};
271 static const char *libexts
[3] = {"a", "so", NULL
}; /* possible library extentions */
274 static void handler
PROTO((int));
275 static int is_ctor_dtor
PROTO((const char *));
276 static char *find_a_file
PROTO((struct path_prefix
*, const char *));
277 static void add_prefix
PROTO((struct path_prefix
*, const char *));
278 static void prefix_from_env
PROTO((const char *, struct path_prefix
*));
279 static void prefix_from_string
PROTO((const char *, struct path_prefix
*));
280 static void do_wait
PROTO((const char *));
281 static void fork_execute
PROTO((const char *, char **));
282 static void maybe_unlink
PROTO((const char *));
283 static void add_to_list
PROTO((struct head
*, const char *));
284 static int extract_init_priority
PROTO((const char *));
285 static void sort_ids
PROTO((struct head
*));
286 static void write_list
PROTO((FILE *, const char *, struct id
*));
287 #ifdef COLLECT_EXPORT_LIST
288 static void dump_list
PROTO((FILE *, const char *, struct id
*));
291 static void dump_prefix_list
PROTO((FILE *, const char *, struct prefix_list
*));
293 static void write_list_with_asm
PROTO((FILE *, const char *, struct id
*));
294 static void write_c_file
PROTO((FILE *, const char *));
295 static void write_c_file_stat
PROTO((FILE *, const char *));
296 #ifndef LD_INIT_SWITCH
297 static void write_c_file_glob
PROTO((FILE *, const char *));
299 static void scan_prog_file
PROTO((const char *, enum pass
));
300 #ifdef SCAN_LIBRARIES
301 static void scan_libraries
PROTO((const char *));
303 #ifdef COLLECT_EXPORT_LIST
304 static int is_in_list
PROTO((const char *, struct id
*));
305 static void write_aix_file
PROTO((FILE *, struct id
*));
306 static char *resolve_lib_name
PROTO((const char *));
307 static int use_import_list
PROTO((const char *));
308 static int ignore_library
PROTO((const char *));
310 static char *extract_string
PROTO((const char **));
325 while ((fd
= dup (oldfd
)) != newfd
&& fd
>= 0) /* good enough for low fd's */
328 close (fdtmp
[--fdx
]);
334 /* Delete tempfiles and exit function. */
337 collect_exit (status
)
340 if (c_file
!= 0 && c_file
[0])
341 maybe_unlink (c_file
);
343 if (o_file
!= 0 && o_file
[0])
344 maybe_unlink (o_file
);
346 #ifdef COLLECT_EXPORT_LIST
347 if (export_file
!= 0 && export_file
[0])
348 maybe_unlink (export_file
);
350 if (import_file
!= 0 && import_file
[0])
351 maybe_unlink (import_file
);
354 if (ldout
!= 0 && ldout
[0])
357 maybe_unlink (ldout
);
360 if (status
!= 0 && output_file
!= 0 && output_file
[0])
361 maybe_unlink (output_file
);
367 /* Notify user of a non-error. */
369 notice
VPROTO((const char *msgid
, ...))
371 #ifndef ANSI_PROTOTYPES
376 VA_START (ap
, msgid
);
378 #ifndef ANSI_PROTOTYPES
379 msgid
= va_arg (ap
, const char *);
382 vfprintf (stderr
, _(msgid
), ap
);
386 /* Die when sys call fails. */
389 fatal_perror
VPROTO((const char * msgid
, ...))
391 #ifndef ANSI_PROTOTYPES
397 VA_START (ap
, msgid
);
399 #ifndef ANSI_PROTOTYPES
400 msgid
= va_arg (ap
, const char *);
403 fprintf (stderr
, "collect2: ");
404 vfprintf (stderr
, _(msgid
), ap
);
405 fprintf (stderr
, ": %s\n", xstrerror (e
));
408 collect_exit (FATAL_EXIT_CODE
);
414 fatal
VPROTO((const char * msgid
, ...))
416 #ifndef ANSI_PROTOTYPES
421 VA_START (ap
, msgid
);
423 #ifndef ANSI_PROTOTYPES
424 msgid
= va_arg (ap
, const char *);
427 fprintf (stderr
, "collect2: ");
428 vfprintf (stderr
, _(msgid
), ap
);
429 fprintf (stderr
, "\n");
432 collect_exit (FATAL_EXIT_CODE
);
435 /* Write error message. */
438 error
VPROTO((const char * msgid
, ...))
440 #ifndef ANSI_PROTOTYPES
445 VA_START (ap
, msgid
);
447 #ifndef ANSI_PROTOTYPES
448 msgid
= va_arg (ap
, const char *);
451 fprintf (stderr
, "collect2: ");
452 vfprintf (stderr
, _(msgid
), ap
);
453 fprintf (stderr
, "\n");
457 /* In case obstack is linked in, and abort is defined to fancy_abort,
458 provide a default entry. */
463 fatal ("internal error");
470 if (c_file
!= 0 && c_file
[0])
471 maybe_unlink (c_file
);
473 if (o_file
!= 0 && o_file
[0])
474 maybe_unlink (o_file
);
476 if (ldout
!= 0 && ldout
[0])
477 maybe_unlink (ldout
);
479 #ifdef COLLECT_EXPORT_LIST
480 if (export_file
!= 0 && export_file
[0])
481 maybe_unlink (export_file
);
483 if (import_file
!= 0 && import_file
[0])
484 maybe_unlink (import_file
);
487 signal (signo
, SIG_DFL
);
488 kill (getpid (), signo
);
496 return access (name
, R_OK
) == 0;
499 /* Parse a reasonable subset of shell quoting syntax. */
516 obstack_1grow (&temporary_obstack
, c
);
517 else if (! inside
&& c
== ' ')
519 else if (! inside
&& c
== '\\')
524 obstack_1grow (&temporary_obstack
, c
);
527 obstack_1grow (&temporary_obstack
, '\0');
529 return obstack_finish (&temporary_obstack
);
536 FILE *stream
= fopen (name
, "r");
537 int no_demangle
= !! getenv ("COLLECT_NO_DEMANGLE");
544 while (c
= getc (stream
),
545 c
!= EOF
&& (ISALNUM (c
) || c
== '_' || c
== '$' || c
== '.'))
546 obstack_1grow (&temporary_obstack
, c
);
547 if (obstack_object_size (&temporary_obstack
) > 0)
549 const char *word
, *p
;
551 obstack_1grow (&temporary_obstack
, '\0');
552 word
= obstack_finish (&temporary_obstack
);
555 ++word
, putc ('.', stderr
);
557 if (*p
== '_' && prepends_underscore
)
563 result
= cplus_demangle (p
, DMGL_PARAMS
| DMGL_ANSI
);
568 fputs (result
, stderr
);
570 diff
= strlen (word
) - strlen (result
);
572 --diff
, putc (' ', stderr
);
573 while (diff
< 0 && c
== ' ')
574 ++diff
, c
= getc (stream
);
579 fputs (word
, stderr
);
582 obstack_free (&temporary_obstack
, temporary_firstobj
);
591 /* Decide whether the given symbol is:
592 a constructor (1), a destructor (2), or neither (0). */
598 struct names
{ const char *name
; int len
; int ret
; int two_underscores
; };
600 register struct names
*p
;
602 register const char *orig_s
= s
;
604 static struct names special
[] = {
605 #ifdef NO_DOLLAR_IN_LABEL
606 #ifdef NO_DOT_IN_LABEL
607 { "GLOBAL__I_", sizeof ("GLOBAL__I_")-1, 1, 0 },
608 { "GLOBAL__D_", sizeof ("GLOBAL__D_")-1, 2, 0 },
609 { "GLOBAL__F_", sizeof ("GLOBAL__F_")-1, 5, 0 },
611 { "GLOBAL_.I.", sizeof ("GLOBAL_.I.")-1, 1, 0 },
612 { "GLOBAL_.D.", sizeof ("GLOBAL_.D.")-1, 2, 0 },
613 { "GLOBAL_.F.", sizeof ("GLOBAL_.F.")-1, 5, 0 },
616 { "GLOBAL_$I$", sizeof ("GLOBAL_$I$")-1, 1, 0 },
617 { "GLOBAL_$D$", sizeof ("GLOBAL_$D$")-1, 2, 0 },
618 { "GLOBAL_$F$", sizeof ("GLOBAL_$F$")-1, 5, 0 },
620 { "GLOBAL__FI_", sizeof ("GLOBAL__FI_")-1, 3, 0 },
621 { "GLOBAL__FD_", sizeof ("GLOBAL__FD_")-1, 4, 0 },
622 #ifdef CFRONT_LOSSAGE /* Do not collect cfront initialization functions.
623 cfront has its own linker procedure to collect them;
624 if collect2 gets them too, they get collected twice
625 when the cfront procedure is run and the compiler used
626 for linking happens to be GCC. */
627 { "sti__", sizeof ("sti__")-1, 1, 1 },
628 { "std__", sizeof ("std__")-1, 2, 1 },
629 #endif /* CFRONT_LOSSAGE */
633 while ((ch
= *s
) == '_')
639 for (p
= &special
[0]; p
->len
> 0; p
++)
642 && (!p
->two_underscores
|| ((s
- orig_s
) >= 2))
643 && strncmp(s
, p
->name
, p
->len
) == 0)
651 /* By default, colon separates directories in a path. */
652 #ifndef PATH_SEPARATOR
653 #define PATH_SEPARATOR ':'
656 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
657 and one from the PATH variable. */
659 static struct path_prefix cpath
, path
;
662 /* This is the name of the target machine. We use it to form the name
663 of the files to execute. */
665 static const char *const target_machine
= TARGET_MACHINE
;
668 /* Search for NAME using prefix list PPREFIX. We only look for executable
671 Return 0 if not found, otherwise return its name, allocated with malloc. */
674 find_a_file (pprefix
, name
)
675 struct path_prefix
*pprefix
;
679 struct prefix_list
*pl
;
680 int len
= pprefix
->max_len
+ strlen (name
) + 1;
683 fprintf (stderr
, "Looking for '%s'\n", name
);
685 #ifdef EXECUTABLE_SUFFIX
686 len
+= strlen (EXECUTABLE_SUFFIX
);
689 temp
= xmalloc (len
);
691 /* Determine the filename to execute (special case for absolute paths). */
694 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
695 || (*name
&& name
[1] == ':')
699 if (access (name
, X_OK
) == 0)
704 fprintf (stderr
, " - found: absolute path\n");
709 #ifdef EXECUTABLE_SUFFIX
710 /* Some systems have a suffix for executable files.
711 So try appending that. */
713 strcat (temp
, EXECUTABLE_SUFFIX
);
715 if (access (temp
, X_OK
) == 0)
720 fprintf (stderr
, " - failed to locate using absolute path\n");
723 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
727 strcpy (temp
, pl
->prefix
);
730 if (stat (temp
, &st
) >= 0
731 && ! S_ISDIR (st
.st_mode
)
732 && access (temp
, X_OK
) == 0)
735 #ifdef EXECUTABLE_SUFFIX
736 /* Some systems have a suffix for executable files.
737 So try appending that. */
738 strcat (temp
, EXECUTABLE_SUFFIX
);
740 if (stat (temp
, &st
) >= 0
741 && ! S_ISDIR (st
.st_mode
)
742 && access (temp
, X_OK
) == 0)
747 if (debug
&& pprefix
->plist
== NULL
)
748 fprintf (stderr
, " - failed: no entries in prefix list\n");
754 /* Add an entry for PREFIX to prefix list PPREFIX. */
757 add_prefix (pprefix
, prefix
)
758 struct path_prefix
*pprefix
;
761 struct prefix_list
*pl
, **prev
;
766 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
771 prev
= &pprefix
->plist
;
773 /* Keep track of the longest prefix */
775 len
= strlen (prefix
);
776 if (len
> pprefix
->max_len
)
777 pprefix
->max_len
= len
;
779 pl
= (struct prefix_list
*) xmalloc (sizeof (struct prefix_list
));
780 pl
->prefix
= xstrdup (prefix
);
785 pl
->next
= (struct prefix_list
*) 0;
789 /* Take the value of the environment variable ENV, break it into a path, and
790 add of the entries to PPREFIX. */
793 prefix_from_env (env
, pprefix
)
795 struct path_prefix
*pprefix
;
798 GET_ENV_PATH_LIST (p
, env
);
801 prefix_from_string (p
, pprefix
);
805 prefix_from_string (p
, pprefix
)
807 struct path_prefix
*pprefix
;
809 const char *startp
, *endp
;
810 char *nstore
= (char *) xmalloc (strlen (p
) + 3);
813 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
818 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
820 strncpy (nstore
, startp
, endp
-startp
);
823 strcpy (nstore
, "./");
825 else if (! IS_DIR_SEPARATOR (endp
[-1]))
827 nstore
[endp
-startp
] = DIR_SEPARATOR
;
828 nstore
[endp
-startp
+1] = 0;
831 nstore
[endp
-startp
] = 0;
834 fprintf (stderr
, " - add prefix: %s\n", nstore
);
836 add_prefix (pprefix
, nstore
);
839 endp
= startp
= endp
+ 1;
848 int main
PROTO ((int, char *[]));
854 const char *ld_suffix
= "ld";
855 const char *full_ld_suffix
= ld_suffix
;
856 const char *real_ld_suffix
= "real-ld";
857 const char *collect_ld_suffix
= "collect-ld";
858 const char *nm_suffix
= "nm";
859 const char *full_nm_suffix
= nm_suffix
;
860 const char *gnm_suffix
= "gnm";
861 const char *full_gnm_suffix
= gnm_suffix
;
863 const char *ldd_suffix
= LDD_SUFFIX
;
864 const char *full_ldd_suffix
= ldd_suffix
;
866 const char *strip_suffix
= "strip";
867 const char *full_strip_suffix
= strip_suffix
;
868 const char *gstrip_suffix
= "gstrip";
869 const char *full_gstrip_suffix
= gstrip_suffix
;
872 #ifdef COLLECT_EXPORT_LIST
876 const char *ld_file_name
;
887 int num_c_args
= argc
+9;
889 #if defined (COLLECT2_HOST_INITIALIZATION)
890 /* Perform system dependant initialization, if neccessary. */
891 COLLECT2_HOST_INITIALIZATION
;
894 #ifdef HAVE_LC_MESSAGES
895 setlocale (LC_MESSAGES
, "");
897 (void) bindtextdomain (PACKAGE
, localedir
);
898 (void) textdomain (PACKAGE
);
900 /* Do not invoke xcalloc before this point, since locale needs to be
901 set first, in case a diagnostic is issued. */
903 ld1
= (const char **)(ld1_argv
= (char **) xcalloc(sizeof (char *), argc
+3));
904 ld2
= (const char **)(ld2_argv
= (char **) xcalloc(sizeof (char *), argc
+6));
905 object
= (const char **)(object_lst
= (char **) xcalloc(sizeof (char *), argc
));
911 /* Parse command line early for instances of -debug. This allows
912 the debug flag to be set before functions like find_a_file()
917 for (i
= 1; argv
[i
] != NULL
; i
++)
918 if (! strcmp (argv
[i
], "-debug"))
923 #ifndef DEFAULT_A_OUT_NAME
924 output_file
= "a.out";
926 output_file
= DEFAULT_A_OUT_NAME
;
929 obstack_begin (&temporary_obstack
, 0);
930 obstack_begin (&permanent_obstack
, 0);
931 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
933 current_demangling_style
= gnu_demangling
;
934 p
= getenv ("COLLECT_GCC_OPTIONS");
937 const char *q
= extract_string (&p
);
938 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
941 obstack_free (&temporary_obstack
, temporary_firstobj
);
943 /* -fno-exceptions -w */
946 c_ptr
= (const char **)
947 (c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
));
950 fatal ("no arguments");
953 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
954 signal (SIGQUIT
, handler
);
956 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
957 signal (SIGINT
, handler
);
959 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
960 signal (SIGALRM
, handler
);
963 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
964 signal (SIGHUP
, handler
);
966 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
967 signal (SIGSEGV
, handler
);
969 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
970 signal (SIGBUS
, handler
);
973 /* Extract COMPILER_PATH and PATH into our prefix list. */
974 prefix_from_env ("COMPILER_PATH", &cpath
);
975 prefix_from_env ("PATH", &path
);
978 /* If we look for a program in the compiler directories, we just use
979 the short name, since these directories are already system-specific.
980 But it we look for a program in the system directories, we need to
981 qualify the program name with the target machine. */
983 full_ld_suffix
= concat(target_machine
, "-", ld_suffix
, NULL
);
986 full_gld_suffix
= concat (target_machine
, "-", gld_suffix
, NULL
);
989 full_nm_suffix
= concat (target_machine
, "-", nm_suffix
, NULL
);
991 full_gnm_suffix
= concat (target_machine
, "-", gnm_suffix
, NULL
);
994 full_ldd_suffix
= concat (target_machine
, "-", ldd_suffix
, NULL
);
997 full_strip_suffix
= concat (target_machine
, "-", strip_suffix
, NULL
);
999 full_gstrip_suffix
= concat (target_machine
, "-", gstrip_suffix
, NULL
);
1000 #endif /* CROSS_COMPILE */
1002 /* Try to discover a valid linker/nm/strip to use. */
1004 /* Maybe we know the right file to use (if not cross). */
1006 #ifdef DEFAULT_LINKER
1007 if (access (DEFAULT_LINKER
, X_OK
) == 0)
1008 ld_file_name
= DEFAULT_LINKER
;
1009 if (ld_file_name
== 0)
1011 #ifdef REAL_LD_FILE_NAME
1012 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
1013 if (ld_file_name
== 0)
1015 /* Search the (target-specific) compiler dirs for ld'. */
1016 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1017 /* Likewise for `collect-ld'. */
1018 if (ld_file_name
== 0)
1019 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1020 /* Search the compiler directories for `ld'. We have protection against
1021 recursive calls in find_a_file. */
1022 if (ld_file_name
== 0)
1023 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1024 /* Search the ordinary system bin directories
1025 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1026 if (ld_file_name
== 0)
1027 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1029 #ifdef REAL_NM_FILE_NAME
1030 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1031 if (nm_file_name
== 0)
1033 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1034 if (nm_file_name
== 0)
1035 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1036 if (nm_file_name
== 0)
1037 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1038 if (nm_file_name
== 0)
1039 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1042 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1043 if (ldd_file_name
== 0)
1044 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1047 #ifdef REAL_STRIP_FILE_NAME
1048 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1049 if (strip_file_name
== 0)
1051 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1052 if (strip_file_name
== 0)
1053 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1054 if (strip_file_name
== 0)
1055 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1056 if (strip_file_name
== 0)
1057 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1059 /* Determine the full path name of the C compiler to use. */
1060 c_file_name
= getenv ("COLLECT_GCC");
1061 if (c_file_name
== 0)
1063 #ifdef CROSS_COMPILE
1064 c_file_name
= concat (target_machine
, "-gcc", NULL
);
1066 c_file_name
= "gcc";
1070 p
= find_a_file (&cpath
, c_file_name
);
1072 /* Here it should be safe to use the system search path since we should have
1073 already qualified the name of the compiler when it is needed. */
1075 p
= find_a_file (&path
, c_file_name
);
1080 *ld1
++ = *ld2
++ = ld_file_name
;
1082 /* Make temp file names. */
1083 c_file
= make_temp_file (".c");
1084 o_file
= make_temp_file (".o");
1085 #ifdef COLLECT_EXPORT_LIST
1086 export_file
= make_temp_file (".x");
1087 import_file
= make_temp_file (".p");
1089 ldout
= make_temp_file (".ld");
1090 *c_ptr
++ = c_file_name
;
1097 #ifdef COLLECT_EXPORT_LIST
1098 /* Generate a list of directories from LIBPATH. */
1099 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1100 /* Add to this list also two standard directories where
1101 AIX loader always searches for libraries. */
1102 add_prefix (&libpath_lib_dirs
, "/lib");
1103 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1106 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1108 AIX support needs to know if -shared has been specified before
1109 parsing commandline arguments. */
1111 p
= getenv ("COLLECT_GCC_OPTIONS");
1114 const char *q
= extract_string (&p
);
1115 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1116 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1117 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1118 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1119 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1122 obstack_free (&temporary_obstack
, temporary_firstobj
);
1123 *c_ptr
++ = "-fno-exceptions";
1126 /* !!! When GCC calls collect2,
1127 it does not know whether it is calling collect2 or ld.
1128 So collect2 cannot meaningfully understand any options
1129 except those ld understands.
1130 If you propose to make GCC pass some other option,
1131 just imagine what will happen if ld is really ld!!! */
1133 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1134 /* After the first file, put in the c++ rt0. */
1137 while ((arg
= *++argv
) != (char *) 0)
1139 *ld1
++ = *ld2
++ = arg
;
1145 #ifdef COLLECT_EXPORT_LIST
1146 /* We want to disable automatic exports on AIX when user
1147 explicitly puts an export list in command line */
1149 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1151 else if (arg
[2] == '6' && arg
[3] == '4')
1157 if (!strcmp (arg
, "-debug"))
1159 /* Already parsed. */
1168 /* place o_file BEFORE this argument! */
1174 #ifdef COLLECT_EXPORT_LIST
1176 /* Resolving full library name. */
1177 const char *s
= resolve_lib_name (arg
+2);
1179 /* If we will use an import list for this library,
1180 we should exclude it from ld args. */
1181 if (use_import_list (s
))
1187 /* Saving a full library name. */
1188 add_to_list (&libs
, s
);
1193 #ifdef COLLECT_EXPORT_LIST
1194 /* Saving directories where to search for libraries. */
1196 add_prefix (&cmdline_lib_dirs
, arg
+2);
1202 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1204 #ifdef SWITCHES_NEED_SPACES
1205 && ! index (SWITCHES_NEED_SPACES
, arg
[1])
1209 output_file
= &arg
[2];
1218 if (arg
[2] == '\0' && do_collecting
)
1220 /* We must strip after the nm run, otherwise C++ linking
1221 will not work. Thus we strip in the second ld run, or
1222 else with strip if there is no second ld run. */
1234 else if ((p
= rindex (arg
, '.')) != (char *) 0
1235 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1236 || strcmp (p
, ".so") == 0))
1245 /* place o_file BEFORE this argument! */
1253 #ifdef COLLECT_EXPORT_LIST
1254 /* libraries can be specified directly, i.e. without -l flag. */
1257 /* If we will use an import list for this library,
1258 we should exclude it from ld args. */
1259 if (use_import_list (arg
))
1265 /* Saving a full library name. */
1266 add_to_list (&libs
, arg
);
1272 #ifdef COLLECT_EXPORT_LIST
1273 /* This is added only for debugging purposes. */
1276 fprintf (stderr
, "List of libraries:\n");
1277 dump_list (stderr
, "\t", libs
.first
);
1280 /* The AIX linker will discard static constructors in object files if
1281 nothing else in the file is referenced, so look at them first. */
1283 char **export_object_lst
= object_lst
;
1285 while (export_object_lst
< object
)
1286 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1289 struct id
*list
= libs
.first
;
1291 for (; list
; list
= list
->next
)
1292 scan_prog_file (list
->name
, PASS_FIRST
);
1297 char *buf
= xmalloc (strlen (export_file
) + 5);
1299 sprintf (buf
, "-bE:%s", export_file
);
1303 exportf
= fopen (export_file
, "w");
1304 if (exportf
== (FILE *) 0)
1305 fatal_perror ("fopen %s", export_file
);
1306 write_aix_file (exportf
, exports
.first
);
1307 if (fclose (exportf
))
1308 fatal_perror ("fclose %s", export_file
);
1313 char *buf
= xmalloc (strlen (import_file
) + 5);
1315 sprintf (buf
, "-bI:%s", import_file
);
1319 importf
= fopen (import_file
, "w");
1320 if (importf
== (FILE *) 0)
1321 fatal_perror ("%s", import_file
);
1322 fputs ("#! .\n", importf
);
1323 write_aix_file (importf
, imports
.first
);
1324 if (fclose (importf
))
1325 fatal_perror ("fclose %s", import_file
);
1330 *c_ptr
= *ld1
= *object
= (char *) 0;
1334 notice ("collect2 version %s", version_string
);
1335 #ifdef TARGET_VERSION
1338 fprintf (stderr
, "\n");
1344 fprintf (stderr
, "ld_file_name = %s\n",
1345 (ld_file_name
? ld_file_name
: "not found"));
1346 fprintf (stderr
, "c_file_name = %s\n",
1347 (c_file_name
? c_file_name
: "not found"));
1348 fprintf (stderr
, "nm_file_name = %s\n",
1349 (nm_file_name
? nm_file_name
: "not found"));
1351 fprintf (stderr
, "ldd_file_name = %s\n",
1352 (ldd_file_name
? ldd_file_name
: "not found"));
1354 fprintf (stderr
, "strip_file_name = %s\n",
1355 (strip_file_name
? strip_file_name
: "not found"));
1356 fprintf (stderr
, "c_file = %s\n",
1357 (c_file
? c_file
: "not found"));
1358 fprintf (stderr
, "o_file = %s\n",
1359 (o_file
? o_file
: "not found"));
1361 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1363 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1365 ptr
= getenv ("COLLECT_GCC");
1367 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1369 ptr
= getenv ("COMPILER_PATH");
1371 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1373 ptr
= getenv ("LIBRARY_PATH");
1375 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1377 fprintf (stderr
, "\n");
1380 /* Load the program, searching all libraries and attempting to provide
1381 undefined symbols from repository information. */
1383 /* On AIX we do this later. */
1384 #ifndef COLLECT_EXPORT_LIST
1385 do_tlink (ld1_argv
, object_lst
);
1388 /* If -r or they will be run via some other method, do not build the
1389 constructor or destructor list, just return now. */
1391 #ifndef COLLECT_EXPORT_LIST
1396 #ifdef COLLECT_EXPORT_LIST
1397 /* Do the link we avoided above if we are exiting. */
1398 do_tlink (ld1_argv
, object_lst
);
1400 /* But make sure we delete the export file we may have created. */
1401 if (export_file
!= 0 && export_file
[0])
1402 maybe_unlink (export_file
);
1403 if (import_file
!= 0 && import_file
[0])
1404 maybe_unlink (import_file
);
1406 maybe_unlink (c_file
);
1407 maybe_unlink (o_file
);
1411 /* Examine the namelist with nm and search it for static constructors
1412 and destructors to call.
1413 Write the constructor and destructor tables to a .s file and reload. */
1415 /* On AIX we already scanned for global constructors/destructors. */
1416 #ifndef COLLECT_EXPORT_LIST
1417 scan_prog_file (output_file
, PASS_FIRST
);
1420 #ifdef SCAN_LIBRARIES
1421 scan_libraries (output_file
);
1426 notice ("%d constructor(s) found\n", constructors
.number
);
1427 notice ("%d destructor(s) found\n", destructors
.number
);
1428 notice ("%d frame table(s) found\n", frame_tables
.number
);
1431 if (constructors
.number
== 0 && destructors
.number
== 0
1432 && frame_tables
.number
== 0
1433 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1434 /* If we will be running these functions ourselves, we want to emit
1435 stubs into the shared library so that we do not have to relink
1436 dependent programs when we add static objects. */
1441 #ifdef COLLECT_EXPORT_LIST
1442 /* Do tlink without additional code generation */
1443 do_tlink (ld1_argv
, object_lst
);
1445 /* Strip now if it was requested on the command line. */
1448 char **real_strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1449 const char ** strip_argv
= (const char **) real_strip_argv
;
1451 strip_argv
[0] = strip_file_name
;
1452 strip_argv
[1] = output_file
;
1453 strip_argv
[2] = (char *) 0;
1454 fork_execute ("strip", real_strip_argv
);
1457 #ifdef COLLECT_EXPORT_LIST
1458 maybe_unlink (export_file
);
1459 maybe_unlink (import_file
);
1461 maybe_unlink (c_file
);
1462 maybe_unlink (o_file
);
1466 /* Sort ctor and dtor lists by priority. */
1467 sort_ids (&constructors
);
1468 sort_ids (&destructors
);
1470 maybe_unlink(output_file
);
1471 outf
= fopen (c_file
, "w");
1472 if (outf
== (FILE *) 0)
1473 fatal_perror ("fopen %s", c_file
);
1475 write_c_file (outf
, c_file
);
1478 fatal_perror ("fclose %s", c_file
);
1480 /* Tell the linker that we have initializer and finalizer functions. */
1481 #ifdef LD_INIT_SWITCH
1482 *ld2
++ = LD_INIT_SWITCH
;
1484 *ld2
++ = LD_FINI_SWITCH
;
1488 #ifdef COLLECT_EXPORT_LIST
1491 /* If we did not add export flag to link arguments before, add it to
1492 second link phase now. No new exports should have been added. */
1493 if (! exports
.first
)
1495 char *buf
= xmalloc (strlen (export_file
) + 5);
1497 sprintf (buf
, "-bE:%s", export_file
);
1501 add_to_list (&exports
, initname
);
1502 add_to_list (&exports
, fininame
);
1503 add_to_list (&exports
, "_GLOBAL__DI");
1504 add_to_list (&exports
, "_GLOBAL__DD");
1505 exportf
= fopen (export_file
, "w");
1506 if (exportf
== (FILE *) 0)
1507 fatal_perror ("fopen %s", export_file
);
1508 write_aix_file (exportf
, exports
.first
);
1509 if (fclose (exportf
))
1510 fatal_perror ("fclose %s", export_file
);
1514 /* End of arguments to second link phase. */
1519 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1520 output_file
, c_file
);
1521 write_c_file (stderr
, "stderr");
1522 fprintf (stderr
, "========== end of c_file\n\n");
1523 #ifdef COLLECT_EXPORT_LIST
1524 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1525 write_aix_file (stderr
, exports
.first
);
1526 fprintf (stderr
, "========== end of export_file\n\n");
1530 /* Assemble the constructor and destructor tables.
1531 Link the tables in with the rest of the program. */
1533 fork_execute ("gcc", c_argv
);
1534 #ifdef COLLECT_EXPORT_LIST
1535 /* On AIX we must call tlink because of possible templates resolution */
1536 do_tlink (ld2_argv
, object_lst
);
1538 /* Otherwise, simply call ld because tlink is already done */
1539 fork_execute ("ld", ld2_argv
);
1541 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1542 constructors/destructors in shared libraries. */
1543 scan_prog_file (output_file
, PASS_SECOND
);
1546 maybe_unlink (c_file
);
1547 maybe_unlink (o_file
);
1549 #ifdef COLLECT_EXPORT_LIST
1550 maybe_unlink (export_file
);
1551 maybe_unlink (import_file
);
1558 /* Wait for a process to finish, and exit if a non-zero status is found. */
1566 pwait (pexecute_pid
, &status
, 0);
1569 if (WIFSIGNALED (status
))
1571 int sig
= WTERMSIG (status
);
1572 error ((status
& 0200
1573 ? "%s terminated with signal %d [%s]"
1574 : "%s terminated with signal %d [%s], core dumped"),
1578 collect_exit (FATAL_EXIT_CODE
);
1581 if (WIFEXITED (status
))
1582 return WEXITSTATUS (status
);
1591 int ret
= collect_wait (prog
);
1594 error ("%s returned %d exit status", prog
, ret
);
1600 /* Execute a program, and wait for the reply. */
1603 collect_execute (prog
, argv
, redir
)
1610 int redir_handle
= -1;
1611 int stdout_save
= -1;
1612 int stderr_save
= -1;
1620 fprintf (stderr
, "%s", argv
[0]);
1622 notice ("[cannot find %s]", prog
);
1624 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1625 fprintf (stderr
, " %s", str
);
1627 fprintf (stderr
, "\n");
1633 /* If we cannot find a program we need, complain error. Do this here
1634 since we might not end up needing something that we could not find. */
1637 fatal ("cannot find `%s'", prog
);
1641 /* Open response file. */
1642 redir_handle
= open (redir
, O_WRONLY
| O_TRUNC
| O_CREAT
);
1644 /* Duplicate the stdout and stderr file handles
1645 so they can be restored later. */
1646 stdout_save
= dup (STDOUT_FILENO
);
1647 if (stdout_save
== -1)
1648 fatal_perror ("redirecting stdout: %s", redir
);
1649 stderr_save
= dup (STDERR_FILENO
);
1650 if (stderr_save
== -1)
1651 fatal_perror ("redirecting stdout: %s", redir
);
1653 /* Redirect stdout & stderr to our response file. */
1654 dup2 (redir_handle
, STDOUT_FILENO
);
1655 dup2 (redir_handle
, STDERR_FILENO
);
1658 pexecute_pid
= pexecute (argv
[0], argv
, argv
[0], NULL
,
1659 &errmsg_fmt
, &errmsg_arg
,
1660 (PEXECUTE_FIRST
| PEXECUTE_LAST
| PEXECUTE_SEARCH
));
1664 /* Restore stdout and stderr to their previous settings. */
1665 dup2 (stdout_save
, STDOUT_FILENO
);
1666 dup2 (stderr_save
, STDERR_FILENO
);
1668 /* Close reponse file. */
1669 close (redir_handle
);
1672 if (pexecute_pid
== -1)
1673 fatal_perror (errmsg_fmt
, errmsg_arg
);
1677 fork_execute (prog
, argv
)
1681 collect_execute (prog
, argv
, NULL
);
1685 /* Unlink a file unless we are debugging. */
1694 notice ("[Leaving %s]\n", file
);
1698 static long sequence_number
= 0;
1700 /* Add a name to a linked list. */
1703 add_to_list (head_ptr
, name
)
1704 struct head
*head_ptr
;
1708 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1710 strcpy (newid
->name
, name
);
1712 if (head_ptr
->first
)
1713 head_ptr
->last
->next
= newid
;
1715 head_ptr
->first
= newid
;
1717 /* Check for duplicate symbols. */
1718 for (p
= head_ptr
->first
;
1719 strcmp (name
, p
->name
) != 0;
1724 head_ptr
->last
->next
= 0;
1729 newid
->sequence
= ++sequence_number
;
1730 head_ptr
->last
= newid
;
1734 /* Grab the init priority number from an init function name that
1735 looks like "_GLOBAL_.I.12345.foo". */
1738 extract_init_priority (name
)
1743 while (name
[pos
] == '_')
1745 pos
+= 10; /* strlen ("GLOBAL__X_") */
1747 /* Extract init_p number from ctor/dtor name. */
1748 pri
= atoi (name
+ pos
);
1749 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1752 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1753 ctors will be run from right to left, dtors from left to right. */
1757 struct head
*head_ptr
;
1759 /* id holds the current element to insert. id_next holds the next
1760 element to insert. id_ptr iterates through the already sorted elements
1761 looking for the place to insert id. */
1762 struct id
*id
, *id_next
, **id_ptr
;
1764 id
= head_ptr
->first
;
1766 /* We don't have any sorted elements yet. */
1767 head_ptr
->first
= NULL
;
1769 for (; id
; id
= id_next
)
1772 id
->sequence
= extract_init_priority (id
->name
);
1774 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1776 /* If the sequence numbers are the same, we put the id from the
1777 file later on the command line later in the list. */
1778 || id
->sequence
> (*id_ptr
)->sequence
1779 /* Hack: do lexical compare, too.
1780 || (id->sequence == (*id_ptr)->sequence
1781 && strcmp (id->name, (*id_ptr)->name) > 0) */
1790 /* Now set the sequence numbers properly so write_c_file works. */
1791 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1792 id
->sequence
= ++sequence_number
;
1795 /* Write: `prefix', the names on list LIST, `suffix'. */
1798 write_list (stream
, prefix
, list
)
1805 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1810 #ifdef COLLECT_EXPORT_LIST
1811 /* This function is really used only on AIX, but may be useful. */
1813 is_in_list (prefix
, list
)
1819 if (!strcmp (prefix
, list
->name
)) return 1;
1826 /* Added for debugging purpose. */
1827 #ifdef COLLECT_EXPORT_LIST
1829 dump_list (stream
, prefix
, list
)
1836 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1844 dump_prefix_list (stream
, prefix
, list
)
1847 struct prefix_list
*list
;
1851 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1858 write_list_with_asm (stream
, prefix
, list
)
1865 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1866 prefix
, list
->sequence
, list
->name
);
1871 /* Write out the constructor and destructor tables statically (for a shared
1872 object), along with the functions to execute them. */
1875 write_c_file_stat (stream
, name
)
1877 const char *name ATTRIBUTE_UNUSED
;
1881 int frames
= (frame_tables
.number
> 0);
1883 /* Figure out name of output_file, stripping off .so version. */
1884 p
= rindex (output_file
, '/');
1900 if (strncmp (q
, ".so", 3) == 0)
1909 /* q points to null at end of the string (or . of the .so version) */
1910 prefix
= xmalloc (q
- p
+ 1);
1911 strncpy (prefix
, p
, q
- p
);
1913 for (r
= prefix
; *r
; r
++)
1914 if (!ISALNUM ((unsigned char)*r
))
1917 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
1918 output_file
, prefix
);
1920 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
1921 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
1922 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
1924 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
1925 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
1926 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
1930 /* Write the tables as C code */
1932 fprintf (stream
, "static int count;\n");
1933 fprintf (stream
, "typedef void entry_pt();\n");
1934 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1938 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1940 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1941 write_list (stream
, "\t\t&", frame_tables
.first
);
1942 fprintf (stream
, "\t0\n};\n");
1944 /* This must match what's in frame.h. */
1945 fprintf (stream
, "struct object {\n");
1946 fprintf (stream
, " void *pc_begin;\n");
1947 fprintf (stream
, " void *pc_end;\n");
1948 fprintf (stream
, " void *fde_begin;\n");
1949 fprintf (stream
, " void *fde_array;\n");
1950 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1951 fprintf (stream
, " struct object *next;\n");
1952 fprintf (stream
, "};\n");
1954 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1955 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1957 fprintf (stream
, "static void reg_frame () {\n");
1958 fprintf (stream
, "\tstatic struct object ob;\n");
1959 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1960 fprintf (stream
, "\t}\n");
1962 fprintf (stream
, "static void dereg_frame () {\n");
1963 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1964 fprintf (stream
, "\t}\n");
1967 fprintf (stream
, "void %s() {\n", initname
);
1968 if (constructors
.number
> 0 || frames
)
1970 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
1971 write_list (stream
, "\t\t", constructors
.first
);
1973 fprintf (stream
, "\treg_frame,\n");
1974 fprintf (stream
, "\t};\n");
1975 fprintf (stream
, "\tentry_pt **p;\n");
1976 fprintf (stream
, "\tif (count++ != 0) return;\n");
1977 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
1978 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
1981 fprintf (stream
, "\t++count;\n");
1982 fprintf (stream
, "}\n");
1983 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
1984 fprintf (stream
, "void %s() {\n", fininame
);
1985 if (destructors
.number
> 0 || frames
)
1987 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
1988 write_list (stream
, "\t\t", destructors
.first
);
1990 fprintf (stream
, "\tdereg_frame,\n");
1991 fprintf (stream
, "\t};\n");
1992 fprintf (stream
, "\tentry_pt **p;\n");
1993 fprintf (stream
, "\tif (--count != 0) return;\n");
1994 fprintf (stream
, "\tp = dtors;\n");
1995 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
1996 destructors
.number
+ frames
);
1998 fprintf (stream
, "}\n");
2002 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
2003 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
2007 /* Write the constructor/destructor tables. */
2009 #ifndef LD_INIT_SWITCH
2011 write_c_file_glob (stream
, name
)
2013 const char *name ATTRIBUTE_UNUSED
;
2015 /* Write the tables as C code */
2017 int frames
= (frame_tables
.number
> 0);
2019 fprintf (stream
, "typedef void entry_pt();\n\n");
2021 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2025 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2027 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2028 write_list (stream
, "\t\t&", frame_tables
.first
);
2029 fprintf (stream
, "\t0\n};\n");
2031 /* This must match what's in frame.h. */
2032 fprintf (stream
, "struct object {\n");
2033 fprintf (stream
, " void *pc_begin;\n");
2034 fprintf (stream
, " void *pc_end;\n");
2035 fprintf (stream
, " void *fde_begin;\n");
2036 fprintf (stream
, " void *fde_array;\n");
2037 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2038 fprintf (stream
, " struct object *next;\n");
2039 fprintf (stream
, "};\n");
2041 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2042 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2044 fprintf (stream
, "static void reg_frame () {\n");
2045 fprintf (stream
, "\tstatic struct object ob;\n");
2046 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2047 fprintf (stream
, "\t}\n");
2049 fprintf (stream
, "static void dereg_frame () {\n");
2050 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2051 fprintf (stream
, "\t}\n");
2054 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2055 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2056 write_list (stream
, "\t", constructors
.first
);
2058 fprintf (stream
, "\treg_frame,\n");
2059 fprintf (stream
, "\t0\n};\n\n");
2061 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2063 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2064 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2065 write_list (stream
, "\t", destructors
.first
);
2067 fprintf (stream
, "\tdereg_frame,\n");
2068 fprintf (stream
, "\t0\n};\n\n");
2070 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2071 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2073 #endif /* ! LD_INIT_SWITCH */
2076 write_c_file (stream
, name
)
2080 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2081 #ifndef LD_INIT_SWITCH
2083 write_c_file_glob (stream
, name
);
2086 write_c_file_stat (stream
, name
);
2087 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2090 #ifdef COLLECT_EXPORT_LIST
2092 write_aix_file (stream
, list
)
2096 for (; list
; list
= list
->next
)
2098 fputs (list
->name
, stream
);
2099 putc ('\n', stream
);
2104 #ifdef OBJECT_FORMAT_NONE
2106 /* Generic version to scan the name list of the loaded program for
2107 the symbols g++ uses for static constructors and destructors.
2109 The constructor table begins at __CTOR_LIST__ and contains a count
2110 of the number of pointers (or -1 if the constructors are built in a
2111 separate section by the linker), followed by the pointers to the
2112 constructor functions, terminated with a null pointer. The
2113 destructor table has the same format, and begins at __DTOR_LIST__. */
2116 scan_prog_file (prog_name
, which_pass
)
2117 const char *prog_name
;
2118 enum pass which_pass
;
2120 void (*int_handler
) PROTO ((int));
2121 void (*quit_handler
) PROTO ((int));
2122 char *real_nm_argv
[4];
2123 const char **nm_argv
= (const char **) real_nm_argv
;
2130 if (which_pass
== PASS_SECOND
)
2133 /* If we do not have an `nm', complain. */
2134 if (nm_file_name
== 0)
2135 fatal ("cannot find `nm'");
2137 nm_argv
[argc
++] = nm_file_name
;
2138 if (NM_FLAGS
[0] != '\0')
2139 nm_argv
[argc
++] = NM_FLAGS
;
2141 nm_argv
[argc
++] = prog_name
;
2142 nm_argv
[argc
++] = (char *) 0;
2144 if (pipe (pipe_fd
) < 0)
2145 fatal_perror ("pipe");
2147 inf
= fdopen (pipe_fd
[0], "r");
2148 if (inf
== (FILE *) 0)
2149 fatal_perror ("fdopen");
2151 /* Trace if needed. */
2154 const char **p_argv
;
2157 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2158 fprintf (stderr
, " %s", str
);
2160 fprintf (stderr
, "\n");
2166 /* Spawn child nm on pipe */
2169 fatal_perror (VFORK_STRING
);
2171 if (pid
== 0) /* child context */
2174 if (dup2 (pipe_fd
[1], 1) < 0)
2175 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2177 if (close (pipe_fd
[0]) < 0)
2178 fatal_perror ("close %d", pipe_fd
[0]);
2180 if (close (pipe_fd
[1]) < 0)
2181 fatal_perror ("close %d", pipe_fd
[1]);
2183 execv (nm_file_name
, real_nm_argv
);
2184 fatal_perror ("execvp %s", nm_file_name
);
2187 /* Parent context from here on. */
2188 int_handler
= (void (*) PROTO ((int))) signal (SIGINT
, SIG_IGN
);
2190 quit_handler
= (void (*) PROTO ((int))) signal (SIGQUIT
, SIG_IGN
);
2193 if (close (pipe_fd
[1]) < 0)
2194 fatal_perror ("close %d", pipe_fd
[1]);
2197 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2199 /* Read each line of nm output. */
2200 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2205 /* If it contains a constructor or destructor name, add the name
2206 to the appropriate list. */
2208 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2209 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2216 /* Find the end of the symbol name.
2217 Do not include `|', because Encore nm can tack that on the end. */
2218 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2224 switch (is_ctor_dtor (name
))
2227 if (which_pass
!= PASS_LIB
)
2228 add_to_list (&constructors
, name
);
2232 if (which_pass
!= PASS_LIB
)
2233 add_to_list (&destructors
, name
);
2237 if (which_pass
!= PASS_LIB
)
2238 fatal ("init function found in object %s", prog_name
);
2239 #ifndef LD_INIT_SWITCH
2240 add_to_list (&constructors
, name
);
2245 if (which_pass
!= PASS_LIB
)
2246 fatal ("fini function found in object %s", prog_name
);
2247 #ifndef LD_FINI_SWITCH
2248 add_to_list (&destructors
, name
);
2253 if (which_pass
!= PASS_LIB
)
2254 add_to_list (&frame_tables
, name
);
2257 default: /* not a constructor or destructor */
2262 fprintf (stderr
, "\t%s\n", buf
);
2266 fprintf (stderr
, "\n");
2268 if (fclose (inf
) != 0)
2269 fatal_perror ("fclose");
2271 do_wait (nm_file_name
);
2273 signal (SIGINT
, int_handler
);
2275 signal (SIGQUIT
, quit_handler
);
2279 #if SUNOS4_SHARED_LIBRARIES
2281 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2282 that the output file depends upon and their initialization/finalization
2283 routines, if any. */
2288 #include <sys/mman.h>
2289 #include <sys/param.h>
2291 #include <sys/dir.h>
2293 /* pointers to the object file */
2294 unsigned object
; /* address of memory mapped file */
2295 unsigned objsize
; /* size of memory mapped to file */
2296 char * code
; /* pointer to code segment */
2297 char * data
; /* pointer to data segment */
2298 struct nlist
*symtab
; /* pointer to symbol table */
2299 struct link_dynamic
*ld
;
2300 struct link_dynamic_2
*ld_2
;
2301 struct head libraries
;
2303 /* Map the file indicated by NAME into memory and store its address. */
2305 static void mapfile
PROTO ((const char *));
2313 if ((fp
= open (name
, O_RDONLY
)) == -1)
2314 fatal ("unable to open file '%s'", name
);
2315 if (fstat (fp
, &s
) == -1)
2316 fatal ("unable to stat file '%s'", name
);
2318 objsize
= s
.st_size
;
2319 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2321 if (object
== (unsigned)-1)
2322 fatal ("unable to mmap file '%s'", name
);
2327 /* Helpers for locatelib. */
2329 static const char *libname
;
2331 static int libselect
PROTO ((struct direct
*));
2337 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2340 /* If one file has an additional numeric extension past LIBNAME, then put
2341 that one first in the sort. If both files have additional numeric
2342 extensions, then put the one with the higher number first in the sort.
2344 We must verify that the extension is numeric, because Sun saves the
2345 original versions of patched libraries with a .FCS extension. Files with
2346 invalid extensions must go last in the sort, so that they will not be used. */
2347 static int libcompare
PROTO ((struct direct
**, struct direct
**));
2351 struct direct
**d1
, **d2
;
2353 int i1
, i2
= strlen (libname
);
2354 char *e1
= (*d1
)->d_name
+ i2
;
2355 char *e2
= (*d2
)->d_name
+ i2
;
2357 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2358 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2362 i1
= strtol (e1
, &e1
, 10);
2363 i2
= strtol (e2
, &e2
, 10);
2370 /* It has a valid numeric extension, prefer this one. */
2371 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2373 /* It has a invalid numeric extension, must prefer the other one. */
2379 /* It has a valid numeric extension, prefer this one. */
2380 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2382 /* It has a invalid numeric extension, must prefer the other one. */
2390 /* Given the name NAME of a dynamic dependency, find its pathname and add
2391 it to the list of libraries. */
2392 static void locatelib
PROTO ((const char *));
2398 static const char **l
;
2400 char buf
[MAXPATHLEN
];
2408 /* counting elements in array, need 1 extra for null */
2410 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2414 for (; *ld_rules
!= 0; ld_rules
++)
2415 if (*ld_rules
== ':')
2417 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2418 ldr
= xstrdup (ld_rules
);
2420 p
= getenv ("LD_LIBRARY_PATH");
2425 for (q
= p
; *q
!= 0; q
++)
2430 l
= (const char **) xmalloc ((cnt
+ 3) * sizeof (char *));
2435 for (; *ldr
!= 0; ldr
++)
2445 for (; *q
!= 0; q
++)
2452 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2455 *pp
++ = "/usr/local/lib";
2459 for (pp
= l
; *pp
!= 0 ; pp
++)
2461 struct direct
**namelist
;
2463 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2465 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2466 add_to_list (&libraries
, buf
);
2468 fprintf (stderr
, "%s\n", buf
);
2475 notice ("not found\n");
2477 fatal ("dynamic dependency %s not found", name
);
2481 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2482 that it depends upon and any constructors or destructors they contain. */
2485 scan_libraries (prog_name
)
2486 const char *prog_name
;
2488 struct exec
*header
;
2490 struct link_object
*lo
;
2491 char buff
[MAXPATHLEN
];
2494 mapfile (prog_name
);
2495 header
= (struct exec
*)object
;
2496 if (N_BADMAG (*header
))
2497 fatal ("bad magic number in file '%s'", prog_name
);
2498 if (header
->a_dynamic
== 0)
2501 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2502 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2503 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2505 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2508 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2514 ld
= (struct link_dynamic
*) data
;
2519 notice ("dynamic dependencies.\n");
2521 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2522 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2523 lo
= (struct link_object
*) lo
->lo_next
)
2526 lo
= (struct link_object
*) ((long) lo
+ code
);
2527 name
= (char *) (code
+ lo
->lo_name
);
2531 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2532 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2538 fprintf (stderr
, "\t%s\n", name
);
2539 add_to_list (&libraries
, name
);
2544 fprintf (stderr
, "\n");
2546 /* now iterate through the library list adding their symbols to
2548 for (list
= libraries
.first
; list
; list
= list
->next
)
2549 scan_prog_file (list
->name
, PASS_LIB
);
2552 #else /* SUNOS4_SHARED_LIBRARIES */
2555 /* Use the List Dynamic Dependencies program to find shared libraries that
2556 the output file depends upon and their initialization/finalization
2557 routines, if any. */
2560 scan_libraries (prog_name
)
2561 const char *prog_name
;
2563 static struct head libraries
; /* list of shared libraries found */
2565 void (*int_handler
) PROTO ((int));
2566 void (*quit_handler
) PROTO ((int));
2567 char *real_ldd_argv
[4];
2568 const char **ldd_argv
= (const char **) real_ldd_argv
;
2575 /* If we do not have an `ldd', complain. */
2576 if (ldd_file_name
== 0)
2578 error ("cannot find `ldd'");
2582 ldd_argv
[argc
++] = ldd_file_name
;
2583 ldd_argv
[argc
++] = prog_name
;
2584 ldd_argv
[argc
++] = (char *) 0;
2586 if (pipe (pipe_fd
) < 0)
2587 fatal_perror ("pipe");
2589 inf
= fdopen (pipe_fd
[0], "r");
2590 if (inf
== (FILE *) 0)
2591 fatal_perror ("fdopen");
2593 /* Trace if needed. */
2596 const char **p_argv
;
2599 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2600 fprintf (stderr
, " %s", str
);
2602 fprintf (stderr
, "\n");
2608 /* Spawn child ldd on pipe */
2611 fatal_perror (VFORK_STRING
);
2613 if (pid
== 0) /* child context */
2616 if (dup2 (pipe_fd
[1], 1) < 0)
2617 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2619 if (close (pipe_fd
[0]) < 0)
2620 fatal_perror ("close %d", pipe_fd
[0]);
2622 if (close (pipe_fd
[1]) < 0)
2623 fatal_perror ("close %d", pipe_fd
[1]);
2625 execv (ldd_file_name
, real_ldd_argv
);
2626 fatal_perror ("execv %s", ldd_file_name
);
2629 /* Parent context from here on. */
2630 int_handler
= (void (*) PROTO ((int))) signal (SIGINT
, SIG_IGN
);
2632 quit_handler
= (void (*) PROTO ((int))) signal (SIGQUIT
, SIG_IGN
);
2635 if (close (pipe_fd
[1]) < 0)
2636 fatal_perror ("close %d", pipe_fd
[1]);
2639 notice ("\nldd output with constructors/destructors.\n");
2641 /* Read each line of ldd output. */
2642 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2645 char *name
, *end
, *p
= buf
;
2647 /* Extract names of libraries and add to list. */
2648 PARSE_LDD_OUTPUT (p
);
2653 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2654 fatal ("dynamic dependency %s not found", buf
);
2656 /* Find the end of the symbol name. */
2658 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2663 if (access (name
, R_OK
) == 0)
2664 add_to_list (&libraries
, name
);
2666 fatal ("unable to open dynamic dependency '%s'", buf
);
2669 fprintf (stderr
, "\t%s\n", buf
);
2672 fprintf (stderr
, "\n");
2674 if (fclose (inf
) != 0)
2675 fatal_perror ("fclose");
2677 do_wait (ldd_file_name
);
2679 signal (SIGINT
, int_handler
);
2681 signal (SIGQUIT
, quit_handler
);
2684 /* now iterate through the library list adding their symbols to
2686 for (list
= libraries
.first
; list
; list
= list
->next
)
2687 scan_prog_file (list
->name
, PASS_LIB
);
2690 #endif /* LDD_SUFFIX */
2691 #endif /* SUNOS4_SHARED_LIBRARIES */
2693 #endif /* OBJECT_FORMAT_NONE */
2697 * COFF specific stuff.
2700 #ifdef OBJECT_FORMAT_COFF
2702 #if defined(EXTENDED_COFF)
2703 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2704 # define GCC_SYMENT SYMR
2705 # define GCC_OK_SYMBOL(X) ((X).st == stProc || (X).st == stGlobal)
2706 # define GCC_SYMINC(X) (1)
2707 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2708 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2710 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2711 # define GCC_SYMENT SYMENT
2712 # define GCC_OK_SYMBOL(X) \
2713 (((X).n_sclass == C_EXT) && \
2714 ((X).n_scnum > N_UNDEF) && \
2716 || (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) \
2717 || ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT))))
2718 # define GCC_UNDEF_SYMBOL(X) \
2719 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2720 # define GCC_SYMINC(X) ((X).n_numaux+1)
2721 # define GCC_SYMZERO(X) 0
2722 # define GCC_CHECK_HDR(X) \
2723 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2724 || (HEADER (X).f_magic == 0757 && aix64_flag))
2727 extern char *ldgetname ();
2729 /* COFF version to scan the name list of the loaded program for
2730 the symbols g++ uses for static constructors and destructors.
2732 The constructor table begins at __CTOR_LIST__ and contains a count
2733 of the number of pointers (or -1 if the constructors are built in a
2734 separate section by the linker), followed by the pointers to the
2735 constructor functions, terminated with a null pointer. The
2736 destructor table has the same format, and begins at __DTOR_LIST__. */
2739 scan_prog_file (prog_name
, which_pass
)
2740 const char *prog_name
;
2741 enum pass which_pass
;
2743 LDFILE
*ldptr
= NULL
;
2744 int sym_index
, sym_count
;
2746 #ifdef COLLECT_EXPORT_LIST
2747 /* Should we generate an import list for given prog_name? */
2748 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2751 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2754 #ifdef COLLECT_EXPORT_LIST
2755 /* We do not need scanning for some standard C libraries. */
2756 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2759 /* On AIX we have a loop, because there is not much difference
2760 between an object and an archive. This trick allows us to
2761 eliminate scan_libraries() function. */
2765 /* Some platforms (e.g. OSF4) declare ldopen as taking a
2766 non-const char * filename parameter, even though it will not
2767 modify that string. So we must cast away const-ness here,
2768 which will cause -Wcast-qual to burp. */
2769 if ((ldptr
= ldopen ((char *)prog_name
, ldptr
)) != NULL
)
2771 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2772 fatal ("%s: not a COFF file", prog_name
);
2774 if (GCC_CHECK_HDR (ldptr
))
2776 sym_count
= GCC_SYMBOLS (ldptr
);
2777 sym_index
= GCC_SYMZERO (ldptr
);
2779 #ifdef COLLECT_EXPORT_LIST
2780 /* Is current archive member a shared object? */
2781 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2784 while (sym_index
< sym_count
)
2788 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2790 sym_index
+= GCC_SYMINC (symbol
);
2792 if (GCC_OK_SYMBOL (symbol
))
2796 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2797 continue; /* should never happen */
2799 #ifdef XCOFF_DEBUGGING_INFO
2800 /* All AIX function names have a duplicate entry
2801 beginning with a dot. */
2806 switch (is_ctor_dtor (name
))
2809 if (! is_shared
) add_to_list (&constructors
, name
);
2810 #ifdef COLLECT_EXPORT_LIST
2811 if (which_pass
== PASS_OBJ
)
2812 add_to_list (&exports
, name
);
2813 /* If this symbol was undefined and we are building
2814 an import list, we should add a symbol to this
2818 && is_in_list (name
, undefined
.first
))
2819 add_to_list (&imports
, name
);
2824 if (! is_shared
) add_to_list (&destructors
, name
);
2825 #ifdef COLLECT_EXPORT_LIST
2826 if (which_pass
== PASS_OBJ
)
2827 add_to_list (&exports
, name
);
2828 /* If this symbol was undefined and we are building
2829 an import list, we should add a symbol to this
2833 && is_in_list (name
, undefined
.first
))
2834 add_to_list (&imports
, name
);
2838 #ifdef COLLECT_EXPORT_LIST
2841 add_to_list (&constructors
, name
);
2846 add_to_list (&destructors
, name
);
2852 add_to_list (&frame_tables
, name
);
2855 default: /* not a constructor or destructor */
2856 #ifdef COLLECT_EXPORT_LIST
2857 /* If we are building a shared object on AIX we need
2858 to explicitly export all global symbols or add
2859 them to import list. */
2862 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2863 add_to_list (&exports
, name
);
2864 else if (! is_shared
&& which_pass
== PASS_FIRST
2866 && is_in_list(name
, undefined
.first
))
2867 add_to_list (&imports
, name
);
2873 #if !defined(EXTENDED_COFF)
2875 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2876 symbol
.n_scnum
, symbol
.n_sclass
,
2877 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2882 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2883 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2886 #ifdef COLLECT_EXPORT_LIST
2887 /* If we are building a shared object we should collect
2888 information about undefined symbols for later
2889 import list generation. */
2890 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2894 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2895 continue; /* should never happen */
2897 /* All AIX function names have a duplicate entry
2898 beginning with a dot. */
2901 add_to_list (&undefined
, name
);
2906 #ifdef COLLECT_EXPORT_LIST
2909 /* If archive contains both 32-bit and 64-bit objects,
2910 we want to skip objects in other mode so mismatch normal. */
2912 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2913 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2919 fatal ("%s: cannot open as COFF file", prog_name
);
2921 #ifdef COLLECT_EXPORT_LIST
2922 /* On AIX loop continues while there are more members in archive. */
2924 while (ldclose (ldptr
) == FAILURE
);
2926 /* Otherwise we simply close ldptr. */
2927 (void) ldclose(ldptr
);
2932 #ifdef COLLECT_EXPORT_LIST
2934 /* This new function is used to decide whether we should
2935 generate import list for an object or to use it directly. */
2937 use_import_list (prog_name
)
2938 const char *prog_name
;
2942 /* If we do not build a shared object then import list should not be used. */
2943 if (! shared_obj
) return 0;
2945 /* Currently we check only for libgcc, but this can be changed in future. */
2946 p
= strstr (prog_name
, "libgcc.a");
2947 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
2952 /* Given a library name without "lib" prefix, this function
2953 returns a full library name including a path. */
2955 resolve_lib_name (name
)
2961 for (i
= 0; libpaths
[i
]; i
++)
2962 if (libpaths
[i
]->max_len
> l
)
2963 l
= libpaths
[i
]->max_len
;
2965 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
2967 for (i
= 0; libpaths
[i
]; i
++)
2969 struct prefix_list
*list
= libpaths
[i
]->plist
;
2970 for (; list
; list
= list
->next
)
2972 for (j
= 0; libexts
[j
]; j
++)
2974 /* The following lines are needed because path_prefix list
2975 may contain directories both with trailing '/' and
2978 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
2980 sprintf (lib_buf
, "%s%slib%s.%s",
2981 list
->prefix
, p
, name
, libexts
[j
]);
2982 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
2983 if (file_exists (lib_buf
))
2985 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
2992 fprintf (stderr
, "not found\n");
2994 fatal ("Library lib%s not found", name
);
2998 /* Array of standard AIX libraries which should not
2999 be scanned for ctors/dtors. */
3000 static const char *aix_std_libs
[] = {
3005 "/usr/lib/libc_r.a",
3006 "/usr/lib/threads/libc.a",
3007 "/usr/ccs/lib/libc.a",
3008 "/usr/ccs/lib/libc_r.a",
3012 /* This function checks the filename and returns 1
3013 if this name matches the location of a standard AIX library. */
3015 ignore_library (name
)
3018 const char **p
= &aix_std_libs
[0];
3019 while (*p
++ != NULL
)
3020 if (! strcmp (name
, *p
)) return 1;
3026 #endif /* OBJECT_FORMAT_COFF */
3030 * OSF/rose specific stuff.
3033 #ifdef OBJECT_FORMAT_ROSE
3035 /* Union of the various load commands */
3037 typedef union load_union
3039 ldc_header_t hdr
; /* common header */
3040 load_cmd_map_command_t map
; /* map indexing other load cmds */
3041 interpreter_command_t iprtr
; /* interpreter pathname */
3042 strings_command_t str
; /* load commands strings section */
3043 region_command_t region
; /* region load command */
3044 reloc_command_t reloc
; /* relocation section */
3045 package_command_t pkg
; /* package load command */
3046 symbols_command_t sym
; /* symbol sections */
3047 entry_command_t ent
; /* program start section */
3048 gen_info_command_t info
; /* object information */
3049 func_table_command_t func
; /* function constructors/destructors */
3052 /* Structure to point to load command and data section in memory. */
3054 typedef struct load_all
3056 load_union_t
*load
; /* load command */
3057 char *section
; /* pointer to section */
3060 /* Structure to contain information about a file mapped into memory. */
3064 char *start
; /* start of map */
3065 char *name
; /* filename */
3066 long size
; /* size of the file */
3067 long rounded_size
; /* size rounded to page boundary */
3068 int fd
; /* file descriptor */
3069 int rw
; /* != 0 if opened read/write */
3070 int use_mmap
; /* != 0 if mmap'ed */
3073 extern int decode_mach_o_hdr ();
3074 extern int encode_mach_o_hdr ();
3076 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3077 symbol_info_t
*, int));
3078 static void print_header
PROTO((mo_header_t
*));
3079 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3080 static void bad_header
PROTO((int));
3081 static struct file_info
*read_file
PROTO((const char *, int, int));
3082 static void end_file
PROTO((struct file_info
*));
3084 /* OSF/rose specific version to scan the name list of the loaded
3085 program for the symbols g++ uses for static constructors and
3088 The constructor table begins at __CTOR_LIST__ and contains a count
3089 of the number of pointers (or -1 if the constructors are built in a
3090 separate section by the linker), followed by the pointers to the
3091 constructor functions, terminated with a null pointer. The
3092 destructor table has the same format, and begins at __DTOR_LIST__. */
3095 scan_prog_file (prog_name
, which_pass
)
3096 const char *prog_name
;
3097 enum pass which_pass
;
3101 load_all_t
*load_array
;
3102 load_all_t
*load_end
;
3103 load_all_t
*load_cmd
;
3104 int symbol_load_cmds
;
3110 struct file_info
*obj_file
;
3112 mo_lcid_t cmd_strings
= -1;
3113 symbol_info_t
*main_sym
= 0;
3114 int rw
= (which_pass
!= PASS_FIRST
);
3116 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3118 fatal_perror ("open %s", prog_name
);
3120 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3121 obj
= obj_file
->start
;
3123 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3124 if (status
!= MO_HDR_CONV_SUCCESS
)
3125 bad_header (status
);
3128 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3129 since the hardware will automatically swap bytes for us on loading little endian
3132 #ifndef CROSS_COMPILE
3133 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3134 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3135 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3136 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3137 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3138 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3139 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3141 fatal ("incompatibilities between object file & expected values");
3146 print_header (&hdr
);
3148 offset
= hdr
.moh_first_cmd_off
;
3149 load_end
= load_array
3150 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3152 /* Build array of load commands, calculating the offsets */
3153 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3155 load_union_t
*load_hdr
; /* load command header */
3157 load_cmd
= load_end
++;
3158 load_hdr
= (load_union_t
*) (obj
+ offset
);
3160 /* If modifying the program file, copy the header. */
3163 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3164 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3167 /* null out old command map, because we will rewrite at the end. */
3168 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3170 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3171 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3175 load_cmd
->load
= load_hdr
;
3176 if (load_hdr
->hdr
.ldci_section_off
> 0)
3177 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3180 print_load_command (load_hdr
, offset
, i
);
3182 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3185 /* If the last command is the load command map and is not undefined,
3186 decrement the count of load commands. */
3187 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3190 hdr
.moh_n_load_cmds
--;
3193 /* Go through and process each symbol table section. */
3194 symbol_load_cmds
= 0;
3195 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3197 load_union_t
*load_hdr
= load_cmd
->load
;
3199 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3205 const char *kind
= "unknown";
3207 switch (load_hdr
->sym
.symc_kind
)
3209 case SYMC_IMPORTS
: kind
= "imports"; break;
3210 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3211 case SYMC_STABS
: kind
= "stabs"; break;
3214 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3215 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3218 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3221 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3222 if (str_sect
== (char *) 0)
3223 fatal ("string section missing");
3225 if (load_cmd
->section
== (char *) 0)
3226 fatal ("section pointer missing");
3228 num_syms
= load_hdr
->sym
.symc_nentries
;
3229 for (i
= 0; i
< num_syms
; i
++)
3231 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3232 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3239 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3241 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3251 switch (is_ctor_dtor (name
))
3254 add_to_list (&constructors
, name
);
3258 add_to_list (&destructors
, name
);
3261 default: /* not a constructor or destructor */
3267 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3268 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3273 if (symbol_load_cmds
== 0)
3274 fatal ("no symbol table found");
3276 /* Update the program file now, rewrite header and load commands. At present,
3277 we assume that there is enough space after the last load command to insert
3278 one more. Since the first section written out is page aligned, and the
3279 number of load commands is small, this is ok for the present. */
3283 load_union_t
*load_map
;
3286 if (cmd_strings
== -1)
3287 fatal ("no cmd_strings found");
3289 /* Add __main to initializer list.
3290 If we are building a program instead of a shared library, do not
3291 do anything, since in the current version, you cannot do mallocs
3292 and such in the constructors. */
3294 if (main_sym
!= (symbol_info_t
*) 0
3295 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3296 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3299 notice ("\nUpdating header and load commands.\n\n");
3301 hdr
.moh_n_load_cmds
++;
3302 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3304 /* Create new load command map. */
3306 notice ("load command map, %d cmds, new size %ld.\n",
3307 (int) hdr
.moh_n_load_cmds
, (long) size
);
3309 load_map
= (load_union_t
*) xcalloc (1, size
);
3310 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3311 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3312 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3313 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3314 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3316 offset
= hdr
.moh_first_cmd_off
;
3317 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3319 load_map
->map
.lcm_map
[i
] = offset
;
3320 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3321 hdr
.moh_load_map_cmd_off
= offset
;
3323 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3326 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3329 print_header (&hdr
);
3332 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3333 if (status
!= MO_HDR_CONV_SUCCESS
)
3334 bad_header (status
);
3337 notice ("writing load commands.\n\n");
3339 /* Write load commands */
3340 offset
= hdr
.moh_first_cmd_off
;
3341 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3343 load_union_t
*load_hdr
= load_array
[i
].load
;
3344 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3347 print_load_command (load_hdr
, offset
, i
);
3349 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3354 end_file (obj_file
);
3356 if (close (prog_fd
))
3357 fatal_perror ("close %s", prog_name
);
3360 fprintf (stderr
, "\n");
3364 /* Add a function table to the load commands to call a function
3365 on initiation or termination of the process. */
3368 add_func_table (hdr_p
, load_array
, sym
, type
)
3369 mo_header_t
*hdr_p
; /* pointer to global header */
3370 load_all_t
*load_array
; /* array of ptrs to load cmds */
3371 symbol_info_t
*sym
; /* pointer to symbol entry */
3372 int type
; /* fntc_type value */
3374 /* Add a new load command. */
3375 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3376 int load_index
= num_cmds
- 1;
3377 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3378 load_union_t
*ptr
= xcalloc (1, size
);
3379 load_all_t
*load_cmd
;
3382 /* Set the unresolved address bit in the header to force the loader to be
3383 used, since kernel exec does not call the initialization functions. */
3384 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3386 load_cmd
= &load_array
[load_index
];
3387 load_cmd
->load
= ptr
;
3388 load_cmd
->section
= (char *) 0;
3390 /* Fill in func table load command. */
3391 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3392 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3393 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3394 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3395 ptr
->func
.fntc_type
= type
;
3396 ptr
->func
.fntc_nentries
= 1;
3398 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3399 /* Is the symbol already expressed as (region, offset)? */
3400 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3402 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3403 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3406 /* If not, figure out which region it's in. */
3409 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3412 for (i
= 0; i
< load_index
; i
++)
3414 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3416 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3418 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3419 && addr
>= region_ptr
->regc_addr
.vm_addr
3420 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3422 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3423 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3431 fatal ("could not convert 0x%l.8x into a region", addr
);
3435 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3436 type
== FNTC_INITIALIZATION
? "init" : "term",
3437 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3438 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3439 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3444 /* Print the global header for an OSF/rose object. */
3447 print_header (hdr_ptr
)
3448 mo_header_t
*hdr_ptr
;
3450 fprintf (stderr
, "\nglobal header:\n");
3451 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3452 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3453 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3454 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3455 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3456 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3457 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3458 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3459 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3460 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3461 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3462 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3463 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3464 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3465 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3467 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3468 fprintf (stderr
, ", relocatable");
3470 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3471 fprintf (stderr
, ", linkable");
3473 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3474 fprintf (stderr
, ", execable");
3476 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3477 fprintf (stderr
, ", executable");
3479 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3480 fprintf (stderr
, ", unresolved");
3482 fprintf (stderr
, "\n\n");
3487 /* Print a short summary of a load command. */
3490 print_load_command (load_hdr
, offset
, number
)
3491 load_union_t
*load_hdr
;
3495 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3496 const char *type_str
= (char *) 0;
3500 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3501 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3502 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3503 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3504 case LDC_REGION
: type_str
= "REGION"; break;
3505 case LDC_RELOC
: type_str
= "RELOC"; break;
3506 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3507 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3508 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3509 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3510 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3514 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3516 (long) load_hdr
->hdr
.ldci_cmd_size
,
3518 (long) load_hdr
->hdr
.ldci_section_off
,
3519 (long) load_hdr
->hdr
.ldci_section_len
);
3521 if (type_str
== (char *) 0)
3522 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3524 else if (type
!= LDC_REGION
)
3525 fprintf (stderr
, ", ty: %s\n", type_str
);
3529 const char *region
= "";
3530 switch (load_hdr
->region
.regc_usage_type
)
3532 case REG_TEXT_T
: region
= ", .text"; break;
3533 case REG_DATA_T
: region
= ", .data"; break;
3534 case REG_BSS_T
: region
= ", .bss"; break;
3535 case REG_GLUE_T
: region
= ", .glue"; break;
3536 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3537 case REG_RDATA_T
: region
= ", .rdata"; break;
3538 case REG_SDATA_T
: region
= ", .sdata"; break;
3539 case REG_SBSS_T
: region
= ", .sbss"; break;
3543 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3545 (long) load_hdr
->region
.regc_vm_addr
,
3546 (long) load_hdr
->region
.regc_vm_size
,
3554 /* Fatal error when {en,de}code_mach_o_header fails. */
3562 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3563 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3564 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3565 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3566 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3567 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3569 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3574 /* Read a file into a memory buffer. */
3576 static struct file_info
*
3577 read_file (name
, fd
, rw
)
3578 const char *name
; /* filename */
3579 int fd
; /* file descriptor */
3580 int rw
; /* read/write */
3582 struct stat stat_pkt
;
3583 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3585 static int page_size
;
3588 if (fstat (fd
, &stat_pkt
) < 0)
3589 fatal_perror ("fstat %s", name
);
3592 p
->size
= stat_pkt
.st_size
;
3593 p
->rounded_size
= stat_pkt
.st_size
;
3599 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3602 page_size
= sysconf (_SC_PAGE_SIZE
);
3604 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3605 p
->start
= mmap ((caddr_t
) 0,
3606 (rw
) ? p
->rounded_size
: p
->size
,
3607 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3608 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3612 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3616 #endif /* USE_MMAP */
3621 fprintf (stderr
, "read %s\n", name
);
3624 p
->start
= xmalloc (p
->size
);
3625 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3626 fatal_perror ("lseek %s 0", name
);
3628 len
= read (fd
, p
->start
, p
->size
);
3630 fatal_perror ("read %s", name
);
3633 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3639 /* Do anything necessary to write a file back from memory. */
3643 struct file_info
*ptr
; /* file information block */
3651 fprintf (stderr
, "msync %s\n", ptr
->name
);
3653 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3654 fatal_perror ("msync %s", ptr
->name
);
3658 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3660 if (munmap (ptr
->start
, ptr
->size
))
3661 fatal_perror ("munmap %s", ptr
->name
);
3664 #endif /* USE_MMAP */
3671 fprintf (stderr
, "write %s\n", ptr
->name
);
3673 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3674 fatal_perror ("lseek %s 0", ptr
->name
);
3676 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3678 fatal_perror ("write %s", ptr
->name
);
3680 if (len
!= ptr
->size
)
3681 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3690 #endif /* OBJECT_FORMAT_ROSE */