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)
55 /* Obstack allocation and deallocation routines. */
56 #define obstack_chunk_alloc xmalloc
57 #define obstack_chunk_free free
59 extern char *make_temp_file
PROTO ((char *));
61 /* On certain systems, we have code that works by scanning the object file
62 directly. But this code uses system-specific header files and library
63 functions, so turn it off in a cross-compiler. Likewise, the names of
64 the utilities are not correct for a cross-compiler; we have to hope that
65 cross-versions are in the proper directories. */
68 #undef SUNOS4_SHARED_LIBRARIES
69 #undef OBJECT_FORMAT_COFF
70 #undef OBJECT_FORMAT_ROSE
72 #undef REAL_LD_FILE_NAME
73 #undef REAL_NM_FILE_NAME
74 #undef REAL_STRIP_FILE_NAME
77 /* If we cannot use a special method, use the ordinary one:
78 run nm to find what symbols are present.
79 In a cross-compiler, this means you need a cross nm,
80 but that is not quite as unpleasant as special headers. */
82 #if !defined (OBJECT_FORMAT_COFF) && !defined (OBJECT_FORMAT_ROSE)
83 #define OBJECT_FORMAT_NONE
86 #ifdef OBJECT_FORMAT_COFF
95 /* Many versions of ldfcn.h define these. */
103 /* Some systems have an ISCOFF macro, but others do not. In some cases
104 the macro may be wrong. MY_ISCOFF is defined in tm.h files for machines
105 that either do not have an ISCOFF macro in /usr/include or for those
106 where it is wrong. */
109 #define MY_ISCOFF(X) ISCOFF (X)
112 #endif /* OBJECT_FORMAT_COFF */
114 #ifdef OBJECT_FORMAT_ROSE
121 #include <sys/mman.h>
125 #include <mach_o_format.h>
126 #include <mach_o_header.h>
127 #include <mach_o_vals.h>
128 #include <mach_o_types.h>
130 #endif /* OBJECT_FORMAT_ROSE */
132 #ifdef OBJECT_FORMAT_NONE
134 /* Default flags to pass to nm. */
136 #define NM_FLAGS "-n"
139 #endif /* OBJECT_FORMAT_NONE */
141 /* Some systems use __main in a way incompatible with its use in gcc, in these
142 cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
143 give the same symbol without quotes for an alternative entry point. You
144 must define both, or neither. */
146 #define NAME__MAIN "__main"
147 #define SYMBOL__MAIN __main
150 /* This must match tree.h. */
151 #define DEFAULT_INIT_PRIORITY 65535
153 #if defined (LDD_SUFFIX) || SUNOS4_SHARED_LIBRARIES
154 #define SCAN_LIBRARIES
158 int do_collecting
= 1;
160 int do_collecting
= 0;
163 /* Linked lists of constructor and destructor names. */
179 /* Enumeration giving which pass this is for scanning the program file. */
182 PASS_FIRST
, /* without constructors */
183 PASS_OBJ
, /* individual objects */
184 PASS_LIB
, /* looking for shared libraries */
185 PASS_SECOND
/* with constructors linked in */
188 extern char *version_string
;
190 int vflag
; /* true if -v */
191 static int rflag
; /* true if -r */
192 static int strip_flag
; /* true if -s */
193 #ifdef COLLECT_EXPORT_LIST
194 static int export_flag
; /* true if -bE */
195 static int aix64_flag
; /* true if -b64 */
198 int debug
; /* true if -debug */
200 static int shared_obj
; /* true if -shared */
202 static char *c_file
; /* <xxx>.c for constructor/destructor list. */
203 static char *o_file
; /* <xxx>.o for constructor/destructor list. */
204 #ifdef COLLECT_EXPORT_LIST
205 static char *export_file
; /* <xxx>.x for AIX export list. */
206 static char *import_file
; /* <xxx>.p for AIX import list. */
208 char *ldout
; /* File for ld errors. */
209 static char *output_file
; /* Output file for ld. */
210 static char *nm_file_name
; /* pathname of nm */
212 static char *ldd_file_name
; /* pathname of ldd (or equivalent) */
214 static char *strip_file_name
; /* pathname of strip */
215 char *c_file_name
; /* pathname of gcc */
216 static char *initname
, *fininame
; /* names of init and fini funcs */
218 static struct head constructors
; /* list of constructors found */
219 static struct head destructors
; /* list of destructors found */
220 #ifdef COLLECT_EXPORT_LIST
221 static struct head exports
; /* list of exported symbols */
222 static struct head imports
; /* list of imported symbols */
223 static struct head undefined
; /* list of undefined symbols */
225 static struct head frame_tables
; /* list of frame unwind info tables */
227 struct obstack temporary_obstack
;
228 struct obstack permanent_obstack
;
229 char * temporary_firstobj
;
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 #ifdef HAVE_LC_MESSAGES
1006 setlocale (LC_MESSAGES
, "");
1008 bindtextdomain (PACKAGE
, localedir
);
1009 textdomain (PACKAGE
);
1011 /* Do not invoke xcalloc before this point, since locale needs to be
1012 set first, in case a diagnostic is issued. */
1014 ld1
= ld1_argv
= (char **) xcalloc (sizeof (char *), argc
+3);
1015 ld2
= ld2_argv
= (char **) xcalloc (sizeof (char *), argc
+6);
1016 object
= object_lst
= (char **) xcalloc (sizeof (char *), argc
);
1022 /* Parse command line early for instances of -debug. This allows
1023 the debug flag to be set before functions like find_a_file()
1028 for (i
= 1; argv
[i
] != NULL
; i
++)
1029 if (! strcmp (argv
[i
], "-debug"))
1034 #ifndef DEFAULT_A_OUT_NAME
1035 output_file
= "a.out";
1037 output_file
= DEFAULT_A_OUT_NAME
;
1040 obstack_begin (&temporary_obstack
, 0);
1041 obstack_begin (&permanent_obstack
, 0);
1042 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
1044 current_demangling_style
= gnu_demangling
;
1045 p
= getenv ("COLLECT_GCC_OPTIONS");
1048 char *q
= extract_string (&p
);
1049 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1052 obstack_free (&temporary_obstack
, temporary_firstobj
);
1055 c_ptr
= c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
);
1058 fatal ("no arguments");
1061 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
1062 signal (SIGQUIT
, handler
);
1064 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
1065 signal (SIGINT
, handler
);
1067 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
1068 signal (SIGALRM
, handler
);
1071 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
1072 signal (SIGHUP
, handler
);
1074 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
1075 signal (SIGSEGV
, handler
);
1077 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
1078 signal (SIGBUS
, handler
);
1081 /* Extract COMPILER_PATH and PATH into our prefix list. */
1082 prefix_from_env ("COMPILER_PATH", &cpath
);
1083 prefix_from_env ("PATH", &path
);
1085 #ifdef CROSS_COMPILE
1086 /* If we look for a program in the compiler directories, we just use
1087 the short name, since these directories are already system-specific.
1088 But it we look for a program in the system directories, we need to
1089 qualify the program name with the target machine. */
1092 = xcalloc (strlen (ld_suffix
) + strlen (target_machine
) + 2, 1);
1093 strcpy (full_ld_suffix
, target_machine
);
1094 strcat (full_ld_suffix
, "-");
1095 strcat (full_ld_suffix
, ld_suffix
);
1099 = xcalloc (strlen (gld_suffix
) + strlen (target_machine
) + 2, 1);
1100 strcpy (full_gld_suffix
, target_machine
);
1101 strcat (full_gld_suffix
, "-");
1102 strcat (full_gld_suffix
, gld_suffix
);
1106 = xcalloc (strlen (nm_suffix
) + strlen (target_machine
) + 2, 1);
1107 strcpy (full_nm_suffix
, target_machine
);
1108 strcat (full_nm_suffix
, "-");
1109 strcat (full_nm_suffix
, nm_suffix
);
1112 = xcalloc (strlen (gnm_suffix
) + strlen (target_machine
) + 2, 1);
1113 strcpy (full_gnm_suffix
, target_machine
);
1114 strcat (full_gnm_suffix
, "-");
1115 strcat (full_gnm_suffix
, gnm_suffix
);
1119 = xcalloc (strlen (ldd_suffix
) + strlen (target_machine
) + 2, 1);
1120 strcpy (full_ldd_suffix
, target_machine
);
1121 strcat (full_ldd_suffix
, "-");
1122 strcat (full_ldd_suffix
, ldd_suffix
);
1126 = xcalloc (strlen (strip_suffix
) + strlen (target_machine
) + 2, 1);
1127 strcpy (full_strip_suffix
, target_machine
);
1128 strcat (full_strip_suffix
, "-");
1129 strcat (full_strip_suffix
, strip_suffix
);
1132 = xcalloc (strlen (gstrip_suffix
) + strlen (target_machine
) + 2, 1);
1133 strcpy (full_gstrip_suffix
, target_machine
);
1134 strcat (full_gstrip_suffix
, "-");
1135 strcat (full_gstrip_suffix
, gstrip_suffix
);
1136 #endif /* CROSS_COMPILE */
1138 /* Try to discover a valid linker/nm/strip to use. */
1140 /* Maybe we know the right file to use (if not cross). */
1142 #ifdef DEFAULT_LINKER
1143 if (access (DEFAULT_LINKER
, X_OK
) == 0)
1144 ld_file_name
= DEFAULT_LINKER
;
1145 if (ld_file_name
== 0)
1147 #ifdef REAL_LD_FILE_NAME
1148 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
1149 if (ld_file_name
== 0)
1151 /* Search the (target-specific) compiler dirs for ld'. */
1152 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1153 /* Likewise for `collect-ld'. */
1154 if (ld_file_name
== 0)
1155 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1156 /* Search the compiler directories for `ld'. We have protection against
1157 recursive calls in find_a_file. */
1158 if (ld_file_name
== 0)
1159 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1160 /* Search the ordinary system bin directories
1161 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1162 if (ld_file_name
== 0)
1163 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1165 #ifdef REAL_NM_FILE_NAME
1166 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1167 if (nm_file_name
== 0)
1169 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1170 if (nm_file_name
== 0)
1171 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1172 if (nm_file_name
== 0)
1173 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1174 if (nm_file_name
== 0)
1175 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1178 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1179 if (ldd_file_name
== 0)
1180 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1183 #ifdef REAL_STRIP_FILE_NAME
1184 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1185 if (strip_file_name
== 0)
1187 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1188 if (strip_file_name
== 0)
1189 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1190 if (strip_file_name
== 0)
1191 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1192 if (strip_file_name
== 0)
1193 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1195 /* Determine the full path name of the C compiler to use. */
1196 c_file_name
= getenv ("COLLECT_GCC");
1197 if (c_file_name
== 0)
1199 #ifdef CROSS_COMPILE
1200 c_file_name
= xcalloc (sizeof ("gcc-") + strlen (target_machine
) + 1, 1);
1201 strcpy (c_file_name
, target_machine
);
1202 strcat (c_file_name
, "-gcc");
1204 c_file_name
= "gcc";
1208 p
= find_a_file (&cpath
, c_file_name
);
1210 /* Here it should be safe to use the system search path since we should have
1211 already qualified the name of the compiler when it is needed. */
1213 p
= find_a_file (&path
, c_file_name
);
1218 *ld1
++ = *ld2
++ = ld_file_name
;
1220 /* Make temp file names. */
1221 c_file
= make_temp_file (".c");
1222 o_file
= make_temp_file (".o");
1223 #ifdef COLLECT_EXPORT_LIST
1224 export_file
= make_temp_file (".x");
1225 import_file
= make_temp_file (".p");
1227 ldout
= make_temp_file (".ld");
1228 *c_ptr
++ = c_file_name
;
1235 #ifdef COLLECT_EXPORT_LIST
1236 /* Generate a list of directories from LIBPATH. */
1237 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1238 /* Add to this list also two standard directories where
1239 AIX loader always searches for libraries. */
1240 add_prefix (&libpath_lib_dirs
, "/lib");
1241 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1244 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1246 AIX support needs to know if -shared has been specified before
1247 parsing commandline arguments. */
1249 p
= getenv ("COLLECT_GCC_OPTIONS");
1252 char *q
= extract_string (&p
);
1253 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1254 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1255 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1256 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1257 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1260 obstack_free (&temporary_obstack
, temporary_firstobj
);
1261 *c_ptr
++ = "-fno-exceptions";
1263 /* !!! When GCC calls collect2,
1264 it does not know whether it is calling collect2 or ld.
1265 So collect2 cannot meaningfully understand any options
1266 except those ld understands.
1267 If you propose to make GCC pass some other option,
1268 just imagine what will happen if ld is really ld!!! */
1270 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1271 /* After the first file, put in the c++ rt0. */
1274 while ((arg
= *++argv
) != (char *) 0)
1276 *ld1
++ = *ld2
++ = arg
;
1282 #ifdef COLLECT_EXPORT_LIST
1283 /* We want to disable automatic exports on AIX when user
1284 explicitly puts an export list in command line */
1286 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1288 else if (arg
[2] == '6' && arg
[3] == '4')
1294 if (!strcmp (arg
, "-debug"))
1296 /* Already parsed. */
1305 /* place o_file BEFORE this argument! */
1311 #ifdef COLLECT_EXPORT_LIST
1313 /* Resolving full library name. */
1314 char *s
= resolve_lib_name (arg
+2);
1316 /* If we will use an import list for this library,
1317 we should exclude it from ld args. */
1318 if (use_import_list (s
))
1324 /* Saving a full library name. */
1325 add_to_list (&libs
, s
);
1330 #ifdef COLLECT_EXPORT_LIST
1331 /* Saving directories where to search for libraries. */
1333 add_prefix (&cmdline_lib_dirs
, arg
+2);
1339 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1341 output_file
= &arg
[2];
1350 if (arg
[2] == '\0' && do_collecting
)
1352 /* We must strip after the nm run, otherwise C++ linking
1353 will not work. Thus we strip in the second ld run, or
1354 else with strip if there is no second ld run. */
1366 else if ((p
= rindex (arg
, '.')) != (char *) 0
1367 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1368 || strcmp (p
, ".so") == 0))
1377 /* place o_file BEFORE this argument! */
1385 #ifdef COLLECT_EXPORT_LIST
1386 /* libraries can be specified directly, i.e. without -l flag. */
1389 /* If we will use an import list for this library,
1390 we should exclude it from ld args. */
1391 if (use_import_list (arg
))
1397 /* Saving a full library name. */
1398 add_to_list (&libs
, arg
);
1404 #ifdef COLLECT_EXPORT_LIST
1405 /* This is added only for debugging purposes. */
1408 fprintf (stderr
, "List of libraries:\n");
1409 dump_list (stderr
, "\t", libs
.first
);
1412 /* The AIX linker will discard static constructors in object files if
1413 nothing else in the file is referenced, so look at them first. */
1415 char **export_object_lst
= object_lst
;
1416 while (export_object_lst
< object
)
1417 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1420 struct id
*list
= libs
.first
;
1421 for (; list
; list
= list
->next
)
1422 scan_prog_file (list
->name
, PASS_FIRST
);
1425 char *buf1
= alloca (strlen (export_file
) + 5);
1426 char *buf2
= alloca (strlen (import_file
) + 5);
1427 sprintf (buf1
, "-bE:%s", export_file
);
1428 sprintf (buf2
, "-bI:%s", import_file
);
1433 exportf
= fopen (export_file
, "w");
1434 if (exportf
== (FILE *) 0)
1435 fatal_perror ("fopen %s", export_file
);
1436 write_export_file (exportf
);
1437 if (fclose (exportf
))
1438 fatal_perror ("fclose %s", export_file
);
1439 importf
= fopen (import_file
, "w");
1440 if (importf
== (FILE *) 0)
1441 fatal_perror ("%s", import_file
);
1442 write_import_file (importf
);
1443 if (fclose (importf
))
1444 fatal_perror ("fclose %s", import_file
);
1449 *object
= *c_ptr
= *ld1
= (char *) 0;
1453 notice ("collect2 version %s", version_string
);
1454 #ifdef TARGET_VERSION
1457 fprintf (stderr
, "\n");
1463 fprintf (stderr
, "ld_file_name = %s\n",
1464 (ld_file_name
? ld_file_name
: "not found"));
1465 fprintf (stderr
, "c_file_name = %s\n",
1466 (c_file_name
? c_file_name
: "not found"));
1467 fprintf (stderr
, "nm_file_name = %s\n",
1468 (nm_file_name
? nm_file_name
: "not found"));
1470 fprintf (stderr
, "ldd_file_name = %s\n",
1471 (ldd_file_name
? ldd_file_name
: "not found"));
1473 fprintf (stderr
, "strip_file_name = %s\n",
1474 (strip_file_name
? strip_file_name
: "not found"));
1475 fprintf (stderr
, "c_file = %s\n",
1476 (c_file
? c_file
: "not found"));
1477 fprintf (stderr
, "o_file = %s\n",
1478 (o_file
? o_file
: "not found"));
1480 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1482 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1484 ptr
= getenv ("COLLECT_GCC");
1486 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1488 ptr
= getenv ("COMPILER_PATH");
1490 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1492 ptr
= getenv ("LIBRARY_PATH");
1494 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1496 fprintf (stderr
, "\n");
1499 /* Load the program, searching all libraries and attempting to provide
1500 undefined symbols from repository information. */
1502 /* On AIX we do this later. */
1503 #ifndef COLLECT_EXPORT_LIST
1504 do_tlink (ld1_argv
, object_lst
);
1507 /* If -r or they will be run via some other method, do not build the
1508 constructor or destructor list, just return now. */
1510 #ifndef COLLECT_EXPORT_LIST
1515 #ifdef COLLECT_EXPORT_LIST
1516 /* But make sure we delete the export file we may have created. */
1517 if (export_file
!= 0 && export_file
[0])
1518 maybe_unlink (export_file
);
1519 if (import_file
!= 0 && import_file
[0])
1520 maybe_unlink (import_file
);
1522 maybe_unlink (c_file
);
1523 maybe_unlink (o_file
);
1527 /* Examine the namelist with nm and search it for static constructors
1528 and destructors to call.
1529 Write the constructor and destructor tables to a .s file and reload. */
1531 /* On AIX we already done scanning for global constructors/destructors. */
1532 #ifndef COLLECT_EXPORT_LIST
1533 scan_prog_file (output_file
, PASS_FIRST
);
1536 #ifdef SCAN_LIBRARIES
1537 scan_libraries (output_file
);
1542 notice ("%d constructor(s) found\n", constructors
.number
);
1543 notice ("%d destructor(s) found\n", destructors
.number
);
1546 if (constructors
.number
== 0 && destructors
.number
== 0
1547 && frame_tables
.number
== 0
1548 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1549 /* If we will be running these functions ourselves, we want to emit
1550 stubs into the shared library so that we do not have to relink
1551 dependent programs when we add static objects. */
1556 #ifdef COLLECT_EXPORT_LIST
1557 /* Doing tlink without additional code generation */
1558 do_tlink (ld1_argv
, object_lst
);
1560 /* Strip now if it was requested on the command line. */
1563 char **strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1564 strip_argv
[0] = strip_file_name
;
1565 strip_argv
[1] = output_file
;
1566 strip_argv
[2] = (char *) 0;
1567 fork_execute ("strip", strip_argv
);
1570 #ifdef COLLECT_EXPORT_LIST
1571 maybe_unlink (export_file
);
1572 maybe_unlink (import_file
);
1574 maybe_unlink (c_file
);
1575 maybe_unlink (o_file
);
1579 /* Sort ctor and dtor lists by priority. */
1580 sort_ids (&constructors
);
1581 sort_ids (&destructors
);
1583 maybe_unlink(output_file
);
1584 outf
= fopen (c_file
, "w");
1585 if (outf
== (FILE *) 0)
1586 fatal_perror ("fopen %s", c_file
);
1588 write_c_file (outf
, c_file
);
1591 fatal_perror ("fclose %s", c_file
);
1593 /* Tell the linker that we have initializer and finalizer functions. */
1594 #ifdef LD_INIT_SWITCH
1595 *ld2
++ = LD_INIT_SWITCH
;
1597 *ld2
++ = LD_FINI_SWITCH
;
1602 #ifdef COLLECT_EXPORT_LIST
1605 add_to_list (&exports
, initname
);
1606 add_to_list (&exports
, fininame
);
1607 add_to_list (&exports
, "_GLOBAL__DI");
1608 add_to_list (&exports
, "_GLOBAL__DD");
1609 exportf
= fopen (export_file
, "w");
1610 if (exportf
== (FILE *) 0)
1611 fatal_perror ("fopen %s", export_file
);
1612 write_export_file (exportf
);
1613 if (fclose (exportf
))
1614 fatal_perror ("fclose %s", export_file
);
1620 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1621 output_file
, c_file
);
1622 write_c_file (stderr
, "stderr");
1623 fprintf (stderr
, "========== end of c_file\n\n");
1624 #ifdef COLLECT_EXPORT_LIST
1625 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1626 write_export_file (stderr
);
1627 fprintf (stderr
, "========== end of export_file\n\n");
1631 /* Assemble the constructor and destructor tables.
1632 Link the tables in with the rest of the program. */
1634 fork_execute ("gcc", c_argv
);
1635 #ifdef COLLECT_EXPORT_LIST
1636 /* On AIX we must call tlink because of possible templates resolution */
1637 do_tlink (ld2_argv
, object_lst
);
1639 /* Otherwise, simply call ld because tlink is already done */
1640 fork_execute ("ld", ld2_argv
);
1642 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1643 constructors/destructors in shared libraries. */
1644 scan_prog_file (output_file
, PASS_SECOND
);
1647 maybe_unlink (c_file
);
1648 maybe_unlink (o_file
);
1650 #ifdef COLLECT_EXPORT_LIST
1651 maybe_unlink (export_file
);
1652 maybe_unlink (import_file
);
1659 /* Wait for a process to finish, and exit if a non-zero status is found. */
1670 if (WIFSIGNALED (status
))
1672 int sig
= WTERMSIG (status
);
1673 error ((status
& 0200
1674 ? "%s terminated with signal %d [%s]"
1675 : "%s terminated with signal %d [%s], core dumped"),
1679 collect_exit (FATAL_EXIT_CODE
);
1682 if (WIFEXITED (status
))
1683 return WEXITSTATUS (status
);
1692 int ret
= collect_wait (prog
);
1695 error ("%s returned %d exit status", prog
, ret
);
1701 /* Fork and execute a program, and wait for the reply. */
1704 collect_execute (prog
, argv
, redir
)
1717 fprintf (stderr
, "%s", argv
[0]);
1719 notice ("[cannot find %s]", prog
);
1721 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1722 fprintf (stderr
, " %s", str
);
1724 fprintf (stderr
, "\n");
1730 /* If we cannot find a program we need, complain error. Do this here
1731 since we might not end up needing something that we could not find. */
1734 fatal ("cannot find `%s'", prog
);
1739 fatal_perror (VFORK_STRING
);
1741 if (pid
== 0) /* child context */
1746 if (freopen (redir
, "a", stdout
) == NULL
)
1747 fatal_perror ("freopen stdout %s", redir
);
1748 if (freopen (redir
, "a", stderr
) == NULL
)
1749 fatal_perror ("freopen stderr %s", redir
);
1752 execvp (argv
[0], argv
);
1753 fatal_perror ("execvp %s", prog
);
1756 pid
= _spawnvp (_P_NOWAIT
, argv
[0], argv
);
1758 fatal ("spawnvp failed");
1763 fork_execute (prog
, argv
)
1767 collect_execute (prog
, argv
, NULL
);
1771 /* Unlink a file unless we are debugging. */
1780 notice ("[Leaving %s]\n", file
);
1784 static long sequence_number
= 0;
1786 /* Add a name to a linked list. */
1789 add_to_list (head_ptr
, name
)
1790 struct head
*head_ptr
;
1794 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1796 strcpy (newid
->name
, name
);
1798 if (head_ptr
->first
)
1799 head_ptr
->last
->next
= newid
;
1801 head_ptr
->first
= newid
;
1803 /* Check for duplicate symbols. */
1804 for (p
= head_ptr
->first
;
1805 strcmp (name
, p
->name
) != 0;
1810 head_ptr
->last
->next
= 0;
1815 newid
->sequence
= ++sequence_number
;
1816 head_ptr
->last
= newid
;
1820 /* Grab the init priority number from an init function name that
1821 looks like "_GLOBAL_.I.12345.foo". */
1824 extract_init_priority (name
)
1829 while (name
[pos
] == '_')
1831 pos
+= 10; /* strlen ("GLOBAL__X_") */
1833 /* Extract init_p number from ctor/dtor name. */
1834 pri
= atoi (name
+ pos
);
1835 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1838 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1839 ctors will be run from right to left, dtors from left to right. */
1843 struct head
*head_ptr
;
1845 /* id holds the current element to insert. id_next holds the next
1846 element to insert. id_ptr iterates through the already sorted elements
1847 looking for the place to insert id. */
1848 struct id
*id
, *id_next
, **id_ptr
;
1850 id
= head_ptr
->first
;
1852 /* We don't have any sorted elements yet. */
1853 head_ptr
->first
= NULL
;
1855 for (; id
; id
= id_next
)
1858 id
->sequence
= extract_init_priority (id
->name
);
1860 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1862 /* If the sequence numbers are the same, we put the id from the
1863 file later on the command line later in the list. */
1864 || id
->sequence
> (*id_ptr
)->sequence
1865 /* Hack: do lexical compare, too.
1866 || (id->sequence == (*id_ptr)->sequence
1867 && strcmp (id->name, (*id_ptr)->name) > 0) */
1876 /* Now set the sequence numbers properly so write_c_file works. */
1877 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1878 id
->sequence
= ++sequence_number
;
1881 /* Write: `prefix', the names on list LIST, `suffix'. */
1884 write_list (stream
, prefix
, list
)
1891 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1896 #ifdef COLLECT_EXPORT_LIST
1897 /* This function is really used only on AIX, but may be useful. */
1899 is_in_list (prefix
, list
)
1905 if (!strcmp (prefix
, list
->name
)) return 1;
1912 /* Added for debugging purpose. */
1913 #ifdef COLLECT_EXPORT_LIST
1915 dump_list (stream
, prefix
, list
)
1922 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1930 dump_prefix_list (stream
, prefix
, list
)
1933 struct prefix_list
*list
;
1937 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1944 write_list_with_asm (stream
, prefix
, list
)
1951 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1952 prefix
, list
->sequence
, list
->name
);
1957 /* Write out the constructor and destructor tables statically (for a shared
1958 object), along with the functions to execute them. */
1961 write_c_file_stat (stream
, name
)
1965 char *prefix
, *p
, *q
;
1966 int frames
= (frame_tables
.number
> 0);
1968 /* Figure out name of output_file, stripping off .so version. */
1969 p
= rindex (output_file
, '/');
1971 p
= (char *) output_file
;
1985 if (strncmp (q
, ".so", 3) == 0)
1994 /* q points to null at end of the string (or . of the .so version) */
1995 prefix
= xmalloc (q
- p
+ 1);
1996 strncpy (prefix
, p
, q
- p
);
1998 for (q
= prefix
; *q
; q
++)
1999 if (!ISALNUM ((unsigned char)*q
))
2002 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
2003 output_file
, prefix
);
2005 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
2006 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
2007 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
2009 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
2010 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
2011 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
2015 /* Write the tables as C code */
2017 fprintf (stream
, "static int count;\n");
2018 fprintf (stream
, "typedef void entry_pt();\n");
2019 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2023 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2025 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2026 write_list (stream
, "\t\t&", frame_tables
.first
);
2027 fprintf (stream
, "\t0\n};\n");
2029 /* This must match what's in frame.h. */
2030 fprintf (stream
, "struct object {\n");
2031 fprintf (stream
, " void *pc_begin;\n");
2032 fprintf (stream
, " void *pc_end;\n");
2033 fprintf (stream
, " void *fde_begin;\n");
2034 fprintf (stream
, " void *fde_array;\n");
2035 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2036 fprintf (stream
, " struct object *next;\n");
2037 fprintf (stream
, "};\n");
2039 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2040 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2042 fprintf (stream
, "static void reg_frame () {\n");
2043 fprintf (stream
, "\tstatic struct object ob;\n");
2044 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2045 fprintf (stream
, "\t}\n");
2047 fprintf (stream
, "static void dereg_frame () {\n");
2048 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2049 fprintf (stream
, "\t}\n");
2052 fprintf (stream
, "void %s() {\n", initname
);
2053 if (constructors
.number
> 0 || frames
)
2055 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
2056 write_list (stream
, "\t\t", constructors
.first
);
2058 fprintf (stream
, "\treg_frame,\n");
2059 fprintf (stream
, "\t};\n");
2060 fprintf (stream
, "\tentry_pt **p;\n");
2061 fprintf (stream
, "\tif (count++ != 0) return;\n");
2062 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
2063 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
2066 fprintf (stream
, "\t++count;\n");
2067 fprintf (stream
, "}\n");
2068 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2069 fprintf (stream
, "void %s() {\n", fininame
);
2070 if (destructors
.number
> 0 || frames
)
2072 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
2073 write_list (stream
, "\t\t", destructors
.first
);
2075 fprintf (stream
, "\tdereg_frame,\n");
2076 fprintf (stream
, "\t};\n");
2077 fprintf (stream
, "\tentry_pt **p;\n");
2078 fprintf (stream
, "\tif (--count != 0) return;\n");
2079 fprintf (stream
, "\tp = dtors;\n");
2080 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
2081 destructors
.number
+ frames
);
2083 fprintf (stream
, "}\n");
2087 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
2088 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
2092 /* Write the constructor/destructor tables. */
2094 #ifndef LD_INIT_SWITCH
2096 write_c_file_glob (stream
, name
)
2100 /* Write the tables as C code */
2102 int frames
= (frame_tables
.number
> 0);
2104 fprintf (stream
, "typedef void entry_pt();\n\n");
2106 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2110 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2112 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2113 write_list (stream
, "\t\t&", frame_tables
.first
);
2114 fprintf (stream
, "\t0\n};\n");
2116 /* This must match what's in frame.h. */
2117 fprintf (stream
, "struct object {\n");
2118 fprintf (stream
, " void *pc_begin;\n");
2119 fprintf (stream
, " void *pc_end;\n");
2120 fprintf (stream
, " void *fde_begin;\n");
2121 fprintf (stream
, " void *fde_array;\n");
2122 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2123 fprintf (stream
, " struct object *next;\n");
2124 fprintf (stream
, "};\n");
2126 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2127 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2129 fprintf (stream
, "static void reg_frame () {\n");
2130 fprintf (stream
, "\tstatic struct object ob;\n");
2131 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2132 fprintf (stream
, "\t}\n");
2134 fprintf (stream
, "static void dereg_frame () {\n");
2135 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2136 fprintf (stream
, "\t}\n");
2139 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2140 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2141 write_list (stream
, "\t", constructors
.first
);
2143 fprintf (stream
, "\treg_frame,\n");
2144 fprintf (stream
, "\t0\n};\n\n");
2146 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2148 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2149 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2150 write_list (stream
, "\t", destructors
.first
);
2152 fprintf (stream
, "\tdereg_frame,\n");
2153 fprintf (stream
, "\t0\n};\n\n");
2155 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2156 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2158 #endif /* ! LD_INIT_SWITCH */
2161 write_c_file (stream
, name
)
2165 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2166 #ifndef LD_INIT_SWITCH
2168 write_c_file_glob (stream
, name
);
2171 write_c_file_stat (stream
, name
);
2172 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2175 #ifdef COLLECT_EXPORT_LIST
2177 write_export_file (stream
)
2180 struct id
*list
= exports
.first
;
2181 for (; list
; list
= list
->next
)
2182 fprintf (stream
, "%s\n", list
->name
);
2186 write_import_file (stream
)
2189 struct id
*list
= imports
.first
;
2190 fprintf (stream
, "%s\n", "#! .");
2191 for (; list
; list
= list
->next
)
2192 fprintf (stream
, "%s\n", list
->name
);
2196 #ifdef OBJECT_FORMAT_NONE
2198 /* Generic version to scan the name list of the loaded program for
2199 the symbols g++ uses for static constructors and destructors.
2201 The constructor table begins at __CTOR_LIST__ and contains a count
2202 of the number of pointers (or -1 if the constructors are built in a
2203 separate section by the linker), followed by the pointers to the
2204 constructor functions, terminated with a null pointer. The
2205 destructor table has the same format, and begins at __DTOR_LIST__. */
2208 scan_prog_file (prog_name
, which_pass
)
2210 enum pass which_pass
;
2212 void (*int_handler
) ();
2213 void (*quit_handler
) ();
2221 if (which_pass
== PASS_SECOND
)
2224 /* If we do not have an `nm', complain. */
2225 if (nm_file_name
== 0)
2226 fatal ("cannot find `nm'");
2228 nm_argv
[argc
++] = nm_file_name
;
2229 if (NM_FLAGS
[0] != '\0')
2230 nm_argv
[argc
++] = NM_FLAGS
;
2232 nm_argv
[argc
++] = prog_name
;
2233 nm_argv
[argc
++] = (char *) 0;
2235 if (pipe (pipe_fd
) < 0)
2236 fatal_perror ("pipe");
2238 inf
= fdopen (pipe_fd
[0], "r");
2239 if (inf
== (FILE *) 0)
2240 fatal_perror ("fdopen");
2242 /* Trace if needed. */
2248 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2249 fprintf (stderr
, " %s", str
);
2251 fprintf (stderr
, "\n");
2257 /* Spawn child nm on pipe */
2260 fatal_perror (VFORK_STRING
);
2262 if (pid
== 0) /* child context */
2265 if (dup2 (pipe_fd
[1], 1) < 0)
2266 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2268 if (close (pipe_fd
[0]) < 0)
2269 fatal_perror ("close %d", pipe_fd
[0]);
2271 if (close (pipe_fd
[1]) < 0)
2272 fatal_perror ("close %d", pipe_fd
[1]);
2274 execv (nm_file_name
, nm_argv
);
2275 fatal_perror ("execvp %s", nm_file_name
);
2278 /* Parent context from here on. */
2279 int_handler
= (void (*) ())signal (SIGINT
, SIG_IGN
);
2281 quit_handler
= (void (*) ())signal (SIGQUIT
, SIG_IGN
);
2284 if (close (pipe_fd
[1]) < 0)
2285 fatal_perror ("close %d", pipe_fd
[1]);
2288 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2290 /* Read each line of nm output. */
2291 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2296 /* If it contains a constructor or destructor name, add the name
2297 to the appropriate list. */
2299 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2300 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2307 /* Find the end of the symbol name.
2308 Do not include `|', because Encore nm can tack that on the end. */
2309 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2315 switch (is_ctor_dtor (name
))
2318 if (which_pass
!= PASS_LIB
)
2319 add_to_list (&constructors
, name
);
2323 if (which_pass
!= PASS_LIB
)
2324 add_to_list (&destructors
, name
);
2328 if (which_pass
!= PASS_LIB
)
2329 fatal ("init function found in object %s", prog_name
);
2330 #ifndef LD_INIT_SWITCH
2331 add_to_list (&constructors
, name
);
2336 if (which_pass
!= PASS_LIB
)
2337 fatal ("fini function found in object %s", prog_name
);
2338 #ifndef LD_FINI_SWITCH
2339 add_to_list (&destructors
, name
);
2344 if (which_pass
!= PASS_LIB
)
2345 add_to_list (&frame_tables
, name
);
2347 default: /* not a constructor or destructor */
2352 fprintf (stderr
, "\t%s\n", buf
);
2356 fprintf (stderr
, "\n");
2358 if (fclose (inf
) != 0)
2359 fatal_perror ("fclose");
2361 do_wait (nm_file_name
);
2363 signal (SIGINT
, int_handler
);
2365 signal (SIGQUIT
, quit_handler
);
2369 #if SUNOS4_SHARED_LIBRARIES
2371 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2372 that the output file depends upon and their initialization/finalization
2373 routines, if any. */
2378 #include <sys/mman.h>
2379 #include <sys/param.h>
2381 #include <sys/dir.h>
2383 /* pointers to the object file */
2384 unsigned object
; /* address of memory mapped file */
2385 unsigned objsize
; /* size of memory mapped to file */
2386 char * code
; /* pointer to code segment */
2387 char * data
; /* pointer to data segment */
2388 struct nlist
*symtab
; /* pointer to symbol table */
2389 struct link_dynamic
*ld
;
2390 struct link_dynamic_2
*ld_2
;
2391 struct head libraries
;
2393 /* Map the file indicated by NAME into memory and store its address. */
2401 if ((fp
= open (name
, O_RDONLY
)) == -1)
2402 fatal ("unable to open file '%s'", name
);
2403 if (fstat (fp
, &s
) == -1)
2404 fatal ("unable to stat file '%s'", name
);
2406 objsize
= s
.st_size
;
2407 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2410 fatal ("unable to mmap file '%s'", name
);
2415 /* Helpers for locatelib. */
2417 static char *libname
;
2423 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2426 /* If one file has an additional numeric extension past LIBNAME, then put
2427 that one first in the sort. If both files have additional numeric
2428 extensions, then put the one with the higher number first in the sort.
2430 We must verify that the extension is numeric, because Sun saves the
2431 original versions of patched libraries with a .FCS extension. Files with
2432 invalid extensions must go last in the sort, so that they will not be used. */
2436 struct direct
**d1
, **d2
;
2438 int i1
, i2
= strlen (libname
);
2439 char *e1
= (*d1
)->d_name
+ i2
;
2440 char *e2
= (*d2
)->d_name
+ i2
;
2442 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2443 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2447 i1
= strtol (e1
, &e1
, 10);
2448 i2
= strtol (e2
, &e2
, 10);
2455 /* It has a valid numeric extension, prefer this one. */
2456 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2458 /* It has a invalid numeric extension, must prefer the other one. */
2464 /* It has a valid numeric extension, prefer this one. */
2465 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2467 /* It has a invalid numeric extension, must prefer the other one. */
2475 /* Given the name NAME of a dynamic dependency, find its pathname and add
2476 it to the list of libraries. */
2484 char buf
[MAXPATHLEN
];
2492 /* counting elements in array, need 1 extra for null */
2494 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2498 for (; *ld_rules
!= 0; ld_rules
++)
2499 if (*ld_rules
== ':')
2501 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2502 ldr
= (char *) malloc (strlen (ld_rules
) + 1);
2503 strcpy (ldr
, ld_rules
);
2505 p
= getenv ("LD_LIBRARY_PATH");
2510 for (q
= p
; *q
!= 0; q
++)
2513 q
= (char *) malloc (strlen (p
) + 1);
2516 l
= (char **) malloc ((cnt
+ 3) * sizeof (char *));
2521 for (; *ldr
!= 0; ldr
++)
2531 for (; *q
!= 0; q
++)
2538 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2541 *pp
++ = "/usr/local/lib";
2545 for (pp
= l
; *pp
!= 0 ; pp
++)
2547 struct direct
**namelist
;
2549 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2551 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2552 add_to_list (&libraries
, buf
);
2554 fprintf (stderr
, "%s\n", buf
);
2561 notice ("not found\n");
2563 fatal ("dynamic dependency %s not found", name
);
2567 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2568 that it depends upon and any constructors or destructors they contain. */
2571 scan_libraries (prog_name
)
2574 struct exec
*header
;
2576 struct link_object
*lo
;
2577 char buff
[MAXPATHLEN
];
2580 mapfile (prog_name
);
2581 header
= (struct exec
*)object
;
2582 if (N_BADMAG (*header
))
2583 fatal ("bad magic number in file '%s'", prog_name
);
2584 if (header
->a_dynamic
== 0)
2587 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2588 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2589 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2591 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2594 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2600 ld
= (struct link_dynamic
*) data
;
2605 notice ("dynamic dependencies.\n");
2607 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2608 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2609 lo
= (struct link_object
*) lo
->lo_next
)
2612 lo
= (struct link_object
*) ((long) lo
+ code
);
2613 name
= (char *) (code
+ lo
->lo_name
);
2617 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2618 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2624 fprintf (stderr
, "\t%s\n", name
);
2625 add_to_list (&libraries
, name
);
2630 fprintf (stderr
, "\n");
2632 /* now iterate through the library list adding their symbols to
2634 for (list
= libraries
.first
; list
; list
= list
->next
)
2635 scan_prog_file (list
->name
, PASS_LIB
);
2638 #else /* SUNOS4_SHARED_LIBRARIES */
2641 /* Use the List Dynamic Dependencies program to find shared libraries that
2642 the output file depends upon and their initialization/finalization
2643 routines, if any. */
2646 scan_libraries (prog_name
)
2649 static struct head libraries
; /* list of shared libraries found */
2651 void (*int_handler
) ();
2652 void (*quit_handler
) ();
2660 /* If we do not have an `ldd', complain. */
2661 if (ldd_file_name
== 0)
2663 error ("cannot find `ldd'");
2667 ldd_argv
[argc
++] = ldd_file_name
;
2668 ldd_argv
[argc
++] = prog_name
;
2669 ldd_argv
[argc
++] = (char *) 0;
2671 if (pipe (pipe_fd
) < 0)
2672 fatal_perror ("pipe");
2674 inf
= fdopen (pipe_fd
[0], "r");
2675 if (inf
== (FILE *) 0)
2676 fatal_perror ("fdopen");
2678 /* Trace if needed. */
2684 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2685 fprintf (stderr
, " %s", str
);
2687 fprintf (stderr
, "\n");
2693 /* Spawn child ldd on pipe */
2696 fatal_perror (VFORK_STRING
);
2698 if (pid
== 0) /* child context */
2701 if (dup2 (pipe_fd
[1], 1) < 0)
2702 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2704 if (close (pipe_fd
[0]) < 0)
2705 fatal_perror ("close %d", pipe_fd
[0]);
2707 if (close (pipe_fd
[1]) < 0)
2708 fatal_perror ("close %d", pipe_fd
[1]);
2710 execv (ldd_file_name
, ldd_argv
);
2711 fatal_perror ("execv %s", ldd_file_name
);
2714 /* Parent context from here on. */
2715 int_handler
= (void (*) ()) signal (SIGINT
, SIG_IGN
);
2717 quit_handler
= (void (*) ()) signal (SIGQUIT
, SIG_IGN
);
2720 if (close (pipe_fd
[1]) < 0)
2721 fatal_perror ("close %d", pipe_fd
[1]);
2724 notice ("\nldd output with constructors/destructors.\n");
2726 /* Read each line of ldd output. */
2727 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2730 char *name
, *end
, *p
= buf
;
2732 /* Extract names of libraries and add to list. */
2733 PARSE_LDD_OUTPUT (p
);
2738 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2739 fatal ("dynamic dependency %s not found", buf
);
2741 /* Find the end of the symbol name. */
2743 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2748 if (access (name
, R_OK
) == 0)
2749 add_to_list (&libraries
, name
);
2751 fatal ("unable to open dynamic dependency '%s'", buf
);
2754 fprintf (stderr
, "\t%s\n", buf
);
2757 fprintf (stderr
, "\n");
2759 if (fclose (inf
) != 0)
2760 fatal_perror ("fclose");
2762 do_wait (ldd_file_name
);
2764 signal (SIGINT
, int_handler
);
2766 signal (SIGQUIT
, quit_handler
);
2769 /* now iterate through the library list adding their symbols to
2771 for (list
= libraries
.first
; list
; list
= list
->next
)
2772 scan_prog_file (list
->name
, PASS_LIB
);
2775 #endif /* LDD_SUFFIX */
2776 #endif /* SUNOS4_SHARED_LIBRARIES */
2778 #endif /* OBJECT_FORMAT_NONE */
2782 * COFF specific stuff.
2785 #ifdef OBJECT_FORMAT_COFF
2787 #if defined(EXTENDED_COFF)
2788 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2789 # define GCC_SYMENT SYMR
2790 # define GCC_OK_SYMBOL(X) ((X).st == stProc && (X).sc == scText)
2791 # define GCC_SYMINC(X) (1)
2792 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2793 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2795 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2796 # define GCC_SYMENT SYMENT
2797 # define GCC_OK_SYMBOL(X) \
2798 (((X).n_sclass == C_EXT) && \
2799 ((X).n_scnum > N_UNDEF) && \
2800 (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) || \
2801 ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT)))
2802 # define GCC_UNDEF_SYMBOL(X) \
2803 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2804 # define GCC_SYMINC(X) ((X).n_numaux+1)
2805 # define GCC_SYMZERO(X) 0
2806 # define GCC_CHECK_HDR(X) \
2807 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2808 || (HEADER (X).f_magic == 0757 && aix64_flag))
2811 extern char *ldgetname ();
2813 /* COFF version to scan the name list of the loaded program for
2814 the symbols g++ uses for static constructors and destructors.
2816 The constructor table begins at __CTOR_LIST__ and contains a count
2817 of the number of pointers (or -1 if the constructors are built in a
2818 separate section by the linker), followed by the pointers to the
2819 constructor functions, terminated with a null pointer. The
2820 destructor table has the same format, and begins at __DTOR_LIST__. */
2823 scan_prog_file (prog_name
, which_pass
)
2825 enum pass which_pass
;
2827 LDFILE
*ldptr
= NULL
;
2828 int sym_index
, sym_count
;
2830 #ifdef COLLECT_EXPORT_LIST
2831 /* Should we generate an import list for given prog_name? */
2832 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2835 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2838 #ifdef COLLECT_EXPORT_LIST
2839 /* We do not need scanning for some standard C libraries. */
2840 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2843 /* On AIX we have a loop, because there is not much difference
2844 between an object and an archive. This trick allows us to
2845 eliminate scan_libraries() function. */
2849 if ((ldptr
= ldopen (prog_name
, ldptr
)) != NULL
)
2851 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2852 fatal ("%s: not a COFF file", prog_name
);
2854 if (GCC_CHECK_HDR (ldptr
))
2856 sym_count
= GCC_SYMBOLS (ldptr
);
2857 sym_index
= GCC_SYMZERO (ldptr
);
2859 #ifdef COLLECT_EXPORT_LIST
2860 /* Is current archive member a shared object? */
2861 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2864 while (sym_index
< sym_count
)
2868 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2870 sym_index
+= GCC_SYMINC (symbol
);
2872 if (GCC_OK_SYMBOL (symbol
))
2876 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2877 continue; /* should never happen */
2879 #ifdef XCOFF_DEBUGGING_INFO
2880 /* All AIX function names have a duplicate entry
2881 beginning with a dot. */
2886 switch (is_ctor_dtor (name
))
2889 if (! is_shared
) add_to_list (&constructors
, name
);
2890 #ifdef COLLECT_EXPORT_LIST
2891 if (which_pass
== PASS_OBJ
)
2892 add_to_list (&exports
, name
);
2893 /* If this symbol was undefined and we are building
2894 an import list, we should add a symbol to this
2898 && is_in_list (name
, undefined
.first
))
2899 add_to_list (&imports
, name
);
2904 if (! is_shared
) add_to_list (&destructors
, name
);
2905 #ifdef COLLECT_EXPORT_LIST
2906 if (which_pass
== PASS_OBJ
)
2907 add_to_list (&exports
, name
);
2908 /* If this symbol was undefined and we are building
2909 an import list, we should add a symbol to this
2913 && is_in_list (name
, undefined
.first
))
2914 add_to_list (&imports
, name
);
2918 #ifdef COLLECT_EXPORT_LIST
2921 add_to_list (&constructors
, name
);
2926 add_to_list (&destructors
, name
);
2930 default: /* not a constructor or destructor */
2931 #ifdef COLLECT_EXPORT_LIST
2932 /* If we are building a shared object on AIX we need
2933 to explicitly export all global symbols or add
2934 them to import list. */
2937 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2938 add_to_list (&exports
, name
);
2939 else if (! is_shared
&& which_pass
== PASS_FIRST
2941 && is_in_list(name
, undefined
.first
))
2942 add_to_list (&imports
, name
);
2948 #if !defined(EXTENDED_COFF)
2950 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2951 symbol
.n_scnum
, symbol
.n_sclass
,
2952 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2957 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2958 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2961 #ifdef COLLECT_EXPORT_LIST
2962 /* If we are building a shared object we should collect
2963 information about undefined symbols for later
2964 import list generation. */
2965 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2969 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2970 continue; /* should never happen */
2972 /* All AIX function names have a duplicate entry
2973 beginning with a dot. */
2976 add_to_list (&undefined
, name
);
2981 #ifdef COLLECT_EXPORT_LIST
2984 /* If archive contains both 32-bit and 64-bit objects,
2985 we want to skip objects in other mode so mismatch normal. */
2987 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2988 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2994 fatal ("%s: cannot open as COFF file", prog_name
);
2996 #ifdef COLLECT_EXPORT_LIST
2997 /* On AIX loop continues while there are more members in archive. */
2999 while (ldclose (ldptr
) == FAILURE
);
3001 /* Otherwise we simply close ldptr. */
3002 (void) ldclose(ldptr
);
3007 #ifdef COLLECT_EXPORT_LIST
3009 /* This new function is used to decide whether we should
3010 generate import list for an object or to use it directly. */
3012 use_import_list (prog_name
)
3017 /* If we do not build a shared object then import list should not be used. */
3018 if (! shared_obj
) return 0;
3020 /* Currently we check only for libgcc, but this can be changed in future. */
3021 p
= strstr (prog_name
, "libgcc.a");
3022 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
3027 /* Given a library name without "lib" prefix, this function
3028 returns a full library name including a path. */
3030 resolve_lib_name (name
)
3036 for (i
= 0; libpaths
[i
]; i
++)
3037 if (libpaths
[i
]->max_len
> l
)
3038 l
= libpaths
[i
]->max_len
;
3040 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
3042 for (i
= 0; libpaths
[i
]; i
++)
3044 struct prefix_list
*list
= libpaths
[i
]->plist
;
3045 for (; list
; list
= list
->next
)
3047 for (j
= 0; libexts
[j
]; j
++)
3049 /* The following lines are needed because path_prefix list
3050 may contain directories both with trailing '/' and
3053 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
3055 sprintf (lib_buf
, "%s%slib%s.%s",
3056 list
->prefix
, p
, name
, libexts
[j
]);
3057 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
3058 if (file_exists (lib_buf
))
3060 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
3067 fprintf (stderr
, "not found\n");
3069 fatal ("Library lib%s not found", name
);
3073 /* Array of standard AIX libraries which should not
3074 be scanned for ctors/dtors. */
3075 static char* aix_std_libs
[] = {
3080 "/usr/lib/libc_r.a",
3081 "/usr/lib/threads/libc.a",
3082 "/usr/ccs/lib/libc.a",
3083 "/usr/ccs/lib/libc_r.a",
3087 /* This function checks the filename and returns 1
3088 if this name matches the location of a standard AIX library. */
3090 ignore_library (name
)
3093 char **p
= &aix_std_libs
[0];
3094 while (*p
++ != NULL
)
3095 if (! strcmp (name
, *p
)) return 1;
3101 #endif /* OBJECT_FORMAT_COFF */
3105 * OSF/rose specific stuff.
3108 #ifdef OBJECT_FORMAT_ROSE
3110 /* Union of the various load commands */
3112 typedef union load_union
3114 ldc_header_t hdr
; /* common header */
3115 load_cmd_map_command_t map
; /* map indexing other load cmds */
3116 interpreter_command_t iprtr
; /* interpreter pathname */
3117 strings_command_t str
; /* load commands strings section */
3118 region_command_t region
; /* region load command */
3119 reloc_command_t reloc
; /* relocation section */
3120 package_command_t pkg
; /* package load command */
3121 symbols_command_t sym
; /* symbol sections */
3122 entry_command_t ent
; /* program start section */
3123 gen_info_command_t info
; /* object information */
3124 func_table_command_t func
; /* function constructors/destructors */
3127 /* Structure to point to load command and data section in memory. */
3129 typedef struct load_all
3131 load_union_t
*load
; /* load command */
3132 char *section
; /* pointer to section */
3135 /* Structure to contain information about a file mapped into memory. */
3139 char *start
; /* start of map */
3140 char *name
; /* filename */
3141 long size
; /* size of the file */
3142 long rounded_size
; /* size rounded to page boundary */
3143 int fd
; /* file descriptor */
3144 int rw
; /* != 0 if opened read/write */
3145 int use_mmap
; /* != 0 if mmap'ed */
3148 extern int decode_mach_o_hdr ();
3149 extern int encode_mach_o_hdr ();
3151 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3152 symbol_info_t
*, int));
3153 static void print_header
PROTO((mo_header_t
*));
3154 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3155 static void bad_header
PROTO((int));
3156 static struct file_info
*read_file
PROTO((char *, int, int));
3157 static void end_file
PROTO((struct file_info
*));
3159 /* OSF/rose specific version to scan the name list of the loaded
3160 program for the symbols g++ uses for static constructors and
3163 The constructor table begins at __CTOR_LIST__ and contains a count
3164 of the number of pointers (or -1 if the constructors are built in a
3165 separate section by the linker), followed by the pointers to the
3166 constructor functions, terminated with a null pointer. The
3167 destructor table has the same format, and begins at __DTOR_LIST__. */
3170 scan_prog_file (prog_name
, which_pass
)
3172 enum pass which_pass
;
3176 load_all_t
*load_array
;
3177 load_all_t
*load_end
;
3178 load_all_t
*load_cmd
;
3179 int symbol_load_cmds
;
3185 struct file_info
*obj_file
;
3187 mo_lcid_t cmd_strings
= -1;
3188 symbol_info_t
*main_sym
= 0;
3189 int rw
= (which_pass
!= PASS_FIRST
);
3191 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3193 fatal_perror ("open %s", prog_name
);
3195 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3196 obj
= obj_file
->start
;
3198 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3199 if (status
!= MO_HDR_CONV_SUCCESS
)
3200 bad_header (status
);
3203 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3204 since the hardware will automatically swap bytes for us on loading little endian
3207 #ifndef CROSS_COMPILE
3208 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3209 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3210 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3211 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3212 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3213 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3214 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3216 fatal ("incompatibilities between object file & expected values");
3221 print_header (&hdr
);
3223 offset
= hdr
.moh_first_cmd_off
;
3224 load_end
= load_array
3225 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3227 /* Build array of load commands, calculating the offsets */
3228 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3230 load_union_t
*load_hdr
; /* load command header */
3232 load_cmd
= load_end
++;
3233 load_hdr
= (load_union_t
*) (obj
+ offset
);
3235 /* If modifying the program file, copy the header. */
3238 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3239 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3242 /* null out old command map, because we will rewrite at the end. */
3243 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3245 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3246 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3250 load_cmd
->load
= load_hdr
;
3251 if (load_hdr
->hdr
.ldci_section_off
> 0)
3252 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3255 print_load_command (load_hdr
, offset
, i
);
3257 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3260 /* If the last command is the load command map and is not undefined,
3261 decrement the count of load commands. */
3262 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3265 hdr
.moh_n_load_cmds
--;
3268 /* Go through and process each symbol table section. */
3269 symbol_load_cmds
= 0;
3270 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3272 load_union_t
*load_hdr
= load_cmd
->load
;
3274 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3280 char *kind
= "unknown";
3282 switch (load_hdr
->sym
.symc_kind
)
3284 case SYMC_IMPORTS
: kind
= "imports"; break;
3285 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3286 case SYMC_STABS
: kind
= "stabs"; break;
3289 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3290 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3293 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3296 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3297 if (str_sect
== (char *) 0)
3298 fatal ("string section missing");
3300 if (load_cmd
->section
== (char *) 0)
3301 fatal ("section pointer missing");
3303 num_syms
= load_hdr
->sym
.symc_nentries
;
3304 for (i
= 0; i
< num_syms
; i
++)
3306 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3307 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3314 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3316 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3326 switch (is_ctor_dtor (name
))
3329 add_to_list (&constructors
, name
);
3333 add_to_list (&destructors
, name
);
3336 default: /* not a constructor or destructor */
3342 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3343 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3348 if (symbol_load_cmds
== 0)
3349 fatal ("no symbol table found");
3351 /* Update the program file now, rewrite header and load commands. At present,
3352 we assume that there is enough space after the last load command to insert
3353 one more. Since the first section written out is page aligned, and the
3354 number of load commands is small, this is ok for the present. */
3358 load_union_t
*load_map
;
3361 if (cmd_strings
== -1)
3362 fatal ("no cmd_strings found");
3364 /* Add __main to initializer list.
3365 If we are building a program instead of a shared library, do not
3366 do anything, since in the current version, you cannot do mallocs
3367 and such in the constructors. */
3369 if (main_sym
!= (symbol_info_t
*) 0
3370 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3371 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3374 notice ("\nUpdating header and load commands.\n\n");
3376 hdr
.moh_n_load_cmds
++;
3377 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3379 /* Create new load command map. */
3381 notice ("load command map, %d cmds, new size %ld.\n",
3382 (int) hdr
.moh_n_load_cmds
, (long) size
);
3384 load_map
= (load_union_t
*) xcalloc (1, size
);
3385 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3386 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3387 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3388 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3389 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3391 offset
= hdr
.moh_first_cmd_off
;
3392 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3394 load_map
->map
.lcm_map
[i
] = offset
;
3395 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3396 hdr
.moh_load_map_cmd_off
= offset
;
3398 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3401 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3404 print_header (&hdr
);
3407 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3408 if (status
!= MO_HDR_CONV_SUCCESS
)
3409 bad_header (status
);
3412 notice ("writing load commands.\n\n");
3414 /* Write load commands */
3415 offset
= hdr
.moh_first_cmd_off
;
3416 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3418 load_union_t
*load_hdr
= load_array
[i
].load
;
3419 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3422 print_load_command (load_hdr
, offset
, i
);
3424 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3429 end_file (obj_file
);
3431 if (close (prog_fd
))
3432 fatal_perror ("close %s", prog_name
);
3435 fprintf (stderr
, "\n");
3439 /* Add a function table to the load commands to call a function
3440 on initiation or termination of the process. */
3443 add_func_table (hdr_p
, load_array
, sym
, type
)
3444 mo_header_t
*hdr_p
; /* pointer to global header */
3445 load_all_t
*load_array
; /* array of ptrs to load cmds */
3446 symbol_info_t
*sym
; /* pointer to symbol entry */
3447 int type
; /* fntc_type value */
3449 /* Add a new load command. */
3450 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3451 int load_index
= num_cmds
- 1;
3452 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3453 load_union_t
*ptr
= xcalloc (1, size
);
3454 load_all_t
*load_cmd
;
3457 /* Set the unresolved address bit in the header to force the loader to be
3458 used, since kernel exec does not call the initialization functions. */
3459 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3461 load_cmd
= &load_array
[load_index
];
3462 load_cmd
->load
= ptr
;
3463 load_cmd
->section
= (char *) 0;
3465 /* Fill in func table load command. */
3466 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3467 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3468 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3469 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3470 ptr
->func
.fntc_type
= type
;
3471 ptr
->func
.fntc_nentries
= 1;
3473 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3474 /* Is the symbol already expressed as (region, offset)? */
3475 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3477 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3478 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3481 /* If not, figure out which region it's in. */
3484 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3487 for (i
= 0; i
< load_index
; i
++)
3489 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3491 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3493 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3494 && addr
>= region_ptr
->regc_addr
.vm_addr
3495 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3497 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3498 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3506 fatal ("could not convert 0x%l.8x into a region", addr
);
3510 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3511 type
== FNTC_INITIALIZATION
? "init" : "term",
3512 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3513 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3514 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3519 /* Print the global header for an OSF/rose object. */
3522 print_header (hdr_ptr
)
3523 mo_header_t
*hdr_ptr
;
3525 fprintf (stderr
, "\nglobal header:\n");
3526 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3527 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3528 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3529 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3530 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3531 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3532 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3533 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3534 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3535 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3536 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3537 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3538 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3539 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3540 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3542 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3543 fprintf (stderr
, ", relocatable");
3545 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3546 fprintf (stderr
, ", linkable");
3548 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3549 fprintf (stderr
, ", execable");
3551 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3552 fprintf (stderr
, ", executable");
3554 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3555 fprintf (stderr
, ", unresolved");
3557 fprintf (stderr
, "\n\n");
3562 /* Print a short summary of a load command. */
3565 print_load_command (load_hdr
, offset
, number
)
3566 load_union_t
*load_hdr
;
3570 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3571 char *type_str
= (char *) 0;
3575 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3576 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3577 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3578 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3579 case LDC_REGION
: type_str
= "REGION"; break;
3580 case LDC_RELOC
: type_str
= "RELOC"; break;
3581 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3582 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3583 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3584 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3585 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3589 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3591 (long) load_hdr
->hdr
.ldci_cmd_size
,
3593 (long) load_hdr
->hdr
.ldci_section_off
,
3594 (long) load_hdr
->hdr
.ldci_section_len
);
3596 if (type_str
== (char *) 0)
3597 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3599 else if (type
!= LDC_REGION
)
3600 fprintf (stderr
, ", ty: %s\n", type_str
);
3605 switch (load_hdr
->region
.regc_usage_type
)
3607 case REG_TEXT_T
: region
= ", .text"; break;
3608 case REG_DATA_T
: region
= ", .data"; break;
3609 case REG_BSS_T
: region
= ", .bss"; break;
3610 case REG_GLUE_T
: region
= ", .glue"; break;
3611 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3612 case REG_RDATA_T
: region
= ", .rdata"; break;
3613 case REG_SDATA_T
: region
= ", .sdata"; break;
3614 case REG_SBSS_T
: region
= ", .sbss"; break;
3618 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3620 (long) load_hdr
->region
.regc_vm_addr
,
3621 (long) load_hdr
->region
.regc_vm_size
,
3629 /* Fatal error when {en,de}code_mach_o_header fails. */
3637 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3638 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3639 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3640 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3641 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3642 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3644 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3649 /* Read a file into a memory buffer. */
3651 static struct file_info
*
3652 read_file (name
, fd
, rw
)
3653 char *name
; /* filename */
3654 int fd
; /* file descriptor */
3655 int rw
; /* read/write */
3657 struct stat stat_pkt
;
3658 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3660 static int page_size
;
3663 if (fstat (fd
, &stat_pkt
) < 0)
3664 fatal_perror ("fstat %s", name
);
3667 p
->size
= stat_pkt
.st_size
;
3668 p
->rounded_size
= stat_pkt
.st_size
;
3674 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3677 page_size
= sysconf (_SC_PAGE_SIZE
);
3679 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3680 p
->start
= mmap ((caddr_t
) 0,
3681 (rw
) ? p
->rounded_size
: p
->size
,
3682 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3683 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3687 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3691 #endif /* USE_MMAP */
3696 fprintf (stderr
, "read %s\n", name
);
3699 p
->start
= xmalloc (p
->size
);
3700 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3701 fatal_perror ("lseek %s 0", name
);
3703 len
= read (fd
, p
->start
, p
->size
);
3705 fatal_perror ("read %s", name
);
3708 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3714 /* Do anything necessary to write a file back from memory. */
3718 struct file_info
*ptr
; /* file information block */
3726 fprintf (stderr
, "msync %s\n", ptr
->name
);
3728 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3729 fatal_perror ("msync %s", ptr
->name
);
3733 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3735 if (munmap (ptr
->start
, ptr
->size
))
3736 fatal_perror ("munmap %s", ptr
->name
);
3739 #endif /* USE_MMAP */
3746 fprintf (stderr
, "write %s\n", ptr
->name
);
3748 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3749 fatal_perror ("lseek %s 0", ptr
->name
);
3751 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3753 fatal_perror ("write %s", ptr
->name
);
3755 if (len
!= ptr
->size
)
3756 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3765 #endif /* OBJECT_FORMAT_ROSE */