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 extern char *make_temp_file
PROTO ((char *));
58 /* On certain systems, we have code that works by scanning the object file
59 directly. But this code uses system-specific header files and library
60 functions, so turn it off in a cross-compiler. Likewise, the names of
61 the utilities are not correct for a cross-compiler; we have to hope that
62 cross-versions are in the proper directories. */
65 #undef SUNOS4_SHARED_LIBRARIES
66 #undef OBJECT_FORMAT_COFF
67 #undef OBJECT_FORMAT_ROSE
69 #undef REAL_LD_FILE_NAME
70 #undef REAL_NM_FILE_NAME
71 #undef REAL_STRIP_FILE_NAME
74 /* If we cannot use a special method, use the ordinary one:
75 run nm to find what symbols are present.
76 In a cross-compiler, this means you need a cross nm,
77 but that is not quite as unpleasant as special headers. */
79 #if !defined (OBJECT_FORMAT_COFF) && !defined (OBJECT_FORMAT_ROSE)
80 #define OBJECT_FORMAT_NONE
83 #ifdef OBJECT_FORMAT_COFF
92 /* Many versions of ldfcn.h define these. */
100 /* Some systems have an ISCOFF macro, but others do not. In some cases
101 the macro may be wrong. MY_ISCOFF is defined in tm.h files for machines
102 that either do not have an ISCOFF macro in /usr/include or for those
103 where it is wrong. */
106 #define MY_ISCOFF(X) ISCOFF (X)
109 #endif /* OBJECT_FORMAT_COFF */
111 #ifdef OBJECT_FORMAT_ROSE
118 #include <sys/mman.h>
122 #include <mach_o_format.h>
123 #include <mach_o_header.h>
124 #include <mach_o_vals.h>
125 #include <mach_o_types.h>
127 #endif /* OBJECT_FORMAT_ROSE */
129 #ifdef OBJECT_FORMAT_NONE
131 /* Default flags to pass to nm. */
133 #define NM_FLAGS "-n"
136 #endif /* OBJECT_FORMAT_NONE */
138 /* Some systems use __main in a way incompatible with its use in gcc, in these
139 cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
140 give the same symbol without quotes for an alternative entry point. You
141 must define both, or neither. */
143 #define NAME__MAIN "__main"
144 #define SYMBOL__MAIN __main
147 /* This must match tree.h. */
148 #define DEFAULT_INIT_PRIORITY 65535
150 #if defined (LDD_SUFFIX) || SUNOS4_SHARED_LIBRARIES
151 #define SCAN_LIBRARIES
155 int do_collecting
= 1;
157 int do_collecting
= 0;
160 /* Linked lists of constructor and destructor names. */
176 /* Enumeration giving which pass this is for scanning the program file. */
179 PASS_FIRST
, /* without constructors */
180 PASS_OBJ
, /* individual objects */
181 PASS_LIB
, /* looking for shared libraries */
182 PASS_SECOND
/* with constructors linked in */
185 extern char *version_string
;
187 int vflag
; /* true if -v */
188 static int rflag
; /* true if -r */
189 static int strip_flag
; /* true if -s */
190 #ifdef COLLECT_EXPORT_LIST
191 static int export_flag
; /* true if -bE */
192 static int aix64_flag
; /* true if -b64 */
195 int debug
; /* true if -debug */
197 static int shared_obj
; /* true if -shared */
199 static char *c_file
; /* <xxx>.c for constructor/destructor list. */
200 static char *o_file
; /* <xxx>.o for constructor/destructor list. */
201 #ifdef COLLECT_EXPORT_LIST
202 static char *export_file
; /* <xxx>.x for AIX export list. */
203 static char *import_file
; /* <xxx>.p for AIX import list. */
205 char *ldout
; /* File for ld errors. */
206 static char *output_file
; /* Output file for ld. */
207 static char *nm_file_name
; /* pathname of nm */
209 static char *ldd_file_name
; /* pathname of ldd (or equivalent) */
211 static char *strip_file_name
; /* pathname of strip */
212 char *c_file_name
; /* pathname of gcc */
213 static char *initname
, *fininame
; /* names of init and fini funcs */
215 static struct head constructors
; /* list of constructors found */
216 static struct head destructors
; /* list of destructors found */
217 #ifdef COLLECT_EXPORT_LIST
218 static struct head exports
; /* list of exported symbols */
219 static struct head imports
; /* list of imported symbols */
220 static struct head undefined
; /* list of undefined symbols */
222 static struct head frame_tables
; /* list of frame unwind info tables */
224 struct obstack temporary_obstack
;
225 struct obstack permanent_obstack
;
226 char * temporary_firstobj
;
228 /* Holds the return value of pexecute. */
231 /* Defined in the automatically-generated underscore.c. */
232 extern int prepends_underscore
;
234 extern FILE *fdopen ();
236 #ifndef GET_ENV_PATH_LIST
237 #define GET_ENV_PATH_LIST(VAR,NAME) do { (VAR) = getenv (NAME); } while (0)
240 /* Structure to hold all the directories in which to search for files to
245 char *prefix
; /* String to prepend to the path. */
246 struct prefix_list
*next
; /* Next in linked list. */
251 struct prefix_list
*plist
; /* List of prefixes to try */
252 int max_len
; /* Max length of a prefix in PLIST */
253 char *name
; /* Name of this list (used in config stuff) */
256 #ifdef COLLECT_EXPORT_LIST
257 /* Lists to keep libraries to be scanned for global constructors/destructors. */
258 static struct head libs
; /* list of libraries */
259 static struct path_prefix cmdline_lib_dirs
; /* directories specified with -L */
260 static struct path_prefix libpath_lib_dirs
; /* directories in LIBPATH */
261 static struct path_prefix
*libpaths
[3] = {&cmdline_lib_dirs
,
262 &libpath_lib_dirs
, NULL
};
263 static char *libexts
[3] = {"a", "so", NULL
}; /* possible library extentions */
266 void error
PVPROTO((const char *, ...)) ATTRIBUTE_PRINTF_1
;
267 void fatal
PVPROTO((const char *, ...))
268 ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN
;
269 void fatal_perror
PVPROTO((const char *, ...))
270 ATTRIBUTE_PRINTF_1 ATTRIBUTE_NORETURN
;
271 static char *my_strerror
PROTO((int));
272 static const char *my_strsignal
PROTO((int));
273 static void handler
PROTO((int));
274 static int is_ctor_dtor
PROTO((char *));
275 static char *find_a_file
PROTO((struct path_prefix
*, char *));
276 static void add_prefix
PROTO((struct path_prefix
*, char *));
277 static void prefix_from_env
PROTO((char *, struct path_prefix
*));
278 static void prefix_from_string
PROTO((char *, struct path_prefix
*));
279 static void do_wait
PROTO((char *));
280 static void fork_execute
PROTO((char *, char **));
281 static void maybe_unlink
PROTO((char *));
282 static void add_to_list
PROTO((struct head
*, char *));
283 static int extract_init_priority
PROTO((char *));
284 static void sort_ids
PROTO((struct head
*));
285 static void write_list
PROTO((FILE *, char *, struct id
*));
286 #ifdef COLLECT_EXPORT_LIST
287 static void dump_list
PROTO((FILE *, char *, struct id
*));
290 static void dump_prefix_list
PROTO((FILE *, char *, struct prefix_list
*));
292 static void write_list_with_asm
PROTO((FILE *, char *, struct id
*));
293 static void write_c_file
PROTO((FILE *, char *));
294 static void scan_prog_file
PROTO((char *, enum pass
));
295 #ifdef SCAN_LIBRARIES
296 static void scan_libraries
PROTO((char *));
298 #ifdef COLLECT_EXPORT_LIST
299 static int is_in_list
PROTO((char *, struct id
*));
300 static void write_export_file
PROTO((FILE *));
301 static void write_import_file
PROTO((FILE *));
302 static char *resolve_lib_name
PROTO((char *));
303 static int use_import_list
PROTO((char *));
304 static int ignore_library
PROTO((char *));
320 while ((fd
= dup (oldfd
)) != newfd
&& fd
>= 0) /* good enough for low fd's */
323 close (fdtmp
[--fdx
]);
342 if (e
> 0 && e
< sys_nerr
)
343 return sys_errlist
[e
];
353 #ifdef HAVE_STRSIGNAL
354 return strsignal (s
);
356 if (s
>= 0 && s
< NSIG
)
358 # ifdef NO_SYS_SIGLIST
359 static char buffer
[30];
361 sprintf (buffer
, "Unknown signal %d", s
);
364 return sys_siglist
[s
];
369 #endif /* HAVE_STRSIGNAL */
372 /* Delete tempfiles and exit function. */
375 collect_exit (status
)
378 if (c_file
!= 0 && c_file
[0])
379 maybe_unlink (c_file
);
381 if (o_file
!= 0 && o_file
[0])
382 maybe_unlink (o_file
);
384 #ifdef COLLECT_EXPORT_LIST
385 if (export_file
!= 0 && export_file
[0])
386 maybe_unlink (export_file
);
388 if (import_file
!= 0 && import_file
[0])
389 maybe_unlink (import_file
);
392 if (ldout
!= 0 && ldout
[0])
395 maybe_unlink (ldout
);
398 if (status
!= 0 && output_file
!= 0 && output_file
[0])
399 maybe_unlink (output_file
);
405 /* Notify user of a non-error. */
407 notice
VPROTO((char *msgid
, ...))
409 #ifndef ANSI_PROTOTYPES
414 VA_START (ap
, msgid
);
416 #ifndef ANSI_PROTOTYPES
417 msgid
= va_arg (ap
, char *);
420 vfprintf (stderr
, _(msgid
), ap
);
424 /* Die when sys call fails. */
427 fatal_perror
VPROTO((const char * msgid
, ...))
429 #ifndef ANSI_PROTOTYPES
435 VA_START (ap
, msgid
);
437 #ifndef ANSI_PROTOTYPES
438 msgid
= va_arg (ap
, const char *);
441 fprintf (stderr
, "collect2: ");
442 vfprintf (stderr
, _(msgid
), ap
);
443 fprintf (stderr
, ": %s\n", my_strerror (e
));
446 collect_exit (FATAL_EXIT_CODE
);
452 fatal
VPROTO((const char * msgid
, ...))
454 #ifndef ANSI_PROTOTYPES
459 VA_START (ap
, msgid
);
461 #ifndef ANSI_PROTOTYPES
462 msgid
= va_arg (ap
, const char *);
465 fprintf (stderr
, "collect2: ");
466 vfprintf (stderr
, _(msgid
), ap
);
467 fprintf (stderr
, "\n");
470 collect_exit (FATAL_EXIT_CODE
);
473 /* Write error message. */
476 error
VPROTO((const char * msgid
, ...))
478 #ifndef ANSI_PROTOTYPES
483 VA_START (ap
, msgid
);
485 #ifndef ANSI_PROTOTYPES
486 msgid
= va_arg (ap
, const char *);
489 fprintf (stderr
, "collect2: ");
490 vfprintf (stderr
, _(msgid
), ap
);
491 fprintf (stderr
, "\n");
495 /* In case obstack is linked in, and abort is defined to fancy_abort,
496 provide a default entry. */
501 fatal ("internal error");
508 if (c_file
!= 0 && c_file
[0])
509 maybe_unlink (c_file
);
511 if (o_file
!= 0 && o_file
[0])
512 maybe_unlink (o_file
);
514 if (ldout
!= 0 && ldout
[0])
515 maybe_unlink (ldout
);
517 #ifdef COLLECT_EXPORT_LIST
518 if (export_file
!= 0 && export_file
[0])
519 maybe_unlink (export_file
);
521 if (import_file
!= 0 && import_file
[0])
522 maybe_unlink (import_file
);
525 signal (signo
, SIG_DFL
);
526 kill (getpid (), signo
);
531 xcalloc (size1
, size2
)
534 PTR ptr
= (PTR
) calloc (size1
, size2
);
536 fatal ("out of memory");
544 PTR ptr
= (PTR
) malloc (size
);
546 fatal ("out of memory");
557 ptr
= (PTR
) realloc (old
, size
);
559 ptr
= (PTR
) malloc (size
);
561 fatal ("virtual memory exhausted");
569 return access (name
, R_OK
) == 0;
572 /* Make a copy of a string INPUT with size SIZE. */
578 register size_t len
= strlen (input
) + 1;
579 register char *output
= xmalloc (len
);
580 memcpy (output
, input
, len
);
584 /* Parse a reasonable subset of shell quoting syntax. */
601 obstack_1grow (&temporary_obstack
, c
);
602 else if (! inside
&& c
== ' ')
604 else if (! inside
&& c
== '\\')
609 obstack_1grow (&temporary_obstack
, c
);
612 obstack_1grow (&temporary_obstack
, '\0');
614 return obstack_finish (&temporary_obstack
);
621 FILE *stream
= fopen (name
, "r");
622 int no_demangle
= !! getenv ("COLLECT_NO_DEMANGLE");
629 while (c
= getc (stream
),
630 c
!= EOF
&& (ISALNUM (c
) || c
== '_' || c
== '$' || c
== '.'))
631 obstack_1grow (&temporary_obstack
, c
);
632 if (obstack_object_size (&temporary_obstack
) > 0)
634 char *word
, *p
, *result
;
635 obstack_1grow (&temporary_obstack
, '\0');
636 word
= obstack_finish (&temporary_obstack
);
639 ++word
, putc ('.', stderr
);
641 if (*p
== '_' && prepends_underscore
)
647 result
= cplus_demangle (p
, DMGL_PARAMS
| DMGL_ANSI
);
652 fputs (result
, stderr
);
654 diff
= strlen (word
) - strlen (result
);
656 --diff
, putc (' ', stderr
);
657 while (diff
< 0 && c
== ' ')
658 ++diff
, c
= getc (stream
);
663 fputs (word
, stderr
);
666 obstack_free (&temporary_obstack
, temporary_firstobj
);
675 /* Decide whether the given symbol is:
676 a constructor (1), a destructor (2), or neither (0). */
682 struct names
{ char *name
; int len
; int ret
; int two_underscores
; };
684 register struct names
*p
;
686 register char *orig_s
= s
;
688 static struct names special
[] = {
689 #ifdef NO_DOLLAR_IN_LABEL
690 #ifdef NO_DOT_IN_LABEL
691 { "GLOBAL__I_", sizeof ("GLOBAL__I_")-1, 1, 0 },
692 { "GLOBAL__D_", sizeof ("GLOBAL__D_")-1, 2, 0 },
693 { "GLOBAL__F_", sizeof ("GLOBAL__F_")-1, 5, 0 },
695 { "GLOBAL_.I.", sizeof ("GLOBAL_.I.")-1, 1, 0 },
696 { "GLOBAL_.D.", sizeof ("GLOBAL_.D.")-1, 2, 0 },
697 { "GLOBAL_.F.", sizeof ("GLOBAL_.F.")-1, 5, 0 },
700 { "GLOBAL_$I$", sizeof ("GLOBAL_$I$")-1, 1, 0 },
701 { "GLOBAL_$D$", sizeof ("GLOBAL_$D$")-1, 2, 0 },
702 { "GLOBAL_$F$", sizeof ("GLOBAL_$F$")-1, 5, 0 },
704 { "GLOBAL__FI_", sizeof ("GLOBAL__FI_")-1, 3, 0 },
705 { "GLOBAL__FD_", sizeof ("GLOBAL__FD_")-1, 4, 0 },
706 #ifdef CFRONT_LOSSAGE /* Do not collect cfront initialization functions.
707 cfront has its own linker procedure to collect them;
708 if collect2 gets them too, they get collected twice
709 when the cfront procedure is run and the compiler used
710 for linking happens to be GCC. */
711 { "sti__", sizeof ("sti__")-1, 1, 1 },
712 { "std__", sizeof ("std__")-1, 2, 1 },
713 #endif /* CFRONT_LOSSAGE */
717 while ((ch
= *s
) == '_')
723 for (p
= &special
[0]; p
->len
> 0; p
++)
726 && (!p
->two_underscores
|| ((s
- orig_s
) >= 2))
727 && strncmp(s
, p
->name
, p
->len
) == 0)
735 /* Routine to add variables to the environment. */
743 #ifndef VMS /* nor about VMS */
745 extern char **environ
;
746 char **old_environ
= environ
;
753 while ((ch
= *p
++) != '\0' && ch
!= '=')
759 /* Search for replacing an existing environment variable, and
760 count the number of total environment variables. */
761 for (envp
= old_environ
; *envp
; envp
++)
764 if (!strncmp (str
, *envp
, name_len
))
771 /* Add a new environment variable */
772 environ
= (char **) xmalloc (sizeof (char *) * (num_envs
+2));
774 bcopy ((char *) old_environ
, (char *) (environ
+ 1),
775 sizeof (char *) * (num_envs
+1));
781 #endif /* HAVE_PUTENV */
783 /* By default, colon separates directories in a path. */
784 #ifndef PATH_SEPARATOR
785 #define PATH_SEPARATOR ':'
788 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
789 and one from the PATH variable. */
791 static struct path_prefix cpath
, path
;
794 /* This is the name of the target machine. We use it to form the name
795 of the files to execute. */
797 static char *target_machine
= TARGET_MACHINE
;
800 /* Search for NAME using prefix list PPREFIX. We only look for executable
803 Return 0 if not found, otherwise return its name, allocated with malloc. */
806 find_a_file (pprefix
, name
)
807 struct path_prefix
*pprefix
;
811 struct prefix_list
*pl
;
812 int len
= pprefix
->max_len
+ strlen (name
) + 1;
815 fprintf (stderr
, "Looking for '%s'\n", name
);
817 #ifdef EXECUTABLE_SUFFIX
818 len
+= strlen (EXECUTABLE_SUFFIX
);
821 temp
= xmalloc (len
);
823 /* Determine the filename to execute (special case for absolute paths). */
827 || (DIR_SEPARATOR
== '\\' && name
[1] == ':'
828 && (name
[2] == DIR_SEPARATOR
|| name
[2] == '/'))
832 if (access (name
, X_OK
) == 0)
837 fprintf (stderr
, " - found: absolute path\n");
843 fprintf (stderr
, " - failed to locate using absolute path\n");
846 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
848 strcpy (temp
, pl
->prefix
);
851 if (access (temp
, X_OK
) == 0)
854 #ifdef EXECUTABLE_SUFFIX
855 /* Some systems have a suffix for executable files.
856 So try appending that. */
857 strcat (temp
, EXECUTABLE_SUFFIX
);
859 if (access (temp
, X_OK
) == 0)
864 if (debug
&& pprefix
->plist
== NULL
)
865 fprintf (stderr
, " - failed: no entries in prefix list\n");
871 /* Add an entry for PREFIX to prefix list PPREFIX. */
874 add_prefix (pprefix
, prefix
)
875 struct path_prefix
*pprefix
;
878 struct prefix_list
*pl
, **prev
;
883 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
888 prev
= &pprefix
->plist
;
890 /* Keep track of the longest prefix */
892 len
= strlen (prefix
);
893 if (len
> pprefix
->max_len
)
894 pprefix
->max_len
= len
;
896 pl
= (struct prefix_list
*) xmalloc (sizeof (struct prefix_list
));
897 pl
->prefix
= xstrdup (prefix
);
902 pl
->next
= (struct prefix_list
*) 0;
906 /* Take the value of the environment variable ENV, break it into a path, and
907 add of the entries to PPREFIX. */
910 prefix_from_env (env
, pprefix
)
912 struct path_prefix
*pprefix
;
915 GET_ENV_PATH_LIST (p
, env
);
918 prefix_from_string (p
, pprefix
);
922 prefix_from_string (p
, pprefix
)
924 struct path_prefix
*pprefix
;
927 char *nstore
= (char *) xmalloc (strlen (p
) + 3);
930 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
935 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
937 strncpy (nstore
, startp
, endp
-startp
);
940 strcpy (nstore
, "./");
942 else if (endp
[-1] != '/')
944 nstore
[endp
-startp
] = '/';
945 nstore
[endp
-startp
+1] = 0;
948 nstore
[endp
-startp
] = 0;
951 fprintf (stderr
, " - add prefix: %s\n", nstore
);
953 add_prefix (pprefix
, nstore
);
956 endp
= startp
= endp
+ 1;
970 char *ld_suffix
= "ld";
971 char *full_ld_suffix
= ld_suffix
;
972 char *real_ld_suffix
= "real-ld";
973 char *collect_ld_suffix
= "collect-ld";
974 char *nm_suffix
= "nm";
975 char *full_nm_suffix
= nm_suffix
;
976 char *gnm_suffix
= "gnm";
977 char *full_gnm_suffix
= gnm_suffix
;
979 char *ldd_suffix
= LDD_SUFFIX
;
980 char *full_ldd_suffix
= ldd_suffix
;
982 char *strip_suffix
= "strip";
983 char *full_strip_suffix
= strip_suffix
;
984 char *gstrip_suffix
= "gstrip";
985 char *full_gstrip_suffix
= gstrip_suffix
;
988 #ifdef COLLECT_EXPORT_LIST
1003 int num_c_args
= argc
+9;
1005 #if defined (COLLECT2_HOST_INITIALZATION)
1006 /* Perform system dependant initialization, if neccessary. */
1007 COLLECT2_HOST_INITIALZATION
;
1010 #ifdef HAVE_LC_MESSAGES
1011 setlocale (LC_MESSAGES
, "");
1013 (void) bindtextdomain (PACKAGE
, localedir
);
1014 (void) textdomain (PACKAGE
);
1016 /* Do not invoke xcalloc before this point, since locale needs to be
1017 set first, in case a diagnostic is issued. */
1019 ld1
= ld1_argv
= (char **) xcalloc (sizeof (char *), argc
+3);
1020 ld2
= ld2_argv
= (char **) xcalloc (sizeof (char *), argc
+6);
1021 object
= object_lst
= (char **) xcalloc (sizeof (char *), argc
);
1027 /* Parse command line early for instances of -debug. This allows
1028 the debug flag to be set before functions like find_a_file()
1033 for (i
= 1; argv
[i
] != NULL
; i
++)
1034 if (! strcmp (argv
[i
], "-debug"))
1039 #ifndef DEFAULT_A_OUT_NAME
1040 output_file
= "a.out";
1042 output_file
= DEFAULT_A_OUT_NAME
;
1045 obstack_begin (&temporary_obstack
, 0);
1046 obstack_begin (&permanent_obstack
, 0);
1047 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
1049 current_demangling_style
= gnu_demangling
;
1050 p
= getenv ("COLLECT_GCC_OPTIONS");
1053 char *q
= extract_string (&p
);
1054 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1057 obstack_free (&temporary_obstack
, temporary_firstobj
);
1060 c_ptr
= c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
);
1063 fatal ("no arguments");
1066 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
1067 signal (SIGQUIT
, handler
);
1069 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
1070 signal (SIGINT
, handler
);
1072 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
1073 signal (SIGALRM
, handler
);
1076 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
1077 signal (SIGHUP
, handler
);
1079 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
1080 signal (SIGSEGV
, handler
);
1082 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
1083 signal (SIGBUS
, handler
);
1086 /* Extract COMPILER_PATH and PATH into our prefix list. */
1087 prefix_from_env ("COMPILER_PATH", &cpath
);
1088 prefix_from_env ("PATH", &path
);
1090 #ifdef CROSS_COMPILE
1091 /* If we look for a program in the compiler directories, we just use
1092 the short name, since these directories are already system-specific.
1093 But it we look for a program in the system directories, we need to
1094 qualify the program name with the target machine. */
1097 = xcalloc (strlen (ld_suffix
) + strlen (target_machine
) + 2, 1);
1098 strcpy (full_ld_suffix
, target_machine
);
1099 strcat (full_ld_suffix
, "-");
1100 strcat (full_ld_suffix
, ld_suffix
);
1104 = xcalloc (strlen (gld_suffix
) + strlen (target_machine
) + 2, 1);
1105 strcpy (full_gld_suffix
, target_machine
);
1106 strcat (full_gld_suffix
, "-");
1107 strcat (full_gld_suffix
, gld_suffix
);
1111 = xcalloc (strlen (nm_suffix
) + strlen (target_machine
) + 2, 1);
1112 strcpy (full_nm_suffix
, target_machine
);
1113 strcat (full_nm_suffix
, "-");
1114 strcat (full_nm_suffix
, nm_suffix
);
1117 = xcalloc (strlen (gnm_suffix
) + strlen (target_machine
) + 2, 1);
1118 strcpy (full_gnm_suffix
, target_machine
);
1119 strcat (full_gnm_suffix
, "-");
1120 strcat (full_gnm_suffix
, gnm_suffix
);
1124 = xcalloc (strlen (ldd_suffix
) + strlen (target_machine
) + 2, 1);
1125 strcpy (full_ldd_suffix
, target_machine
);
1126 strcat (full_ldd_suffix
, "-");
1127 strcat (full_ldd_suffix
, ldd_suffix
);
1131 = xcalloc (strlen (strip_suffix
) + strlen (target_machine
) + 2, 1);
1132 strcpy (full_strip_suffix
, target_machine
);
1133 strcat (full_strip_suffix
, "-");
1134 strcat (full_strip_suffix
, strip_suffix
);
1137 = xcalloc (strlen (gstrip_suffix
) + strlen (target_machine
) + 2, 1);
1138 strcpy (full_gstrip_suffix
, target_machine
);
1139 strcat (full_gstrip_suffix
, "-");
1140 strcat (full_gstrip_suffix
, gstrip_suffix
);
1141 #endif /* CROSS_COMPILE */
1143 /* Try to discover a valid linker/nm/strip to use. */
1145 /* Maybe we know the right file to use (if not cross). */
1147 #ifdef DEFAULT_LINKER
1148 if (access (DEFAULT_LINKER
, X_OK
) == 0)
1149 ld_file_name
= DEFAULT_LINKER
;
1150 if (ld_file_name
== 0)
1152 #ifdef REAL_LD_FILE_NAME
1153 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
1154 if (ld_file_name
== 0)
1156 /* Search the (target-specific) compiler dirs for ld'. */
1157 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1158 /* Likewise for `collect-ld'. */
1159 if (ld_file_name
== 0)
1160 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1161 /* Search the compiler directories for `ld'. We have protection against
1162 recursive calls in find_a_file. */
1163 if (ld_file_name
== 0)
1164 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1165 /* Search the ordinary system bin directories
1166 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1167 if (ld_file_name
== 0)
1168 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1170 #ifdef REAL_NM_FILE_NAME
1171 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1172 if (nm_file_name
== 0)
1174 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1175 if (nm_file_name
== 0)
1176 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1177 if (nm_file_name
== 0)
1178 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1179 if (nm_file_name
== 0)
1180 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1183 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1184 if (ldd_file_name
== 0)
1185 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1188 #ifdef REAL_STRIP_FILE_NAME
1189 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1190 if (strip_file_name
== 0)
1192 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1193 if (strip_file_name
== 0)
1194 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1195 if (strip_file_name
== 0)
1196 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1197 if (strip_file_name
== 0)
1198 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1200 /* Determine the full path name of the C compiler to use. */
1201 c_file_name
= getenv ("COLLECT_GCC");
1202 if (c_file_name
== 0)
1204 #ifdef CROSS_COMPILE
1205 c_file_name
= xcalloc (sizeof ("gcc-") + strlen (target_machine
) + 1, 1);
1206 strcpy (c_file_name
, target_machine
);
1207 strcat (c_file_name
, "-gcc");
1209 c_file_name
= "gcc";
1213 p
= find_a_file (&cpath
, c_file_name
);
1215 /* Here it should be safe to use the system search path since we should have
1216 already qualified the name of the compiler when it is needed. */
1218 p
= find_a_file (&path
, c_file_name
);
1223 *ld1
++ = *ld2
++ = ld_file_name
;
1225 /* Make temp file names. */
1226 c_file
= make_temp_file (".c");
1227 o_file
= make_temp_file (".o");
1228 #ifdef COLLECT_EXPORT_LIST
1229 export_file
= make_temp_file (".x");
1230 import_file
= make_temp_file (".p");
1232 ldout
= make_temp_file (".ld");
1233 *c_ptr
++ = c_file_name
;
1240 #ifdef COLLECT_EXPORT_LIST
1241 /* Generate a list of directories from LIBPATH. */
1242 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1243 /* Add to this list also two standard directories where
1244 AIX loader always searches for libraries. */
1245 add_prefix (&libpath_lib_dirs
, "/lib");
1246 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1249 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1251 AIX support needs to know if -shared has been specified before
1252 parsing commandline arguments. */
1254 p
= getenv ("COLLECT_GCC_OPTIONS");
1257 char *q
= extract_string (&p
);
1258 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1259 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1260 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1261 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1262 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1265 obstack_free (&temporary_obstack
, temporary_firstobj
);
1266 *c_ptr
++ = "-fno-exceptions";
1268 /* !!! When GCC calls collect2,
1269 it does not know whether it is calling collect2 or ld.
1270 So collect2 cannot meaningfully understand any options
1271 except those ld understands.
1272 If you propose to make GCC pass some other option,
1273 just imagine what will happen if ld is really ld!!! */
1275 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1276 /* After the first file, put in the c++ rt0. */
1279 while ((arg
= *++argv
) != (char *) 0)
1281 *ld1
++ = *ld2
++ = arg
;
1287 #ifdef COLLECT_EXPORT_LIST
1288 /* We want to disable automatic exports on AIX when user
1289 explicitly puts an export list in command line */
1291 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1293 else if (arg
[2] == '6' && arg
[3] == '4')
1299 if (!strcmp (arg
, "-debug"))
1301 /* Already parsed. */
1310 /* place o_file BEFORE this argument! */
1316 #ifdef COLLECT_EXPORT_LIST
1318 /* Resolving full library name. */
1319 char *s
= resolve_lib_name (arg
+2);
1321 /* If we will use an import list for this library,
1322 we should exclude it from ld args. */
1323 if (use_import_list (s
))
1329 /* Saving a full library name. */
1330 add_to_list (&libs
, s
);
1335 #ifdef COLLECT_EXPORT_LIST
1336 /* Saving directories where to search for libraries. */
1338 add_prefix (&cmdline_lib_dirs
, arg
+2);
1344 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1346 output_file
= &arg
[2];
1355 if (arg
[2] == '\0' && do_collecting
)
1357 /* We must strip after the nm run, otherwise C++ linking
1358 will not work. Thus we strip in the second ld run, or
1359 else with strip if there is no second ld run. */
1371 else if ((p
= rindex (arg
, '.')) != (char *) 0
1372 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1373 || strcmp (p
, ".so") == 0))
1382 /* place o_file BEFORE this argument! */
1390 #ifdef COLLECT_EXPORT_LIST
1391 /* libraries can be specified directly, i.e. without -l flag. */
1394 /* If we will use an import list for this library,
1395 we should exclude it from ld args. */
1396 if (use_import_list (arg
))
1402 /* Saving a full library name. */
1403 add_to_list (&libs
, arg
);
1409 #ifdef COLLECT_EXPORT_LIST
1410 /* This is added only for debugging purposes. */
1413 fprintf (stderr
, "List of libraries:\n");
1414 dump_list (stderr
, "\t", libs
.first
);
1417 /* The AIX linker will discard static constructors in object files if
1418 nothing else in the file is referenced, so look at them first. */
1420 char **export_object_lst
= object_lst
;
1421 while (export_object_lst
< object
)
1422 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1425 struct id
*list
= libs
.first
;
1426 for (; list
; list
= list
->next
)
1427 scan_prog_file (list
->name
, PASS_FIRST
);
1430 char *buf1
= alloca (strlen (export_file
) + 5);
1431 char *buf2
= alloca (strlen (import_file
) + 5);
1432 sprintf (buf1
, "-bE:%s", export_file
);
1433 sprintf (buf2
, "-bI:%s", import_file
);
1438 exportf
= fopen (export_file
, "w");
1439 if (exportf
== (FILE *) 0)
1440 fatal_perror ("fopen %s", export_file
);
1441 write_export_file (exportf
);
1442 if (fclose (exportf
))
1443 fatal_perror ("fclose %s", export_file
);
1444 importf
= fopen (import_file
, "w");
1445 if (importf
== (FILE *) 0)
1446 fatal_perror ("%s", import_file
);
1447 write_import_file (importf
);
1448 if (fclose (importf
))
1449 fatal_perror ("fclose %s", import_file
);
1454 *object
= *c_ptr
= *ld1
= (char *) 0;
1458 notice ("collect2 version %s", version_string
);
1459 #ifdef TARGET_VERSION
1462 fprintf (stderr
, "\n");
1468 fprintf (stderr
, "ld_file_name = %s\n",
1469 (ld_file_name
? ld_file_name
: "not found"));
1470 fprintf (stderr
, "c_file_name = %s\n",
1471 (c_file_name
? c_file_name
: "not found"));
1472 fprintf (stderr
, "nm_file_name = %s\n",
1473 (nm_file_name
? nm_file_name
: "not found"));
1475 fprintf (stderr
, "ldd_file_name = %s\n",
1476 (ldd_file_name
? ldd_file_name
: "not found"));
1478 fprintf (stderr
, "strip_file_name = %s\n",
1479 (strip_file_name
? strip_file_name
: "not found"));
1480 fprintf (stderr
, "c_file = %s\n",
1481 (c_file
? c_file
: "not found"));
1482 fprintf (stderr
, "o_file = %s\n",
1483 (o_file
? o_file
: "not found"));
1485 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1487 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1489 ptr
= getenv ("COLLECT_GCC");
1491 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1493 ptr
= getenv ("COMPILER_PATH");
1495 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1497 ptr
= getenv ("LIBRARY_PATH");
1499 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1501 fprintf (stderr
, "\n");
1504 /* Load the program, searching all libraries and attempting to provide
1505 undefined symbols from repository information. */
1507 /* On AIX we do this later. */
1508 #ifndef COLLECT_EXPORT_LIST
1509 do_tlink (ld1_argv
, object_lst
);
1512 /* If -r or they will be run via some other method, do not build the
1513 constructor or destructor list, just return now. */
1515 #ifndef COLLECT_EXPORT_LIST
1520 #ifdef COLLECT_EXPORT_LIST
1521 /* But make sure we delete the export file we may have created. */
1522 if (export_file
!= 0 && export_file
[0])
1523 maybe_unlink (export_file
);
1524 if (import_file
!= 0 && import_file
[0])
1525 maybe_unlink (import_file
);
1527 maybe_unlink (c_file
);
1528 maybe_unlink (o_file
);
1532 /* Examine the namelist with nm and search it for static constructors
1533 and destructors to call.
1534 Write the constructor and destructor tables to a .s file and reload. */
1536 /* On AIX we already done scanning for global constructors/destructors. */
1537 #ifndef COLLECT_EXPORT_LIST
1538 scan_prog_file (output_file
, PASS_FIRST
);
1541 #ifdef SCAN_LIBRARIES
1542 scan_libraries (output_file
);
1547 notice ("%d constructor(s) found\n", constructors
.number
);
1548 notice ("%d destructor(s) found\n", destructors
.number
);
1551 if (constructors
.number
== 0 && destructors
.number
== 0
1552 && frame_tables
.number
== 0
1553 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1554 /* If we will be running these functions ourselves, we want to emit
1555 stubs into the shared library so that we do not have to relink
1556 dependent programs when we add static objects. */
1561 #ifdef COLLECT_EXPORT_LIST
1562 /* Doing tlink without additional code generation */
1563 do_tlink (ld1_argv
, object_lst
);
1565 /* Strip now if it was requested on the command line. */
1568 char **strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1569 strip_argv
[0] = strip_file_name
;
1570 strip_argv
[1] = output_file
;
1571 strip_argv
[2] = (char *) 0;
1572 fork_execute ("strip", strip_argv
);
1575 #ifdef COLLECT_EXPORT_LIST
1576 maybe_unlink (export_file
);
1577 maybe_unlink (import_file
);
1579 maybe_unlink (c_file
);
1580 maybe_unlink (o_file
);
1584 /* Sort ctor and dtor lists by priority. */
1585 sort_ids (&constructors
);
1586 sort_ids (&destructors
);
1588 maybe_unlink(output_file
);
1589 outf
= fopen (c_file
, "w");
1590 if (outf
== (FILE *) 0)
1591 fatal_perror ("fopen %s", c_file
);
1593 write_c_file (outf
, c_file
);
1596 fatal_perror ("fclose %s", c_file
);
1598 /* Tell the linker that we have initializer and finalizer functions. */
1599 #ifdef LD_INIT_SWITCH
1600 *ld2
++ = LD_INIT_SWITCH
;
1602 *ld2
++ = LD_FINI_SWITCH
;
1607 #ifdef COLLECT_EXPORT_LIST
1610 add_to_list (&exports
, initname
);
1611 add_to_list (&exports
, fininame
);
1612 add_to_list (&exports
, "_GLOBAL__DI");
1613 add_to_list (&exports
, "_GLOBAL__DD");
1614 exportf
= fopen (export_file
, "w");
1615 if (exportf
== (FILE *) 0)
1616 fatal_perror ("fopen %s", export_file
);
1617 write_export_file (exportf
);
1618 if (fclose (exportf
))
1619 fatal_perror ("fclose %s", export_file
);
1625 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1626 output_file
, c_file
);
1627 write_c_file (stderr
, "stderr");
1628 fprintf (stderr
, "========== end of c_file\n\n");
1629 #ifdef COLLECT_EXPORT_LIST
1630 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1631 write_export_file (stderr
);
1632 fprintf (stderr
, "========== end of export_file\n\n");
1636 /* Assemble the constructor and destructor tables.
1637 Link the tables in with the rest of the program. */
1639 fork_execute ("gcc", c_argv
);
1640 #ifdef COLLECT_EXPORT_LIST
1641 /* On AIX we must call tlink because of possible templates resolution */
1642 do_tlink (ld2_argv
, object_lst
);
1644 /* Otherwise, simply call ld because tlink is already done */
1645 fork_execute ("ld", ld2_argv
);
1647 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1648 constructors/destructors in shared libraries. */
1649 scan_prog_file (output_file
, PASS_SECOND
);
1652 maybe_unlink (c_file
);
1653 maybe_unlink (o_file
);
1655 #ifdef COLLECT_EXPORT_LIST
1656 maybe_unlink (export_file
);
1657 maybe_unlink (import_file
);
1664 /* Wait for a process to finish, and exit if a non-zero status is found. */
1672 pwait (pexecute_pid
, &status
, 0);
1675 if (WIFSIGNALED (status
))
1677 int sig
= WTERMSIG (status
);
1678 error ((status
& 0200
1679 ? "%s terminated with signal %d [%s]"
1680 : "%s terminated with signal %d [%s], core dumped"),
1684 collect_exit (FATAL_EXIT_CODE
);
1687 if (WIFEXITED (status
))
1688 return WEXITSTATUS (status
);
1697 int ret
= collect_wait (prog
);
1700 error ("%s returned %d exit status", prog
, ret
);
1706 /* Execute a program, and wait for the reply. */
1709 collect_execute (prog
, argv
, redir
)
1716 int redir_handle
= -1;
1717 int stdout_save
= -1;
1718 int stderr_save
= -1;
1726 fprintf (stderr
, "%s", argv
[0]);
1728 notice ("[cannot find %s]", prog
);
1730 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1731 fprintf (stderr
, " %s", str
);
1733 fprintf (stderr
, "\n");
1739 /* If we cannot find a program we need, complain error. Do this here
1740 since we might not end up needing something that we could not find. */
1743 fatal ("cannot find `%s'", prog
);
1747 /* Open response file. */
1748 redir_handle
= open (redir
, O_WRONLY
| O_TRUNC
| O_CREAT
);
1750 /* Duplicate the stdout and stderr file handles
1751 so they can be restored later. */
1752 stdout_save
= dup (STDOUT_FILENO
);
1753 if (stdout_save
== -1)
1754 fatal_perror ("redirecting stdout: %s", redir
);
1755 stderr_save
= dup (STDERR_FILENO
);
1756 if (stderr_save
== -1)
1757 fatal_perror ("redirecting stdout: %s", redir
);
1759 /* Redirect stdout & stderr to our response file. */
1760 dup2 (redir_handle
, STDOUT_FILENO
);
1761 dup2 (redir_handle
, STDERR_FILENO
);
1764 pexecute_pid
= pexecute (argv
[0], argv
, argv
[0], NULL
,
1765 &errmsg_fmt
, &errmsg_arg
,
1766 (PEXECUTE_FIRST
| PEXECUTE_LAST
| PEXECUTE_SEARCH
));
1770 /* Restore stdout and stderr to their previous settings. */
1771 dup2 (stdout_save
, STDOUT_FILENO
);
1772 dup2 (stderr_save
, STDERR_FILENO
);
1774 /* Close reponse file. */
1775 close (redir_handle
);
1778 if (pexecute_pid
== -1)
1779 fatal_perror (errmsg_fmt
, errmsg_arg
);
1783 fork_execute (prog
, argv
)
1787 collect_execute (prog
, argv
, NULL
);
1791 /* Unlink a file unless we are debugging. */
1800 notice ("[Leaving %s]\n", file
);
1804 static long sequence_number
= 0;
1806 /* Add a name to a linked list. */
1809 add_to_list (head_ptr
, name
)
1810 struct head
*head_ptr
;
1814 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1816 strcpy (newid
->name
, name
);
1818 if (head_ptr
->first
)
1819 head_ptr
->last
->next
= newid
;
1821 head_ptr
->first
= newid
;
1823 /* Check for duplicate symbols. */
1824 for (p
= head_ptr
->first
;
1825 strcmp (name
, p
->name
) != 0;
1830 head_ptr
->last
->next
= 0;
1835 newid
->sequence
= ++sequence_number
;
1836 head_ptr
->last
= newid
;
1840 /* Grab the init priority number from an init function name that
1841 looks like "_GLOBAL_.I.12345.foo". */
1844 extract_init_priority (name
)
1849 while (name
[pos
] == '_')
1851 pos
+= 10; /* strlen ("GLOBAL__X_") */
1853 /* Extract init_p number from ctor/dtor name. */
1854 pri
= atoi (name
+ pos
);
1855 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1858 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1859 ctors will be run from right to left, dtors from left to right. */
1863 struct head
*head_ptr
;
1865 /* id holds the current element to insert. id_next holds the next
1866 element to insert. id_ptr iterates through the already sorted elements
1867 looking for the place to insert id. */
1868 struct id
*id
, *id_next
, **id_ptr
;
1870 id
= head_ptr
->first
;
1872 /* We don't have any sorted elements yet. */
1873 head_ptr
->first
= NULL
;
1875 for (; id
; id
= id_next
)
1878 id
->sequence
= extract_init_priority (id
->name
);
1880 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1882 /* If the sequence numbers are the same, we put the id from the
1883 file later on the command line later in the list. */
1884 || id
->sequence
> (*id_ptr
)->sequence
1885 /* Hack: do lexical compare, too.
1886 || (id->sequence == (*id_ptr)->sequence
1887 && strcmp (id->name, (*id_ptr)->name) > 0) */
1896 /* Now set the sequence numbers properly so write_c_file works. */
1897 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1898 id
->sequence
= ++sequence_number
;
1901 /* Write: `prefix', the names on list LIST, `suffix'. */
1904 write_list (stream
, prefix
, list
)
1911 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1916 #ifdef COLLECT_EXPORT_LIST
1917 /* This function is really used only on AIX, but may be useful. */
1919 is_in_list (prefix
, list
)
1925 if (!strcmp (prefix
, list
->name
)) return 1;
1932 /* Added for debugging purpose. */
1933 #ifdef COLLECT_EXPORT_LIST
1935 dump_list (stream
, prefix
, list
)
1942 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1950 dump_prefix_list (stream
, prefix
, list
)
1953 struct prefix_list
*list
;
1957 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1964 write_list_with_asm (stream
, prefix
, list
)
1971 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1972 prefix
, list
->sequence
, list
->name
);
1977 /* Write out the constructor and destructor tables statically (for a shared
1978 object), along with the functions to execute them. */
1981 write_c_file_stat (stream
, name
)
1985 char *prefix
, *p
, *q
;
1986 int frames
= (frame_tables
.number
> 0);
1988 /* Figure out name of output_file, stripping off .so version. */
1989 p
= rindex (output_file
, '/');
1991 p
= (char *) output_file
;
2005 if (strncmp (q
, ".so", 3) == 0)
2014 /* q points to null at end of the string (or . of the .so version) */
2015 prefix
= xmalloc (q
- p
+ 1);
2016 strncpy (prefix
, p
, q
- p
);
2018 for (q
= prefix
; *q
; q
++)
2019 if (!ISALNUM ((unsigned char)*q
))
2022 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
2023 output_file
, prefix
);
2025 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
2026 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
2027 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
2029 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
2030 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
2031 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
2035 /* Write the tables as C code */
2037 fprintf (stream
, "static int count;\n");
2038 fprintf (stream
, "typedef void entry_pt();\n");
2039 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2043 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2045 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2046 write_list (stream
, "\t\t&", frame_tables
.first
);
2047 fprintf (stream
, "\t0\n};\n");
2049 /* This must match what's in frame.h. */
2050 fprintf (stream
, "struct object {\n");
2051 fprintf (stream
, " void *pc_begin;\n");
2052 fprintf (stream
, " void *pc_end;\n");
2053 fprintf (stream
, " void *fde_begin;\n");
2054 fprintf (stream
, " void *fde_array;\n");
2055 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2056 fprintf (stream
, " struct object *next;\n");
2057 fprintf (stream
, "};\n");
2059 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2060 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2062 fprintf (stream
, "static void reg_frame () {\n");
2063 fprintf (stream
, "\tstatic struct object ob;\n");
2064 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2065 fprintf (stream
, "\t}\n");
2067 fprintf (stream
, "static void dereg_frame () {\n");
2068 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2069 fprintf (stream
, "\t}\n");
2072 fprintf (stream
, "void %s() {\n", initname
);
2073 if (constructors
.number
> 0 || frames
)
2075 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
2076 write_list (stream
, "\t\t", constructors
.first
);
2078 fprintf (stream
, "\treg_frame,\n");
2079 fprintf (stream
, "\t};\n");
2080 fprintf (stream
, "\tentry_pt **p;\n");
2081 fprintf (stream
, "\tif (count++ != 0) return;\n");
2082 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
2083 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
2086 fprintf (stream
, "\t++count;\n");
2087 fprintf (stream
, "}\n");
2088 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2089 fprintf (stream
, "void %s() {\n", fininame
);
2090 if (destructors
.number
> 0 || frames
)
2092 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
2093 write_list (stream
, "\t\t", destructors
.first
);
2095 fprintf (stream
, "\tdereg_frame,\n");
2096 fprintf (stream
, "\t};\n");
2097 fprintf (stream
, "\tentry_pt **p;\n");
2098 fprintf (stream
, "\tif (--count != 0) return;\n");
2099 fprintf (stream
, "\tp = dtors;\n");
2100 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
2101 destructors
.number
+ frames
);
2103 fprintf (stream
, "}\n");
2107 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
2108 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
2112 /* Write the constructor/destructor tables. */
2114 #ifndef LD_INIT_SWITCH
2116 write_c_file_glob (stream
, name
)
2120 /* Write the tables as C code */
2122 int frames
= (frame_tables
.number
> 0);
2124 fprintf (stream
, "typedef void entry_pt();\n\n");
2126 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2130 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2132 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2133 write_list (stream
, "\t\t&", frame_tables
.first
);
2134 fprintf (stream
, "\t0\n};\n");
2136 /* This must match what's in frame.h. */
2137 fprintf (stream
, "struct object {\n");
2138 fprintf (stream
, " void *pc_begin;\n");
2139 fprintf (stream
, " void *pc_end;\n");
2140 fprintf (stream
, " void *fde_begin;\n");
2141 fprintf (stream
, " void *fde_array;\n");
2142 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2143 fprintf (stream
, " struct object *next;\n");
2144 fprintf (stream
, "};\n");
2146 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2147 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2149 fprintf (stream
, "static void reg_frame () {\n");
2150 fprintf (stream
, "\tstatic struct object ob;\n");
2151 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2152 fprintf (stream
, "\t}\n");
2154 fprintf (stream
, "static void dereg_frame () {\n");
2155 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2156 fprintf (stream
, "\t}\n");
2159 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2160 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2161 write_list (stream
, "\t", constructors
.first
);
2163 fprintf (stream
, "\treg_frame,\n");
2164 fprintf (stream
, "\t0\n};\n\n");
2166 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2168 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2169 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2170 write_list (stream
, "\t", destructors
.first
);
2172 fprintf (stream
, "\tdereg_frame,\n");
2173 fprintf (stream
, "\t0\n};\n\n");
2175 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2176 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2178 #endif /* ! LD_INIT_SWITCH */
2181 write_c_file (stream
, name
)
2185 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2186 #ifndef LD_INIT_SWITCH
2188 write_c_file_glob (stream
, name
);
2191 write_c_file_stat (stream
, name
);
2192 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2195 #ifdef COLLECT_EXPORT_LIST
2197 write_export_file (stream
)
2200 struct id
*list
= exports
.first
;
2201 for (; list
; list
= list
->next
)
2202 fprintf (stream
, "%s\n", list
->name
);
2206 write_import_file (stream
)
2209 struct id
*list
= imports
.first
;
2210 fprintf (stream
, "%s\n", "#! .");
2211 for (; list
; list
= list
->next
)
2212 fprintf (stream
, "%s\n", list
->name
);
2216 #ifdef OBJECT_FORMAT_NONE
2218 /* Generic version to scan the name list of the loaded program for
2219 the symbols g++ uses for static constructors and destructors.
2221 The constructor table begins at __CTOR_LIST__ and contains a count
2222 of the number of pointers (or -1 if the constructors are built in a
2223 separate section by the linker), followed by the pointers to the
2224 constructor functions, terminated with a null pointer. The
2225 destructor table has the same format, and begins at __DTOR_LIST__. */
2228 scan_prog_file (prog_name
, which_pass
)
2230 enum pass which_pass
;
2232 void (*int_handler
) ();
2233 void (*quit_handler
) ();
2241 if (which_pass
== PASS_SECOND
)
2244 /* If we do not have an `nm', complain. */
2245 if (nm_file_name
== 0)
2246 fatal ("cannot find `nm'");
2248 nm_argv
[argc
++] = nm_file_name
;
2249 if (NM_FLAGS
[0] != '\0')
2250 nm_argv
[argc
++] = NM_FLAGS
;
2252 nm_argv
[argc
++] = prog_name
;
2253 nm_argv
[argc
++] = (char *) 0;
2255 if (pipe (pipe_fd
) < 0)
2256 fatal_perror ("pipe");
2258 inf
= fdopen (pipe_fd
[0], "r");
2259 if (inf
== (FILE *) 0)
2260 fatal_perror ("fdopen");
2262 /* Trace if needed. */
2268 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2269 fprintf (stderr
, " %s", str
);
2271 fprintf (stderr
, "\n");
2277 /* Spawn child nm on pipe */
2280 fatal_perror (VFORK_STRING
);
2282 if (pid
== 0) /* child context */
2285 if (dup2 (pipe_fd
[1], 1) < 0)
2286 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2288 if (close (pipe_fd
[0]) < 0)
2289 fatal_perror ("close %d", pipe_fd
[0]);
2291 if (close (pipe_fd
[1]) < 0)
2292 fatal_perror ("close %d", pipe_fd
[1]);
2294 execv (nm_file_name
, nm_argv
);
2295 fatal_perror ("execvp %s", nm_file_name
);
2298 /* Parent context from here on. */
2299 int_handler
= (void (*) ())signal (SIGINT
, SIG_IGN
);
2301 quit_handler
= (void (*) ())signal (SIGQUIT
, SIG_IGN
);
2304 if (close (pipe_fd
[1]) < 0)
2305 fatal_perror ("close %d", pipe_fd
[1]);
2308 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2310 /* Read each line of nm output. */
2311 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2316 /* If it contains a constructor or destructor name, add the name
2317 to the appropriate list. */
2319 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2320 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2327 /* Find the end of the symbol name.
2328 Do not include `|', because Encore nm can tack that on the end. */
2329 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2335 switch (is_ctor_dtor (name
))
2338 if (which_pass
!= PASS_LIB
)
2339 add_to_list (&constructors
, name
);
2343 if (which_pass
!= PASS_LIB
)
2344 add_to_list (&destructors
, name
);
2348 if (which_pass
!= PASS_LIB
)
2349 fatal ("init function found in object %s", prog_name
);
2350 #ifndef LD_INIT_SWITCH
2351 add_to_list (&constructors
, name
);
2356 if (which_pass
!= PASS_LIB
)
2357 fatal ("fini function found in object %s", prog_name
);
2358 #ifndef LD_FINI_SWITCH
2359 add_to_list (&destructors
, name
);
2364 if (which_pass
!= PASS_LIB
)
2365 add_to_list (&frame_tables
, name
);
2367 default: /* not a constructor or destructor */
2372 fprintf (stderr
, "\t%s\n", buf
);
2376 fprintf (stderr
, "\n");
2378 if (fclose (inf
) != 0)
2379 fatal_perror ("fclose");
2381 do_wait (nm_file_name
);
2383 signal (SIGINT
, int_handler
);
2385 signal (SIGQUIT
, quit_handler
);
2389 #if SUNOS4_SHARED_LIBRARIES
2391 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2392 that the output file depends upon and their initialization/finalization
2393 routines, if any. */
2398 #include <sys/mman.h>
2399 #include <sys/param.h>
2401 #include <sys/dir.h>
2403 /* pointers to the object file */
2404 unsigned object
; /* address of memory mapped file */
2405 unsigned objsize
; /* size of memory mapped to file */
2406 char * code
; /* pointer to code segment */
2407 char * data
; /* pointer to data segment */
2408 struct nlist
*symtab
; /* pointer to symbol table */
2409 struct link_dynamic
*ld
;
2410 struct link_dynamic_2
*ld_2
;
2411 struct head libraries
;
2413 /* Map the file indicated by NAME into memory and store its address. */
2421 if ((fp
= open (name
, O_RDONLY
)) == -1)
2422 fatal ("unable to open file '%s'", name
);
2423 if (fstat (fp
, &s
) == -1)
2424 fatal ("unable to stat file '%s'", name
);
2426 objsize
= s
.st_size
;
2427 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2430 fatal ("unable to mmap file '%s'", name
);
2435 /* Helpers for locatelib. */
2437 static char *libname
;
2443 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2446 /* If one file has an additional numeric extension past LIBNAME, then put
2447 that one first in the sort. If both files have additional numeric
2448 extensions, then put the one with the higher number first in the sort.
2450 We must verify that the extension is numeric, because Sun saves the
2451 original versions of patched libraries with a .FCS extension. Files with
2452 invalid extensions must go last in the sort, so that they will not be used. */
2456 struct direct
**d1
, **d2
;
2458 int i1
, i2
= strlen (libname
);
2459 char *e1
= (*d1
)->d_name
+ i2
;
2460 char *e2
= (*d2
)->d_name
+ i2
;
2462 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2463 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2467 i1
= strtol (e1
, &e1
, 10);
2468 i2
= strtol (e2
, &e2
, 10);
2475 /* It has a valid numeric extension, prefer this one. */
2476 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2478 /* It has a invalid numeric extension, must prefer the other one. */
2484 /* It has a valid numeric extension, prefer this one. */
2485 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2487 /* It has a invalid numeric extension, must prefer the other one. */
2495 /* Given the name NAME of a dynamic dependency, find its pathname and add
2496 it to the list of libraries. */
2504 char buf
[MAXPATHLEN
];
2512 /* counting elements in array, need 1 extra for null */
2514 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2518 for (; *ld_rules
!= 0; ld_rules
++)
2519 if (*ld_rules
== ':')
2521 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2522 ldr
= (char *) malloc (strlen (ld_rules
) + 1);
2523 strcpy (ldr
, ld_rules
);
2525 p
= getenv ("LD_LIBRARY_PATH");
2530 for (q
= p
; *q
!= 0; q
++)
2533 q
= (char *) malloc (strlen (p
) + 1);
2536 l
= (char **) malloc ((cnt
+ 3) * sizeof (char *));
2541 for (; *ldr
!= 0; ldr
++)
2551 for (; *q
!= 0; q
++)
2558 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2561 *pp
++ = "/usr/local/lib";
2565 for (pp
= l
; *pp
!= 0 ; pp
++)
2567 struct direct
**namelist
;
2569 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2571 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2572 add_to_list (&libraries
, buf
);
2574 fprintf (stderr
, "%s\n", buf
);
2581 notice ("not found\n");
2583 fatal ("dynamic dependency %s not found", name
);
2587 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2588 that it depends upon and any constructors or destructors they contain. */
2591 scan_libraries (prog_name
)
2594 struct exec
*header
;
2596 struct link_object
*lo
;
2597 char buff
[MAXPATHLEN
];
2600 mapfile (prog_name
);
2601 header
= (struct exec
*)object
;
2602 if (N_BADMAG (*header
))
2603 fatal ("bad magic number in file '%s'", prog_name
);
2604 if (header
->a_dynamic
== 0)
2607 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2608 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2609 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2611 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2614 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2620 ld
= (struct link_dynamic
*) data
;
2625 notice ("dynamic dependencies.\n");
2627 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2628 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2629 lo
= (struct link_object
*) lo
->lo_next
)
2632 lo
= (struct link_object
*) ((long) lo
+ code
);
2633 name
= (char *) (code
+ lo
->lo_name
);
2637 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2638 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2644 fprintf (stderr
, "\t%s\n", name
);
2645 add_to_list (&libraries
, name
);
2650 fprintf (stderr
, "\n");
2652 /* now iterate through the library list adding their symbols to
2654 for (list
= libraries
.first
; list
; list
= list
->next
)
2655 scan_prog_file (list
->name
, PASS_LIB
);
2658 #else /* SUNOS4_SHARED_LIBRARIES */
2661 /* Use the List Dynamic Dependencies program to find shared libraries that
2662 the output file depends upon and their initialization/finalization
2663 routines, if any. */
2666 scan_libraries (prog_name
)
2669 static struct head libraries
; /* list of shared libraries found */
2671 void (*int_handler
) ();
2672 void (*quit_handler
) ();
2680 /* If we do not have an `ldd', complain. */
2681 if (ldd_file_name
== 0)
2683 error ("cannot find `ldd'");
2687 ldd_argv
[argc
++] = ldd_file_name
;
2688 ldd_argv
[argc
++] = prog_name
;
2689 ldd_argv
[argc
++] = (char *) 0;
2691 if (pipe (pipe_fd
) < 0)
2692 fatal_perror ("pipe");
2694 inf
= fdopen (pipe_fd
[0], "r");
2695 if (inf
== (FILE *) 0)
2696 fatal_perror ("fdopen");
2698 /* Trace if needed. */
2704 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2705 fprintf (stderr
, " %s", str
);
2707 fprintf (stderr
, "\n");
2713 /* Spawn child ldd on pipe */
2716 fatal_perror (VFORK_STRING
);
2718 if (pid
== 0) /* child context */
2721 if (dup2 (pipe_fd
[1], 1) < 0)
2722 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2724 if (close (pipe_fd
[0]) < 0)
2725 fatal_perror ("close %d", pipe_fd
[0]);
2727 if (close (pipe_fd
[1]) < 0)
2728 fatal_perror ("close %d", pipe_fd
[1]);
2730 execv (ldd_file_name
, ldd_argv
);
2731 fatal_perror ("execv %s", ldd_file_name
);
2734 /* Parent context from here on. */
2735 int_handler
= (void (*) ()) signal (SIGINT
, SIG_IGN
);
2737 quit_handler
= (void (*) ()) signal (SIGQUIT
, SIG_IGN
);
2740 if (close (pipe_fd
[1]) < 0)
2741 fatal_perror ("close %d", pipe_fd
[1]);
2744 notice ("\nldd output with constructors/destructors.\n");
2746 /* Read each line of ldd output. */
2747 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2750 char *name
, *end
, *p
= buf
;
2752 /* Extract names of libraries and add to list. */
2753 PARSE_LDD_OUTPUT (p
);
2758 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2759 fatal ("dynamic dependency %s not found", buf
);
2761 /* Find the end of the symbol name. */
2763 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2768 if (access (name
, R_OK
) == 0)
2769 add_to_list (&libraries
, name
);
2771 fatal ("unable to open dynamic dependency '%s'", buf
);
2774 fprintf (stderr
, "\t%s\n", buf
);
2777 fprintf (stderr
, "\n");
2779 if (fclose (inf
) != 0)
2780 fatal_perror ("fclose");
2782 do_wait (ldd_file_name
);
2784 signal (SIGINT
, int_handler
);
2786 signal (SIGQUIT
, quit_handler
);
2789 /* now iterate through the library list adding their symbols to
2791 for (list
= libraries
.first
; list
; list
= list
->next
)
2792 scan_prog_file (list
->name
, PASS_LIB
);
2795 #endif /* LDD_SUFFIX */
2796 #endif /* SUNOS4_SHARED_LIBRARIES */
2798 #endif /* OBJECT_FORMAT_NONE */
2802 * COFF specific stuff.
2805 #ifdef OBJECT_FORMAT_COFF
2807 #if defined(EXTENDED_COFF)
2808 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2809 # define GCC_SYMENT SYMR
2810 # define GCC_OK_SYMBOL(X) ((X).st == stProc && (X).sc == scText)
2811 # define GCC_SYMINC(X) (1)
2812 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2813 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2815 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2816 # define GCC_SYMENT SYMENT
2817 # define GCC_OK_SYMBOL(X) \
2818 (((X).n_sclass == C_EXT) && \
2819 ((X).n_scnum > N_UNDEF) && \
2820 (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) || \
2821 ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT)))
2822 # define GCC_UNDEF_SYMBOL(X) \
2823 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2824 # define GCC_SYMINC(X) ((X).n_numaux+1)
2825 # define GCC_SYMZERO(X) 0
2826 # define GCC_CHECK_HDR(X) \
2827 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2828 || (HEADER (X).f_magic == 0757 && aix64_flag))
2831 extern char *ldgetname ();
2833 /* COFF version to scan the name list of the loaded program for
2834 the symbols g++ uses for static constructors and destructors.
2836 The constructor table begins at __CTOR_LIST__ and contains a count
2837 of the number of pointers (or -1 if the constructors are built in a
2838 separate section by the linker), followed by the pointers to the
2839 constructor functions, terminated with a null pointer. The
2840 destructor table has the same format, and begins at __DTOR_LIST__. */
2843 scan_prog_file (prog_name
, which_pass
)
2845 enum pass which_pass
;
2847 LDFILE
*ldptr
= NULL
;
2848 int sym_index
, sym_count
;
2850 #ifdef COLLECT_EXPORT_LIST
2851 /* Should we generate an import list for given prog_name? */
2852 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2855 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2858 #ifdef COLLECT_EXPORT_LIST
2859 /* We do not need scanning for some standard C libraries. */
2860 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2863 /* On AIX we have a loop, because there is not much difference
2864 between an object and an archive. This trick allows us to
2865 eliminate scan_libraries() function. */
2869 if ((ldptr
= ldopen (prog_name
, ldptr
)) != NULL
)
2871 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2872 fatal ("%s: not a COFF file", prog_name
);
2874 if (GCC_CHECK_HDR (ldptr
))
2876 sym_count
= GCC_SYMBOLS (ldptr
);
2877 sym_index
= GCC_SYMZERO (ldptr
);
2879 #ifdef COLLECT_EXPORT_LIST
2880 /* Is current archive member a shared object? */
2881 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2884 while (sym_index
< sym_count
)
2888 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2890 sym_index
+= GCC_SYMINC (symbol
);
2892 if (GCC_OK_SYMBOL (symbol
))
2896 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2897 continue; /* should never happen */
2899 #ifdef XCOFF_DEBUGGING_INFO
2900 /* All AIX function names have a duplicate entry
2901 beginning with a dot. */
2906 switch (is_ctor_dtor (name
))
2909 if (! is_shared
) add_to_list (&constructors
, name
);
2910 #ifdef COLLECT_EXPORT_LIST
2911 if (which_pass
== PASS_OBJ
)
2912 add_to_list (&exports
, name
);
2913 /* If this symbol was undefined and we are building
2914 an import list, we should add a symbol to this
2918 && is_in_list (name
, undefined
.first
))
2919 add_to_list (&imports
, name
);
2924 if (! is_shared
) add_to_list (&destructors
, name
);
2925 #ifdef COLLECT_EXPORT_LIST
2926 if (which_pass
== PASS_OBJ
)
2927 add_to_list (&exports
, name
);
2928 /* If this symbol was undefined and we are building
2929 an import list, we should add a symbol to this
2933 && is_in_list (name
, undefined
.first
))
2934 add_to_list (&imports
, name
);
2938 #ifdef COLLECT_EXPORT_LIST
2941 add_to_list (&constructors
, name
);
2946 add_to_list (&destructors
, name
);
2950 default: /* not a constructor or destructor */
2951 #ifdef COLLECT_EXPORT_LIST
2952 /* If we are building a shared object on AIX we need
2953 to explicitly export all global symbols or add
2954 them to import list. */
2957 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2958 add_to_list (&exports
, name
);
2959 else if (! is_shared
&& which_pass
== PASS_FIRST
2961 && is_in_list(name
, undefined
.first
))
2962 add_to_list (&imports
, name
);
2968 #if !defined(EXTENDED_COFF)
2970 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2971 symbol
.n_scnum
, symbol
.n_sclass
,
2972 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2977 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2978 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2981 #ifdef COLLECT_EXPORT_LIST
2982 /* If we are building a shared object we should collect
2983 information about undefined symbols for later
2984 import list generation. */
2985 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2989 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2990 continue; /* should never happen */
2992 /* All AIX function names have a duplicate entry
2993 beginning with a dot. */
2996 add_to_list (&undefined
, name
);
3001 #ifdef COLLECT_EXPORT_LIST
3004 /* If archive contains both 32-bit and 64-bit objects,
3005 we want to skip objects in other mode so mismatch normal. */
3007 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
3008 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
3014 fatal ("%s: cannot open as COFF file", prog_name
);
3016 #ifdef COLLECT_EXPORT_LIST
3017 /* On AIX loop continues while there are more members in archive. */
3019 while (ldclose (ldptr
) == FAILURE
);
3021 /* Otherwise we simply close ldptr. */
3022 (void) ldclose(ldptr
);
3027 #ifdef COLLECT_EXPORT_LIST
3029 /* This new function is used to decide whether we should
3030 generate import list for an object or to use it directly. */
3032 use_import_list (prog_name
)
3037 /* If we do not build a shared object then import list should not be used. */
3038 if (! shared_obj
) return 0;
3040 /* Currently we check only for libgcc, but this can be changed in future. */
3041 p
= strstr (prog_name
, "libgcc.a");
3042 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
3047 /* Given a library name without "lib" prefix, this function
3048 returns a full library name including a path. */
3050 resolve_lib_name (name
)
3056 for (i
= 0; libpaths
[i
]; i
++)
3057 if (libpaths
[i
]->max_len
> l
)
3058 l
= libpaths
[i
]->max_len
;
3060 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
3062 for (i
= 0; libpaths
[i
]; i
++)
3064 struct prefix_list
*list
= libpaths
[i
]->plist
;
3065 for (; list
; list
= list
->next
)
3067 for (j
= 0; libexts
[j
]; j
++)
3069 /* The following lines are needed because path_prefix list
3070 may contain directories both with trailing '/' and
3073 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
3075 sprintf (lib_buf
, "%s%slib%s.%s",
3076 list
->prefix
, p
, name
, libexts
[j
]);
3077 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
3078 if (file_exists (lib_buf
))
3080 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
3087 fprintf (stderr
, "not found\n");
3089 fatal ("Library lib%s not found", name
);
3093 /* Array of standard AIX libraries which should not
3094 be scanned for ctors/dtors. */
3095 static char* aix_std_libs
[] = {
3100 "/usr/lib/libc_r.a",
3101 "/usr/lib/threads/libc.a",
3102 "/usr/ccs/lib/libc.a",
3103 "/usr/ccs/lib/libc_r.a",
3107 /* This function checks the filename and returns 1
3108 if this name matches the location of a standard AIX library. */
3110 ignore_library (name
)
3113 char **p
= &aix_std_libs
[0];
3114 while (*p
++ != NULL
)
3115 if (! strcmp (name
, *p
)) return 1;
3121 #endif /* OBJECT_FORMAT_COFF */
3125 * OSF/rose specific stuff.
3128 #ifdef OBJECT_FORMAT_ROSE
3130 /* Union of the various load commands */
3132 typedef union load_union
3134 ldc_header_t hdr
; /* common header */
3135 load_cmd_map_command_t map
; /* map indexing other load cmds */
3136 interpreter_command_t iprtr
; /* interpreter pathname */
3137 strings_command_t str
; /* load commands strings section */
3138 region_command_t region
; /* region load command */
3139 reloc_command_t reloc
; /* relocation section */
3140 package_command_t pkg
; /* package load command */
3141 symbols_command_t sym
; /* symbol sections */
3142 entry_command_t ent
; /* program start section */
3143 gen_info_command_t info
; /* object information */
3144 func_table_command_t func
; /* function constructors/destructors */
3147 /* Structure to point to load command and data section in memory. */
3149 typedef struct load_all
3151 load_union_t
*load
; /* load command */
3152 char *section
; /* pointer to section */
3155 /* Structure to contain information about a file mapped into memory. */
3159 char *start
; /* start of map */
3160 char *name
; /* filename */
3161 long size
; /* size of the file */
3162 long rounded_size
; /* size rounded to page boundary */
3163 int fd
; /* file descriptor */
3164 int rw
; /* != 0 if opened read/write */
3165 int use_mmap
; /* != 0 if mmap'ed */
3168 extern int decode_mach_o_hdr ();
3169 extern int encode_mach_o_hdr ();
3171 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3172 symbol_info_t
*, int));
3173 static void print_header
PROTO((mo_header_t
*));
3174 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3175 static void bad_header
PROTO((int));
3176 static struct file_info
*read_file
PROTO((char *, int, int));
3177 static void end_file
PROTO((struct file_info
*));
3179 /* OSF/rose specific version to scan the name list of the loaded
3180 program for the symbols g++ uses for static constructors and
3183 The constructor table begins at __CTOR_LIST__ and contains a count
3184 of the number of pointers (or -1 if the constructors are built in a
3185 separate section by the linker), followed by the pointers to the
3186 constructor functions, terminated with a null pointer. The
3187 destructor table has the same format, and begins at __DTOR_LIST__. */
3190 scan_prog_file (prog_name
, which_pass
)
3192 enum pass which_pass
;
3196 load_all_t
*load_array
;
3197 load_all_t
*load_end
;
3198 load_all_t
*load_cmd
;
3199 int symbol_load_cmds
;
3205 struct file_info
*obj_file
;
3207 mo_lcid_t cmd_strings
= -1;
3208 symbol_info_t
*main_sym
= 0;
3209 int rw
= (which_pass
!= PASS_FIRST
);
3211 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3213 fatal_perror ("open %s", prog_name
);
3215 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3216 obj
= obj_file
->start
;
3218 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3219 if (status
!= MO_HDR_CONV_SUCCESS
)
3220 bad_header (status
);
3223 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3224 since the hardware will automatically swap bytes for us on loading little endian
3227 #ifndef CROSS_COMPILE
3228 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3229 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3230 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3231 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3232 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3233 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3234 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3236 fatal ("incompatibilities between object file & expected values");
3241 print_header (&hdr
);
3243 offset
= hdr
.moh_first_cmd_off
;
3244 load_end
= load_array
3245 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3247 /* Build array of load commands, calculating the offsets */
3248 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3250 load_union_t
*load_hdr
; /* load command header */
3252 load_cmd
= load_end
++;
3253 load_hdr
= (load_union_t
*) (obj
+ offset
);
3255 /* If modifying the program file, copy the header. */
3258 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3259 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3262 /* null out old command map, because we will rewrite at the end. */
3263 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3265 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3266 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3270 load_cmd
->load
= load_hdr
;
3271 if (load_hdr
->hdr
.ldci_section_off
> 0)
3272 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3275 print_load_command (load_hdr
, offset
, i
);
3277 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3280 /* If the last command is the load command map and is not undefined,
3281 decrement the count of load commands. */
3282 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3285 hdr
.moh_n_load_cmds
--;
3288 /* Go through and process each symbol table section. */
3289 symbol_load_cmds
= 0;
3290 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3292 load_union_t
*load_hdr
= load_cmd
->load
;
3294 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3300 char *kind
= "unknown";
3302 switch (load_hdr
->sym
.symc_kind
)
3304 case SYMC_IMPORTS
: kind
= "imports"; break;
3305 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3306 case SYMC_STABS
: kind
= "stabs"; break;
3309 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3310 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3313 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3316 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3317 if (str_sect
== (char *) 0)
3318 fatal ("string section missing");
3320 if (load_cmd
->section
== (char *) 0)
3321 fatal ("section pointer missing");
3323 num_syms
= load_hdr
->sym
.symc_nentries
;
3324 for (i
= 0; i
< num_syms
; i
++)
3326 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3327 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3334 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3336 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3346 switch (is_ctor_dtor (name
))
3349 add_to_list (&constructors
, name
);
3353 add_to_list (&destructors
, name
);
3356 default: /* not a constructor or destructor */
3362 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3363 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3368 if (symbol_load_cmds
== 0)
3369 fatal ("no symbol table found");
3371 /* Update the program file now, rewrite header and load commands. At present,
3372 we assume that there is enough space after the last load command to insert
3373 one more. Since the first section written out is page aligned, and the
3374 number of load commands is small, this is ok for the present. */
3378 load_union_t
*load_map
;
3381 if (cmd_strings
== -1)
3382 fatal ("no cmd_strings found");
3384 /* Add __main to initializer list.
3385 If we are building a program instead of a shared library, do not
3386 do anything, since in the current version, you cannot do mallocs
3387 and such in the constructors. */
3389 if (main_sym
!= (symbol_info_t
*) 0
3390 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3391 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3394 notice ("\nUpdating header and load commands.\n\n");
3396 hdr
.moh_n_load_cmds
++;
3397 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3399 /* Create new load command map. */
3401 notice ("load command map, %d cmds, new size %ld.\n",
3402 (int) hdr
.moh_n_load_cmds
, (long) size
);
3404 load_map
= (load_union_t
*) xcalloc (1, size
);
3405 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3406 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3407 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3408 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3409 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3411 offset
= hdr
.moh_first_cmd_off
;
3412 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3414 load_map
->map
.lcm_map
[i
] = offset
;
3415 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3416 hdr
.moh_load_map_cmd_off
= offset
;
3418 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3421 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3424 print_header (&hdr
);
3427 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3428 if (status
!= MO_HDR_CONV_SUCCESS
)
3429 bad_header (status
);
3432 notice ("writing load commands.\n\n");
3434 /* Write load commands */
3435 offset
= hdr
.moh_first_cmd_off
;
3436 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3438 load_union_t
*load_hdr
= load_array
[i
].load
;
3439 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3442 print_load_command (load_hdr
, offset
, i
);
3444 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3449 end_file (obj_file
);
3451 if (close (prog_fd
))
3452 fatal_perror ("close %s", prog_name
);
3455 fprintf (stderr
, "\n");
3459 /* Add a function table to the load commands to call a function
3460 on initiation or termination of the process. */
3463 add_func_table (hdr_p
, load_array
, sym
, type
)
3464 mo_header_t
*hdr_p
; /* pointer to global header */
3465 load_all_t
*load_array
; /* array of ptrs to load cmds */
3466 symbol_info_t
*sym
; /* pointer to symbol entry */
3467 int type
; /* fntc_type value */
3469 /* Add a new load command. */
3470 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3471 int load_index
= num_cmds
- 1;
3472 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3473 load_union_t
*ptr
= xcalloc (1, size
);
3474 load_all_t
*load_cmd
;
3477 /* Set the unresolved address bit in the header to force the loader to be
3478 used, since kernel exec does not call the initialization functions. */
3479 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3481 load_cmd
= &load_array
[load_index
];
3482 load_cmd
->load
= ptr
;
3483 load_cmd
->section
= (char *) 0;
3485 /* Fill in func table load command. */
3486 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3487 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3488 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3489 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3490 ptr
->func
.fntc_type
= type
;
3491 ptr
->func
.fntc_nentries
= 1;
3493 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3494 /* Is the symbol already expressed as (region, offset)? */
3495 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3497 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3498 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3501 /* If not, figure out which region it's in. */
3504 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3507 for (i
= 0; i
< load_index
; i
++)
3509 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3511 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3513 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3514 && addr
>= region_ptr
->regc_addr
.vm_addr
3515 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3517 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3518 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3526 fatal ("could not convert 0x%l.8x into a region", addr
);
3530 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3531 type
== FNTC_INITIALIZATION
? "init" : "term",
3532 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3533 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3534 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3539 /* Print the global header for an OSF/rose object. */
3542 print_header (hdr_ptr
)
3543 mo_header_t
*hdr_ptr
;
3545 fprintf (stderr
, "\nglobal header:\n");
3546 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3547 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3548 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3549 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3550 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3551 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3552 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3553 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3554 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3555 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3556 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3557 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3558 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3559 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3560 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3562 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3563 fprintf (stderr
, ", relocatable");
3565 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3566 fprintf (stderr
, ", linkable");
3568 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3569 fprintf (stderr
, ", execable");
3571 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3572 fprintf (stderr
, ", executable");
3574 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3575 fprintf (stderr
, ", unresolved");
3577 fprintf (stderr
, "\n\n");
3582 /* Print a short summary of a load command. */
3585 print_load_command (load_hdr
, offset
, number
)
3586 load_union_t
*load_hdr
;
3590 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3591 char *type_str
= (char *) 0;
3595 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3596 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3597 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3598 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3599 case LDC_REGION
: type_str
= "REGION"; break;
3600 case LDC_RELOC
: type_str
= "RELOC"; break;
3601 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3602 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3603 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3604 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3605 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3609 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3611 (long) load_hdr
->hdr
.ldci_cmd_size
,
3613 (long) load_hdr
->hdr
.ldci_section_off
,
3614 (long) load_hdr
->hdr
.ldci_section_len
);
3616 if (type_str
== (char *) 0)
3617 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3619 else if (type
!= LDC_REGION
)
3620 fprintf (stderr
, ", ty: %s\n", type_str
);
3625 switch (load_hdr
->region
.regc_usage_type
)
3627 case REG_TEXT_T
: region
= ", .text"; break;
3628 case REG_DATA_T
: region
= ", .data"; break;
3629 case REG_BSS_T
: region
= ", .bss"; break;
3630 case REG_GLUE_T
: region
= ", .glue"; break;
3631 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3632 case REG_RDATA_T
: region
= ", .rdata"; break;
3633 case REG_SDATA_T
: region
= ", .sdata"; break;
3634 case REG_SBSS_T
: region
= ", .sbss"; break;
3638 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3640 (long) load_hdr
->region
.regc_vm_addr
,
3641 (long) load_hdr
->region
.regc_vm_size
,
3649 /* Fatal error when {en,de}code_mach_o_header fails. */
3657 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3658 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3659 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3660 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3661 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3662 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3664 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3669 /* Read a file into a memory buffer. */
3671 static struct file_info
*
3672 read_file (name
, fd
, rw
)
3673 char *name
; /* filename */
3674 int fd
; /* file descriptor */
3675 int rw
; /* read/write */
3677 struct stat stat_pkt
;
3678 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3680 static int page_size
;
3683 if (fstat (fd
, &stat_pkt
) < 0)
3684 fatal_perror ("fstat %s", name
);
3687 p
->size
= stat_pkt
.st_size
;
3688 p
->rounded_size
= stat_pkt
.st_size
;
3694 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3697 page_size
= sysconf (_SC_PAGE_SIZE
);
3699 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3700 p
->start
= mmap ((caddr_t
) 0,
3701 (rw
) ? p
->rounded_size
: p
->size
,
3702 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3703 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3707 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3711 #endif /* USE_MMAP */
3716 fprintf (stderr
, "read %s\n", name
);
3719 p
->start
= xmalloc (p
->size
);
3720 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3721 fatal_perror ("lseek %s 0", name
);
3723 len
= read (fd
, p
->start
, p
->size
);
3725 fatal_perror ("read %s", name
);
3728 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3734 /* Do anything necessary to write a file back from memory. */
3738 struct file_info
*ptr
; /* file information block */
3746 fprintf (stderr
, "msync %s\n", ptr
->name
);
3748 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3749 fatal_perror ("msync %s", ptr
->name
);
3753 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3755 if (munmap (ptr
->start
, ptr
->size
))
3756 fatal_perror ("munmap %s", ptr
->name
);
3759 #endif /* USE_MMAP */
3766 fprintf (stderr
, "write %s\n", ptr
->name
);
3768 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3769 fatal_perror ("lseek %s 0", ptr
->name
);
3771 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3773 fatal_perror ("write %s", ptr
->name
);
3775 if (len
!= ptr
->size
)
3776 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3785 #endif /* OBJECT_FORMAT_ROSE */