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)
52 /* Obstack allocation and deallocation routines. */
53 #define obstack_chunk_alloc xmalloc
54 #define obstack_chunk_free free
56 /* On certain systems, we have code that works by scanning the object file
57 directly. But this code uses system-specific header files and library
58 functions, so turn it off in a cross-compiler. Likewise, the names of
59 the utilities are not correct for a cross-compiler; we have to hope that
60 cross-versions are in the proper directories. */
63 #undef SUNOS4_SHARED_LIBRARIES
64 #undef OBJECT_FORMAT_COFF
65 #undef OBJECT_FORMAT_ROSE
67 #undef REAL_LD_FILE_NAME
68 #undef REAL_NM_FILE_NAME
69 #undef REAL_STRIP_FILE_NAME
72 /* If we cannot use a special method, use the ordinary one:
73 run nm to find what symbols are present.
74 In a cross-compiler, this means you need a cross nm,
75 but that is not quite as unpleasant as special headers. */
77 #if !defined (OBJECT_FORMAT_COFF) && !defined (OBJECT_FORMAT_ROSE)
78 #define OBJECT_FORMAT_NONE
81 #ifdef OBJECT_FORMAT_COFF
90 /* Many versions of ldfcn.h define these. */
98 /* Some systems have an ISCOFF macro, but others do not. In some cases
99 the macro may be wrong. MY_ISCOFF is defined in tm.h files for machines
100 that either do not have an ISCOFF macro in /usr/include or for those
101 where it is wrong. */
104 #define MY_ISCOFF(X) ISCOFF (X)
107 #endif /* OBJECT_FORMAT_COFF */
109 #ifdef OBJECT_FORMAT_ROSE
116 #include <sys/mman.h>
120 #include <mach_o_format.h>
121 #include <mach_o_header.h>
122 #include <mach_o_vals.h>
123 #include <mach_o_types.h>
125 #endif /* OBJECT_FORMAT_ROSE */
127 #ifdef OBJECT_FORMAT_NONE
129 /* Default flags to pass to nm. */
131 #define NM_FLAGS "-n"
134 #endif /* OBJECT_FORMAT_NONE */
136 /* Some systems use __main in a way incompatible with its use in gcc, in these
137 cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
138 give the same symbol without quotes for an alternative entry point. You
139 must define both, or neither. */
141 #define NAME__MAIN "__main"
142 #define SYMBOL__MAIN __main
145 /* This must match tree.h. */
146 #define DEFAULT_INIT_PRIORITY 65535
148 #if defined (LDD_SUFFIX) || SUNOS4_SHARED_LIBRARIES
149 #define SCAN_LIBRARIES
153 int do_collecting
= 1;
155 int do_collecting
= 0;
158 /* Linked lists of constructor and destructor names. */
174 /* Enumeration giving which pass this is for scanning the program file. */
177 PASS_FIRST
, /* without constructors */
178 PASS_OBJ
, /* individual objects */
179 PASS_LIB
, /* looking for shared libraries */
180 PASS_SECOND
/* with constructors linked in */
183 extern char *version_string
;
185 int vflag
; /* true if -v */
186 static int rflag
; /* true if -r */
187 static int strip_flag
; /* true if -s */
188 #ifdef COLLECT_EXPORT_LIST
189 static int export_flag
; /* true if -bE */
190 static int aix64_flag
; /* true if -b64 */
193 int debug
; /* true if -debug */
195 static int shared_obj
; /* true if -shared */
197 static const char *c_file
; /* <xxx>.c for constructor/destructor list. */
198 static const char *o_file
; /* <xxx>.o for constructor/destructor list. */
199 #ifdef COLLECT_EXPORT_LIST
200 static const char *export_file
; /* <xxx>.x for AIX export list. */
201 static const char *import_file
; /* <xxx>.p for AIX import list. */
203 const char *ldout
; /* File for ld errors. */
204 static const char *output_file
; /* Output file for ld. */
205 static const char *nm_file_name
; /* pathname of nm */
207 static const char *ldd_file_name
; /* pathname of ldd (or equivalent) */
209 static const char *strip_file_name
; /* pathname of strip */
210 const char *c_file_name
; /* pathname of gcc */
211 static char *initname
, *fininame
; /* names of init and fini funcs */
213 static struct head constructors
; /* list of constructors found */
214 static struct head destructors
; /* list of destructors found */
215 #ifdef COLLECT_EXPORT_LIST
216 static struct head exports
; /* list of exported symbols */
217 static struct head imports
; /* list of imported symbols */
218 static struct head undefined
; /* list of undefined symbols */
220 static struct head frame_tables
; /* list of frame unwind info tables */
222 struct obstack temporary_obstack
;
223 struct obstack permanent_obstack
;
224 char * temporary_firstobj
;
226 /* Holds the return value of pexecute. */
229 /* Defined in the automatically-generated underscore.c. */
230 extern int prepends_underscore
;
232 #ifndef GET_ENV_PATH_LIST
233 #define GET_ENV_PATH_LIST(VAR,NAME) do { (VAR) = getenv (NAME); } while (0)
236 /* Structure to hold all the directories in which to search for files to
241 const char *prefix
; /* String to prepend to the path. */
242 struct prefix_list
*next
; /* Next in linked list. */
247 struct prefix_list
*plist
; /* List of prefixes to try */
248 int max_len
; /* Max length of a prefix in PLIST */
249 const char *name
; /* Name of this list (used in config stuff) */
252 #ifdef COLLECT_EXPORT_LIST
253 /* Lists to keep libraries to be scanned for global constructors/destructors. */
254 static struct head libs
; /* list of libraries */
255 static struct path_prefix cmdline_lib_dirs
; /* directories specified with -L */
256 static struct path_prefix libpath_lib_dirs
; /* directories in LIBPATH */
257 static struct path_prefix
*libpaths
[3] = {&cmdline_lib_dirs
,
258 &libpath_lib_dirs
, NULL
};
259 static const char *libexts
[3] = {"a", "so", NULL
}; /* possible library extentions */
262 static void handler
PROTO((int));
263 static int is_ctor_dtor
PROTO((const char *));
264 static char *find_a_file
PROTO((struct path_prefix
*, const char *));
265 static void add_prefix
PROTO((struct path_prefix
*, const char *));
266 static void prefix_from_env
PROTO((const char *, struct path_prefix
*));
267 static void prefix_from_string
PROTO((const char *, struct path_prefix
*));
268 static void do_wait
PROTO((const char *));
269 static void fork_execute
PROTO((const char *, char **));
270 static void maybe_unlink
PROTO((const char *));
271 static void add_to_list
PROTO((struct head
*, const char *));
272 static int extract_init_priority
PROTO((const char *));
273 static void sort_ids
PROTO((struct head
*));
274 static void write_list
PROTO((FILE *, const char *, struct id
*));
275 #ifdef COLLECT_EXPORT_LIST
276 static void dump_list
PROTO((FILE *, const char *, struct id
*));
279 static void dump_prefix_list
PROTO((FILE *, const char *, struct prefix_list
*));
281 static void write_list_with_asm
PROTO((FILE *, const char *, struct id
*));
282 static void write_c_file
PROTO((FILE *, const char *));
283 static void write_c_file_stat
PROTO((FILE *, const char *));
284 #ifndef LD_INIT_SWITCH
285 static void write_c_file_glob
PROTO((FILE *, const char *));
287 static void scan_prog_file
PROTO((const char *, enum pass
));
288 #ifdef SCAN_LIBRARIES
289 static void scan_libraries
PROTO((const char *));
291 #ifdef COLLECT_EXPORT_LIST
292 static int is_in_list
PROTO((const char *, struct id
*));
293 static void write_aix_file
PROTO((FILE *, struct id
*));
294 static char *resolve_lib_name
PROTO((const char *));
295 static int use_import_list
PROTO((const char *));
296 static int ignore_library
PROTO((const char *));
298 static char *extract_string
PROTO((const char **));
313 while ((fd
= dup (oldfd
)) != newfd
&& fd
>= 0) /* good enough for low fd's */
316 close (fdtmp
[--fdx
]);
322 /* Delete tempfiles and exit function. */
325 collect_exit (status
)
328 if (c_file
!= 0 && c_file
[0])
329 maybe_unlink (c_file
);
331 if (o_file
!= 0 && o_file
[0])
332 maybe_unlink (o_file
);
334 #ifdef COLLECT_EXPORT_LIST
335 if (export_file
!= 0 && export_file
[0])
336 maybe_unlink (export_file
);
338 if (import_file
!= 0 && import_file
[0])
339 maybe_unlink (import_file
);
342 if (ldout
!= 0 && ldout
[0])
345 maybe_unlink (ldout
);
348 if (status
!= 0 && output_file
!= 0 && output_file
[0])
349 maybe_unlink (output_file
);
355 /* Notify user of a non-error. */
357 notice
VPROTO((const char *msgid
, ...))
359 #ifndef ANSI_PROTOTYPES
364 VA_START (ap
, msgid
);
366 #ifndef ANSI_PROTOTYPES
367 msgid
= va_arg (ap
, const char *);
370 vfprintf (stderr
, _(msgid
), ap
);
374 /* Die when sys call fails. */
377 fatal_perror
VPROTO((const char * msgid
, ...))
379 #ifndef ANSI_PROTOTYPES
385 VA_START (ap
, msgid
);
387 #ifndef ANSI_PROTOTYPES
388 msgid
= va_arg (ap
, const char *);
391 fprintf (stderr
, "collect2: ");
392 vfprintf (stderr
, _(msgid
), ap
);
393 fprintf (stderr
, ": %s\n", xstrerror (e
));
396 collect_exit (FATAL_EXIT_CODE
);
402 fatal
VPROTO((const char * msgid
, ...))
404 #ifndef ANSI_PROTOTYPES
409 VA_START (ap
, msgid
);
411 #ifndef ANSI_PROTOTYPES
412 msgid
= va_arg (ap
, const char *);
415 fprintf (stderr
, "collect2: ");
416 vfprintf (stderr
, _(msgid
), ap
);
417 fprintf (stderr
, "\n");
420 collect_exit (FATAL_EXIT_CODE
);
423 /* Write error message. */
426 error
VPROTO((const char * msgid
, ...))
428 #ifndef ANSI_PROTOTYPES
433 VA_START (ap
, msgid
);
435 #ifndef ANSI_PROTOTYPES
436 msgid
= va_arg (ap
, const char *);
439 fprintf (stderr
, "collect2: ");
440 vfprintf (stderr
, _(msgid
), ap
);
441 fprintf (stderr
, "\n");
445 /* In case obstack is linked in, and abort is defined to fancy_abort,
446 provide a default entry. */
451 fatal ("internal error");
458 if (c_file
!= 0 && c_file
[0])
459 maybe_unlink (c_file
);
461 if (o_file
!= 0 && o_file
[0])
462 maybe_unlink (o_file
);
464 if (ldout
!= 0 && ldout
[0])
465 maybe_unlink (ldout
);
467 #ifdef COLLECT_EXPORT_LIST
468 if (export_file
!= 0 && export_file
[0])
469 maybe_unlink (export_file
);
471 if (import_file
!= 0 && import_file
[0])
472 maybe_unlink (import_file
);
475 signal (signo
, SIG_DFL
);
476 kill (getpid (), signo
);
484 return access (name
, R_OK
) == 0;
487 /* Parse a reasonable subset of shell quoting syntax. */
504 obstack_1grow (&temporary_obstack
, c
);
505 else if (! inside
&& c
== ' ')
507 else if (! inside
&& c
== '\\')
512 obstack_1grow (&temporary_obstack
, c
);
515 obstack_1grow (&temporary_obstack
, '\0');
517 return obstack_finish (&temporary_obstack
);
524 FILE *stream
= fopen (name
, "r");
525 int no_demangle
= !! getenv ("COLLECT_NO_DEMANGLE");
532 while (c
= getc (stream
),
533 c
!= EOF
&& (ISALNUM (c
) || c
== '_' || c
== '$' || c
== '.'))
534 obstack_1grow (&temporary_obstack
, c
);
535 if (obstack_object_size (&temporary_obstack
) > 0)
537 const char *word
, *p
;
539 obstack_1grow (&temporary_obstack
, '\0');
540 word
= obstack_finish (&temporary_obstack
);
543 ++word
, putc ('.', stderr
);
545 if (*p
== '_' && prepends_underscore
)
551 result
= cplus_demangle (p
, DMGL_PARAMS
| DMGL_ANSI
);
556 fputs (result
, stderr
);
558 diff
= strlen (word
) - strlen (result
);
560 --diff
, putc (' ', stderr
);
561 while (diff
< 0 && c
== ' ')
562 ++diff
, c
= getc (stream
);
567 fputs (word
, stderr
);
570 obstack_free (&temporary_obstack
, temporary_firstobj
);
579 /* Decide whether the given symbol is:
580 a constructor (1), a destructor (2), or neither (0). */
586 struct names
{ const char *name
; int len
; int ret
; int two_underscores
; };
588 register struct names
*p
;
590 register const char *orig_s
= s
;
592 static struct names special
[] = {
593 #ifdef NO_DOLLAR_IN_LABEL
594 #ifdef NO_DOT_IN_LABEL
595 { "GLOBAL__I_", sizeof ("GLOBAL__I_")-1, 1, 0 },
596 { "GLOBAL__D_", sizeof ("GLOBAL__D_")-1, 2, 0 },
597 { "GLOBAL__F_", sizeof ("GLOBAL__F_")-1, 5, 0 },
599 { "GLOBAL_.I.", sizeof ("GLOBAL_.I.")-1, 1, 0 },
600 { "GLOBAL_.D.", sizeof ("GLOBAL_.D.")-1, 2, 0 },
601 { "GLOBAL_.F.", sizeof ("GLOBAL_.F.")-1, 5, 0 },
604 { "GLOBAL_$I$", sizeof ("GLOBAL_$I$")-1, 1, 0 },
605 { "GLOBAL_$D$", sizeof ("GLOBAL_$D$")-1, 2, 0 },
606 { "GLOBAL_$F$", sizeof ("GLOBAL_$F$")-1, 5, 0 },
608 { "GLOBAL__FI_", sizeof ("GLOBAL__FI_")-1, 3, 0 },
609 { "GLOBAL__FD_", sizeof ("GLOBAL__FD_")-1, 4, 0 },
610 #ifdef CFRONT_LOSSAGE /* Do not collect cfront initialization functions.
611 cfront has its own linker procedure to collect them;
612 if collect2 gets them too, they get collected twice
613 when the cfront procedure is run and the compiler used
614 for linking happens to be GCC. */
615 { "sti__", sizeof ("sti__")-1, 1, 1 },
616 { "std__", sizeof ("std__")-1, 2, 1 },
617 #endif /* CFRONT_LOSSAGE */
621 while ((ch
= *s
) == '_')
627 for (p
= &special
[0]; p
->len
> 0; p
++)
630 && (!p
->two_underscores
|| ((s
- orig_s
) >= 2))
631 && strncmp(s
, p
->name
, p
->len
) == 0)
639 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
640 and one from the PATH variable. */
642 static struct path_prefix cpath
, path
;
645 /* This is the name of the target machine. We use it to form the name
646 of the files to execute. */
648 static const char *const target_machine
= TARGET_MACHINE
;
651 /* Search for NAME using prefix list PPREFIX. We only look for executable
654 Return 0 if not found, otherwise return its name, allocated with malloc. */
657 find_a_file (pprefix
, name
)
658 struct path_prefix
*pprefix
;
662 struct prefix_list
*pl
;
663 int len
= pprefix
->max_len
+ strlen (name
) + 1;
666 fprintf (stderr
, "Looking for '%s'\n", name
);
668 #ifdef EXECUTABLE_SUFFIX
669 len
+= strlen (EXECUTABLE_SUFFIX
);
672 temp
= xmalloc (len
);
674 /* Determine the filename to execute (special case for absolute paths). */
677 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
678 || (*name
&& name
[1] == ':')
682 if (access (name
, X_OK
) == 0)
687 fprintf (stderr
, " - found: absolute path\n");
692 #ifdef EXECUTABLE_SUFFIX
693 /* Some systems have a suffix for executable files.
694 So try appending that. */
696 strcat (temp
, EXECUTABLE_SUFFIX
);
698 if (access (temp
, X_OK
) == 0)
703 fprintf (stderr
, " - failed to locate using absolute path\n");
706 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
710 strcpy (temp
, pl
->prefix
);
713 if (stat (temp
, &st
) >= 0
714 && ! S_ISDIR (st
.st_mode
)
715 && access (temp
, X_OK
) == 0)
718 #ifdef EXECUTABLE_SUFFIX
719 /* Some systems have a suffix for executable files.
720 So try appending that. */
721 strcat (temp
, EXECUTABLE_SUFFIX
);
723 if (stat (temp
, &st
) >= 0
724 && ! S_ISDIR (st
.st_mode
)
725 && access (temp
, X_OK
) == 0)
730 if (debug
&& pprefix
->plist
== NULL
)
731 fprintf (stderr
, " - failed: no entries in prefix list\n");
737 /* Add an entry for PREFIX to prefix list PPREFIX. */
740 add_prefix (pprefix
, prefix
)
741 struct path_prefix
*pprefix
;
744 struct prefix_list
*pl
, **prev
;
749 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
754 prev
= &pprefix
->plist
;
756 /* Keep track of the longest prefix */
758 len
= strlen (prefix
);
759 if (len
> pprefix
->max_len
)
760 pprefix
->max_len
= len
;
762 pl
= (struct prefix_list
*) xmalloc (sizeof (struct prefix_list
));
763 pl
->prefix
= xstrdup (prefix
);
768 pl
->next
= (struct prefix_list
*) 0;
772 /* Take the value of the environment variable ENV, break it into a path, and
773 add of the entries to PPREFIX. */
776 prefix_from_env (env
, pprefix
)
778 struct path_prefix
*pprefix
;
781 GET_ENV_PATH_LIST (p
, env
);
784 prefix_from_string (p
, pprefix
);
788 prefix_from_string (p
, pprefix
)
790 struct path_prefix
*pprefix
;
792 const char *startp
, *endp
;
793 char *nstore
= (char *) xmalloc (strlen (p
) + 3);
796 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
801 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
803 strncpy (nstore
, startp
, endp
-startp
);
806 strcpy (nstore
, "./");
808 else if (! IS_DIR_SEPARATOR (endp
[-1]))
810 nstore
[endp
-startp
] = DIR_SEPARATOR
;
811 nstore
[endp
-startp
+1] = 0;
814 nstore
[endp
-startp
] = 0;
817 fprintf (stderr
, " - add prefix: %s\n", nstore
);
819 add_prefix (pprefix
, nstore
);
822 endp
= startp
= endp
+ 1;
831 int main
PROTO ((int, char *[]));
837 const char *ld_suffix
= "ld";
838 const char *full_ld_suffix
= ld_suffix
;
839 const char *real_ld_suffix
= "real-ld";
840 const char *collect_ld_suffix
= "collect-ld";
841 const char *nm_suffix
= "nm";
842 const char *full_nm_suffix
= nm_suffix
;
843 const char *gnm_suffix
= "gnm";
844 const char *full_gnm_suffix
= gnm_suffix
;
846 const char *ldd_suffix
= LDD_SUFFIX
;
847 const char *full_ldd_suffix
= ldd_suffix
;
849 const char *strip_suffix
= "strip";
850 const char *full_strip_suffix
= strip_suffix
;
851 const char *gstrip_suffix
= "gstrip";
852 const char *full_gstrip_suffix
= gstrip_suffix
;
855 #ifdef COLLECT_EXPORT_LIST
859 const char *ld_file_name
;
870 int num_c_args
= argc
+9;
872 #if defined (COLLECT2_HOST_INITIALIZATION)
873 /* Perform system dependant initialization, if neccessary. */
874 COLLECT2_HOST_INITIALIZATION
;
877 #ifdef HAVE_LC_MESSAGES
878 setlocale (LC_MESSAGES
, "");
880 (void) bindtextdomain (PACKAGE
, localedir
);
881 (void) textdomain (PACKAGE
);
883 /* Do not invoke xcalloc before this point, since locale needs to be
884 set first, in case a diagnostic is issued. */
886 ld1
= (const char **)(ld1_argv
= (char **) xcalloc(sizeof (char *), argc
+3));
887 ld2
= (const char **)(ld2_argv
= (char **) xcalloc(sizeof (char *), argc
+10));
888 object
= (const char **)(object_lst
= (char **) xcalloc(sizeof (char *), argc
));
894 /* Parse command line early for instances of -debug. This allows
895 the debug flag to be set before functions like find_a_file()
900 for (i
= 1; argv
[i
] != NULL
; i
++)
901 if (! strcmp (argv
[i
], "-debug"))
906 #ifndef DEFAULT_A_OUT_NAME
907 output_file
= "a.out";
909 output_file
= DEFAULT_A_OUT_NAME
;
912 obstack_begin (&temporary_obstack
, 0);
913 obstack_begin (&permanent_obstack
, 0);
914 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
916 current_demangling_style
= gnu_demangling
;
917 p
= getenv ("COLLECT_GCC_OPTIONS");
920 const char *q
= extract_string (&p
);
921 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
924 obstack_free (&temporary_obstack
, temporary_firstobj
);
926 /* -fno-exceptions -w */
929 c_ptr
= (const char **)
930 (c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
));
933 fatal ("no arguments");
936 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
937 signal (SIGQUIT
, handler
);
939 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
940 signal (SIGINT
, handler
);
942 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
943 signal (SIGALRM
, handler
);
946 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
947 signal (SIGHUP
, handler
);
949 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
950 signal (SIGSEGV
, handler
);
952 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
953 signal (SIGBUS
, handler
);
956 /* Extract COMPILER_PATH and PATH into our prefix list. */
957 prefix_from_env ("COMPILER_PATH", &cpath
);
958 prefix_from_env ("PATH", &path
);
961 /* If we look for a program in the compiler directories, we just use
962 the short name, since these directories are already system-specific.
963 But it we look for a program in the system directories, we need to
964 qualify the program name with the target machine. */
966 full_ld_suffix
= concat(target_machine
, "-", ld_suffix
, NULL
);
969 full_gld_suffix
= concat (target_machine
, "-", gld_suffix
, NULL
);
972 full_nm_suffix
= concat (target_machine
, "-", nm_suffix
, NULL
);
974 full_gnm_suffix
= concat (target_machine
, "-", gnm_suffix
, NULL
);
977 full_ldd_suffix
= concat (target_machine
, "-", ldd_suffix
, NULL
);
980 full_strip_suffix
= concat (target_machine
, "-", strip_suffix
, NULL
);
982 full_gstrip_suffix
= concat (target_machine
, "-", gstrip_suffix
, NULL
);
983 #endif /* CROSS_COMPILE */
985 /* Try to discover a valid linker/nm/strip to use. */
987 /* Maybe we know the right file to use (if not cross). */
989 #ifdef DEFAULT_LINKER
990 if (access (DEFAULT_LINKER
, X_OK
) == 0)
991 ld_file_name
= DEFAULT_LINKER
;
992 if (ld_file_name
== 0)
994 #ifdef REAL_LD_FILE_NAME
995 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
996 if (ld_file_name
== 0)
998 /* Search the (target-specific) compiler dirs for ld'. */
999 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1000 /* Likewise for `collect-ld'. */
1001 if (ld_file_name
== 0)
1002 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1003 /* Search the compiler directories for `ld'. We have protection against
1004 recursive calls in find_a_file. */
1005 if (ld_file_name
== 0)
1006 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1007 /* Search the ordinary system bin directories
1008 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1009 if (ld_file_name
== 0)
1010 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1012 #ifdef REAL_NM_FILE_NAME
1013 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1014 if (nm_file_name
== 0)
1016 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1017 if (nm_file_name
== 0)
1018 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1019 if (nm_file_name
== 0)
1020 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1021 if (nm_file_name
== 0)
1022 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1025 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1026 if (ldd_file_name
== 0)
1027 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1030 #ifdef REAL_STRIP_FILE_NAME
1031 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1032 if (strip_file_name
== 0)
1034 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1035 if (strip_file_name
== 0)
1036 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1037 if (strip_file_name
== 0)
1038 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1039 if (strip_file_name
== 0)
1040 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1042 /* Determine the full path name of the C compiler to use. */
1043 c_file_name
= getenv ("COLLECT_GCC");
1044 if (c_file_name
== 0)
1046 #ifdef CROSS_COMPILE
1047 c_file_name
= concat (target_machine
, "-gcc", NULL
);
1049 c_file_name
= "gcc";
1053 p
= find_a_file (&cpath
, c_file_name
);
1055 /* Here it should be safe to use the system search path since we should have
1056 already qualified the name of the compiler when it is needed. */
1058 p
= find_a_file (&path
, c_file_name
);
1063 *ld1
++ = *ld2
++ = ld_file_name
;
1065 /* Make temp file names. */
1066 c_file
= make_temp_file (".c");
1067 o_file
= make_temp_file (".o");
1068 #ifdef COLLECT_EXPORT_LIST
1069 export_file
= make_temp_file (".x");
1070 import_file
= make_temp_file (".p");
1072 ldout
= make_temp_file (".ld");
1073 *c_ptr
++ = c_file_name
;
1080 #ifdef COLLECT_EXPORT_LIST
1081 /* Generate a list of directories from LIBPATH. */
1082 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1083 /* Add to this list also two standard directories where
1084 AIX loader always searches for libraries. */
1085 add_prefix (&libpath_lib_dirs
, "/lib");
1086 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1089 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1091 AIX support needs to know if -shared has been specified before
1092 parsing commandline arguments. */
1094 p
= getenv ("COLLECT_GCC_OPTIONS");
1097 const char *q
= extract_string (&p
);
1098 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1099 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1100 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1101 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1102 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1105 obstack_free (&temporary_obstack
, temporary_firstobj
);
1106 *c_ptr
++ = "-fno-exceptions";
1109 /* !!! When GCC calls collect2,
1110 it does not know whether it is calling collect2 or ld.
1111 So collect2 cannot meaningfully understand any options
1112 except those ld understands.
1113 If you propose to make GCC pass some other option,
1114 just imagine what will happen if ld is really ld!!! */
1116 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1117 /* After the first file, put in the c++ rt0. */
1120 while ((arg
= *++argv
) != (char *) 0)
1122 *ld1
++ = *ld2
++ = arg
;
1128 #ifdef COLLECT_EXPORT_LIST
1129 /* We want to disable automatic exports on AIX when user
1130 explicitly puts an export list in command line */
1132 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1134 else if (arg
[2] == '6' && arg
[3] == '4')
1140 if (!strcmp (arg
, "-debug"))
1142 /* Already parsed. */
1151 /* place o_file BEFORE this argument! */
1157 #ifdef COLLECT_EXPORT_LIST
1159 /* Resolving full library name. */
1160 const char *s
= resolve_lib_name (arg
+2);
1162 /* If we will use an import list for this library,
1163 we should exclude it from ld args. */
1164 if (use_import_list (s
))
1170 /* Saving a full library name. */
1171 add_to_list (&libs
, s
);
1176 #ifdef COLLECT_EXPORT_LIST
1177 /* Saving directories where to search for libraries. */
1179 add_prefix (&cmdline_lib_dirs
, arg
+2);
1185 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1187 #ifdef SWITCHES_NEED_SPACES
1188 && ! index (SWITCHES_NEED_SPACES
, arg
[1])
1192 output_file
= &arg
[2];
1201 if (arg
[2] == '\0' && do_collecting
)
1203 /* We must strip after the nm run, otherwise C++ linking
1204 will not work. Thus we strip in the second ld run, or
1205 else with strip if there is no second ld run. */
1217 else if ((p
= rindex (arg
, '.')) != (char *) 0
1218 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1219 || strcmp (p
, ".so") == 0))
1228 /* place o_file BEFORE this argument! */
1236 #ifdef COLLECT_EXPORT_LIST
1237 /* libraries can be specified directly, i.e. without -l flag. */
1240 /* If we will use an import list for this library,
1241 we should exclude it from ld args. */
1242 if (use_import_list (arg
))
1248 /* Saving a full library name. */
1249 add_to_list (&libs
, arg
);
1255 #ifdef COLLECT_EXPORT_LIST
1256 /* This is added only for debugging purposes. */
1259 fprintf (stderr
, "List of libraries:\n");
1260 dump_list (stderr
, "\t", libs
.first
);
1263 /* The AIX linker will discard static constructors in object files if
1264 nothing else in the file is referenced, so look at them first. */
1266 const char **export_object_lst
= (const char **)object_lst
;
1268 while (export_object_lst
< object
)
1269 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1272 struct id
*list
= libs
.first
;
1274 for (; list
; list
= list
->next
)
1275 scan_prog_file (list
->name
, PASS_FIRST
);
1280 char *buf
= xmalloc (strlen (export_file
) + 5);
1282 sprintf (buf
, "-bE:%s", export_file
);
1286 exportf
= fopen (export_file
, "w");
1287 if (exportf
== (FILE *) 0)
1288 fatal_perror ("fopen %s", export_file
);
1289 write_aix_file (exportf
, exports
.first
);
1290 if (fclose (exportf
))
1291 fatal_perror ("fclose %s", export_file
);
1296 char *buf
= xmalloc (strlen (import_file
) + 5);
1298 sprintf (buf
, "-bI:%s", import_file
);
1302 importf
= fopen (import_file
, "w");
1303 if (importf
== (FILE *) 0)
1304 fatal_perror ("%s", import_file
);
1305 fputs ("#! .\n", importf
);
1306 write_aix_file (importf
, imports
.first
);
1307 if (fclose (importf
))
1308 fatal_perror ("fclose %s", import_file
);
1313 *c_ptr
= *ld1
= *object
= (char *) 0;
1317 notice ("collect2 version %s", version_string
);
1318 #ifdef TARGET_VERSION
1321 fprintf (stderr
, "\n");
1327 fprintf (stderr
, "ld_file_name = %s\n",
1328 (ld_file_name
? ld_file_name
: "not found"));
1329 fprintf (stderr
, "c_file_name = %s\n",
1330 (c_file_name
? c_file_name
: "not found"));
1331 fprintf (stderr
, "nm_file_name = %s\n",
1332 (nm_file_name
? nm_file_name
: "not found"));
1334 fprintf (stderr
, "ldd_file_name = %s\n",
1335 (ldd_file_name
? ldd_file_name
: "not found"));
1337 fprintf (stderr
, "strip_file_name = %s\n",
1338 (strip_file_name
? strip_file_name
: "not found"));
1339 fprintf (stderr
, "c_file = %s\n",
1340 (c_file
? c_file
: "not found"));
1341 fprintf (stderr
, "o_file = %s\n",
1342 (o_file
? o_file
: "not found"));
1344 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1346 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1348 ptr
= getenv ("COLLECT_GCC");
1350 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1352 ptr
= getenv ("COMPILER_PATH");
1354 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1356 ptr
= getenv ("LIBRARY_PATH");
1358 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1360 fprintf (stderr
, "\n");
1363 /* Load the program, searching all libraries and attempting to provide
1364 undefined symbols from repository information. */
1366 /* On AIX we do this later. */
1367 #ifndef COLLECT_EXPORT_LIST
1368 do_tlink (ld1_argv
, object_lst
);
1371 /* If -r or they will be run via some other method, do not build the
1372 constructor or destructor list, just return now. */
1374 #ifndef COLLECT_EXPORT_LIST
1379 #ifdef COLLECT_EXPORT_LIST
1380 /* Do the link we avoided above if we are exiting. */
1381 do_tlink (ld1_argv
, object_lst
);
1383 /* But make sure we delete the export file we may have created. */
1384 if (export_file
!= 0 && export_file
[0])
1385 maybe_unlink (export_file
);
1386 if (import_file
!= 0 && import_file
[0])
1387 maybe_unlink (import_file
);
1389 maybe_unlink (c_file
);
1390 maybe_unlink (o_file
);
1394 /* Examine the namelist with nm and search it for static constructors
1395 and destructors to call.
1396 Write the constructor and destructor tables to a .s file and reload. */
1398 /* On AIX we already scanned for global constructors/destructors. */
1399 #ifndef COLLECT_EXPORT_LIST
1400 scan_prog_file (output_file
, PASS_FIRST
);
1403 #ifdef SCAN_LIBRARIES
1404 scan_libraries (output_file
);
1409 notice ("%d constructor(s) found\n", constructors
.number
);
1410 notice ("%d destructor(s) found\n", destructors
.number
);
1411 notice ("%d frame table(s) found\n", frame_tables
.number
);
1414 if (constructors
.number
== 0 && destructors
.number
== 0
1415 && frame_tables
.number
== 0
1416 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1417 /* If we will be running these functions ourselves, we want to emit
1418 stubs into the shared library so that we do not have to relink
1419 dependent programs when we add static objects. */
1424 #ifdef COLLECT_EXPORT_LIST
1425 /* Do tlink without additional code generation */
1426 do_tlink (ld1_argv
, object_lst
);
1428 /* Strip now if it was requested on the command line. */
1431 char **real_strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1432 const char ** strip_argv
= (const char **) real_strip_argv
;
1434 strip_argv
[0] = strip_file_name
;
1435 strip_argv
[1] = output_file
;
1436 strip_argv
[2] = (char *) 0;
1437 fork_execute ("strip", real_strip_argv
);
1440 #ifdef COLLECT_EXPORT_LIST
1441 maybe_unlink (export_file
);
1442 maybe_unlink (import_file
);
1444 maybe_unlink (c_file
);
1445 maybe_unlink (o_file
);
1449 /* Sort ctor and dtor lists by priority. */
1450 sort_ids (&constructors
);
1451 sort_ids (&destructors
);
1453 maybe_unlink(output_file
);
1454 outf
= fopen (c_file
, "w");
1455 if (outf
== (FILE *) 0)
1456 fatal_perror ("fopen %s", c_file
);
1458 write_c_file (outf
, c_file
);
1461 fatal_perror ("fclose %s", c_file
);
1463 /* Tell the linker that we have initializer and finalizer functions. */
1464 #ifdef LD_INIT_SWITCH
1465 #ifdef COLLECT_EXPORT_LIST
1467 /* option name + functions + colons + NULL */
1468 char *buf
= xmalloc (strlen (LD_INIT_SWITCH
)
1469 + strlen(initname
) + strlen(fininame
) + 3);
1470 sprintf (buf
, "%s:%s:%s", LD_INIT_SWITCH
, initname
, fininame
);
1474 *ld2
++ = LD_INIT_SWITCH
;
1476 *ld2
++ = LD_FINI_SWITCH
;
1481 #ifdef COLLECT_EXPORT_LIST
1484 /* If we did not add export flag to link arguments before, add it to
1485 second link phase now. No new exports should have been added. */
1486 if (! exports
.first
)
1488 char *buf
= xmalloc (strlen (export_file
) + 5);
1490 sprintf (buf
, "-bE:%s", export_file
);
1494 add_to_list (&exports
, initname
);
1495 add_to_list (&exports
, fininame
);
1496 add_to_list (&exports
, "_GLOBAL__DI");
1497 add_to_list (&exports
, "_GLOBAL__DD");
1498 exportf
= fopen (export_file
, "w");
1499 if (exportf
== (FILE *) 0)
1500 fatal_perror ("fopen %s", export_file
);
1501 write_aix_file (exportf
, exports
.first
);
1502 if (fclose (exportf
))
1503 fatal_perror ("fclose %s", export_file
);
1507 /* End of arguments to second link phase. */
1512 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1513 output_file
, c_file
);
1514 write_c_file (stderr
, "stderr");
1515 fprintf (stderr
, "========== end of c_file\n\n");
1516 #ifdef COLLECT_EXPORT_LIST
1517 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1518 write_aix_file (stderr
, exports
.first
);
1519 fprintf (stderr
, "========== end of export_file\n\n");
1523 /* Assemble the constructor and destructor tables.
1524 Link the tables in with the rest of the program. */
1526 fork_execute ("gcc", c_argv
);
1527 #ifdef COLLECT_EXPORT_LIST
1528 /* On AIX we must call tlink because of possible templates resolution */
1529 do_tlink (ld2_argv
, object_lst
);
1531 /* Otherwise, simply call ld because tlink is already done */
1532 fork_execute ("ld", ld2_argv
);
1534 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1535 constructors/destructors in shared libraries. */
1536 scan_prog_file (output_file
, PASS_SECOND
);
1539 maybe_unlink (c_file
);
1540 maybe_unlink (o_file
);
1542 #ifdef COLLECT_EXPORT_LIST
1543 maybe_unlink (export_file
);
1544 maybe_unlink (import_file
);
1551 /* Wait for a process to finish, and exit if a non-zero status is found. */
1559 pwait (pexecute_pid
, &status
, 0);
1562 if (WIFSIGNALED (status
))
1564 int sig
= WTERMSIG (status
);
1565 error ("%s terminated with signal %d [%s]%s",
1566 prog
, sig
, strsignal(sig
),
1567 status
& 0200 ? "" : ", core dumped");
1568 collect_exit (FATAL_EXIT_CODE
);
1571 if (WIFEXITED (status
))
1572 return WEXITSTATUS (status
);
1581 int ret
= collect_wait (prog
);
1584 error ("%s returned %d exit status", prog
, ret
);
1590 /* Execute a program, and wait for the reply. */
1593 collect_execute (prog
, argv
, redir
)
1600 int redir_handle
= -1;
1601 int stdout_save
= -1;
1602 int stderr_save
= -1;
1610 fprintf (stderr
, "%s", argv
[0]);
1612 notice ("[cannot find %s]", prog
);
1614 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1615 fprintf (stderr
, " %s", str
);
1617 fprintf (stderr
, "\n");
1623 /* If we cannot find a program we need, complain error. Do this here
1624 since we might not end up needing something that we could not find. */
1627 fatal ("cannot find `%s'", prog
);
1631 /* Open response file. */
1632 redir_handle
= open (redir
, O_WRONLY
| O_TRUNC
| O_CREAT
);
1634 /* Duplicate the stdout and stderr file handles
1635 so they can be restored later. */
1636 stdout_save
= dup (STDOUT_FILENO
);
1637 if (stdout_save
== -1)
1638 fatal_perror ("redirecting stdout: %s", redir
);
1639 stderr_save
= dup (STDERR_FILENO
);
1640 if (stderr_save
== -1)
1641 fatal_perror ("redirecting stdout: %s", redir
);
1643 /* Redirect stdout & stderr to our response file. */
1644 dup2 (redir_handle
, STDOUT_FILENO
);
1645 dup2 (redir_handle
, STDERR_FILENO
);
1648 pexecute_pid
= pexecute (argv
[0], argv
, argv
[0], NULL
,
1649 &errmsg_fmt
, &errmsg_arg
,
1650 (PEXECUTE_FIRST
| PEXECUTE_LAST
| PEXECUTE_SEARCH
));
1654 /* Restore stdout and stderr to their previous settings. */
1655 dup2 (stdout_save
, STDOUT_FILENO
);
1656 dup2 (stderr_save
, STDERR_FILENO
);
1658 /* Close reponse file. */
1659 close (redir_handle
);
1662 if (pexecute_pid
== -1)
1663 fatal_perror (errmsg_fmt
, errmsg_arg
);
1667 fork_execute (prog
, argv
)
1671 collect_execute (prog
, argv
, NULL
);
1675 /* Unlink a file unless we are debugging. */
1684 notice ("[Leaving %s]\n", file
);
1688 static long sequence_number
= 0;
1690 /* Add a name to a linked list. */
1693 add_to_list (head_ptr
, name
)
1694 struct head
*head_ptr
;
1698 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1700 strcpy (newid
->name
, name
);
1702 if (head_ptr
->first
)
1703 head_ptr
->last
->next
= newid
;
1705 head_ptr
->first
= newid
;
1707 /* Check for duplicate symbols. */
1708 for (p
= head_ptr
->first
;
1709 strcmp (name
, p
->name
) != 0;
1714 head_ptr
->last
->next
= 0;
1719 newid
->sequence
= ++sequence_number
;
1720 head_ptr
->last
= newid
;
1724 /* Grab the init priority number from an init function name that
1725 looks like "_GLOBAL_.I.12345.foo". */
1728 extract_init_priority (name
)
1733 while (name
[pos
] == '_')
1735 pos
+= 10; /* strlen ("GLOBAL__X_") */
1737 /* Extract init_p number from ctor/dtor name. */
1738 pri
= atoi (name
+ pos
);
1739 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1742 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1743 ctors will be run from right to left, dtors from left to right. */
1747 struct head
*head_ptr
;
1749 /* id holds the current element to insert. id_next holds the next
1750 element to insert. id_ptr iterates through the already sorted elements
1751 looking for the place to insert id. */
1752 struct id
*id
, *id_next
, **id_ptr
;
1754 id
= head_ptr
->first
;
1756 /* We don't have any sorted elements yet. */
1757 head_ptr
->first
= NULL
;
1759 for (; id
; id
= id_next
)
1762 id
->sequence
= extract_init_priority (id
->name
);
1764 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1766 /* If the sequence numbers are the same, we put the id from the
1767 file later on the command line later in the list. */
1768 || id
->sequence
> (*id_ptr
)->sequence
1769 /* Hack: do lexical compare, too.
1770 || (id->sequence == (*id_ptr)->sequence
1771 && strcmp (id->name, (*id_ptr)->name) > 0) */
1780 /* Now set the sequence numbers properly so write_c_file works. */
1781 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1782 id
->sequence
= ++sequence_number
;
1785 /* Write: `prefix', the names on list LIST, `suffix'. */
1788 write_list (stream
, prefix
, list
)
1795 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1800 #ifdef COLLECT_EXPORT_LIST
1801 /* This function is really used only on AIX, but may be useful. */
1803 is_in_list (prefix
, list
)
1809 if (!strcmp (prefix
, list
->name
)) return 1;
1816 /* Added for debugging purpose. */
1817 #ifdef COLLECT_EXPORT_LIST
1819 dump_list (stream
, prefix
, list
)
1826 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1834 dump_prefix_list (stream
, prefix
, list
)
1837 struct prefix_list
*list
;
1841 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1848 write_list_with_asm (stream
, prefix
, list
)
1855 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1856 prefix
, list
->sequence
, list
->name
);
1861 /* Write out the constructor and destructor tables statically (for a shared
1862 object), along with the functions to execute them. */
1865 write_c_file_stat (stream
, name
)
1867 const char *name ATTRIBUTE_UNUSED
;
1871 int frames
= (frame_tables
.number
> 0);
1873 /* Figure out name of output_file, stripping off .so version. */
1874 p
= rindex (output_file
, '/');
1890 if (strncmp (q
, ".so", 3) == 0)
1899 /* q points to null at end of the string (or . of the .so version) */
1900 prefix
= xmalloc (q
- p
+ 1);
1901 strncpy (prefix
, p
, q
- p
);
1903 for (r
= prefix
; *r
; r
++)
1904 if (!ISALNUM ((unsigned char)*r
))
1907 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
1908 output_file
, prefix
);
1910 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
1911 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
1912 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
1914 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
1915 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
1916 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
1920 /* Write the tables as C code */
1922 fprintf (stream
, "static int count;\n");
1923 fprintf (stream
, "typedef void entry_pt();\n");
1924 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1928 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1930 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1931 write_list (stream
, "\t\t&", frame_tables
.first
);
1932 fprintf (stream
, "\t0\n};\n");
1934 /* This must match what's in frame.h. */
1935 fprintf (stream
, "struct object {\n");
1936 fprintf (stream
, " void *pc_begin;\n");
1937 fprintf (stream
, " void *pc_end;\n");
1938 fprintf (stream
, " void *fde_begin;\n");
1939 fprintf (stream
, " void *fde_array;\n");
1940 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1941 fprintf (stream
, " struct object *next;\n");
1942 fprintf (stream
, "};\n");
1944 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1945 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1947 fprintf (stream
, "static void reg_frame () {\n");
1948 fprintf (stream
, "\tstatic struct object ob;\n");
1949 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1950 fprintf (stream
, "\t}\n");
1952 fprintf (stream
, "static void dereg_frame () {\n");
1953 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1954 fprintf (stream
, "\t}\n");
1957 fprintf (stream
, "void %s() {\n", initname
);
1958 if (constructors
.number
> 0 || frames
)
1960 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
1961 write_list (stream
, "\t\t", constructors
.first
);
1963 fprintf (stream
, "\treg_frame,\n");
1964 fprintf (stream
, "\t};\n");
1965 fprintf (stream
, "\tentry_pt **p;\n");
1966 fprintf (stream
, "\tif (count++ != 0) return;\n");
1967 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
1968 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
1971 fprintf (stream
, "\t++count;\n");
1972 fprintf (stream
, "}\n");
1973 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
1974 fprintf (stream
, "void %s() {\n", fininame
);
1975 if (destructors
.number
> 0 || frames
)
1977 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
1978 write_list (stream
, "\t\t", destructors
.first
);
1980 fprintf (stream
, "\tdereg_frame,\n");
1981 fprintf (stream
, "\t};\n");
1982 fprintf (stream
, "\tentry_pt **p;\n");
1983 fprintf (stream
, "\tif (--count != 0) return;\n");
1984 fprintf (stream
, "\tp = dtors;\n");
1985 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
1986 destructors
.number
+ frames
);
1988 fprintf (stream
, "}\n");
1992 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
1993 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
1997 /* Write the constructor/destructor tables. */
1999 #ifndef LD_INIT_SWITCH
2001 write_c_file_glob (stream
, name
)
2003 const char *name ATTRIBUTE_UNUSED
;
2005 /* Write the tables as C code */
2007 int frames
= (frame_tables
.number
> 0);
2009 fprintf (stream
, "typedef void entry_pt();\n\n");
2011 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2015 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2017 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2018 write_list (stream
, "\t\t&", frame_tables
.first
);
2019 fprintf (stream
, "\t0\n};\n");
2021 /* This must match what's in frame.h. */
2022 fprintf (stream
, "struct object {\n");
2023 fprintf (stream
, " void *pc_begin;\n");
2024 fprintf (stream
, " void *pc_end;\n");
2025 fprintf (stream
, " void *fde_begin;\n");
2026 fprintf (stream
, " void *fde_array;\n");
2027 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2028 fprintf (stream
, " struct object *next;\n");
2029 fprintf (stream
, "};\n");
2031 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2032 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2034 fprintf (stream
, "static void reg_frame () {\n");
2035 fprintf (stream
, "\tstatic struct object ob;\n");
2036 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2037 fprintf (stream
, "\t}\n");
2039 fprintf (stream
, "static void dereg_frame () {\n");
2040 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2041 fprintf (stream
, "\t}\n");
2044 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2045 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2046 write_list (stream
, "\t", constructors
.first
);
2048 fprintf (stream
, "\treg_frame,\n");
2049 fprintf (stream
, "\t0\n};\n\n");
2051 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2053 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2054 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2055 write_list (stream
, "\t", destructors
.first
);
2057 fprintf (stream
, "\tdereg_frame,\n");
2058 fprintf (stream
, "\t0\n};\n\n");
2060 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2061 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2063 #endif /* ! LD_INIT_SWITCH */
2066 write_c_file (stream
, name
)
2070 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2071 #ifndef LD_INIT_SWITCH
2073 write_c_file_glob (stream
, name
);
2076 write_c_file_stat (stream
, name
);
2077 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2080 #ifdef COLLECT_EXPORT_LIST
2082 write_aix_file (stream
, list
)
2086 for (; list
; list
= list
->next
)
2088 fputs (list
->name
, stream
);
2089 putc ('\n', stream
);
2094 #ifdef OBJECT_FORMAT_NONE
2096 /* Generic version to scan the name list of the loaded program for
2097 the symbols g++ uses for static constructors and destructors.
2099 The constructor table begins at __CTOR_LIST__ and contains a count
2100 of the number of pointers (or -1 if the constructors are built in a
2101 separate section by the linker), followed by the pointers to the
2102 constructor functions, terminated with a null pointer. The
2103 destructor table has the same format, and begins at __DTOR_LIST__. */
2106 scan_prog_file (prog_name
, which_pass
)
2107 const char *prog_name
;
2108 enum pass which_pass
;
2110 void (*int_handler
) PROTO ((int));
2111 void (*quit_handler
) PROTO ((int));
2112 char *real_nm_argv
[4];
2113 const char **nm_argv
= (const char **) real_nm_argv
;
2120 if (which_pass
== PASS_SECOND
)
2123 /* If we do not have an `nm', complain. */
2124 if (nm_file_name
== 0)
2125 fatal ("cannot find `nm'");
2127 nm_argv
[argc
++] = nm_file_name
;
2128 if (NM_FLAGS
[0] != '\0')
2129 nm_argv
[argc
++] = NM_FLAGS
;
2131 nm_argv
[argc
++] = prog_name
;
2132 nm_argv
[argc
++] = (char *) 0;
2134 if (pipe (pipe_fd
) < 0)
2135 fatal_perror ("pipe");
2137 inf
= fdopen (pipe_fd
[0], "r");
2138 if (inf
== (FILE *) 0)
2139 fatal_perror ("fdopen");
2141 /* Trace if needed. */
2144 const char **p_argv
;
2147 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2148 fprintf (stderr
, " %s", str
);
2150 fprintf (stderr
, "\n");
2156 /* Spawn child nm on pipe */
2159 fatal_perror (VFORK_STRING
);
2161 if (pid
== 0) /* child context */
2164 if (dup2 (pipe_fd
[1], 1) < 0)
2165 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2167 if (close (pipe_fd
[0]) < 0)
2168 fatal_perror ("close %d", pipe_fd
[0]);
2170 if (close (pipe_fd
[1]) < 0)
2171 fatal_perror ("close %d", pipe_fd
[1]);
2173 execv (nm_file_name
, real_nm_argv
);
2174 fatal_perror ("execvp %s", nm_file_name
);
2177 /* Parent context from here on. */
2178 int_handler
= (void (*) PROTO ((int))) signal (SIGINT
, SIG_IGN
);
2180 quit_handler
= (void (*) PROTO ((int))) signal (SIGQUIT
, SIG_IGN
);
2183 if (close (pipe_fd
[1]) < 0)
2184 fatal_perror ("close %d", pipe_fd
[1]);
2187 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2189 /* Read each line of nm output. */
2190 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2195 /* If it contains a constructor or destructor name, add the name
2196 to the appropriate list. */
2198 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2199 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2206 /* Find the end of the symbol name.
2207 Do not include `|', because Encore nm can tack that on the end. */
2208 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2214 switch (is_ctor_dtor (name
))
2217 if (which_pass
!= PASS_LIB
)
2218 add_to_list (&constructors
, name
);
2222 if (which_pass
!= PASS_LIB
)
2223 add_to_list (&destructors
, name
);
2227 if (which_pass
!= PASS_LIB
)
2228 fatal ("init function found in object %s", prog_name
);
2229 #ifndef LD_INIT_SWITCH
2230 add_to_list (&constructors
, name
);
2235 if (which_pass
!= PASS_LIB
)
2236 fatal ("fini function found in object %s", prog_name
);
2237 #ifndef LD_FINI_SWITCH
2238 add_to_list (&destructors
, name
);
2243 if (which_pass
!= PASS_LIB
)
2244 add_to_list (&frame_tables
, name
);
2247 default: /* not a constructor or destructor */
2252 fprintf (stderr
, "\t%s\n", buf
);
2256 fprintf (stderr
, "\n");
2258 if (fclose (inf
) != 0)
2259 fatal_perror ("fclose");
2261 do_wait (nm_file_name
);
2263 signal (SIGINT
, int_handler
);
2265 signal (SIGQUIT
, quit_handler
);
2269 #if SUNOS4_SHARED_LIBRARIES
2271 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2272 that the output file depends upon and their initialization/finalization
2273 routines, if any. */
2278 #include <sys/mman.h>
2279 #include <sys/param.h>
2281 #include <sys/dir.h>
2283 /* pointers to the object file */
2284 unsigned object
; /* address of memory mapped file */
2285 unsigned objsize
; /* size of memory mapped to file */
2286 char * code
; /* pointer to code segment */
2287 char * data
; /* pointer to data segment */
2288 struct nlist
*symtab
; /* pointer to symbol table */
2289 struct link_dynamic
*ld
;
2290 struct link_dynamic_2
*ld_2
;
2291 struct head libraries
;
2293 /* Map the file indicated by NAME into memory and store its address. */
2295 static void mapfile
PROTO ((const char *));
2303 if ((fp
= open (name
, O_RDONLY
)) == -1)
2304 fatal ("unable to open file '%s'", name
);
2305 if (fstat (fp
, &s
) == -1)
2306 fatal ("unable to stat file '%s'", name
);
2308 objsize
= s
.st_size
;
2309 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2311 if (object
== (unsigned)-1)
2312 fatal ("unable to mmap file '%s'", name
);
2317 /* Helpers for locatelib. */
2319 static const char *libname
;
2321 static int libselect
PROTO ((struct direct
*));
2327 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2330 /* If one file has an additional numeric extension past LIBNAME, then put
2331 that one first in the sort. If both files have additional numeric
2332 extensions, then put the one with the higher number first in the sort.
2334 We must verify that the extension is numeric, because Sun saves the
2335 original versions of patched libraries with a .FCS extension. Files with
2336 invalid extensions must go last in the sort, so that they will not be used. */
2337 static int libcompare
PROTO ((struct direct
**, struct direct
**));
2341 struct direct
**d1
, **d2
;
2343 int i1
, i2
= strlen (libname
);
2344 char *e1
= (*d1
)->d_name
+ i2
;
2345 char *e2
= (*d2
)->d_name
+ i2
;
2347 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2348 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2352 i1
= strtol (e1
, &e1
, 10);
2353 i2
= strtol (e2
, &e2
, 10);
2360 /* It has a valid numeric extension, prefer this one. */
2361 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2363 /* It has a invalid numeric extension, must prefer the other one. */
2369 /* It has a valid numeric extension, prefer this one. */
2370 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2372 /* It has a invalid numeric extension, must prefer the other one. */
2380 /* Given the name NAME of a dynamic dependency, find its pathname and add
2381 it to the list of libraries. */
2382 static void locatelib
PROTO ((const char *));
2388 static const char **l
;
2390 char buf
[MAXPATHLEN
];
2398 /* counting elements in array, need 1 extra for null */
2400 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2404 for (; *ld_rules
!= 0; ld_rules
++)
2405 if (*ld_rules
== ':')
2407 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2408 ldr
= xstrdup (ld_rules
);
2410 p
= getenv ("LD_LIBRARY_PATH");
2415 for (q
= p
; *q
!= 0; q
++)
2420 l
= (const char **) xmalloc ((cnt
+ 3) * sizeof (char *));
2425 for (; *ldr
!= 0; ldr
++)
2435 for (; *q
!= 0; q
++)
2442 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2445 *pp
++ = "/usr/local/lib";
2449 for (pp
= l
; *pp
!= 0 ; pp
++)
2451 struct direct
**namelist
;
2453 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2455 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2456 add_to_list (&libraries
, buf
);
2458 fprintf (stderr
, "%s\n", buf
);
2465 notice ("not found\n");
2467 fatal ("dynamic dependency %s not found", name
);
2471 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2472 that it depends upon and any constructors or destructors they contain. */
2475 scan_libraries (prog_name
)
2476 const char *prog_name
;
2478 struct exec
*header
;
2480 struct link_object
*lo
;
2481 char buff
[MAXPATHLEN
];
2484 mapfile (prog_name
);
2485 header
= (struct exec
*)object
;
2486 if (N_BADMAG (*header
))
2487 fatal ("bad magic number in file '%s'", prog_name
);
2488 if (header
->a_dynamic
== 0)
2491 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2492 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2493 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2495 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2498 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2504 ld
= (struct link_dynamic
*) data
;
2509 notice ("dynamic dependencies.\n");
2511 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2512 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2513 lo
= (struct link_object
*) lo
->lo_next
)
2516 lo
= (struct link_object
*) ((long) lo
+ code
);
2517 name
= (char *) (code
+ lo
->lo_name
);
2521 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2522 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2528 fprintf (stderr
, "\t%s\n", name
);
2529 add_to_list (&libraries
, name
);
2534 fprintf (stderr
, "\n");
2536 /* now iterate through the library list adding their symbols to
2538 for (list
= libraries
.first
; list
; list
= list
->next
)
2539 scan_prog_file (list
->name
, PASS_LIB
);
2542 #else /* SUNOS4_SHARED_LIBRARIES */
2545 /* Use the List Dynamic Dependencies program to find shared libraries that
2546 the output file depends upon and their initialization/finalization
2547 routines, if any. */
2550 scan_libraries (prog_name
)
2551 const char *prog_name
;
2553 static struct head libraries
; /* list of shared libraries found */
2555 void (*int_handler
) PROTO ((int));
2556 void (*quit_handler
) PROTO ((int));
2557 char *real_ldd_argv
[4];
2558 const char **ldd_argv
= (const char **) real_ldd_argv
;
2565 /* If we do not have an `ldd', complain. */
2566 if (ldd_file_name
== 0)
2568 error ("cannot find `ldd'");
2572 ldd_argv
[argc
++] = ldd_file_name
;
2573 ldd_argv
[argc
++] = prog_name
;
2574 ldd_argv
[argc
++] = (char *) 0;
2576 if (pipe (pipe_fd
) < 0)
2577 fatal_perror ("pipe");
2579 inf
= fdopen (pipe_fd
[0], "r");
2580 if (inf
== (FILE *) 0)
2581 fatal_perror ("fdopen");
2583 /* Trace if needed. */
2586 const char **p_argv
;
2589 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2590 fprintf (stderr
, " %s", str
);
2592 fprintf (stderr
, "\n");
2598 /* Spawn child ldd on pipe */
2601 fatal_perror (VFORK_STRING
);
2603 if (pid
== 0) /* child context */
2606 if (dup2 (pipe_fd
[1], 1) < 0)
2607 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2609 if (close (pipe_fd
[0]) < 0)
2610 fatal_perror ("close %d", pipe_fd
[0]);
2612 if (close (pipe_fd
[1]) < 0)
2613 fatal_perror ("close %d", pipe_fd
[1]);
2615 execv (ldd_file_name
, real_ldd_argv
);
2616 fatal_perror ("execv %s", ldd_file_name
);
2619 /* Parent context from here on. */
2620 int_handler
= (void (*) PROTO ((int))) signal (SIGINT
, SIG_IGN
);
2622 quit_handler
= (void (*) PROTO ((int))) signal (SIGQUIT
, SIG_IGN
);
2625 if (close (pipe_fd
[1]) < 0)
2626 fatal_perror ("close %d", pipe_fd
[1]);
2629 notice ("\nldd output with constructors/destructors.\n");
2631 /* Read each line of ldd output. */
2632 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2635 char *name
, *end
, *p
= buf
;
2637 /* Extract names of libraries and add to list. */
2638 PARSE_LDD_OUTPUT (p
);
2643 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2644 fatal ("dynamic dependency %s not found", buf
);
2646 /* Find the end of the symbol name. */
2648 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2653 if (access (name
, R_OK
) == 0)
2654 add_to_list (&libraries
, name
);
2656 fatal ("unable to open dynamic dependency '%s'", buf
);
2659 fprintf (stderr
, "\t%s\n", buf
);
2662 fprintf (stderr
, "\n");
2664 if (fclose (inf
) != 0)
2665 fatal_perror ("fclose");
2667 do_wait (ldd_file_name
);
2669 signal (SIGINT
, int_handler
);
2671 signal (SIGQUIT
, quit_handler
);
2674 /* now iterate through the library list adding their symbols to
2676 for (list
= libraries
.first
; list
; list
= list
->next
)
2677 scan_prog_file (list
->name
, PASS_LIB
);
2680 #endif /* LDD_SUFFIX */
2681 #endif /* SUNOS4_SHARED_LIBRARIES */
2683 #endif /* OBJECT_FORMAT_NONE */
2687 * COFF specific stuff.
2690 #ifdef OBJECT_FORMAT_COFF
2692 #if defined(EXTENDED_COFF)
2693 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2694 # define GCC_SYMENT SYMR
2695 # define GCC_OK_SYMBOL(X) ((X).st == stProc || (X).st == stGlobal)
2696 # define GCC_SYMINC(X) (1)
2697 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2698 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2700 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2701 # define GCC_SYMENT SYMENT
2702 # define GCC_OK_SYMBOL(X) \
2703 (((X).n_sclass == C_EXT) && \
2704 ((X).n_scnum > N_UNDEF) && \
2706 || (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) \
2707 || ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT))))
2708 # define GCC_UNDEF_SYMBOL(X) \
2709 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2710 # define GCC_SYMINC(X) ((X).n_numaux+1)
2711 # define GCC_SYMZERO(X) 0
2712 # define GCC_CHECK_HDR(X) \
2713 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2714 || (HEADER (X).f_magic == 0757 && aix64_flag))
2717 extern char *ldgetname ();
2719 /* COFF version to scan the name list of the loaded program for
2720 the symbols g++ uses for static constructors and destructors.
2722 The constructor table begins at __CTOR_LIST__ and contains a count
2723 of the number of pointers (or -1 if the constructors are built in a
2724 separate section by the linker), followed by the pointers to the
2725 constructor functions, terminated with a null pointer. The
2726 destructor table has the same format, and begins at __DTOR_LIST__. */
2729 scan_prog_file (prog_name
, which_pass
)
2730 const char *prog_name
;
2731 enum pass which_pass
;
2733 LDFILE
*ldptr
= NULL
;
2734 int sym_index
, sym_count
;
2736 #ifdef COLLECT_EXPORT_LIST
2737 /* Should we generate an import list for given prog_name? */
2738 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2741 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2744 #ifdef COLLECT_EXPORT_LIST
2745 /* We do not need scanning for some standard C libraries. */
2746 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2749 /* On AIX we have a loop, because there is not much difference
2750 between an object and an archive. This trick allows us to
2751 eliminate scan_libraries() function. */
2755 /* Some platforms (e.g. OSF4) declare ldopen as taking a
2756 non-const char * filename parameter, even though it will not
2757 modify that string. So we must cast away const-ness here,
2758 which will cause -Wcast-qual to burp. */
2759 if ((ldptr
= ldopen ((char *)prog_name
, ldptr
)) != NULL
)
2761 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2762 fatal ("%s: not a COFF file", prog_name
);
2764 if (GCC_CHECK_HDR (ldptr
))
2766 sym_count
= GCC_SYMBOLS (ldptr
);
2767 sym_index
= GCC_SYMZERO (ldptr
);
2769 #ifdef COLLECT_EXPORT_LIST
2770 /* Is current archive member a shared object? */
2771 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2774 while (sym_index
< sym_count
)
2778 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2780 sym_index
+= GCC_SYMINC (symbol
);
2782 if (GCC_OK_SYMBOL (symbol
))
2786 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2787 continue; /* should never happen */
2789 #ifdef XCOFF_DEBUGGING_INFO
2790 /* All AIX function names have a duplicate entry
2791 beginning with a dot. */
2796 switch (is_ctor_dtor (name
))
2800 add_to_list (&constructors
, name
);
2801 #ifdef COLLECT_EXPORT_LIST
2802 if (which_pass
== PASS_OBJ
)
2803 add_to_list (&exports
, name
);
2804 /* If this symbol was undefined and we are building
2805 an import list, we should add a symbol to this
2809 && is_in_list (name
, undefined
.first
))
2810 add_to_list (&imports
, name
);
2816 add_to_list (&destructors
, name
);
2817 #ifdef COLLECT_EXPORT_LIST
2818 if (which_pass
== PASS_OBJ
)
2819 add_to_list (&exports
, name
);
2820 /* If this symbol was undefined and we are building
2821 an import list, we should add a symbol to this
2825 && is_in_list (name
, undefined
.first
))
2826 add_to_list (&imports
, name
);
2830 #ifdef COLLECT_EXPORT_LIST
2832 #ifndef LD_INIT_SWITCH
2834 add_to_list (&constructors
, name
);
2839 #ifndef LD_INIT_SWITCH
2841 add_to_list (&destructors
, name
);
2848 add_to_list (&frame_tables
, name
);
2851 default: /* not a constructor or destructor */
2852 #ifdef COLLECT_EXPORT_LIST
2853 /* If we are building a shared object on AIX we need
2854 to explicitly export all global symbols or add
2855 them to import list. */
2858 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2859 add_to_list (&exports
, name
);
2860 else if (! is_shared
2861 && which_pass
== PASS_FIRST
2863 && is_in_list(name
, undefined
.first
))
2864 add_to_list (&imports
, name
);
2871 #if !defined(EXTENDED_COFF)
2872 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2873 symbol
.n_scnum
, symbol
.n_sclass
,
2874 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2878 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2879 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2882 #ifdef COLLECT_EXPORT_LIST
2883 /* If we are building a shared object we should collect
2884 information about undefined symbols for later
2885 import list generation. */
2886 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2890 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2891 continue; /* should never happen */
2893 /* All AIX function names have a duplicate entry
2894 beginning with a dot. */
2897 add_to_list (&undefined
, name
);
2902 #ifdef COLLECT_EXPORT_LIST
2905 /* If archive contains both 32-bit and 64-bit objects,
2906 we want to skip objects in other mode so mismatch normal. */
2908 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2909 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2915 fatal ("%s: cannot open as COFF file", prog_name
);
2917 #ifdef COLLECT_EXPORT_LIST
2918 /* On AIX loop continues while there are more members in archive. */
2920 while (ldclose (ldptr
) == FAILURE
);
2922 /* Otherwise we simply close ldptr. */
2923 (void) ldclose(ldptr
);
2928 #ifdef COLLECT_EXPORT_LIST
2930 /* This new function is used to decide whether we should
2931 generate import list for an object or to use it directly. */
2933 use_import_list (prog_name
)
2934 const char *prog_name
;
2938 /* If we do not build a shared object then import list should not be used. */
2939 if (! shared_obj
) return 0;
2941 /* Currently we check only for libgcc, but this can be changed in future. */
2942 p
= strstr (prog_name
, "libgcc.a");
2943 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
2948 /* Given a library name without "lib" prefix, this function
2949 returns a full library name including a path. */
2951 resolve_lib_name (name
)
2957 for (i
= 0; libpaths
[i
]; i
++)
2958 if (libpaths
[i
]->max_len
> l
)
2959 l
= libpaths
[i
]->max_len
;
2961 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
2963 for (i
= 0; libpaths
[i
]; i
++)
2965 struct prefix_list
*list
= libpaths
[i
]->plist
;
2966 for (; list
; list
= list
->next
)
2968 for (j
= 0; libexts
[j
]; j
++)
2970 /* The following lines are needed because path_prefix list
2971 may contain directories both with trailing '/' and
2974 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
2976 sprintf (lib_buf
, "%s%slib%s.%s",
2977 list
->prefix
, p
, name
, libexts
[j
]);
2978 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
2979 if (file_exists (lib_buf
))
2981 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
2988 fprintf (stderr
, "not found\n");
2990 fatal ("Library lib%s not found", name
);
2994 /* Array of standard AIX libraries which should not
2995 be scanned for ctors/dtors. */
2996 static const char *aix_std_libs
[] = {
3001 "/usr/lib/libc_r.a",
3002 "/usr/lib/threads/libc.a",
3003 "/usr/ccs/lib/libc.a",
3004 "/usr/ccs/lib/libc_r.a",
3008 /* This function checks the filename and returns 1
3009 if this name matches the location of a standard AIX library. */
3011 ignore_library (name
)
3014 const char **p
= &aix_std_libs
[0];
3015 while (*p
++ != NULL
)
3016 if (! strcmp (name
, *p
)) return 1;
3022 #endif /* OBJECT_FORMAT_COFF */
3026 * OSF/rose specific stuff.
3029 #ifdef OBJECT_FORMAT_ROSE
3031 /* Union of the various load commands */
3033 typedef union load_union
3035 ldc_header_t hdr
; /* common header */
3036 load_cmd_map_command_t map
; /* map indexing other load cmds */
3037 interpreter_command_t iprtr
; /* interpreter pathname */
3038 strings_command_t str
; /* load commands strings section */
3039 region_command_t region
; /* region load command */
3040 reloc_command_t reloc
; /* relocation section */
3041 package_command_t pkg
; /* package load command */
3042 symbols_command_t sym
; /* symbol sections */
3043 entry_command_t ent
; /* program start section */
3044 gen_info_command_t info
; /* object information */
3045 func_table_command_t func
; /* function constructors/destructors */
3048 /* Structure to point to load command and data section in memory. */
3050 typedef struct load_all
3052 load_union_t
*load
; /* load command */
3053 char *section
; /* pointer to section */
3056 /* Structure to contain information about a file mapped into memory. */
3060 char *start
; /* start of map */
3061 char *name
; /* filename */
3062 long size
; /* size of the file */
3063 long rounded_size
; /* size rounded to page boundary */
3064 int fd
; /* file descriptor */
3065 int rw
; /* != 0 if opened read/write */
3066 int use_mmap
; /* != 0 if mmap'ed */
3069 extern int decode_mach_o_hdr ();
3070 extern int encode_mach_o_hdr ();
3072 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3073 symbol_info_t
*, int));
3074 static void print_header
PROTO((mo_header_t
*));
3075 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3076 static void bad_header
PROTO((int));
3077 static struct file_info
*read_file
PROTO((const char *, int, int));
3078 static void end_file
PROTO((struct file_info
*));
3080 /* OSF/rose specific version to scan the name list of the loaded
3081 program for the symbols g++ uses for static constructors and
3084 The constructor table begins at __CTOR_LIST__ and contains a count
3085 of the number of pointers (or -1 if the constructors are built in a
3086 separate section by the linker), followed by the pointers to the
3087 constructor functions, terminated with a null pointer. The
3088 destructor table has the same format, and begins at __DTOR_LIST__. */
3091 scan_prog_file (prog_name
, which_pass
)
3092 const char *prog_name
;
3093 enum pass which_pass
;
3097 load_all_t
*load_array
;
3098 load_all_t
*load_end
;
3099 load_all_t
*load_cmd
;
3100 int symbol_load_cmds
;
3106 struct file_info
*obj_file
;
3108 mo_lcid_t cmd_strings
= -1;
3109 symbol_info_t
*main_sym
= 0;
3110 int rw
= (which_pass
!= PASS_FIRST
);
3112 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3114 fatal_perror ("open %s", prog_name
);
3116 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3117 obj
= obj_file
->start
;
3119 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3120 if (status
!= MO_HDR_CONV_SUCCESS
)
3121 bad_header (status
);
3124 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3125 since the hardware will automatically swap bytes for us on loading little endian
3128 #ifndef CROSS_COMPILE
3129 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3130 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3131 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3132 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3133 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3134 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3135 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3137 fatal ("incompatibilities between object file & expected values");
3142 print_header (&hdr
);
3144 offset
= hdr
.moh_first_cmd_off
;
3145 load_end
= load_array
3146 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3148 /* Build array of load commands, calculating the offsets */
3149 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3151 load_union_t
*load_hdr
; /* load command header */
3153 load_cmd
= load_end
++;
3154 load_hdr
= (load_union_t
*) (obj
+ offset
);
3156 /* If modifying the program file, copy the header. */
3159 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3160 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3163 /* null out old command map, because we will rewrite at the end. */
3164 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3166 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3167 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3171 load_cmd
->load
= load_hdr
;
3172 if (load_hdr
->hdr
.ldci_section_off
> 0)
3173 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3176 print_load_command (load_hdr
, offset
, i
);
3178 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3181 /* If the last command is the load command map and is not undefined,
3182 decrement the count of load commands. */
3183 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3186 hdr
.moh_n_load_cmds
--;
3189 /* Go through and process each symbol table section. */
3190 symbol_load_cmds
= 0;
3191 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3193 load_union_t
*load_hdr
= load_cmd
->load
;
3195 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3201 const char *kind
= "unknown";
3203 switch (load_hdr
->sym
.symc_kind
)
3205 case SYMC_IMPORTS
: kind
= "imports"; break;
3206 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3207 case SYMC_STABS
: kind
= "stabs"; break;
3210 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3211 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3214 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3217 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3218 if (str_sect
== (char *) 0)
3219 fatal ("string section missing");
3221 if (load_cmd
->section
== (char *) 0)
3222 fatal ("section pointer missing");
3224 num_syms
= load_hdr
->sym
.symc_nentries
;
3225 for (i
= 0; i
< num_syms
; i
++)
3227 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3228 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3235 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3237 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3247 switch (is_ctor_dtor (name
))
3250 add_to_list (&constructors
, name
);
3254 add_to_list (&destructors
, name
);
3257 default: /* not a constructor or destructor */
3263 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3264 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3269 if (symbol_load_cmds
== 0)
3270 fatal ("no symbol table found");
3272 /* Update the program file now, rewrite header and load commands. At present,
3273 we assume that there is enough space after the last load command to insert
3274 one more. Since the first section written out is page aligned, and the
3275 number of load commands is small, this is ok for the present. */
3279 load_union_t
*load_map
;
3282 if (cmd_strings
== -1)
3283 fatal ("no cmd_strings found");
3285 /* Add __main to initializer list.
3286 If we are building a program instead of a shared library, do not
3287 do anything, since in the current version, you cannot do mallocs
3288 and such in the constructors. */
3290 if (main_sym
!= (symbol_info_t
*) 0
3291 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3292 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3295 notice ("\nUpdating header and load commands.\n\n");
3297 hdr
.moh_n_load_cmds
++;
3298 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3300 /* Create new load command map. */
3302 notice ("load command map, %d cmds, new size %ld.\n",
3303 (int) hdr
.moh_n_load_cmds
, (long) size
);
3305 load_map
= (load_union_t
*) xcalloc (1, size
);
3306 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3307 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3308 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3309 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3310 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3312 offset
= hdr
.moh_first_cmd_off
;
3313 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3315 load_map
->map
.lcm_map
[i
] = offset
;
3316 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3317 hdr
.moh_load_map_cmd_off
= offset
;
3319 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3322 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3325 print_header (&hdr
);
3328 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3329 if (status
!= MO_HDR_CONV_SUCCESS
)
3330 bad_header (status
);
3333 notice ("writing load commands.\n\n");
3335 /* Write load commands */
3336 offset
= hdr
.moh_first_cmd_off
;
3337 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3339 load_union_t
*load_hdr
= load_array
[i
].load
;
3340 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3343 print_load_command (load_hdr
, offset
, i
);
3345 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3350 end_file (obj_file
);
3352 if (close (prog_fd
))
3353 fatal_perror ("close %s", prog_name
);
3356 fprintf (stderr
, "\n");
3360 /* Add a function table to the load commands to call a function
3361 on initiation or termination of the process. */
3364 add_func_table (hdr_p
, load_array
, sym
, type
)
3365 mo_header_t
*hdr_p
; /* pointer to global header */
3366 load_all_t
*load_array
; /* array of ptrs to load cmds */
3367 symbol_info_t
*sym
; /* pointer to symbol entry */
3368 int type
; /* fntc_type value */
3370 /* Add a new load command. */
3371 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3372 int load_index
= num_cmds
- 1;
3373 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3374 load_union_t
*ptr
= xcalloc (1, size
);
3375 load_all_t
*load_cmd
;
3378 /* Set the unresolved address bit in the header to force the loader to be
3379 used, since kernel exec does not call the initialization functions. */
3380 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3382 load_cmd
= &load_array
[load_index
];
3383 load_cmd
->load
= ptr
;
3384 load_cmd
->section
= (char *) 0;
3386 /* Fill in func table load command. */
3387 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3388 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3389 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3390 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3391 ptr
->func
.fntc_type
= type
;
3392 ptr
->func
.fntc_nentries
= 1;
3394 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3395 /* Is the symbol already expressed as (region, offset)? */
3396 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3398 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3399 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3402 /* If not, figure out which region it's in. */
3405 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3408 for (i
= 0; i
< load_index
; i
++)
3410 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3412 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3414 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3415 && addr
>= region_ptr
->regc_addr
.vm_addr
3416 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3418 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3419 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3427 fatal ("could not convert 0x%l.8x into a region", addr
);
3431 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3432 type
== FNTC_INITIALIZATION
? "init" : "term",
3433 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3434 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3435 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3440 /* Print the global header for an OSF/rose object. */
3443 print_header (hdr_ptr
)
3444 mo_header_t
*hdr_ptr
;
3446 fprintf (stderr
, "\nglobal header:\n");
3447 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3448 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3449 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3450 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3451 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3452 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3453 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3454 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3455 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3456 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3457 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3458 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3459 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3460 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3461 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3463 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3464 fprintf (stderr
, ", relocatable");
3466 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3467 fprintf (stderr
, ", linkable");
3469 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3470 fprintf (stderr
, ", execable");
3472 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3473 fprintf (stderr
, ", executable");
3475 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3476 fprintf (stderr
, ", unresolved");
3478 fprintf (stderr
, "\n\n");
3483 /* Print a short summary of a load command. */
3486 print_load_command (load_hdr
, offset
, number
)
3487 load_union_t
*load_hdr
;
3491 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3492 const char *type_str
= (char *) 0;
3496 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3497 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3498 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3499 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3500 case LDC_REGION
: type_str
= "REGION"; break;
3501 case LDC_RELOC
: type_str
= "RELOC"; break;
3502 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3503 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3504 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3505 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3506 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3510 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3512 (long) load_hdr
->hdr
.ldci_cmd_size
,
3514 (long) load_hdr
->hdr
.ldci_section_off
,
3515 (long) load_hdr
->hdr
.ldci_section_len
);
3517 if (type_str
== (char *) 0)
3518 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3520 else if (type
!= LDC_REGION
)
3521 fprintf (stderr
, ", ty: %s\n", type_str
);
3525 const char *region
= "";
3526 switch (load_hdr
->region
.regc_usage_type
)
3528 case REG_TEXT_T
: region
= ", .text"; break;
3529 case REG_DATA_T
: region
= ", .data"; break;
3530 case REG_BSS_T
: region
= ", .bss"; break;
3531 case REG_GLUE_T
: region
= ", .glue"; break;
3532 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3533 case REG_RDATA_T
: region
= ", .rdata"; break;
3534 case REG_SDATA_T
: region
= ", .sdata"; break;
3535 case REG_SBSS_T
: region
= ", .sbss"; break;
3539 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3541 (long) load_hdr
->region
.regc_vm_addr
,
3542 (long) load_hdr
->region
.regc_vm_size
,
3550 /* Fatal error when {en,de}code_mach_o_header fails. */
3558 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3559 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3560 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3561 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3562 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3563 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3565 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3570 /* Read a file into a memory buffer. */
3572 static struct file_info
*
3573 read_file (name
, fd
, rw
)
3574 const char *name
; /* filename */
3575 int fd
; /* file descriptor */
3576 int rw
; /* read/write */
3578 struct stat stat_pkt
;
3579 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3581 static int page_size
;
3584 if (fstat (fd
, &stat_pkt
) < 0)
3585 fatal_perror ("fstat %s", name
);
3588 p
->size
= stat_pkt
.st_size
;
3589 p
->rounded_size
= stat_pkt
.st_size
;
3595 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3598 page_size
= sysconf (_SC_PAGE_SIZE
);
3600 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3601 p
->start
= mmap ((caddr_t
) 0,
3602 (rw
) ? p
->rounded_size
: p
->size
,
3603 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3604 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3608 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3612 #endif /* USE_MMAP */
3617 fprintf (stderr
, "read %s\n", name
);
3620 p
->start
= xmalloc (p
->size
);
3621 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3622 fatal_perror ("lseek %s 0", name
);
3624 len
= read (fd
, p
->start
, p
->size
);
3626 fatal_perror ("read %s", name
);
3629 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3635 /* Do anything necessary to write a file back from memory. */
3639 struct file_info
*ptr
; /* file information block */
3647 fprintf (stderr
, "msync %s\n", ptr
->name
);
3649 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3650 fatal_perror ("msync %s", ptr
->name
);
3654 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3656 if (munmap (ptr
->start
, ptr
->size
))
3657 fatal_perror ("munmap %s", ptr
->name
);
3660 #endif /* USE_MMAP */
3667 fprintf (stderr
, "write %s\n", ptr
->name
);
3669 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3670 fatal_perror ("lseek %s 0", ptr
->name
);
3672 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3674 fatal_perror ("write %s", ptr
->name
);
3676 if (len
!= ptr
->size
)
3677 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3686 #endif /* OBJECT_FORMAT_ROSE */