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
, ...))
414 VA_START (ap
, msgid
);
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 setlocale (LC_MESSAGES
, "");
1006 bindtextdomain (PACKAGE
, localedir
);
1007 textdomain (PACKAGE
);
1009 /* Do not invoke xcalloc before this point, since locale needs to be
1010 set first, in case a diagnostic is issued. */
1012 ld1
= ld1_argv
= (char **) xcalloc (sizeof (char *), argc
+3);
1013 ld2
= ld2_argv
= (char **) xcalloc (sizeof (char *), argc
+6);
1014 object
= object_lst
= (char **) xcalloc (sizeof (char *), argc
);
1020 /* Parse command line early for instances of -debug. This allows
1021 the debug flag to be set before functions like find_a_file()
1026 for (i
= 1; argv
[i
] != NULL
; i
++)
1027 if (! strcmp (argv
[i
], "-debug"))
1032 #ifndef DEFAULT_A_OUT_NAME
1033 output_file
= "a.out";
1035 output_file
= DEFAULT_A_OUT_NAME
;
1038 obstack_begin (&temporary_obstack
, 0);
1039 obstack_begin (&permanent_obstack
, 0);
1040 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
1042 current_demangling_style
= gnu_demangling
;
1043 p
= getenv ("COLLECT_GCC_OPTIONS");
1046 char *q
= extract_string (&p
);
1047 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1050 obstack_free (&temporary_obstack
, temporary_firstobj
);
1053 c_ptr
= c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
);
1056 fatal ("no arguments");
1059 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
1060 signal (SIGQUIT
, handler
);
1062 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
1063 signal (SIGINT
, handler
);
1065 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
1066 signal (SIGALRM
, handler
);
1069 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
1070 signal (SIGHUP
, handler
);
1072 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
1073 signal (SIGSEGV
, handler
);
1075 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
1076 signal (SIGBUS
, handler
);
1079 /* Extract COMPILER_PATH and PATH into our prefix list. */
1080 prefix_from_env ("COMPILER_PATH", &cpath
);
1081 prefix_from_env ("PATH", &path
);
1083 #ifdef CROSS_COMPILE
1084 /* If we look for a program in the compiler directories, we just use
1085 the short name, since these directories are already system-specific.
1086 But it we look for a program in the system directories, we need to
1087 qualify the program name with the target machine. */
1090 = xcalloc (strlen (ld_suffix
) + strlen (target_machine
) + 2, 1);
1091 strcpy (full_ld_suffix
, target_machine
);
1092 strcat (full_ld_suffix
, "-");
1093 strcat (full_ld_suffix
, ld_suffix
);
1097 = xcalloc (strlen (gld_suffix
) + strlen (target_machine
) + 2, 1);
1098 strcpy (full_gld_suffix
, target_machine
);
1099 strcat (full_gld_suffix
, "-");
1100 strcat (full_gld_suffix
, gld_suffix
);
1104 = xcalloc (strlen (nm_suffix
) + strlen (target_machine
) + 2, 1);
1105 strcpy (full_nm_suffix
, target_machine
);
1106 strcat (full_nm_suffix
, "-");
1107 strcat (full_nm_suffix
, nm_suffix
);
1110 = xcalloc (strlen (gnm_suffix
) + strlen (target_machine
) + 2, 1);
1111 strcpy (full_gnm_suffix
, target_machine
);
1112 strcat (full_gnm_suffix
, "-");
1113 strcat (full_gnm_suffix
, gnm_suffix
);
1117 = xcalloc (strlen (ldd_suffix
) + strlen (target_machine
) + 2, 1);
1118 strcpy (full_ldd_suffix
, target_machine
);
1119 strcat (full_ldd_suffix
, "-");
1120 strcat (full_ldd_suffix
, ldd_suffix
);
1124 = xcalloc (strlen (strip_suffix
) + strlen (target_machine
) + 2, 1);
1125 strcpy (full_strip_suffix
, target_machine
);
1126 strcat (full_strip_suffix
, "-");
1127 strcat (full_strip_suffix
, strip_suffix
);
1130 = xcalloc (strlen (gstrip_suffix
) + strlen (target_machine
) + 2, 1);
1131 strcpy (full_gstrip_suffix
, target_machine
);
1132 strcat (full_gstrip_suffix
, "-");
1133 strcat (full_gstrip_suffix
, gstrip_suffix
);
1134 #endif /* CROSS_COMPILE */
1136 /* Try to discover a valid linker/nm/strip to use. */
1138 /* Maybe we know the right file to use (if not cross). */
1140 #ifdef DEFAULT_LINKER
1141 if (access (DEFAULT_LINKER
, X_OK
) == 0)
1142 ld_file_name
= DEFAULT_LINKER
;
1143 if (ld_file_name
== 0)
1145 #ifdef REAL_LD_FILE_NAME
1146 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
1147 if (ld_file_name
== 0)
1149 /* Search the (target-specific) compiler dirs for ld'. */
1150 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1151 /* Likewise for `collect-ld'. */
1152 if (ld_file_name
== 0)
1153 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1154 /* Search the compiler directories for `ld'. We have protection against
1155 recursive calls in find_a_file. */
1156 if (ld_file_name
== 0)
1157 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1158 /* Search the ordinary system bin directories
1159 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1160 if (ld_file_name
== 0)
1161 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1163 #ifdef REAL_NM_FILE_NAME
1164 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1165 if (nm_file_name
== 0)
1167 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1168 if (nm_file_name
== 0)
1169 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1170 if (nm_file_name
== 0)
1171 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1172 if (nm_file_name
== 0)
1173 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1176 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1177 if (ldd_file_name
== 0)
1178 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1181 #ifdef REAL_STRIP_FILE_NAME
1182 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1183 if (strip_file_name
== 0)
1185 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1186 if (strip_file_name
== 0)
1187 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1188 if (strip_file_name
== 0)
1189 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1190 if (strip_file_name
== 0)
1191 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1193 /* Determine the full path name of the C compiler to use. */
1194 c_file_name
= getenv ("COLLECT_GCC");
1195 if (c_file_name
== 0)
1197 #ifdef CROSS_COMPILE
1198 c_file_name
= xcalloc (sizeof ("gcc-") + strlen (target_machine
) + 1, 1);
1199 strcpy (c_file_name
, target_machine
);
1200 strcat (c_file_name
, "-gcc");
1202 c_file_name
= "gcc";
1206 p
= find_a_file (&cpath
, c_file_name
);
1208 /* Here it should be safe to use the system search path since we should have
1209 already qualified the name of the compiler when it is needed. */
1211 p
= find_a_file (&path
, c_file_name
);
1216 *ld1
++ = *ld2
++ = ld_file_name
;
1218 /* Make temp file names. */
1219 c_file
= make_temp_file (".c");
1220 o_file
= make_temp_file (".o");
1221 #ifdef COLLECT_EXPORT_LIST
1222 export_file
= make_temp_file (".x");
1223 import_file
= make_temp_file (".p");
1225 ldout
= make_temp_file (".ld");
1226 *c_ptr
++ = c_file_name
;
1233 #ifdef COLLECT_EXPORT_LIST
1234 /* Generate a list of directories from LIBPATH. */
1235 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1236 /* Add to this list also two standard directories where
1237 AIX loader always searches for libraries. */
1238 add_prefix (&libpath_lib_dirs
, "/lib");
1239 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1242 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1244 AIX support needs to know if -shared has been specified before
1245 parsing commandline arguments. */
1247 p
= getenv ("COLLECT_GCC_OPTIONS");
1250 char *q
= extract_string (&p
);
1251 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1252 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1253 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1254 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1255 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1258 obstack_free (&temporary_obstack
, temporary_firstobj
);
1259 *c_ptr
++ = "-fno-exceptions";
1261 /* !!! When GCC calls collect2,
1262 it does not know whether it is calling collect2 or ld.
1263 So collect2 cannot meaningfully understand any options
1264 except those ld understands.
1265 If you propose to make GCC pass some other option,
1266 just imagine what will happen if ld is really ld!!! */
1268 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1269 /* After the first file, put in the c++ rt0. */
1272 while ((arg
= *++argv
) != (char *) 0)
1274 *ld1
++ = *ld2
++ = arg
;
1280 #ifdef COLLECT_EXPORT_LIST
1281 /* We want to disable automatic exports on AIX when user
1282 explicitly puts an export list in command line */
1284 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1286 else if (arg
[2] == '6' && arg
[3] == '4')
1292 if (!strcmp (arg
, "-debug"))
1294 /* Already parsed. */
1303 /* place o_file BEFORE this argument! */
1309 #ifdef COLLECT_EXPORT_LIST
1311 /* Resolving full library name. */
1312 char *s
= resolve_lib_name (arg
+2);
1314 /* If we will use an import list for this library,
1315 we should exclude it from ld args. */
1316 if (use_import_list (s
))
1322 /* Saving a full library name. */
1323 add_to_list (&libs
, s
);
1328 #ifdef COLLECT_EXPORT_LIST
1329 /* Saving directories where to search for libraries. */
1331 add_prefix (&cmdline_lib_dirs
, arg
+2);
1337 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1339 output_file
= &arg
[2];
1348 if (arg
[2] == '\0' && do_collecting
)
1350 /* We must strip after the nm run, otherwise C++ linking
1351 will not work. Thus we strip in the second ld run, or
1352 else with strip if there is no second ld run. */
1364 else if ((p
= rindex (arg
, '.')) != (char *) 0
1365 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1366 || strcmp (p
, ".so") == 0))
1375 /* place o_file BEFORE this argument! */
1383 #ifdef COLLECT_EXPORT_LIST
1384 /* libraries can be specified directly, i.e. without -l flag. */
1387 /* If we will use an import list for this library,
1388 we should exclude it from ld args. */
1389 if (use_import_list (arg
))
1395 /* Saving a full library name. */
1396 add_to_list (&libs
, arg
);
1402 #ifdef COLLECT_EXPORT_LIST
1403 /* This is added only for debugging purposes. */
1406 fprintf (stderr
, "List of libraries:\n");
1407 dump_list (stderr
, "\t", libs
.first
);
1410 /* The AIX linker will discard static constructors in object files if
1411 nothing else in the file is referenced, so look at them first. */
1413 char **export_object_lst
= object_lst
;
1414 while (export_object_lst
< object
)
1415 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1418 struct id
*list
= libs
.first
;
1419 for (; list
; list
= list
->next
)
1420 scan_prog_file (list
->name
, PASS_FIRST
);
1423 char *buf1
= alloca (strlen (export_file
) + 5);
1424 char *buf2
= alloca (strlen (import_file
) + 5);
1425 sprintf (buf1
, "-bE:%s", export_file
);
1426 sprintf (buf2
, "-bI:%s", import_file
);
1431 exportf
= fopen (export_file
, "w");
1432 if (exportf
== (FILE *) 0)
1433 fatal_perror ("fopen %s", export_file
);
1434 write_export_file (exportf
);
1435 if (fclose (exportf
))
1436 fatal_perror ("fclose %s", export_file
);
1437 importf
= fopen (import_file
, "w");
1438 if (importf
== (FILE *) 0)
1439 fatal_perror ("%s", import_file
);
1440 write_import_file (importf
);
1441 if (fclose (importf
))
1442 fatal_perror ("fclose %s", import_file
);
1447 *object
= *c_ptr
= *ld1
= (char *) 0;
1451 notice ("collect2 version %s", version_string
);
1452 #ifdef TARGET_VERSION
1455 fprintf (stderr
, "\n");
1461 fprintf (stderr
, "ld_file_name = %s\n",
1462 (ld_file_name
? ld_file_name
: "not found"));
1463 fprintf (stderr
, "c_file_name = %s\n",
1464 (c_file_name
? c_file_name
: "not found"));
1465 fprintf (stderr
, "nm_file_name = %s\n",
1466 (nm_file_name
? nm_file_name
: "not found"));
1468 fprintf (stderr
, "ldd_file_name = %s\n",
1469 (ldd_file_name
? ldd_file_name
: "not found"));
1471 fprintf (stderr
, "strip_file_name = %s\n",
1472 (strip_file_name
? strip_file_name
: "not found"));
1473 fprintf (stderr
, "c_file = %s\n",
1474 (c_file
? c_file
: "not found"));
1475 fprintf (stderr
, "o_file = %s\n",
1476 (o_file
? o_file
: "not found"));
1478 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1480 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1482 ptr
= getenv ("COLLECT_GCC");
1484 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1486 ptr
= getenv ("COMPILER_PATH");
1488 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1490 ptr
= getenv ("LIBRARY_PATH");
1492 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1494 fprintf (stderr
, "\n");
1497 /* Load the program, searching all libraries and attempting to provide
1498 undefined symbols from repository information. */
1500 /* On AIX we do this later. */
1501 #ifndef COLLECT_EXPORT_LIST
1502 do_tlink (ld1_argv
, object_lst
);
1505 /* If -r or they will be run via some other method, do not build the
1506 constructor or destructor list, just return now. */
1508 #ifndef COLLECT_EXPORT_LIST
1513 #ifdef COLLECT_EXPORT_LIST
1514 /* But make sure we delete the export file we may have created. */
1515 if (export_file
!= 0 && export_file
[0])
1516 maybe_unlink (export_file
);
1517 if (import_file
!= 0 && import_file
[0])
1518 maybe_unlink (import_file
);
1520 maybe_unlink (c_file
);
1521 maybe_unlink (o_file
);
1525 /* Examine the namelist with nm and search it for static constructors
1526 and destructors to call.
1527 Write the constructor and destructor tables to a .s file and reload. */
1529 /* On AIX we already done scanning for global constructors/destructors. */
1530 #ifndef COLLECT_EXPORT_LIST
1531 scan_prog_file (output_file
, PASS_FIRST
);
1534 #ifdef SCAN_LIBRARIES
1535 scan_libraries (output_file
);
1540 notice ("%d constructor(s) found\n", constructors
.number
);
1541 notice ("%d destructor(s) found\n", destructors
.number
);
1544 if (constructors
.number
== 0 && destructors
.number
== 0
1545 && frame_tables
.number
== 0
1546 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1547 /* If we will be running these functions ourselves, we want to emit
1548 stubs into the shared library so that we do not have to relink
1549 dependent programs when we add static objects. */
1554 #ifdef COLLECT_EXPORT_LIST
1555 /* Doing tlink without additional code generation */
1556 do_tlink (ld1_argv
, object_lst
);
1558 /* Strip now if it was requested on the command line. */
1561 char **strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1562 strip_argv
[0] = strip_file_name
;
1563 strip_argv
[1] = output_file
;
1564 strip_argv
[2] = (char *) 0;
1565 fork_execute ("strip", strip_argv
);
1568 #ifdef COLLECT_EXPORT_LIST
1569 maybe_unlink (export_file
);
1570 maybe_unlink (import_file
);
1572 maybe_unlink (c_file
);
1573 maybe_unlink (o_file
);
1577 /* Sort ctor and dtor lists by priority. */
1578 sort_ids (&constructors
);
1579 sort_ids (&destructors
);
1581 maybe_unlink(output_file
);
1582 outf
= fopen (c_file
, "w");
1583 if (outf
== (FILE *) 0)
1584 fatal_perror ("fopen %s", c_file
);
1586 write_c_file (outf
, c_file
);
1589 fatal_perror ("fclose %s", c_file
);
1591 /* Tell the linker that we have initializer and finalizer functions. */
1592 #ifdef LD_INIT_SWITCH
1593 *ld2
++ = LD_INIT_SWITCH
;
1595 *ld2
++ = LD_FINI_SWITCH
;
1600 #ifdef COLLECT_EXPORT_LIST
1603 add_to_list (&exports
, initname
);
1604 add_to_list (&exports
, fininame
);
1605 add_to_list (&exports
, "_GLOBAL__DI");
1606 add_to_list (&exports
, "_GLOBAL__DD");
1607 exportf
= fopen (export_file
, "w");
1608 if (exportf
== (FILE *) 0)
1609 fatal_perror ("fopen %s", export_file
);
1610 write_export_file (exportf
);
1611 if (fclose (exportf
))
1612 fatal_perror ("fclose %s", export_file
);
1618 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1619 output_file
, c_file
);
1620 write_c_file (stderr
, "stderr");
1621 fprintf (stderr
, "========== end of c_file\n\n");
1622 #ifdef COLLECT_EXPORT_LIST
1623 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1624 write_export_file (stderr
);
1625 fprintf (stderr
, "========== end of export_file\n\n");
1629 /* Assemble the constructor and destructor tables.
1630 Link the tables in with the rest of the program. */
1632 fork_execute ("gcc", c_argv
);
1633 #ifdef COLLECT_EXPORT_LIST
1634 /* On AIX we must call tlink because of possible templates resolution */
1635 do_tlink (ld2_argv
, object_lst
);
1637 /* Otherwise, simply call ld because tlink is already done */
1638 fork_execute ("ld", ld2_argv
);
1640 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1641 constructors/destructors in shared libraries. */
1642 scan_prog_file (output_file
, PASS_SECOND
);
1645 maybe_unlink (c_file
);
1646 maybe_unlink (o_file
);
1648 #ifdef COLLECT_EXPORT_LIST
1649 maybe_unlink (export_file
);
1650 maybe_unlink (import_file
);
1657 /* Wait for a process to finish, and exit if a non-zero status is found. */
1668 if (WIFSIGNALED (status
))
1670 int sig
= WTERMSIG (status
);
1671 error ((status
& 0200
1672 ? "%s terminated with signal %d [%s]"
1673 : "%s terminated with signal %d [%s], core dumped"),
1677 collect_exit (FATAL_EXIT_CODE
);
1680 if (WIFEXITED (status
))
1681 return WEXITSTATUS (status
);
1690 int ret
= collect_wait (prog
);
1693 error ("%s returned %d exit status", prog
, ret
);
1699 /* Fork and execute a program, and wait for the reply. */
1702 collect_execute (prog
, argv
, redir
)
1715 fprintf (stderr
, "%s", argv
[0]);
1717 notice ("[cannot find %s]", prog
);
1719 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1720 fprintf (stderr
, " %s", str
);
1722 fprintf (stderr
, "\n");
1728 /* If we cannot find a program we need, complain error. Do this here
1729 since we might not end up needing something that we could not find. */
1732 fatal ("cannot find `%s'", prog
);
1737 fatal_perror (VFORK_STRING
);
1739 if (pid
== 0) /* child context */
1744 if (freopen (redir
, "a", stdout
) == NULL
)
1745 fatal_perror ("freopen stdout %s", redir
);
1746 if (freopen (redir
, "a", stderr
) == NULL
)
1747 fatal_perror ("freopen stderr %s", redir
);
1750 execvp (argv
[0], argv
);
1751 fatal_perror ("execvp %s", prog
);
1754 pid
= _spawnvp (_P_NOWAIT
, argv
[0], argv
);
1756 fatal ("spawnvp failed");
1761 fork_execute (prog
, argv
)
1765 collect_execute (prog
, argv
, NULL
);
1769 /* Unlink a file unless we are debugging. */
1778 notice ("[Leaving %s]\n", file
);
1782 static long sequence_number
= 0;
1784 /* Add a name to a linked list. */
1787 add_to_list (head_ptr
, name
)
1788 struct head
*head_ptr
;
1792 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1794 strcpy (newid
->name
, name
);
1796 if (head_ptr
->first
)
1797 head_ptr
->last
->next
= newid
;
1799 head_ptr
->first
= newid
;
1801 /* Check for duplicate symbols. */
1802 for (p
= head_ptr
->first
;
1803 strcmp (name
, p
->name
) != 0;
1808 head_ptr
->last
->next
= 0;
1813 newid
->sequence
= ++sequence_number
;
1814 head_ptr
->last
= newid
;
1818 /* Grab the init priority number from an init function name that
1819 looks like "_GLOBAL_.I.12345.foo". */
1822 extract_init_priority (name
)
1827 while (name
[pos
] == '_')
1829 pos
+= 10; /* strlen ("GLOBAL__X_") */
1831 /* Extract init_p number from ctor/dtor name. */
1832 pri
= atoi (name
+ pos
);
1833 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1836 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1837 ctors will be run from right to left, dtors from left to right. */
1841 struct head
*head_ptr
;
1843 /* id holds the current element to insert. id_next holds the next
1844 element to insert. id_ptr iterates through the already sorted elements
1845 looking for the place to insert id. */
1846 struct id
*id
, *id_next
, **id_ptr
;
1848 id
= head_ptr
->first
;
1850 /* We don't have any sorted elements yet. */
1851 head_ptr
->first
= NULL
;
1853 for (; id
; id
= id_next
)
1856 id
->sequence
= extract_init_priority (id
->name
);
1858 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1860 /* If the sequence numbers are the same, we put the id from the
1861 file later on the command line later in the list. */
1862 || id
->sequence
> (*id_ptr
)->sequence
1863 /* Hack: do lexical compare, too.
1864 || (id->sequence == (*id_ptr)->sequence
1865 && strcmp (id->name, (*id_ptr)->name) > 0) */
1874 /* Now set the sequence numbers properly so write_c_file works. */
1875 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1876 id
->sequence
= ++sequence_number
;
1879 /* Write: `prefix', the names on list LIST, `suffix'. */
1882 write_list (stream
, prefix
, list
)
1889 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1894 #ifdef COLLECT_EXPORT_LIST
1895 /* This function is really used only on AIX, but may be useful. */
1897 is_in_list (prefix
, list
)
1903 if (!strcmp (prefix
, list
->name
)) return 1;
1910 /* Added for debugging purpose. */
1911 #ifdef COLLECT_EXPORT_LIST
1913 dump_list (stream
, prefix
, list
)
1920 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1928 dump_prefix_list (stream
, prefix
, list
)
1931 struct prefix_list
*list
;
1935 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1942 write_list_with_asm (stream
, prefix
, list
)
1949 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1950 prefix
, list
->sequence
, list
->name
);
1955 /* Write out the constructor and destructor tables statically (for a shared
1956 object), along with the functions to execute them. */
1959 write_c_file_stat (stream
, name
)
1963 char *prefix
, *p
, *q
;
1964 int frames
= (frame_tables
.number
> 0);
1966 /* Figure out name of output_file, stripping off .so version. */
1967 p
= rindex (output_file
, '/');
1969 p
= (char *) output_file
;
1983 if (strncmp (q
, ".so", 3) == 0)
1992 /* q points to null at end of the string (or . of the .so version) */
1993 prefix
= xmalloc (q
- p
+ 1);
1994 strncpy (prefix
, p
, q
- p
);
1996 for (q
= prefix
; *q
; q
++)
1997 if (!ISALNUM ((unsigned char)*q
))
2000 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
2001 output_file
, prefix
);
2003 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
2004 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
2005 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
2007 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
2008 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
2009 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
2013 /* Write the tables as C code */
2015 fprintf (stream
, "static int count;\n");
2016 fprintf (stream
, "typedef void entry_pt();\n");
2017 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2021 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2023 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2024 write_list (stream
, "\t\t&", frame_tables
.first
);
2025 fprintf (stream
, "\t0\n};\n");
2027 /* This must match what's in frame.h. */
2028 fprintf (stream
, "struct object {\n");
2029 fprintf (stream
, " void *pc_begin;\n");
2030 fprintf (stream
, " void *pc_end;\n");
2031 fprintf (stream
, " void *fde_begin;\n");
2032 fprintf (stream
, " void *fde_array;\n");
2033 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2034 fprintf (stream
, " struct object *next;\n");
2035 fprintf (stream
, "};\n");
2037 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2038 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2040 fprintf (stream
, "static void reg_frame () {\n");
2041 fprintf (stream
, "\tstatic struct object ob;\n");
2042 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2043 fprintf (stream
, "\t}\n");
2045 fprintf (stream
, "static void dereg_frame () {\n");
2046 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2047 fprintf (stream
, "\t}\n");
2050 fprintf (stream
, "void %s() {\n", initname
);
2051 if (constructors
.number
> 0 || frames
)
2053 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
2054 write_list (stream
, "\t\t", constructors
.first
);
2056 fprintf (stream
, "\treg_frame,\n");
2057 fprintf (stream
, "\t};\n");
2058 fprintf (stream
, "\tentry_pt **p;\n");
2059 fprintf (stream
, "\tif (count++ != 0) return;\n");
2060 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
2061 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
2064 fprintf (stream
, "\t++count;\n");
2065 fprintf (stream
, "}\n");
2066 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2067 fprintf (stream
, "void %s() {\n", fininame
);
2068 if (destructors
.number
> 0 || frames
)
2070 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
2071 write_list (stream
, "\t\t", destructors
.first
);
2073 fprintf (stream
, "\tdereg_frame,\n");
2074 fprintf (stream
, "\t};\n");
2075 fprintf (stream
, "\tentry_pt **p;\n");
2076 fprintf (stream
, "\tif (--count != 0) return;\n");
2077 fprintf (stream
, "\tp = dtors;\n");
2078 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
2079 destructors
.number
+ frames
);
2081 fprintf (stream
, "}\n");
2085 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
2086 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
2090 /* Write the constructor/destructor tables. */
2092 #ifndef LD_INIT_SWITCH
2094 write_c_file_glob (stream
, name
)
2098 /* Write the tables as C code */
2100 int frames
= (frame_tables
.number
> 0);
2102 fprintf (stream
, "typedef void entry_pt();\n\n");
2104 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2108 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2110 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2111 write_list (stream
, "\t\t&", frame_tables
.first
);
2112 fprintf (stream
, "\t0\n};\n");
2114 /* This must match what's in frame.h. */
2115 fprintf (stream
, "struct object {\n");
2116 fprintf (stream
, " void *pc_begin;\n");
2117 fprintf (stream
, " void *pc_end;\n");
2118 fprintf (stream
, " void *fde_begin;\n");
2119 fprintf (stream
, " void *fde_array;\n");
2120 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2121 fprintf (stream
, " struct object *next;\n");
2122 fprintf (stream
, "};\n");
2124 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2125 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2127 fprintf (stream
, "static void reg_frame () {\n");
2128 fprintf (stream
, "\tstatic struct object ob;\n");
2129 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2130 fprintf (stream
, "\t}\n");
2132 fprintf (stream
, "static void dereg_frame () {\n");
2133 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2134 fprintf (stream
, "\t}\n");
2137 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2138 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2139 write_list (stream
, "\t", constructors
.first
);
2141 fprintf (stream
, "\treg_frame,\n");
2142 fprintf (stream
, "\t0\n};\n\n");
2144 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2146 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2147 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2148 write_list (stream
, "\t", destructors
.first
);
2150 fprintf (stream
, "\tdereg_frame,\n");
2151 fprintf (stream
, "\t0\n};\n\n");
2153 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2154 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2156 #endif /* ! LD_INIT_SWITCH */
2159 write_c_file (stream
, name
)
2163 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2164 #ifndef LD_INIT_SWITCH
2166 write_c_file_glob (stream
, name
);
2169 write_c_file_stat (stream
, name
);
2170 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2173 #ifdef COLLECT_EXPORT_LIST
2175 write_export_file (stream
)
2178 struct id
*list
= exports
.first
;
2179 for (; list
; list
= list
->next
)
2180 fprintf (stream
, "%s\n", list
->name
);
2184 write_import_file (stream
)
2187 struct id
*list
= imports
.first
;
2188 fprintf (stream
, "%s\n", "#! .");
2189 for (; list
; list
= list
->next
)
2190 fprintf (stream
, "%s\n", list
->name
);
2194 #ifdef OBJECT_FORMAT_NONE
2196 /* Generic version to scan the name list of the loaded program for
2197 the symbols g++ uses for static constructors and destructors.
2199 The constructor table begins at __CTOR_LIST__ and contains a count
2200 of the number of pointers (or -1 if the constructors are built in a
2201 separate section by the linker), followed by the pointers to the
2202 constructor functions, terminated with a null pointer. The
2203 destructor table has the same format, and begins at __DTOR_LIST__. */
2206 scan_prog_file (prog_name
, which_pass
)
2208 enum pass which_pass
;
2210 void (*int_handler
) ();
2211 void (*quit_handler
) ();
2219 if (which_pass
== PASS_SECOND
)
2222 /* If we do not have an `nm', complain. */
2223 if (nm_file_name
== 0)
2224 fatal ("cannot find `nm'");
2226 nm_argv
[argc
++] = nm_file_name
;
2227 if (NM_FLAGS
[0] != '\0')
2228 nm_argv
[argc
++] = NM_FLAGS
;
2230 nm_argv
[argc
++] = prog_name
;
2231 nm_argv
[argc
++] = (char *) 0;
2233 if (pipe (pipe_fd
) < 0)
2234 fatal_perror ("pipe");
2236 inf
= fdopen (pipe_fd
[0], "r");
2237 if (inf
== (FILE *) 0)
2238 fatal_perror ("fdopen");
2240 /* Trace if needed. */
2246 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2247 fprintf (stderr
, " %s", str
);
2249 fprintf (stderr
, "\n");
2255 /* Spawn child nm on pipe */
2258 fatal_perror (VFORK_STRING
);
2260 if (pid
== 0) /* child context */
2263 if (dup2 (pipe_fd
[1], 1) < 0)
2264 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2266 if (close (pipe_fd
[0]) < 0)
2267 fatal_perror ("close %d", pipe_fd
[0]);
2269 if (close (pipe_fd
[1]) < 0)
2270 fatal_perror ("close %d", pipe_fd
[1]);
2272 execv (nm_file_name
, nm_argv
);
2273 fatal_perror ("execvp %s", nm_file_name
);
2276 /* Parent context from here on. */
2277 int_handler
= (void (*) ())signal (SIGINT
, SIG_IGN
);
2279 quit_handler
= (void (*) ())signal (SIGQUIT
, SIG_IGN
);
2282 if (close (pipe_fd
[1]) < 0)
2283 fatal_perror ("close %d", pipe_fd
[1]);
2286 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2288 /* Read each line of nm output. */
2289 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2294 /* If it contains a constructor or destructor name, add the name
2295 to the appropriate list. */
2297 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2298 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2305 /* Find the end of the symbol name.
2306 Do not include `|', because Encore nm can tack that on the end. */
2307 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2313 switch (is_ctor_dtor (name
))
2316 if (which_pass
!= PASS_LIB
)
2317 add_to_list (&constructors
, name
);
2321 if (which_pass
!= PASS_LIB
)
2322 add_to_list (&destructors
, name
);
2326 if (which_pass
!= PASS_LIB
)
2327 fatal ("init function found in object %s", prog_name
);
2328 #ifndef LD_INIT_SWITCH
2329 add_to_list (&constructors
, name
);
2334 if (which_pass
!= PASS_LIB
)
2335 fatal ("fini function found in object %s", prog_name
);
2336 #ifndef LD_FINI_SWITCH
2337 add_to_list (&destructors
, name
);
2342 if (which_pass
!= PASS_LIB
)
2343 add_to_list (&frame_tables
, name
);
2345 default: /* not a constructor or destructor */
2350 fprintf (stderr
, "\t%s\n", buf
);
2354 fprintf (stderr
, "\n");
2356 if (fclose (inf
) != 0)
2357 fatal_perror ("fclose");
2359 do_wait (nm_file_name
);
2361 signal (SIGINT
, int_handler
);
2363 signal (SIGQUIT
, quit_handler
);
2367 #if SUNOS4_SHARED_LIBRARIES
2369 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2370 that the output file depends upon and their initialization/finalization
2371 routines, if any. */
2376 #include <sys/mman.h>
2377 #include <sys/param.h>
2379 #include <sys/dir.h>
2381 /* pointers to the object file */
2382 unsigned object
; /* address of memory mapped file */
2383 unsigned objsize
; /* size of memory mapped to file */
2384 char * code
; /* pointer to code segment */
2385 char * data
; /* pointer to data segment */
2386 struct nlist
*symtab
; /* pointer to symbol table */
2387 struct link_dynamic
*ld
;
2388 struct link_dynamic_2
*ld_2
;
2389 struct head libraries
;
2391 /* Map the file indicated by NAME into memory and store its address. */
2399 if ((fp
= open (name
, O_RDONLY
)) == -1)
2400 fatal ("unable to open file '%s'", name
);
2401 if (fstat (fp
, &s
) == -1)
2402 fatal ("unable to stat file '%s'", name
);
2404 objsize
= s
.st_size
;
2405 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2408 fatal ("unable to mmap file '%s'", name
);
2413 /* Helpers for locatelib. */
2415 static char *libname
;
2421 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2424 /* If one file has an additional numeric extension past LIBNAME, then put
2425 that one first in the sort. If both files have additional numeric
2426 extensions, then put the one with the higher number first in the sort.
2428 We must verify that the extension is numeric, because Sun saves the
2429 original versions of patched libraries with a .FCS extension. Files with
2430 invalid extensions must go last in the sort, so that they will not be used. */
2434 struct direct
**d1
, **d2
;
2436 int i1
, i2
= strlen (libname
);
2437 char *e1
= (*d1
)->d_name
+ i2
;
2438 char *e2
= (*d2
)->d_name
+ i2
;
2440 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2441 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2445 i1
= strtol (e1
, &e1
, 10);
2446 i2
= strtol (e2
, &e2
, 10);
2453 /* It has a valid numeric extension, prefer this one. */
2454 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2456 /* It has a invalid numeric extension, must prefer the other one. */
2462 /* It has a valid numeric extension, prefer this one. */
2463 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2465 /* It has a invalid numeric extension, must prefer the other one. */
2473 /* Given the name NAME of a dynamic dependency, find its pathname and add
2474 it to the list of libraries. */
2482 char buf
[MAXPATHLEN
];
2490 /* counting elements in array, need 1 extra for null */
2492 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2496 for (; *ld_rules
!= 0; ld_rules
++)
2497 if (*ld_rules
== ':')
2499 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2500 ldr
= (char *) malloc (strlen (ld_rules
) + 1);
2501 strcpy (ldr
, ld_rules
);
2503 p
= getenv ("LD_LIBRARY_PATH");
2508 for (q
= p
; *q
!= 0; q
++)
2511 q
= (char *) malloc (strlen (p
) + 1);
2514 l
= (char **) malloc ((cnt
+ 3) * sizeof (char *));
2519 for (; *ldr
!= 0; ldr
++)
2529 for (; *q
!= 0; q
++)
2536 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2539 *pp
++ = "/usr/local/lib";
2543 for (pp
= l
; *pp
!= 0 ; pp
++)
2545 struct direct
**namelist
;
2547 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2549 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2550 add_to_list (&libraries
, buf
);
2552 fprintf (stderr
, "%s\n", buf
);
2559 notice ("not found\n");
2561 fatal ("dynamic dependency %s not found", name
);
2565 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2566 that it depends upon and any constructors or destructors they contain. */
2569 scan_libraries (prog_name
)
2572 struct exec
*header
;
2574 struct link_object
*lo
;
2575 char buff
[MAXPATHLEN
];
2578 mapfile (prog_name
);
2579 header
= (struct exec
*)object
;
2580 if (N_BADMAG (*header
))
2581 fatal ("bad magic number in file '%s'", prog_name
);
2582 if (header
->a_dynamic
== 0)
2585 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2586 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2587 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2589 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2592 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2598 ld
= (struct link_dynamic
*) data
;
2603 notice ("dynamic dependencies.\n");
2605 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2606 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2607 lo
= (struct link_object
*) lo
->lo_next
)
2610 lo
= (struct link_object
*) ((long) lo
+ code
);
2611 name
= (char *) (code
+ lo
->lo_name
);
2615 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2616 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2622 fprintf (stderr
, "\t%s\n", name
);
2623 add_to_list (&libraries
, name
);
2628 fprintf (stderr
, "\n");
2630 /* now iterate through the library list adding their symbols to
2632 for (list
= libraries
.first
; list
; list
= list
->next
)
2633 scan_prog_file (list
->name
, PASS_LIB
);
2636 #else /* SUNOS4_SHARED_LIBRARIES */
2639 /* Use the List Dynamic Dependencies program to find shared libraries that
2640 the output file depends upon and their initialization/finalization
2641 routines, if any. */
2644 scan_libraries (prog_name
)
2647 static struct head libraries
; /* list of shared libraries found */
2649 void (*int_handler
) ();
2650 void (*quit_handler
) ();
2658 /* If we do not have an `ldd', complain. */
2659 if (ldd_file_name
== 0)
2661 error ("cannot find `ldd'");
2665 ldd_argv
[argc
++] = ldd_file_name
;
2666 ldd_argv
[argc
++] = prog_name
;
2667 ldd_argv
[argc
++] = (char *) 0;
2669 if (pipe (pipe_fd
) < 0)
2670 fatal_perror ("pipe");
2672 inf
= fdopen (pipe_fd
[0], "r");
2673 if (inf
== (FILE *) 0)
2674 fatal_perror ("fdopen");
2676 /* Trace if needed. */
2682 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2683 fprintf (stderr
, " %s", str
);
2685 fprintf (stderr
, "\n");
2691 /* Spawn child ldd on pipe */
2694 fatal_perror (VFORK_STRING
);
2696 if (pid
== 0) /* child context */
2699 if (dup2 (pipe_fd
[1], 1) < 0)
2700 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2702 if (close (pipe_fd
[0]) < 0)
2703 fatal_perror ("close %d", pipe_fd
[0]);
2705 if (close (pipe_fd
[1]) < 0)
2706 fatal_perror ("close %d", pipe_fd
[1]);
2708 execv (ldd_file_name
, ldd_argv
);
2709 fatal_perror ("execv %s", ldd_file_name
);
2712 /* Parent context from here on. */
2713 int_handler
= (void (*) ()) signal (SIGINT
, SIG_IGN
);
2715 quit_handler
= (void (*) ()) signal (SIGQUIT
, SIG_IGN
);
2718 if (close (pipe_fd
[1]) < 0)
2719 fatal_perror ("close %d", pipe_fd
[1]);
2722 notice ("\nldd output with constructors/destructors.\n");
2724 /* Read each line of ldd output. */
2725 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2728 char *name
, *end
, *p
= buf
;
2730 /* Extract names of libraries and add to list. */
2731 PARSE_LDD_OUTPUT (p
);
2736 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2737 fatal ("dynamic dependency %s not found", buf
);
2739 /* Find the end of the symbol name. */
2741 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2746 if (access (name
, R_OK
) == 0)
2747 add_to_list (&libraries
, name
);
2749 fatal ("unable to open dynamic dependency '%s'", buf
);
2752 fprintf (stderr
, "\t%s\n", buf
);
2755 fprintf (stderr
, "\n");
2757 if (fclose (inf
) != 0)
2758 fatal_perror ("fclose");
2760 do_wait (ldd_file_name
);
2762 signal (SIGINT
, int_handler
);
2764 signal (SIGQUIT
, quit_handler
);
2767 /* now iterate through the library list adding their symbols to
2769 for (list
= libraries
.first
; list
; list
= list
->next
)
2770 scan_prog_file (list
->name
, PASS_LIB
);
2773 #endif /* LDD_SUFFIX */
2774 #endif /* SUNOS4_SHARED_LIBRARIES */
2776 #endif /* OBJECT_FORMAT_NONE */
2780 * COFF specific stuff.
2783 #ifdef OBJECT_FORMAT_COFF
2785 #if defined(EXTENDED_COFF)
2786 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2787 # define GCC_SYMENT SYMR
2788 # define GCC_OK_SYMBOL(X) ((X).st == stProc && (X).sc == scText)
2789 # define GCC_SYMINC(X) (1)
2790 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2791 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2793 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2794 # define GCC_SYMENT SYMENT
2795 # define GCC_OK_SYMBOL(X) \
2796 (((X).n_sclass == C_EXT) && \
2797 ((X).n_scnum > N_UNDEF) && \
2798 (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) || \
2799 ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT)))
2800 # define GCC_UNDEF_SYMBOL(X) \
2801 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2802 # define GCC_SYMINC(X) ((X).n_numaux+1)
2803 # define GCC_SYMZERO(X) 0
2804 # define GCC_CHECK_HDR(X) \
2805 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2806 || (HEADER (X).f_magic == 0757 && aix64_flag))
2809 extern char *ldgetname ();
2811 /* COFF version to scan the name list of the loaded program for
2812 the symbols g++ uses for static constructors and destructors.
2814 The constructor table begins at __CTOR_LIST__ and contains a count
2815 of the number of pointers (or -1 if the constructors are built in a
2816 separate section by the linker), followed by the pointers to the
2817 constructor functions, terminated with a null pointer. The
2818 destructor table has the same format, and begins at __DTOR_LIST__. */
2821 scan_prog_file (prog_name
, which_pass
)
2823 enum pass which_pass
;
2825 LDFILE
*ldptr
= NULL
;
2826 int sym_index
, sym_count
;
2828 #ifdef COLLECT_EXPORT_LIST
2829 /* Should we generate an import list for given prog_name? */
2830 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2833 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2836 #ifdef COLLECT_EXPORT_LIST
2837 /* We do not need scanning for some standard C libraries. */
2838 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2841 /* On AIX we have a loop, because there is not much difference
2842 between an object and an archive. This trick allows us to
2843 eliminate scan_libraries() function. */
2847 if ((ldptr
= ldopen (prog_name
, ldptr
)) != NULL
)
2849 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2850 fatal ("%s: not a COFF file", prog_name
);
2852 if (GCC_CHECK_HDR (ldptr
))
2854 sym_count
= GCC_SYMBOLS (ldptr
);
2855 sym_index
= GCC_SYMZERO (ldptr
);
2857 #ifdef COLLECT_EXPORT_LIST
2858 /* Is current archive member a shared object? */
2859 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2862 while (sym_index
< sym_count
)
2866 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2868 sym_index
+= GCC_SYMINC (symbol
);
2870 if (GCC_OK_SYMBOL (symbol
))
2874 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2875 continue; /* should never happen */
2877 #ifdef XCOFF_DEBUGGING_INFO
2878 /* All AIX function names have a duplicate entry
2879 beginning with a dot. */
2884 switch (is_ctor_dtor (name
))
2887 if (! is_shared
) add_to_list (&constructors
, name
);
2888 #ifdef COLLECT_EXPORT_LIST
2889 if (which_pass
== PASS_OBJ
)
2890 add_to_list (&exports
, name
);
2891 /* If this symbol was undefined and we are building
2892 an import list, we should add a symbol to this
2896 && is_in_list (name
, undefined
.first
))
2897 add_to_list (&imports
, name
);
2902 if (! is_shared
) add_to_list (&destructors
, name
);
2903 #ifdef COLLECT_EXPORT_LIST
2904 if (which_pass
== PASS_OBJ
)
2905 add_to_list (&exports
, name
);
2906 /* If this symbol was undefined and we are building
2907 an import list, we should add a symbol to this
2911 && is_in_list (name
, undefined
.first
))
2912 add_to_list (&imports
, name
);
2916 #ifdef COLLECT_EXPORT_LIST
2919 add_to_list (&constructors
, name
);
2924 add_to_list (&destructors
, name
);
2928 default: /* not a constructor or destructor */
2929 #ifdef COLLECT_EXPORT_LIST
2930 /* If we are building a shared object on AIX we need
2931 to explicitly export all global symbols or add
2932 them to import list. */
2935 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2936 add_to_list (&exports
, name
);
2937 else if (! is_shared
&& which_pass
== PASS_FIRST
2939 && is_in_list(name
, undefined
.first
))
2940 add_to_list (&imports
, name
);
2946 #if !defined(EXTENDED_COFF)
2948 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2949 symbol
.n_scnum
, symbol
.n_sclass
,
2950 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2955 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2956 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2959 #ifdef COLLECT_EXPORT_LIST
2960 /* If we are building a shared object we should collect
2961 information about undefined symbols for later
2962 import list generation. */
2963 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2967 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2968 continue; /* should never happen */
2970 /* All AIX function names have a duplicate entry
2971 beginning with a dot. */
2974 add_to_list (&undefined
, name
);
2979 #ifdef COLLECT_EXPORT_LIST
2982 /* If archive contains both 32-bit and 64-bit objects,
2983 we want to skip objects in other mode so mismatch normal. */
2985 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2986 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2992 fatal ("%s: cannot open as COFF file", prog_name
);
2994 #ifdef COLLECT_EXPORT_LIST
2995 /* On AIX loop continues while there are more members in archive. */
2997 while (ldclose (ldptr
) == FAILURE
);
2999 /* Otherwise we simply close ldptr. */
3000 (void) ldclose(ldptr
);
3005 #ifdef COLLECT_EXPORT_LIST
3007 /* This new function is used to decide whether we should
3008 generate import list for an object or to use it directly. */
3010 use_import_list (prog_name
)
3015 /* If we do not build a shared object then import list should not be used. */
3016 if (! shared_obj
) return 0;
3018 /* Currently we check only for libgcc, but this can be changed in future. */
3019 p
= strstr (prog_name
, "libgcc.a");
3020 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
3025 /* Given a library name without "lib" prefix, this function
3026 returns a full library name including a path. */
3028 resolve_lib_name (name
)
3034 for (i
= 0; libpaths
[i
]; i
++)
3035 if (libpaths
[i
]->max_len
> l
)
3036 l
= libpaths
[i
]->max_len
;
3038 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
3040 for (i
= 0; libpaths
[i
]; i
++)
3042 struct prefix_list
*list
= libpaths
[i
]->plist
;
3043 for (; list
; list
= list
->next
)
3045 for (j
= 0; libexts
[j
]; j
++)
3047 /* The following lines are needed because path_prefix list
3048 may contain directories both with trailing '/' and
3051 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
3053 sprintf (lib_buf
, "%s%slib%s.%s",
3054 list
->prefix
, p
, name
, libexts
[j
]);
3055 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
3056 if (file_exists (lib_buf
))
3058 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
3065 fprintf (stderr
, "not found\n");
3067 fatal ("Library lib%s not found", name
);
3071 /* Array of standard AIX libraries which should not
3072 be scanned for ctors/dtors. */
3073 static char* aix_std_libs
[] = {
3078 "/usr/lib/libc_r.a",
3079 "/usr/lib/threads/libc.a",
3080 "/usr/ccs/lib/libc.a",
3081 "/usr/ccs/lib/libc_r.a",
3085 /* This function checks the filename and returns 1
3086 if this name matches the location of a standard AIX library. */
3088 ignore_library (name
)
3091 char **p
= &aix_std_libs
[0];
3092 while (*p
++ != NULL
)
3093 if (! strcmp (name
, *p
)) return 1;
3099 #endif /* OBJECT_FORMAT_COFF */
3103 * OSF/rose specific stuff.
3106 #ifdef OBJECT_FORMAT_ROSE
3108 /* Union of the various load commands */
3110 typedef union load_union
3112 ldc_header_t hdr
; /* common header */
3113 load_cmd_map_command_t map
; /* map indexing other load cmds */
3114 interpreter_command_t iprtr
; /* interpreter pathname */
3115 strings_command_t str
; /* load commands strings section */
3116 region_command_t region
; /* region load command */
3117 reloc_command_t reloc
; /* relocation section */
3118 package_command_t pkg
; /* package load command */
3119 symbols_command_t sym
; /* symbol sections */
3120 entry_command_t ent
; /* program start section */
3121 gen_info_command_t info
; /* object information */
3122 func_table_command_t func
; /* function constructors/destructors */
3125 /* Structure to point to load command and data section in memory. */
3127 typedef struct load_all
3129 load_union_t
*load
; /* load command */
3130 char *section
; /* pointer to section */
3133 /* Structure to contain information about a file mapped into memory. */
3137 char *start
; /* start of map */
3138 char *name
; /* filename */
3139 long size
; /* size of the file */
3140 long rounded_size
; /* size rounded to page boundary */
3141 int fd
; /* file descriptor */
3142 int rw
; /* != 0 if opened read/write */
3143 int use_mmap
; /* != 0 if mmap'ed */
3146 extern int decode_mach_o_hdr ();
3147 extern int encode_mach_o_hdr ();
3149 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3150 symbol_info_t
*, int));
3151 static void print_header
PROTO((mo_header_t
*));
3152 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3153 static void bad_header
PROTO((int));
3154 static struct file_info
*read_file
PROTO((char *, int, int));
3155 static void end_file
PROTO((struct file_info
*));
3157 /* OSF/rose specific version to scan the name list of the loaded
3158 program for the symbols g++ uses for static constructors and
3161 The constructor table begins at __CTOR_LIST__ and contains a count
3162 of the number of pointers (or -1 if the constructors are built in a
3163 separate section by the linker), followed by the pointers to the
3164 constructor functions, terminated with a null pointer. The
3165 destructor table has the same format, and begins at __DTOR_LIST__. */
3168 scan_prog_file (prog_name
, which_pass
)
3170 enum pass which_pass
;
3174 load_all_t
*load_array
;
3175 load_all_t
*load_end
;
3176 load_all_t
*load_cmd
;
3177 int symbol_load_cmds
;
3183 struct file_info
*obj_file
;
3185 mo_lcid_t cmd_strings
= -1;
3186 symbol_info_t
*main_sym
= 0;
3187 int rw
= (which_pass
!= PASS_FIRST
);
3189 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3191 fatal_perror ("open %s", prog_name
);
3193 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3194 obj
= obj_file
->start
;
3196 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3197 if (status
!= MO_HDR_CONV_SUCCESS
)
3198 bad_header (status
);
3201 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3202 since the hardware will automatically swap bytes for us on loading little endian
3205 #ifndef CROSS_COMPILE
3206 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3207 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3208 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3209 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3210 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3211 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3212 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3214 fatal ("incompatibilities between object file & expected values");
3219 print_header (&hdr
);
3221 offset
= hdr
.moh_first_cmd_off
;
3222 load_end
= load_array
3223 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3225 /* Build array of load commands, calculating the offsets */
3226 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3228 load_union_t
*load_hdr
; /* load command header */
3230 load_cmd
= load_end
++;
3231 load_hdr
= (load_union_t
*) (obj
+ offset
);
3233 /* If modifying the program file, copy the header. */
3236 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3237 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3240 /* null out old command map, because we will rewrite at the end. */
3241 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3243 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3244 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3248 load_cmd
->load
= load_hdr
;
3249 if (load_hdr
->hdr
.ldci_section_off
> 0)
3250 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3253 print_load_command (load_hdr
, offset
, i
);
3255 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3258 /* If the last command is the load command map and is not undefined,
3259 decrement the count of load commands. */
3260 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3263 hdr
.moh_n_load_cmds
--;
3266 /* Go through and process each symbol table section. */
3267 symbol_load_cmds
= 0;
3268 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3270 load_union_t
*load_hdr
= load_cmd
->load
;
3272 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3278 char *kind
= "unknown";
3280 switch (load_hdr
->sym
.symc_kind
)
3282 case SYMC_IMPORTS
: kind
= "imports"; break;
3283 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3284 case SYMC_STABS
: kind
= "stabs"; break;
3287 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3288 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3291 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3294 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3295 if (str_sect
== (char *) 0)
3296 fatal ("string section missing");
3298 if (load_cmd
->section
== (char *) 0)
3299 fatal ("section pointer missing");
3301 num_syms
= load_hdr
->sym
.symc_nentries
;
3302 for (i
= 0; i
< num_syms
; i
++)
3304 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3305 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3312 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3314 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3324 switch (is_ctor_dtor (name
))
3327 add_to_list (&constructors
, name
);
3331 add_to_list (&destructors
, name
);
3334 default: /* not a constructor or destructor */
3340 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3341 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3346 if (symbol_load_cmds
== 0)
3347 fatal ("no symbol table found");
3349 /* Update the program file now, rewrite header and load commands. At present,
3350 we assume that there is enough space after the last load command to insert
3351 one more. Since the first section written out is page aligned, and the
3352 number of load commands is small, this is ok for the present. */
3356 load_union_t
*load_map
;
3359 if (cmd_strings
== -1)
3360 fatal ("no cmd_strings found");
3362 /* Add __main to initializer list.
3363 If we are building a program instead of a shared library, do not
3364 do anything, since in the current version, you cannot do mallocs
3365 and such in the constructors. */
3367 if (main_sym
!= (symbol_info_t
*) 0
3368 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3369 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3372 notice ("\nUpdating header and load commands.\n\n");
3374 hdr
.moh_n_load_cmds
++;
3375 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3377 /* Create new load command map. */
3379 notice ("load command map, %d cmds, new size %ld.\n",
3380 (int) hdr
.moh_n_load_cmds
, (long) size
);
3382 load_map
= (load_union_t
*) xcalloc (1, size
);
3383 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3384 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3385 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3386 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3387 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3389 offset
= hdr
.moh_first_cmd_off
;
3390 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3392 load_map
->map
.lcm_map
[i
] = offset
;
3393 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3394 hdr
.moh_load_map_cmd_off
= offset
;
3396 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3399 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3402 print_header (&hdr
);
3405 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3406 if (status
!= MO_HDR_CONV_SUCCESS
)
3407 bad_header (status
);
3410 notice ("writing load commands.\n\n");
3412 /* Write load commands */
3413 offset
= hdr
.moh_first_cmd_off
;
3414 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3416 load_union_t
*load_hdr
= load_array
[i
].load
;
3417 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3420 print_load_command (load_hdr
, offset
, i
);
3422 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3427 end_file (obj_file
);
3429 if (close (prog_fd
))
3430 fatal_perror ("close %s", prog_name
);
3433 fprintf (stderr
, "\n");
3437 /* Add a function table to the load commands to call a function
3438 on initiation or termination of the process. */
3441 add_func_table (hdr_p
, load_array
, sym
, type
)
3442 mo_header_t
*hdr_p
; /* pointer to global header */
3443 load_all_t
*load_array
; /* array of ptrs to load cmds */
3444 symbol_info_t
*sym
; /* pointer to symbol entry */
3445 int type
; /* fntc_type value */
3447 /* Add a new load command. */
3448 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3449 int load_index
= num_cmds
- 1;
3450 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3451 load_union_t
*ptr
= xcalloc (1, size
);
3452 load_all_t
*load_cmd
;
3455 /* Set the unresolved address bit in the header to force the loader to be
3456 used, since kernel exec does not call the initialization functions. */
3457 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3459 load_cmd
= &load_array
[load_index
];
3460 load_cmd
->load
= ptr
;
3461 load_cmd
->section
= (char *) 0;
3463 /* Fill in func table load command. */
3464 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3465 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3466 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3467 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3468 ptr
->func
.fntc_type
= type
;
3469 ptr
->func
.fntc_nentries
= 1;
3471 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3472 /* Is the symbol already expressed as (region, offset)? */
3473 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3475 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3476 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3479 /* If not, figure out which region it's in. */
3482 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3485 for (i
= 0; i
< load_index
; i
++)
3487 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3489 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3491 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3492 && addr
>= region_ptr
->regc_addr
.vm_addr
3493 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3495 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3496 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3504 fatal ("could not convert 0x%l.8x into a region", addr
);
3508 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3509 type
== FNTC_INITIALIZATION
? "init" : "term",
3510 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3511 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3512 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3517 /* Print the global header for an OSF/rose object. */
3520 print_header (hdr_ptr
)
3521 mo_header_t
*hdr_ptr
;
3523 fprintf (stderr
, "\nglobal header:\n");
3524 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3525 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3526 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3527 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3528 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3529 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3530 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3531 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3532 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3533 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3534 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3535 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3536 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3537 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3538 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3540 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3541 fprintf (stderr
, ", relocatable");
3543 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3544 fprintf (stderr
, ", linkable");
3546 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3547 fprintf (stderr
, ", execable");
3549 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3550 fprintf (stderr
, ", executable");
3552 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3553 fprintf (stderr
, ", unresolved");
3555 fprintf (stderr
, "\n\n");
3560 /* Print a short summary of a load command. */
3563 print_load_command (load_hdr
, offset
, number
)
3564 load_union_t
*load_hdr
;
3568 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3569 char *type_str
= (char *) 0;
3573 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3574 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3575 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3576 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3577 case LDC_REGION
: type_str
= "REGION"; break;
3578 case LDC_RELOC
: type_str
= "RELOC"; break;
3579 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3580 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3581 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3582 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3583 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3587 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3589 (long) load_hdr
->hdr
.ldci_cmd_size
,
3591 (long) load_hdr
->hdr
.ldci_section_off
,
3592 (long) load_hdr
->hdr
.ldci_section_len
);
3594 if (type_str
== (char *) 0)
3595 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3597 else if (type
!= LDC_REGION
)
3598 fprintf (stderr
, ", ty: %s\n", type_str
);
3603 switch (load_hdr
->region
.regc_usage_type
)
3605 case REG_TEXT_T
: region
= ", .text"; break;
3606 case REG_DATA_T
: region
= ", .data"; break;
3607 case REG_BSS_T
: region
= ", .bss"; break;
3608 case REG_GLUE_T
: region
= ", .glue"; break;
3609 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3610 case REG_RDATA_T
: region
= ", .rdata"; break;
3611 case REG_SDATA_T
: region
= ", .sdata"; break;
3612 case REG_SBSS_T
: region
= ", .sbss"; break;
3616 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3618 (long) load_hdr
->region
.regc_vm_addr
,
3619 (long) load_hdr
->region
.regc_vm_size
,
3627 /* Fatal error when {en,de}code_mach_o_header fails. */
3635 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3636 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3637 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3638 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3639 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3640 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3642 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3647 /* Read a file into a memory buffer. */
3649 static struct file_info
*
3650 read_file (name
, fd
, rw
)
3651 char *name
; /* filename */
3652 int fd
; /* file descriptor */
3653 int rw
; /* read/write */
3655 struct stat stat_pkt
;
3656 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3658 static int page_size
;
3661 if (fstat (fd
, &stat_pkt
) < 0)
3662 fatal_perror ("fstat %s", name
);
3665 p
->size
= stat_pkt
.st_size
;
3666 p
->rounded_size
= stat_pkt
.st_size
;
3672 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3675 page_size
= sysconf (_SC_PAGE_SIZE
);
3677 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3678 p
->start
= mmap ((caddr_t
) 0,
3679 (rw
) ? p
->rounded_size
: p
->size
,
3680 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3681 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3685 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3689 #endif /* USE_MMAP */
3694 fprintf (stderr
, "read %s\n", name
);
3697 p
->start
= xmalloc (p
->size
);
3698 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3699 fatal_perror ("lseek %s 0", name
);
3701 len
= read (fd
, p
->start
, p
->size
);
3703 fatal_perror ("read %s", name
);
3706 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3712 /* Do anything necessary to write a file back from memory. */
3716 struct file_info
*ptr
; /* file information block */
3724 fprintf (stderr
, "msync %s\n", ptr
->name
);
3726 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3727 fatal_perror ("msync %s", ptr
->name
);
3731 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3733 if (munmap (ptr
->start
, ptr
->size
))
3734 fatal_perror ("munmap %s", ptr
->name
);
3737 #endif /* USE_MMAP */
3744 fprintf (stderr
, "write %s\n", ptr
->name
);
3746 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3747 fatal_perror ("lseek %s 0", ptr
->name
);
3749 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3751 fatal_perror ("write %s", ptr
->name
);
3753 if (len
!= ptr
->size
)
3754 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3763 #endif /* OBJECT_FORMAT_ROSE */