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 /* By default, colon separates directories in a path. */
640 #ifndef PATH_SEPARATOR
641 #define PATH_SEPARATOR ':'
644 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
645 and one from the PATH variable. */
647 static struct path_prefix cpath
, path
;
650 /* This is the name of the target machine. We use it to form the name
651 of the files to execute. */
653 static const char *const target_machine
= TARGET_MACHINE
;
656 /* Search for NAME using prefix list PPREFIX. We only look for executable
659 Return 0 if not found, otherwise return its name, allocated with malloc. */
662 find_a_file (pprefix
, name
)
663 struct path_prefix
*pprefix
;
667 struct prefix_list
*pl
;
668 int len
= pprefix
->max_len
+ strlen (name
) + 1;
671 fprintf (stderr
, "Looking for '%s'\n", name
);
673 #ifdef EXECUTABLE_SUFFIX
674 len
+= strlen (EXECUTABLE_SUFFIX
);
677 temp
= xmalloc (len
);
679 /* Determine the filename to execute (special case for absolute paths). */
682 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
683 || (*name
&& name
[1] == ':')
687 if (access (name
, X_OK
) == 0)
692 fprintf (stderr
, " - found: absolute path\n");
697 #ifdef EXECUTABLE_SUFFIX
698 /* Some systems have a suffix for executable files.
699 So try appending that. */
701 strcat (temp
, EXECUTABLE_SUFFIX
);
703 if (access (temp
, X_OK
) == 0)
708 fprintf (stderr
, " - failed to locate using absolute path\n");
711 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
715 strcpy (temp
, pl
->prefix
);
718 if (stat (temp
, &st
) >= 0
719 && ! S_ISDIR (st
.st_mode
)
720 && access (temp
, X_OK
) == 0)
723 #ifdef EXECUTABLE_SUFFIX
724 /* Some systems have a suffix for executable files.
725 So try appending that. */
726 strcat (temp
, EXECUTABLE_SUFFIX
);
728 if (stat (temp
, &st
) >= 0
729 && ! S_ISDIR (st
.st_mode
)
730 && access (temp
, X_OK
) == 0)
735 if (debug
&& pprefix
->plist
== NULL
)
736 fprintf (stderr
, " - failed: no entries in prefix list\n");
742 /* Add an entry for PREFIX to prefix list PPREFIX. */
745 add_prefix (pprefix
, prefix
)
746 struct path_prefix
*pprefix
;
749 struct prefix_list
*pl
, **prev
;
754 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
759 prev
= &pprefix
->plist
;
761 /* Keep track of the longest prefix */
763 len
= strlen (prefix
);
764 if (len
> pprefix
->max_len
)
765 pprefix
->max_len
= len
;
767 pl
= (struct prefix_list
*) xmalloc (sizeof (struct prefix_list
));
768 pl
->prefix
= xstrdup (prefix
);
773 pl
->next
= (struct prefix_list
*) 0;
777 /* Take the value of the environment variable ENV, break it into a path, and
778 add of the entries to PPREFIX. */
781 prefix_from_env (env
, pprefix
)
783 struct path_prefix
*pprefix
;
786 GET_ENV_PATH_LIST (p
, env
);
789 prefix_from_string (p
, pprefix
);
793 prefix_from_string (p
, pprefix
)
795 struct path_prefix
*pprefix
;
797 const char *startp
, *endp
;
798 char *nstore
= (char *) xmalloc (strlen (p
) + 3);
801 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
806 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
808 strncpy (nstore
, startp
, endp
-startp
);
811 strcpy (nstore
, "./");
813 else if (endp
[-1] != '/')
815 nstore
[endp
-startp
] = '/';
816 nstore
[endp
-startp
+1] = 0;
819 nstore
[endp
-startp
] = 0;
822 fprintf (stderr
, " - add prefix: %s\n", nstore
);
824 add_prefix (pprefix
, nstore
);
827 endp
= startp
= endp
+ 1;
836 int main
PROTO ((int, char *[]));
842 const char *ld_suffix
= "ld";
843 const char *full_ld_suffix
= ld_suffix
;
844 const char *real_ld_suffix
= "real-ld";
845 const char *collect_ld_suffix
= "collect-ld";
846 const char *nm_suffix
= "nm";
847 const char *full_nm_suffix
= nm_suffix
;
848 const char *gnm_suffix
= "gnm";
849 const char *full_gnm_suffix
= gnm_suffix
;
851 const char *ldd_suffix
= LDD_SUFFIX
;
852 const char *full_ldd_suffix
= ldd_suffix
;
854 const char *strip_suffix
= "strip";
855 const char *full_strip_suffix
= strip_suffix
;
856 const char *gstrip_suffix
= "gstrip";
857 const char *full_gstrip_suffix
= gstrip_suffix
;
860 #ifdef COLLECT_EXPORT_LIST
864 const char *ld_file_name
;
875 int num_c_args
= argc
+9;
877 #if defined (COLLECT2_HOST_INITIALIZATION)
878 /* Perform system dependant initialization, if neccessary. */
879 COLLECT2_HOST_INITIALIZATION
;
882 #ifdef HAVE_LC_MESSAGES
883 setlocale (LC_MESSAGES
, "");
885 (void) bindtextdomain (PACKAGE
, localedir
);
886 (void) textdomain (PACKAGE
);
888 /* Do not invoke xcalloc before this point, since locale needs to be
889 set first, in case a diagnostic is issued. */
891 ld1
= (const char **)(ld1_argv
= (char **) xcalloc(sizeof (char *), argc
+3));
892 ld2
= (const char **)(ld2_argv
= (char **) xcalloc(sizeof (char *), argc
+6));
893 object
= (const char **)(object_lst
= (char **) xcalloc(sizeof (char *), argc
));
899 /* Parse command line early for instances of -debug. This allows
900 the debug flag to be set before functions like find_a_file()
905 for (i
= 1; argv
[i
] != NULL
; i
++)
906 if (! strcmp (argv
[i
], "-debug"))
911 #ifndef DEFAULT_A_OUT_NAME
912 output_file
= "a.out";
914 output_file
= DEFAULT_A_OUT_NAME
;
917 obstack_begin (&temporary_obstack
, 0);
918 obstack_begin (&permanent_obstack
, 0);
919 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
921 current_demangling_style
= gnu_demangling
;
922 p
= getenv ("COLLECT_GCC_OPTIONS");
925 const char *q
= extract_string (&p
);
926 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
929 obstack_free (&temporary_obstack
, temporary_firstobj
);
932 c_ptr
= (const char **)
933 (c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
));
936 fatal ("no arguments");
939 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
940 signal (SIGQUIT
, handler
);
942 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
943 signal (SIGINT
, handler
);
945 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
946 signal (SIGALRM
, handler
);
949 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
950 signal (SIGHUP
, handler
);
952 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
953 signal (SIGSEGV
, handler
);
955 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
956 signal (SIGBUS
, handler
);
959 /* Extract COMPILER_PATH and PATH into our prefix list. */
960 prefix_from_env ("COMPILER_PATH", &cpath
);
961 prefix_from_env ("PATH", &path
);
964 /* If we look for a program in the compiler directories, we just use
965 the short name, since these directories are already system-specific.
966 But it we look for a program in the system directories, we need to
967 qualify the program name with the target machine. */
969 full_ld_suffix
= concat(target_machine
, "-", ld_suffix
, NULL
);
972 full_gld_suffix
= concat (target_machine
, "-", gld_suffix
, NULL
);
975 full_nm_suffix
= concat (target_machine
, "-", nm_suffix
, NULL
);
977 full_gnm_suffix
= concat (target_machine
, "-", gnm_suffix
, NULL
);
980 full_ldd_suffix
= concat (target_machine
, "-", ldd_suffix
, NULL
);
983 full_strip_suffix
= concat (target_machine
, "-", strip_suffix
, NULL
);
985 full_gstrip_suffix
= concat (target_machine
, "-", gstrip_suffix
, NULL
);
986 #endif /* CROSS_COMPILE */
988 /* Try to discover a valid linker/nm/strip to use. */
990 /* Maybe we know the right file to use (if not cross). */
992 #ifdef DEFAULT_LINKER
993 if (access (DEFAULT_LINKER
, X_OK
) == 0)
994 ld_file_name
= DEFAULT_LINKER
;
995 if (ld_file_name
== 0)
997 #ifdef REAL_LD_FILE_NAME
998 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
999 if (ld_file_name
== 0)
1001 /* Search the (target-specific) compiler dirs for ld'. */
1002 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1003 /* Likewise for `collect-ld'. */
1004 if (ld_file_name
== 0)
1005 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1006 /* Search the compiler directories for `ld'. We have protection against
1007 recursive calls in find_a_file. */
1008 if (ld_file_name
== 0)
1009 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1010 /* Search the ordinary system bin directories
1011 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1012 if (ld_file_name
== 0)
1013 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1015 #ifdef REAL_NM_FILE_NAME
1016 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1017 if (nm_file_name
== 0)
1019 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1020 if (nm_file_name
== 0)
1021 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1022 if (nm_file_name
== 0)
1023 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1024 if (nm_file_name
== 0)
1025 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1028 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1029 if (ldd_file_name
== 0)
1030 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1033 #ifdef REAL_STRIP_FILE_NAME
1034 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1035 if (strip_file_name
== 0)
1037 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1038 if (strip_file_name
== 0)
1039 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1040 if (strip_file_name
== 0)
1041 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1042 if (strip_file_name
== 0)
1043 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1045 /* Determine the full path name of the C compiler to use. */
1046 c_file_name
= getenv ("COLLECT_GCC");
1047 if (c_file_name
== 0)
1049 #ifdef CROSS_COMPILE
1050 c_file_name
= concat (target_machine
, "-gcc", NULL
);
1052 c_file_name
= "gcc";
1056 p
= find_a_file (&cpath
, c_file_name
);
1058 /* Here it should be safe to use the system search path since we should have
1059 already qualified the name of the compiler when it is needed. */
1061 p
= find_a_file (&path
, c_file_name
);
1066 *ld1
++ = *ld2
++ = ld_file_name
;
1068 /* Make temp file names. */
1069 c_file
= make_temp_file (".c");
1070 o_file
= make_temp_file (".o");
1071 #ifdef COLLECT_EXPORT_LIST
1072 export_file
= make_temp_file (".x");
1073 import_file
= make_temp_file (".p");
1075 ldout
= make_temp_file (".ld");
1076 *c_ptr
++ = c_file_name
;
1083 #ifdef COLLECT_EXPORT_LIST
1084 /* Generate a list of directories from LIBPATH. */
1085 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1086 /* Add to this list also two standard directories where
1087 AIX loader always searches for libraries. */
1088 add_prefix (&libpath_lib_dirs
, "/lib");
1089 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1092 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1094 AIX support needs to know if -shared has been specified before
1095 parsing commandline arguments. */
1097 p
= getenv ("COLLECT_GCC_OPTIONS");
1100 const char *q
= extract_string (&p
);
1101 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1102 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1103 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1104 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1105 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1108 obstack_free (&temporary_obstack
, temporary_firstobj
);
1109 *c_ptr
++ = "-fno-exceptions";
1111 /* !!! When GCC calls collect2,
1112 it does not know whether it is calling collect2 or ld.
1113 So collect2 cannot meaningfully understand any options
1114 except those ld understands.
1115 If you propose to make GCC pass some other option,
1116 just imagine what will happen if ld is really ld!!! */
1118 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1119 /* After the first file, put in the c++ rt0. */
1122 while ((arg
= *++argv
) != (char *) 0)
1124 *ld1
++ = *ld2
++ = arg
;
1130 #ifdef COLLECT_EXPORT_LIST
1131 /* We want to disable automatic exports on AIX when user
1132 explicitly puts an export list in command line */
1134 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1136 else if (arg
[2] == '6' && arg
[3] == '4')
1142 if (!strcmp (arg
, "-debug"))
1144 /* Already parsed. */
1153 /* place o_file BEFORE this argument! */
1159 #ifdef COLLECT_EXPORT_LIST
1161 /* Resolving full library name. */
1162 const char *s
= resolve_lib_name (arg
+2);
1164 /* If we will use an import list for this library,
1165 we should exclude it from ld args. */
1166 if (use_import_list (s
))
1172 /* Saving a full library name. */
1173 add_to_list (&libs
, s
);
1178 #ifdef COLLECT_EXPORT_LIST
1179 /* Saving directories where to search for libraries. */
1181 add_prefix (&cmdline_lib_dirs
, arg
+2);
1187 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1189 output_file
= &arg
[2];
1198 if (arg
[2] == '\0' && do_collecting
)
1200 /* We must strip after the nm run, otherwise C++ linking
1201 will not work. Thus we strip in the second ld run, or
1202 else with strip if there is no second ld run. */
1214 else if ((p
= rindex (arg
, '.')) != (char *) 0
1215 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1216 || strcmp (p
, ".so") == 0))
1225 /* place o_file BEFORE this argument! */
1233 #ifdef COLLECT_EXPORT_LIST
1234 /* libraries can be specified directly, i.e. without -l flag. */
1237 /* If we will use an import list for this library,
1238 we should exclude it from ld args. */
1239 if (use_import_list (arg
))
1245 /* Saving a full library name. */
1246 add_to_list (&libs
, arg
);
1252 #ifdef COLLECT_EXPORT_LIST
1253 /* This is added only for debugging purposes. */
1256 fprintf (stderr
, "List of libraries:\n");
1257 dump_list (stderr
, "\t", libs
.first
);
1260 /* The AIX linker will discard static constructors in object files if
1261 nothing else in the file is referenced, so look at them first. */
1263 char **export_object_lst
= object_lst
;
1265 while (export_object_lst
< object
)
1266 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1269 struct id
*list
= libs
.first
;
1271 for (; list
; list
= list
->next
)
1272 scan_prog_file (list
->name
, PASS_FIRST
);
1277 char *buf
= xmalloc (strlen (export_file
) + 5);
1279 sprintf (buf
, "-bE:%s", export_file
);
1283 exportf
= fopen (export_file
, "w");
1284 if (exportf
== (FILE *) 0)
1285 fatal_perror ("fopen %s", export_file
);
1286 write_aix_file (exportf
, exports
.first
);
1287 if (fclose (exportf
))
1288 fatal_perror ("fclose %s", export_file
);
1293 char *buf
= xmalloc (strlen (import_file
) + 5);
1295 sprintf (buf
, "-bI:%s", import_file
);
1299 importf
= fopen (import_file
, "w");
1300 if (importf
== (FILE *) 0)
1301 fatal_perror ("%s", import_file
);
1302 fputs ("#! .\n", importf
);
1303 write_aix_file (importf
, imports
.first
);
1304 if (fclose (importf
))
1305 fatal_perror ("fclose %s", import_file
);
1310 *c_ptr
= *ld1
= *object
= (char *) 0;
1314 notice ("collect2 version %s", version_string
);
1315 #ifdef TARGET_VERSION
1318 fprintf (stderr
, "\n");
1324 fprintf (stderr
, "ld_file_name = %s\n",
1325 (ld_file_name
? ld_file_name
: "not found"));
1326 fprintf (stderr
, "c_file_name = %s\n",
1327 (c_file_name
? c_file_name
: "not found"));
1328 fprintf (stderr
, "nm_file_name = %s\n",
1329 (nm_file_name
? nm_file_name
: "not found"));
1331 fprintf (stderr
, "ldd_file_name = %s\n",
1332 (ldd_file_name
? ldd_file_name
: "not found"));
1334 fprintf (stderr
, "strip_file_name = %s\n",
1335 (strip_file_name
? strip_file_name
: "not found"));
1336 fprintf (stderr
, "c_file = %s\n",
1337 (c_file
? c_file
: "not found"));
1338 fprintf (stderr
, "o_file = %s\n",
1339 (o_file
? o_file
: "not found"));
1341 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1343 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1345 ptr
= getenv ("COLLECT_GCC");
1347 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1349 ptr
= getenv ("COMPILER_PATH");
1351 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1353 ptr
= getenv ("LIBRARY_PATH");
1355 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1357 fprintf (stderr
, "\n");
1360 /* Load the program, searching all libraries and attempting to provide
1361 undefined symbols from repository information. */
1363 /* On AIX we do this later. */
1364 #ifndef COLLECT_EXPORT_LIST
1365 do_tlink (ld1_argv
, object_lst
);
1368 /* If -r or they will be run via some other method, do not build the
1369 constructor or destructor list, just return now. */
1371 #ifndef COLLECT_EXPORT_LIST
1376 #ifdef COLLECT_EXPORT_LIST
1377 /* But make sure we delete the export file we may have created. */
1378 if (export_file
!= 0 && export_file
[0])
1379 maybe_unlink (export_file
);
1380 if (import_file
!= 0 && import_file
[0])
1381 maybe_unlink (import_file
);
1383 maybe_unlink (c_file
);
1384 maybe_unlink (o_file
);
1388 /* Examine the namelist with nm and search it for static constructors
1389 and destructors to call.
1390 Write the constructor and destructor tables to a .s file and reload. */
1392 /* On AIX we already scanned for global constructors/destructors. */
1393 #ifndef COLLECT_EXPORT_LIST
1394 scan_prog_file (output_file
, PASS_FIRST
);
1397 #ifdef SCAN_LIBRARIES
1398 scan_libraries (output_file
);
1403 notice ("%d constructor(s) found\n", constructors
.number
);
1404 notice ("%d destructor(s) found\n", destructors
.number
);
1405 notice ("%d frame table(s) found\n", frame_tables
.number
);
1408 if (constructors
.number
== 0 && destructors
.number
== 0
1409 && frame_tables
.number
== 0
1410 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1411 /* If we will be running these functions ourselves, we want to emit
1412 stubs into the shared library so that we do not have to relink
1413 dependent programs when we add static objects. */
1418 #ifdef COLLECT_EXPORT_LIST
1419 /* Do tlink without additional code generation */
1420 do_tlink (ld1_argv
, object_lst
);
1422 /* Strip now if it was requested on the command line. */
1425 char **real_strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1426 const char ** strip_argv
= (const char **) real_strip_argv
;
1428 strip_argv
[0] = strip_file_name
;
1429 strip_argv
[1] = output_file
;
1430 strip_argv
[2] = (char *) 0;
1431 fork_execute ("strip", real_strip_argv
);
1434 #ifdef COLLECT_EXPORT_LIST
1435 maybe_unlink (export_file
);
1436 maybe_unlink (import_file
);
1438 maybe_unlink (c_file
);
1439 maybe_unlink (o_file
);
1443 /* Sort ctor and dtor lists by priority. */
1444 sort_ids (&constructors
);
1445 sort_ids (&destructors
);
1447 maybe_unlink(output_file
);
1448 outf
= fopen (c_file
, "w");
1449 if (outf
== (FILE *) 0)
1450 fatal_perror ("fopen %s", c_file
);
1452 write_c_file (outf
, c_file
);
1455 fatal_perror ("fclose %s", c_file
);
1457 /* Tell the linker that we have initializer and finalizer functions. */
1458 #ifdef LD_INIT_SWITCH
1459 *ld2
++ = LD_INIT_SWITCH
;
1461 *ld2
++ = LD_FINI_SWITCH
;
1465 #ifdef COLLECT_EXPORT_LIST
1468 /* If we did not add export flag to link arguments before, add it to
1469 second link phase now. No new exports should have been added. */
1470 if (! exports
.first
)
1472 char *buf
= xmalloc (strlen (export_file
) + 5);
1474 sprintf (buf
, "-bE:%s", export_file
);
1478 add_to_list (&exports
, initname
);
1479 add_to_list (&exports
, fininame
);
1480 add_to_list (&exports
, "_GLOBAL__DI");
1481 add_to_list (&exports
, "_GLOBAL__DD");
1482 exportf
= fopen (export_file
, "w");
1483 if (exportf
== (FILE *) 0)
1484 fatal_perror ("fopen %s", export_file
);
1485 write_aix_file (exportf
, exports
.first
);
1486 if (fclose (exportf
))
1487 fatal_perror ("fclose %s", export_file
);
1491 /* End of arguments to second link phase. */
1496 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1497 output_file
, c_file
);
1498 write_c_file (stderr
, "stderr");
1499 fprintf (stderr
, "========== end of c_file\n\n");
1500 #ifdef COLLECT_EXPORT_LIST
1501 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1502 write_aix_file (stderr
, exports
.first
);
1503 fprintf (stderr
, "========== end of export_file\n\n");
1507 /* Assemble the constructor and destructor tables.
1508 Link the tables in with the rest of the program. */
1510 fork_execute ("gcc", c_argv
);
1511 #ifdef COLLECT_EXPORT_LIST
1512 /* On AIX we must call tlink because of possible templates resolution */
1513 do_tlink (ld2_argv
, object_lst
);
1515 /* Otherwise, simply call ld because tlink is already done */
1516 fork_execute ("ld", ld2_argv
);
1518 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1519 constructors/destructors in shared libraries. */
1520 scan_prog_file (output_file
, PASS_SECOND
);
1523 maybe_unlink (c_file
);
1524 maybe_unlink (o_file
);
1526 #ifdef COLLECT_EXPORT_LIST
1527 maybe_unlink (export_file
);
1528 maybe_unlink (import_file
);
1535 /* Wait for a process to finish, and exit if a non-zero status is found. */
1543 pwait (pexecute_pid
, &status
, 0);
1546 if (WIFSIGNALED (status
))
1548 int sig
= WTERMSIG (status
);
1549 error ((status
& 0200
1550 ? "%s terminated with signal %d [%s]"
1551 : "%s terminated with signal %d [%s], core dumped"),
1555 collect_exit (FATAL_EXIT_CODE
);
1558 if (WIFEXITED (status
))
1559 return WEXITSTATUS (status
);
1568 int ret
= collect_wait (prog
);
1571 error ("%s returned %d exit status", prog
, ret
);
1577 /* Execute a program, and wait for the reply. */
1580 collect_execute (prog
, argv
, redir
)
1587 int redir_handle
= -1;
1588 int stdout_save
= -1;
1589 int stderr_save
= -1;
1597 fprintf (stderr
, "%s", argv
[0]);
1599 notice ("[cannot find %s]", prog
);
1601 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1602 fprintf (stderr
, " %s", str
);
1604 fprintf (stderr
, "\n");
1610 /* If we cannot find a program we need, complain error. Do this here
1611 since we might not end up needing something that we could not find. */
1614 fatal ("cannot find `%s'", prog
);
1618 /* Open response file. */
1619 redir_handle
= open (redir
, O_WRONLY
| O_TRUNC
| O_CREAT
);
1621 /* Duplicate the stdout and stderr file handles
1622 so they can be restored later. */
1623 stdout_save
= dup (STDOUT_FILENO
);
1624 if (stdout_save
== -1)
1625 fatal_perror ("redirecting stdout: %s", redir
);
1626 stderr_save
= dup (STDERR_FILENO
);
1627 if (stderr_save
== -1)
1628 fatal_perror ("redirecting stdout: %s", redir
);
1630 /* Redirect stdout & stderr to our response file. */
1631 dup2 (redir_handle
, STDOUT_FILENO
);
1632 dup2 (redir_handle
, STDERR_FILENO
);
1635 pexecute_pid
= pexecute (argv
[0], argv
, argv
[0], NULL
,
1636 &errmsg_fmt
, &errmsg_arg
,
1637 (PEXECUTE_FIRST
| PEXECUTE_LAST
| PEXECUTE_SEARCH
));
1641 /* Restore stdout and stderr to their previous settings. */
1642 dup2 (stdout_save
, STDOUT_FILENO
);
1643 dup2 (stderr_save
, STDERR_FILENO
);
1645 /* Close reponse file. */
1646 close (redir_handle
);
1649 if (pexecute_pid
== -1)
1650 fatal_perror (errmsg_fmt
, errmsg_arg
);
1654 fork_execute (prog
, argv
)
1658 collect_execute (prog
, argv
, NULL
);
1662 /* Unlink a file unless we are debugging. */
1671 notice ("[Leaving %s]\n", file
);
1675 static long sequence_number
= 0;
1677 /* Add a name to a linked list. */
1680 add_to_list (head_ptr
, name
)
1681 struct head
*head_ptr
;
1685 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1687 strcpy (newid
->name
, name
);
1689 if (head_ptr
->first
)
1690 head_ptr
->last
->next
= newid
;
1692 head_ptr
->first
= newid
;
1694 /* Check for duplicate symbols. */
1695 for (p
= head_ptr
->first
;
1696 strcmp (name
, p
->name
) != 0;
1701 head_ptr
->last
->next
= 0;
1706 newid
->sequence
= ++sequence_number
;
1707 head_ptr
->last
= newid
;
1711 /* Grab the init priority number from an init function name that
1712 looks like "_GLOBAL_.I.12345.foo". */
1715 extract_init_priority (name
)
1720 while (name
[pos
] == '_')
1722 pos
+= 10; /* strlen ("GLOBAL__X_") */
1724 /* Extract init_p number from ctor/dtor name. */
1725 pri
= atoi (name
+ pos
);
1726 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1729 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1730 ctors will be run from right to left, dtors from left to right. */
1734 struct head
*head_ptr
;
1736 /* id holds the current element to insert. id_next holds the next
1737 element to insert. id_ptr iterates through the already sorted elements
1738 looking for the place to insert id. */
1739 struct id
*id
, *id_next
, **id_ptr
;
1741 id
= head_ptr
->first
;
1743 /* We don't have any sorted elements yet. */
1744 head_ptr
->first
= NULL
;
1746 for (; id
; id
= id_next
)
1749 id
->sequence
= extract_init_priority (id
->name
);
1751 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1753 /* If the sequence numbers are the same, we put the id from the
1754 file later on the command line later in the list. */
1755 || id
->sequence
> (*id_ptr
)->sequence
1756 /* Hack: do lexical compare, too.
1757 || (id->sequence == (*id_ptr)->sequence
1758 && strcmp (id->name, (*id_ptr)->name) > 0) */
1767 /* Now set the sequence numbers properly so write_c_file works. */
1768 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1769 id
->sequence
= ++sequence_number
;
1772 /* Write: `prefix', the names on list LIST, `suffix'. */
1775 write_list (stream
, prefix
, list
)
1782 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1787 #ifdef COLLECT_EXPORT_LIST
1788 /* This function is really used only on AIX, but may be useful. */
1790 is_in_list (prefix
, list
)
1796 if (!strcmp (prefix
, list
->name
)) return 1;
1803 /* Added for debugging purpose. */
1804 #ifdef COLLECT_EXPORT_LIST
1806 dump_list (stream
, prefix
, list
)
1813 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1821 dump_prefix_list (stream
, prefix
, list
)
1824 struct prefix_list
*list
;
1828 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1835 write_list_with_asm (stream
, prefix
, list
)
1842 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1843 prefix
, list
->sequence
, list
->name
);
1848 /* Write out the constructor and destructor tables statically (for a shared
1849 object), along with the functions to execute them. */
1852 write_c_file_stat (stream
, name
)
1854 const char *name ATTRIBUTE_UNUSED
;
1858 int frames
= (frame_tables
.number
> 0);
1860 /* Figure out name of output_file, stripping off .so version. */
1861 p
= rindex (output_file
, '/');
1877 if (strncmp (q
, ".so", 3) == 0)
1886 /* q points to null at end of the string (or . of the .so version) */
1887 prefix
= xmalloc (q
- p
+ 1);
1888 strncpy (prefix
, p
, q
- p
);
1890 for (r
= prefix
; *r
; r
++)
1891 if (!ISALNUM ((unsigned char)*r
))
1894 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
1895 output_file
, prefix
);
1897 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
1898 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
1899 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
1901 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
1902 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
1903 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
1907 /* Write the tables as C code */
1909 fprintf (stream
, "static int count;\n");
1910 fprintf (stream
, "typedef void entry_pt();\n");
1911 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1915 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1917 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1918 write_list (stream
, "\t\t&", frame_tables
.first
);
1919 fprintf (stream
, "\t0\n};\n");
1921 /* This must match what's in frame.h. */
1922 fprintf (stream
, "struct object {\n");
1923 fprintf (stream
, " void *pc_begin;\n");
1924 fprintf (stream
, " void *pc_end;\n");
1925 fprintf (stream
, " void *fde_begin;\n");
1926 fprintf (stream
, " void *fde_array;\n");
1927 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1928 fprintf (stream
, " struct object *next;\n");
1929 fprintf (stream
, "};\n");
1931 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1932 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1934 fprintf (stream
, "static void reg_frame () {\n");
1935 fprintf (stream
, "\tstatic struct object ob;\n");
1936 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1937 fprintf (stream
, "\t}\n");
1939 fprintf (stream
, "static void dereg_frame () {\n");
1940 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1941 fprintf (stream
, "\t}\n");
1944 fprintf (stream
, "void %s() {\n", initname
);
1945 if (constructors
.number
> 0 || frames
)
1947 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
1948 write_list (stream
, "\t\t", constructors
.first
);
1950 fprintf (stream
, "\treg_frame,\n");
1951 fprintf (stream
, "\t};\n");
1952 fprintf (stream
, "\tentry_pt **p;\n");
1953 fprintf (stream
, "\tif (count++ != 0) return;\n");
1954 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
1955 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
1958 fprintf (stream
, "\t++count;\n");
1959 fprintf (stream
, "}\n");
1960 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
1961 fprintf (stream
, "void %s() {\n", fininame
);
1962 if (destructors
.number
> 0 || frames
)
1964 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
1965 write_list (stream
, "\t\t", destructors
.first
);
1967 fprintf (stream
, "\tdereg_frame,\n");
1968 fprintf (stream
, "\t};\n");
1969 fprintf (stream
, "\tentry_pt **p;\n");
1970 fprintf (stream
, "\tif (--count != 0) return;\n");
1971 fprintf (stream
, "\tp = dtors;\n");
1972 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
1973 destructors
.number
+ frames
);
1975 fprintf (stream
, "}\n");
1979 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
1980 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
1984 /* Write the constructor/destructor tables. */
1986 #ifndef LD_INIT_SWITCH
1988 write_c_file_glob (stream
, name
)
1990 const char *name ATTRIBUTE_UNUSED
;
1992 /* Write the tables as C code */
1994 int frames
= (frame_tables
.number
> 0);
1996 fprintf (stream
, "typedef void entry_pt();\n\n");
1998 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2002 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2004 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2005 write_list (stream
, "\t\t&", frame_tables
.first
);
2006 fprintf (stream
, "\t0\n};\n");
2008 /* This must match what's in frame.h. */
2009 fprintf (stream
, "struct object {\n");
2010 fprintf (stream
, " void *pc_begin;\n");
2011 fprintf (stream
, " void *pc_end;\n");
2012 fprintf (stream
, " void *fde_begin;\n");
2013 fprintf (stream
, " void *fde_array;\n");
2014 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2015 fprintf (stream
, " struct object *next;\n");
2016 fprintf (stream
, "};\n");
2018 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2019 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2021 fprintf (stream
, "static void reg_frame () {\n");
2022 fprintf (stream
, "\tstatic struct object ob;\n");
2023 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2024 fprintf (stream
, "\t}\n");
2026 fprintf (stream
, "static void dereg_frame () {\n");
2027 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2028 fprintf (stream
, "\t}\n");
2031 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2032 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2033 write_list (stream
, "\t", constructors
.first
);
2035 fprintf (stream
, "\treg_frame,\n");
2036 fprintf (stream
, "\t0\n};\n\n");
2038 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2040 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2041 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2042 write_list (stream
, "\t", destructors
.first
);
2044 fprintf (stream
, "\tdereg_frame,\n");
2045 fprintf (stream
, "\t0\n};\n\n");
2047 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2048 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2050 #endif /* ! LD_INIT_SWITCH */
2053 write_c_file (stream
, name
)
2057 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2058 #ifndef LD_INIT_SWITCH
2060 write_c_file_glob (stream
, name
);
2063 write_c_file_stat (stream
, name
);
2064 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2067 #ifdef COLLECT_EXPORT_LIST
2069 write_aix_file (stream
, list
)
2073 for (; list
; list
= list
->next
)
2075 fputs (list
->name
, stream
);
2076 putc ('\n', stream
);
2081 #ifdef OBJECT_FORMAT_NONE
2083 /* Generic version to scan the name list of the loaded program for
2084 the symbols g++ uses for static constructors and destructors.
2086 The constructor table begins at __CTOR_LIST__ and contains a count
2087 of the number of pointers (or -1 if the constructors are built in a
2088 separate section by the linker), followed by the pointers to the
2089 constructor functions, terminated with a null pointer. The
2090 destructor table has the same format, and begins at __DTOR_LIST__. */
2093 scan_prog_file (prog_name
, which_pass
)
2094 const char *prog_name
;
2095 enum pass which_pass
;
2097 void (*int_handler
) PROTO ((int));
2098 void (*quit_handler
) PROTO ((int));
2099 char *real_nm_argv
[4];
2100 const char **nm_argv
= (const char **) real_nm_argv
;
2107 if (which_pass
== PASS_SECOND
)
2110 /* If we do not have an `nm', complain. */
2111 if (nm_file_name
== 0)
2112 fatal ("cannot find `nm'");
2114 nm_argv
[argc
++] = nm_file_name
;
2115 if (NM_FLAGS
[0] != '\0')
2116 nm_argv
[argc
++] = NM_FLAGS
;
2118 nm_argv
[argc
++] = prog_name
;
2119 nm_argv
[argc
++] = (char *) 0;
2121 if (pipe (pipe_fd
) < 0)
2122 fatal_perror ("pipe");
2124 inf
= fdopen (pipe_fd
[0], "r");
2125 if (inf
== (FILE *) 0)
2126 fatal_perror ("fdopen");
2128 /* Trace if needed. */
2131 const char **p_argv
;
2134 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2135 fprintf (stderr
, " %s", str
);
2137 fprintf (stderr
, "\n");
2143 /* Spawn child nm on pipe */
2146 fatal_perror (VFORK_STRING
);
2148 if (pid
== 0) /* child context */
2151 if (dup2 (pipe_fd
[1], 1) < 0)
2152 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2154 if (close (pipe_fd
[0]) < 0)
2155 fatal_perror ("close %d", pipe_fd
[0]);
2157 if (close (pipe_fd
[1]) < 0)
2158 fatal_perror ("close %d", pipe_fd
[1]);
2160 execv (nm_file_name
, real_nm_argv
);
2161 fatal_perror ("execvp %s", nm_file_name
);
2164 /* Parent context from here on. */
2165 int_handler
= (void (*) PROTO ((int))) signal (SIGINT
, SIG_IGN
);
2167 quit_handler
= (void (*) PROTO ((int))) signal (SIGQUIT
, SIG_IGN
);
2170 if (close (pipe_fd
[1]) < 0)
2171 fatal_perror ("close %d", pipe_fd
[1]);
2174 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2176 /* Read each line of nm output. */
2177 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2182 /* If it contains a constructor or destructor name, add the name
2183 to the appropriate list. */
2185 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2186 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2193 /* Find the end of the symbol name.
2194 Do not include `|', because Encore nm can tack that on the end. */
2195 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2201 switch (is_ctor_dtor (name
))
2204 if (which_pass
!= PASS_LIB
)
2205 add_to_list (&constructors
, name
);
2209 if (which_pass
!= PASS_LIB
)
2210 add_to_list (&destructors
, name
);
2214 if (which_pass
!= PASS_LIB
)
2215 fatal ("init function found in object %s", prog_name
);
2216 #ifndef LD_INIT_SWITCH
2217 add_to_list (&constructors
, name
);
2222 if (which_pass
!= PASS_LIB
)
2223 fatal ("fini function found in object %s", prog_name
);
2224 #ifndef LD_FINI_SWITCH
2225 add_to_list (&destructors
, name
);
2230 if (which_pass
!= PASS_LIB
)
2231 add_to_list (&frame_tables
, name
);
2234 default: /* not a constructor or destructor */
2239 fprintf (stderr
, "\t%s\n", buf
);
2243 fprintf (stderr
, "\n");
2245 if (fclose (inf
) != 0)
2246 fatal_perror ("fclose");
2248 do_wait (nm_file_name
);
2250 signal (SIGINT
, int_handler
);
2252 signal (SIGQUIT
, quit_handler
);
2256 #if SUNOS4_SHARED_LIBRARIES
2258 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2259 that the output file depends upon and their initialization/finalization
2260 routines, if any. */
2265 #include <sys/mman.h>
2266 #include <sys/param.h>
2268 #include <sys/dir.h>
2270 /* pointers to the object file */
2271 unsigned object
; /* address of memory mapped file */
2272 unsigned objsize
; /* size of memory mapped to file */
2273 char * code
; /* pointer to code segment */
2274 char * data
; /* pointer to data segment */
2275 struct nlist
*symtab
; /* pointer to symbol table */
2276 struct link_dynamic
*ld
;
2277 struct link_dynamic_2
*ld_2
;
2278 struct head libraries
;
2280 /* Map the file indicated by NAME into memory and store its address. */
2282 static void mapfile
PROTO ((const char *));
2290 if ((fp
= open (name
, O_RDONLY
)) == -1)
2291 fatal ("unable to open file '%s'", name
);
2292 if (fstat (fp
, &s
) == -1)
2293 fatal ("unable to stat file '%s'", name
);
2295 objsize
= s
.st_size
;
2296 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2298 if (object
== (unsigned)-1)
2299 fatal ("unable to mmap file '%s'", name
);
2304 /* Helpers for locatelib. */
2306 static const char *libname
;
2308 static int libselect
PROTO ((struct direct
*));
2314 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2317 /* If one file has an additional numeric extension past LIBNAME, then put
2318 that one first in the sort. If both files have additional numeric
2319 extensions, then put the one with the higher number first in the sort.
2321 We must verify that the extension is numeric, because Sun saves the
2322 original versions of patched libraries with a .FCS extension. Files with
2323 invalid extensions must go last in the sort, so that they will not be used. */
2324 static int libcompare
PROTO ((struct direct
**, struct direct
**));
2328 struct direct
**d1
, **d2
;
2330 int i1
, i2
= strlen (libname
);
2331 char *e1
= (*d1
)->d_name
+ i2
;
2332 char *e2
= (*d2
)->d_name
+ i2
;
2334 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2335 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2339 i1
= strtol (e1
, &e1
, 10);
2340 i2
= strtol (e2
, &e2
, 10);
2347 /* It has a valid numeric extension, prefer this one. */
2348 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2350 /* It has a invalid numeric extension, must prefer the other one. */
2356 /* It has a valid numeric extension, prefer this one. */
2357 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2359 /* It has a invalid numeric extension, must prefer the other one. */
2367 /* Given the name NAME of a dynamic dependency, find its pathname and add
2368 it to the list of libraries. */
2369 static void locatelib
PROTO ((const char *));
2375 static const char **l
;
2377 char buf
[MAXPATHLEN
];
2385 /* counting elements in array, need 1 extra for null */
2387 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2391 for (; *ld_rules
!= 0; ld_rules
++)
2392 if (*ld_rules
== ':')
2394 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2395 ldr
= xstrdup (ld_rules
);
2397 p
= getenv ("LD_LIBRARY_PATH");
2402 for (q
= p
; *q
!= 0; q
++)
2407 l
= (const char **) xmalloc ((cnt
+ 3) * sizeof (char *));
2412 for (; *ldr
!= 0; ldr
++)
2422 for (; *q
!= 0; q
++)
2429 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2432 *pp
++ = "/usr/local/lib";
2436 for (pp
= l
; *pp
!= 0 ; pp
++)
2438 struct direct
**namelist
;
2440 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2442 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2443 add_to_list (&libraries
, buf
);
2445 fprintf (stderr
, "%s\n", buf
);
2452 notice ("not found\n");
2454 fatal ("dynamic dependency %s not found", name
);
2458 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2459 that it depends upon and any constructors or destructors they contain. */
2462 scan_libraries (prog_name
)
2463 const char *prog_name
;
2465 struct exec
*header
;
2467 struct link_object
*lo
;
2468 char buff
[MAXPATHLEN
];
2471 mapfile (prog_name
);
2472 header
= (struct exec
*)object
;
2473 if (N_BADMAG (*header
))
2474 fatal ("bad magic number in file '%s'", prog_name
);
2475 if (header
->a_dynamic
== 0)
2478 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2479 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2480 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2482 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2485 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2491 ld
= (struct link_dynamic
*) data
;
2496 notice ("dynamic dependencies.\n");
2498 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2499 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2500 lo
= (struct link_object
*) lo
->lo_next
)
2503 lo
= (struct link_object
*) ((long) lo
+ code
);
2504 name
= (char *) (code
+ lo
->lo_name
);
2508 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2509 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2515 fprintf (stderr
, "\t%s\n", name
);
2516 add_to_list (&libraries
, name
);
2521 fprintf (stderr
, "\n");
2523 /* now iterate through the library list adding their symbols to
2525 for (list
= libraries
.first
; list
; list
= list
->next
)
2526 scan_prog_file (list
->name
, PASS_LIB
);
2529 #else /* SUNOS4_SHARED_LIBRARIES */
2532 /* Use the List Dynamic Dependencies program to find shared libraries that
2533 the output file depends upon and their initialization/finalization
2534 routines, if any. */
2537 scan_libraries (prog_name
)
2538 const char *prog_name
;
2540 static struct head libraries
; /* list of shared libraries found */
2542 void (*int_handler
) PROTO ((int));
2543 void (*quit_handler
) PROTO ((int));
2544 char *real_ldd_argv
[4];
2545 const char **ldd_argv
= (const char **) real_ldd_argv
;
2552 /* If we do not have an `ldd', complain. */
2553 if (ldd_file_name
== 0)
2555 error ("cannot find `ldd'");
2559 ldd_argv
[argc
++] = ldd_file_name
;
2560 ldd_argv
[argc
++] = prog_name
;
2561 ldd_argv
[argc
++] = (char *) 0;
2563 if (pipe (pipe_fd
) < 0)
2564 fatal_perror ("pipe");
2566 inf
= fdopen (pipe_fd
[0], "r");
2567 if (inf
== (FILE *) 0)
2568 fatal_perror ("fdopen");
2570 /* Trace if needed. */
2573 const char **p_argv
;
2576 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2577 fprintf (stderr
, " %s", str
);
2579 fprintf (stderr
, "\n");
2585 /* Spawn child ldd on pipe */
2588 fatal_perror (VFORK_STRING
);
2590 if (pid
== 0) /* child context */
2593 if (dup2 (pipe_fd
[1], 1) < 0)
2594 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2596 if (close (pipe_fd
[0]) < 0)
2597 fatal_perror ("close %d", pipe_fd
[0]);
2599 if (close (pipe_fd
[1]) < 0)
2600 fatal_perror ("close %d", pipe_fd
[1]);
2602 execv (ldd_file_name
, real_ldd_argv
);
2603 fatal_perror ("execv %s", ldd_file_name
);
2606 /* Parent context from here on. */
2607 int_handler
= (void (*) PROTO ((int))) signal (SIGINT
, SIG_IGN
);
2609 quit_handler
= (void (*) PROTO ((int))) signal (SIGQUIT
, SIG_IGN
);
2612 if (close (pipe_fd
[1]) < 0)
2613 fatal_perror ("close %d", pipe_fd
[1]);
2616 notice ("\nldd output with constructors/destructors.\n");
2618 /* Read each line of ldd output. */
2619 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2622 char *name
, *end
, *p
= buf
;
2624 /* Extract names of libraries and add to list. */
2625 PARSE_LDD_OUTPUT (p
);
2630 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2631 fatal ("dynamic dependency %s not found", buf
);
2633 /* Find the end of the symbol name. */
2635 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2640 if (access (name
, R_OK
) == 0)
2641 add_to_list (&libraries
, name
);
2643 fatal ("unable to open dynamic dependency '%s'", buf
);
2646 fprintf (stderr
, "\t%s\n", buf
);
2649 fprintf (stderr
, "\n");
2651 if (fclose (inf
) != 0)
2652 fatal_perror ("fclose");
2654 do_wait (ldd_file_name
);
2656 signal (SIGINT
, int_handler
);
2658 signal (SIGQUIT
, quit_handler
);
2661 /* now iterate through the library list adding their symbols to
2663 for (list
= libraries
.first
; list
; list
= list
->next
)
2664 scan_prog_file (list
->name
, PASS_LIB
);
2667 #endif /* LDD_SUFFIX */
2668 #endif /* SUNOS4_SHARED_LIBRARIES */
2670 #endif /* OBJECT_FORMAT_NONE */
2674 * COFF specific stuff.
2677 #ifdef OBJECT_FORMAT_COFF
2679 #if defined(EXTENDED_COFF)
2680 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2681 # define GCC_SYMENT SYMR
2682 # define GCC_OK_SYMBOL(X) ((X).st == stProc || (X).st == stGlobal)
2683 # define GCC_SYMINC(X) (1)
2684 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2685 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2687 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2688 # define GCC_SYMENT SYMENT
2689 # define GCC_OK_SYMBOL(X) \
2690 (((X).n_sclass == C_EXT) && \
2691 ((X).n_scnum > N_UNDEF) && \
2693 || (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) \
2694 || ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT))))
2695 # define GCC_UNDEF_SYMBOL(X) \
2696 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2697 # define GCC_SYMINC(X) ((X).n_numaux+1)
2698 # define GCC_SYMZERO(X) 0
2699 # define GCC_CHECK_HDR(X) \
2700 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2701 || (HEADER (X).f_magic == 0757 && aix64_flag))
2704 extern char *ldgetname ();
2706 /* COFF version to scan the name list of the loaded program for
2707 the symbols g++ uses for static constructors and destructors.
2709 The constructor table begins at __CTOR_LIST__ and contains a count
2710 of the number of pointers (or -1 if the constructors are built in a
2711 separate section by the linker), followed by the pointers to the
2712 constructor functions, terminated with a null pointer. The
2713 destructor table has the same format, and begins at __DTOR_LIST__. */
2716 scan_prog_file (prog_name
, which_pass
)
2717 const char *prog_name
;
2718 enum pass which_pass
;
2720 LDFILE
*ldptr
= NULL
;
2721 int sym_index
, sym_count
;
2723 #ifdef COLLECT_EXPORT_LIST
2724 /* Should we generate an import list for given prog_name? */
2725 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2728 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2731 #ifdef COLLECT_EXPORT_LIST
2732 /* We do not need scanning for some standard C libraries. */
2733 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2736 /* On AIX we have a loop, because there is not much difference
2737 between an object and an archive. This trick allows us to
2738 eliminate scan_libraries() function. */
2742 /* Some platforms (e.g. OSF4) declare ldopen as taking a
2743 non-const char * filename parameter, even though it will not
2744 modify that string. So we must cast away const-ness here,
2745 which will cause -Wcast-qual to burp. */
2746 if ((ldptr
= ldopen ((char *)prog_name
, ldptr
)) != NULL
)
2748 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2749 fatal ("%s: not a COFF file", prog_name
);
2751 if (GCC_CHECK_HDR (ldptr
))
2753 sym_count
= GCC_SYMBOLS (ldptr
);
2754 sym_index
= GCC_SYMZERO (ldptr
);
2756 #ifdef COLLECT_EXPORT_LIST
2757 /* Is current archive member a shared object? */
2758 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2761 while (sym_index
< sym_count
)
2765 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2767 sym_index
+= GCC_SYMINC (symbol
);
2769 if (GCC_OK_SYMBOL (symbol
))
2773 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2774 continue; /* should never happen */
2776 #ifdef XCOFF_DEBUGGING_INFO
2777 /* All AIX function names have a duplicate entry
2778 beginning with a dot. */
2783 switch (is_ctor_dtor (name
))
2786 if (! is_shared
) add_to_list (&constructors
, name
);
2787 #ifdef COLLECT_EXPORT_LIST
2788 if (which_pass
== PASS_OBJ
)
2789 add_to_list (&exports
, name
);
2790 /* If this symbol was undefined and we are building
2791 an import list, we should add a symbol to this
2795 && is_in_list (name
, undefined
.first
))
2796 add_to_list (&imports
, name
);
2801 if (! is_shared
) add_to_list (&destructors
, name
);
2802 #ifdef COLLECT_EXPORT_LIST
2803 if (which_pass
== PASS_OBJ
)
2804 add_to_list (&exports
, name
);
2805 /* If this symbol was undefined and we are building
2806 an import list, we should add a symbol to this
2810 && is_in_list (name
, undefined
.first
))
2811 add_to_list (&imports
, name
);
2815 #ifdef COLLECT_EXPORT_LIST
2818 add_to_list (&constructors
, name
);
2823 add_to_list (&destructors
, name
);
2829 add_to_list (&frame_tables
, name
);
2832 default: /* not a constructor or destructor */
2833 #ifdef COLLECT_EXPORT_LIST
2834 /* If we are building a shared object on AIX we need
2835 to explicitly export all global symbols or add
2836 them to import list. */
2839 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2840 add_to_list (&exports
, name
);
2841 else if (! is_shared
&& which_pass
== PASS_FIRST
2843 && is_in_list(name
, undefined
.first
))
2844 add_to_list (&imports
, name
);
2850 #if !defined(EXTENDED_COFF)
2852 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2853 symbol
.n_scnum
, symbol
.n_sclass
,
2854 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2859 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2860 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2863 #ifdef COLLECT_EXPORT_LIST
2864 /* If we are building a shared object we should collect
2865 information about undefined symbols for later
2866 import list generation. */
2867 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2871 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2872 continue; /* should never happen */
2874 /* All AIX function names have a duplicate entry
2875 beginning with a dot. */
2878 add_to_list (&undefined
, name
);
2883 #ifdef COLLECT_EXPORT_LIST
2886 /* If archive contains both 32-bit and 64-bit objects,
2887 we want to skip objects in other mode so mismatch normal. */
2889 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2890 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2896 fatal ("%s: cannot open as COFF file", prog_name
);
2898 #ifdef COLLECT_EXPORT_LIST
2899 /* On AIX loop continues while there are more members in archive. */
2901 while (ldclose (ldptr
) == FAILURE
);
2903 /* Otherwise we simply close ldptr. */
2904 (void) ldclose(ldptr
);
2909 #ifdef COLLECT_EXPORT_LIST
2911 /* This new function is used to decide whether we should
2912 generate import list for an object or to use it directly. */
2914 use_import_list (prog_name
)
2915 const char *prog_name
;
2919 /* If we do not build a shared object then import list should not be used. */
2920 if (! shared_obj
) return 0;
2922 /* Currently we check only for libgcc, but this can be changed in future. */
2923 p
= strstr (prog_name
, "libgcc.a");
2924 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
2929 /* Given a library name without "lib" prefix, this function
2930 returns a full library name including a path. */
2932 resolve_lib_name (name
)
2938 for (i
= 0; libpaths
[i
]; i
++)
2939 if (libpaths
[i
]->max_len
> l
)
2940 l
= libpaths
[i
]->max_len
;
2942 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
2944 for (i
= 0; libpaths
[i
]; i
++)
2946 struct prefix_list
*list
= libpaths
[i
]->plist
;
2947 for (; list
; list
= list
->next
)
2949 for (j
= 0; libexts
[j
]; j
++)
2951 /* The following lines are needed because path_prefix list
2952 may contain directories both with trailing '/' and
2955 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
2957 sprintf (lib_buf
, "%s%slib%s.%s",
2958 list
->prefix
, p
, name
, libexts
[j
]);
2959 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
2960 if (file_exists (lib_buf
))
2962 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
2969 fprintf (stderr
, "not found\n");
2971 fatal ("Library lib%s not found", name
);
2975 /* Array of standard AIX libraries which should not
2976 be scanned for ctors/dtors. */
2977 static const char *aix_std_libs
[] = {
2982 "/usr/lib/libc_r.a",
2983 "/usr/lib/threads/libc.a",
2984 "/usr/ccs/lib/libc.a",
2985 "/usr/ccs/lib/libc_r.a",
2989 /* This function checks the filename and returns 1
2990 if this name matches the location of a standard AIX library. */
2992 ignore_library (name
)
2995 const char **p
= &aix_std_libs
[0];
2996 while (*p
++ != NULL
)
2997 if (! strcmp (name
, *p
)) return 1;
3003 #endif /* OBJECT_FORMAT_COFF */
3007 * OSF/rose specific stuff.
3010 #ifdef OBJECT_FORMAT_ROSE
3012 /* Union of the various load commands */
3014 typedef union load_union
3016 ldc_header_t hdr
; /* common header */
3017 load_cmd_map_command_t map
; /* map indexing other load cmds */
3018 interpreter_command_t iprtr
; /* interpreter pathname */
3019 strings_command_t str
; /* load commands strings section */
3020 region_command_t region
; /* region load command */
3021 reloc_command_t reloc
; /* relocation section */
3022 package_command_t pkg
; /* package load command */
3023 symbols_command_t sym
; /* symbol sections */
3024 entry_command_t ent
; /* program start section */
3025 gen_info_command_t info
; /* object information */
3026 func_table_command_t func
; /* function constructors/destructors */
3029 /* Structure to point to load command and data section in memory. */
3031 typedef struct load_all
3033 load_union_t
*load
; /* load command */
3034 char *section
; /* pointer to section */
3037 /* Structure to contain information about a file mapped into memory. */
3041 char *start
; /* start of map */
3042 char *name
; /* filename */
3043 long size
; /* size of the file */
3044 long rounded_size
; /* size rounded to page boundary */
3045 int fd
; /* file descriptor */
3046 int rw
; /* != 0 if opened read/write */
3047 int use_mmap
; /* != 0 if mmap'ed */
3050 extern int decode_mach_o_hdr ();
3051 extern int encode_mach_o_hdr ();
3053 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3054 symbol_info_t
*, int));
3055 static void print_header
PROTO((mo_header_t
*));
3056 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3057 static void bad_header
PROTO((int));
3058 static struct file_info
*read_file
PROTO((const char *, int, int));
3059 static void end_file
PROTO((struct file_info
*));
3061 /* OSF/rose specific version to scan the name list of the loaded
3062 program for the symbols g++ uses for static constructors and
3065 The constructor table begins at __CTOR_LIST__ and contains a count
3066 of the number of pointers (or -1 if the constructors are built in a
3067 separate section by the linker), followed by the pointers to the
3068 constructor functions, terminated with a null pointer. The
3069 destructor table has the same format, and begins at __DTOR_LIST__. */
3072 scan_prog_file (prog_name
, which_pass
)
3073 const char *prog_name
;
3074 enum pass which_pass
;
3078 load_all_t
*load_array
;
3079 load_all_t
*load_end
;
3080 load_all_t
*load_cmd
;
3081 int symbol_load_cmds
;
3087 struct file_info
*obj_file
;
3089 mo_lcid_t cmd_strings
= -1;
3090 symbol_info_t
*main_sym
= 0;
3091 int rw
= (which_pass
!= PASS_FIRST
);
3093 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3095 fatal_perror ("open %s", prog_name
);
3097 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3098 obj
= obj_file
->start
;
3100 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3101 if (status
!= MO_HDR_CONV_SUCCESS
)
3102 bad_header (status
);
3105 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3106 since the hardware will automatically swap bytes for us on loading little endian
3109 #ifndef CROSS_COMPILE
3110 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3111 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3112 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3113 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3114 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3115 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3116 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3118 fatal ("incompatibilities between object file & expected values");
3123 print_header (&hdr
);
3125 offset
= hdr
.moh_first_cmd_off
;
3126 load_end
= load_array
3127 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3129 /* Build array of load commands, calculating the offsets */
3130 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3132 load_union_t
*load_hdr
; /* load command header */
3134 load_cmd
= load_end
++;
3135 load_hdr
= (load_union_t
*) (obj
+ offset
);
3137 /* If modifying the program file, copy the header. */
3140 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3141 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3144 /* null out old command map, because we will rewrite at the end. */
3145 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3147 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3148 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3152 load_cmd
->load
= load_hdr
;
3153 if (load_hdr
->hdr
.ldci_section_off
> 0)
3154 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3157 print_load_command (load_hdr
, offset
, i
);
3159 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3162 /* If the last command is the load command map and is not undefined,
3163 decrement the count of load commands. */
3164 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3167 hdr
.moh_n_load_cmds
--;
3170 /* Go through and process each symbol table section. */
3171 symbol_load_cmds
= 0;
3172 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3174 load_union_t
*load_hdr
= load_cmd
->load
;
3176 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3182 const char *kind
= "unknown";
3184 switch (load_hdr
->sym
.symc_kind
)
3186 case SYMC_IMPORTS
: kind
= "imports"; break;
3187 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3188 case SYMC_STABS
: kind
= "stabs"; break;
3191 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3192 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3195 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3198 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3199 if (str_sect
== (char *) 0)
3200 fatal ("string section missing");
3202 if (load_cmd
->section
== (char *) 0)
3203 fatal ("section pointer missing");
3205 num_syms
= load_hdr
->sym
.symc_nentries
;
3206 for (i
= 0; i
< num_syms
; i
++)
3208 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3209 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3216 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3218 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3228 switch (is_ctor_dtor (name
))
3231 add_to_list (&constructors
, name
);
3235 add_to_list (&destructors
, name
);
3238 default: /* not a constructor or destructor */
3244 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3245 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3250 if (symbol_load_cmds
== 0)
3251 fatal ("no symbol table found");
3253 /* Update the program file now, rewrite header and load commands. At present,
3254 we assume that there is enough space after the last load command to insert
3255 one more. Since the first section written out is page aligned, and the
3256 number of load commands is small, this is ok for the present. */
3260 load_union_t
*load_map
;
3263 if (cmd_strings
== -1)
3264 fatal ("no cmd_strings found");
3266 /* Add __main to initializer list.
3267 If we are building a program instead of a shared library, do not
3268 do anything, since in the current version, you cannot do mallocs
3269 and such in the constructors. */
3271 if (main_sym
!= (symbol_info_t
*) 0
3272 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3273 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3276 notice ("\nUpdating header and load commands.\n\n");
3278 hdr
.moh_n_load_cmds
++;
3279 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3281 /* Create new load command map. */
3283 notice ("load command map, %d cmds, new size %ld.\n",
3284 (int) hdr
.moh_n_load_cmds
, (long) size
);
3286 load_map
= (load_union_t
*) xcalloc (1, size
);
3287 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3288 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3289 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3290 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3291 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3293 offset
= hdr
.moh_first_cmd_off
;
3294 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3296 load_map
->map
.lcm_map
[i
] = offset
;
3297 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3298 hdr
.moh_load_map_cmd_off
= offset
;
3300 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3303 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3306 print_header (&hdr
);
3309 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3310 if (status
!= MO_HDR_CONV_SUCCESS
)
3311 bad_header (status
);
3314 notice ("writing load commands.\n\n");
3316 /* Write load commands */
3317 offset
= hdr
.moh_first_cmd_off
;
3318 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3320 load_union_t
*load_hdr
= load_array
[i
].load
;
3321 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3324 print_load_command (load_hdr
, offset
, i
);
3326 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3331 end_file (obj_file
);
3333 if (close (prog_fd
))
3334 fatal_perror ("close %s", prog_name
);
3337 fprintf (stderr
, "\n");
3341 /* Add a function table to the load commands to call a function
3342 on initiation or termination of the process. */
3345 add_func_table (hdr_p
, load_array
, sym
, type
)
3346 mo_header_t
*hdr_p
; /* pointer to global header */
3347 load_all_t
*load_array
; /* array of ptrs to load cmds */
3348 symbol_info_t
*sym
; /* pointer to symbol entry */
3349 int type
; /* fntc_type value */
3351 /* Add a new load command. */
3352 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3353 int load_index
= num_cmds
- 1;
3354 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3355 load_union_t
*ptr
= xcalloc (1, size
);
3356 load_all_t
*load_cmd
;
3359 /* Set the unresolved address bit in the header to force the loader to be
3360 used, since kernel exec does not call the initialization functions. */
3361 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3363 load_cmd
= &load_array
[load_index
];
3364 load_cmd
->load
= ptr
;
3365 load_cmd
->section
= (char *) 0;
3367 /* Fill in func table load command. */
3368 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3369 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3370 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3371 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3372 ptr
->func
.fntc_type
= type
;
3373 ptr
->func
.fntc_nentries
= 1;
3375 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3376 /* Is the symbol already expressed as (region, offset)? */
3377 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3379 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3380 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3383 /* If not, figure out which region it's in. */
3386 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3389 for (i
= 0; i
< load_index
; i
++)
3391 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3393 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3395 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3396 && addr
>= region_ptr
->regc_addr
.vm_addr
3397 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3399 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3400 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3408 fatal ("could not convert 0x%l.8x into a region", addr
);
3412 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3413 type
== FNTC_INITIALIZATION
? "init" : "term",
3414 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3415 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3416 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3421 /* Print the global header for an OSF/rose object. */
3424 print_header (hdr_ptr
)
3425 mo_header_t
*hdr_ptr
;
3427 fprintf (stderr
, "\nglobal header:\n");
3428 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3429 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3430 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3431 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3432 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3433 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3434 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3435 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3436 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3437 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3438 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3439 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3440 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3441 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3442 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3444 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3445 fprintf (stderr
, ", relocatable");
3447 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3448 fprintf (stderr
, ", linkable");
3450 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3451 fprintf (stderr
, ", execable");
3453 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3454 fprintf (stderr
, ", executable");
3456 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3457 fprintf (stderr
, ", unresolved");
3459 fprintf (stderr
, "\n\n");
3464 /* Print a short summary of a load command. */
3467 print_load_command (load_hdr
, offset
, number
)
3468 load_union_t
*load_hdr
;
3472 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3473 const char *type_str
= (char *) 0;
3477 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3478 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3479 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3480 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3481 case LDC_REGION
: type_str
= "REGION"; break;
3482 case LDC_RELOC
: type_str
= "RELOC"; break;
3483 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3484 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3485 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3486 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3487 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3491 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3493 (long) load_hdr
->hdr
.ldci_cmd_size
,
3495 (long) load_hdr
->hdr
.ldci_section_off
,
3496 (long) load_hdr
->hdr
.ldci_section_len
);
3498 if (type_str
== (char *) 0)
3499 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3501 else if (type
!= LDC_REGION
)
3502 fprintf (stderr
, ", ty: %s\n", type_str
);
3506 const char *region
= "";
3507 switch (load_hdr
->region
.regc_usage_type
)
3509 case REG_TEXT_T
: region
= ", .text"; break;
3510 case REG_DATA_T
: region
= ", .data"; break;
3511 case REG_BSS_T
: region
= ", .bss"; break;
3512 case REG_GLUE_T
: region
= ", .glue"; break;
3513 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3514 case REG_RDATA_T
: region
= ", .rdata"; break;
3515 case REG_SDATA_T
: region
= ", .sdata"; break;
3516 case REG_SBSS_T
: region
= ", .sbss"; break;
3520 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3522 (long) load_hdr
->region
.regc_vm_addr
,
3523 (long) load_hdr
->region
.regc_vm_size
,
3531 /* Fatal error when {en,de}code_mach_o_header fails. */
3539 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3540 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3541 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3542 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3543 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3544 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3546 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3551 /* Read a file into a memory buffer. */
3553 static struct file_info
*
3554 read_file (name
, fd
, rw
)
3555 const char *name
; /* filename */
3556 int fd
; /* file descriptor */
3557 int rw
; /* read/write */
3559 struct stat stat_pkt
;
3560 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3562 static int page_size
;
3565 if (fstat (fd
, &stat_pkt
) < 0)
3566 fatal_perror ("fstat %s", name
);
3569 p
->size
= stat_pkt
.st_size
;
3570 p
->rounded_size
= stat_pkt
.st_size
;
3576 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3579 page_size
= sysconf (_SC_PAGE_SIZE
);
3581 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3582 p
->start
= mmap ((caddr_t
) 0,
3583 (rw
) ? p
->rounded_size
: p
->size
,
3584 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3585 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3589 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3593 #endif /* USE_MMAP */
3598 fprintf (stderr
, "read %s\n", name
);
3601 p
->start
= xmalloc (p
->size
);
3602 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3603 fatal_perror ("lseek %s 0", name
);
3605 len
= read (fd
, p
->start
, p
->size
);
3607 fatal_perror ("read %s", name
);
3610 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3616 /* Do anything necessary to write a file back from memory. */
3620 struct file_info
*ptr
; /* file information block */
3628 fprintf (stderr
, "msync %s\n", ptr
->name
);
3630 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3631 fatal_perror ("msync %s", ptr
->name
);
3635 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3637 if (munmap (ptr
->start
, ptr
->size
))
3638 fatal_perror ("munmap %s", ptr
->name
);
3641 #endif /* USE_MMAP */
3648 fprintf (stderr
, "write %s\n", ptr
->name
);
3650 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3651 fatal_perror ("lseek %s 0", ptr
->name
);
3653 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3655 fatal_perror ("write %s", ptr
->name
);
3657 if (len
!= ptr
->size
)
3658 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3667 #endif /* OBJECT_FORMAT_ROSE */