1 /* Collect static initialization info into data structures that can be
2 traversed by C++ initialization and finalization routines.
3 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998,
4 1999, 2000, 2001 Free Software Foundation, Inc.
5 Contributed by Chris Smith (csmith@convex.com).
6 Heavily modified by Michael Meissner (meissner@cygnus.com),
7 Per Bothner (bothner@cygnus.com), and John Gilmore (gnu@cygnus.com).
9 This file is part of GNU CC.
11 GNU CC is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 2, or (at your option)
16 GNU CC is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 GNU General Public License for more details.
21 You should have received a copy of the GNU General Public License
22 along with GNU CC; see the file COPYING. If not, write to
23 the Free Software Foundation, 59 Temple Place - Suite 330,
24 Boston, MA 02111-1307, USA. */
27 /* Build tables of static constructors and destructors and run ld. */
32 #if ! defined( SIGCHLD ) && defined( SIGCLD )
33 # define SIGCHLD SIGCLD
36 #ifdef vfork /* Autoconf may define this to fork for us. */
37 # define VFORK_STRING "fork"
39 # define VFORK_STRING "vfork"
45 #define vfork() (decc$$alloc_vfork_blocks() >= 0 ? \
46 lib$get_current_invo_context(decc$$get_vfork_jmpbuf()) : -1)
49 #ifndef LIBRARY_PATH_ENV
50 #define LIBRARY_PATH_ENV "LIBRARY_PATH"
61 /* Obstack allocation and deallocation routines. */
62 #define obstack_chunk_alloc xmalloc
63 #define obstack_chunk_free free
65 /* On certain systems, we have code that works by scanning the object file
66 directly. But this code uses system-specific header files and library
67 functions, so turn it off in a cross-compiler. Likewise, the names of
68 the utilities are not correct for a cross-compiler; we have to hope that
69 cross-versions are in the proper directories. */
72 #undef SUNOS4_SHARED_LIBRARIES
73 #undef OBJECT_FORMAT_COFF
74 #undef OBJECT_FORMAT_ROSE
76 #undef REAL_LD_FILE_NAME
77 #undef REAL_NM_FILE_NAME
78 #undef REAL_STRIP_FILE_NAME
81 /* If we cannot use a special method, use the ordinary one:
82 run nm to find what symbols are present.
83 In a cross-compiler, this means you need a cross nm,
84 but that is not quite as unpleasant as special headers. */
86 #if !defined (OBJECT_FORMAT_COFF) && !defined (OBJECT_FORMAT_ROSE)
87 #define OBJECT_FORMAT_NONE
90 #ifdef OBJECT_FORMAT_COFF
99 /* Many versions of ldfcn.h define these. */
107 /* Some systems have an ISCOFF macro, but others do not. In some cases
108 the macro may be wrong. MY_ISCOFF is defined in tm.h files for machines
109 that either do not have an ISCOFF macro in /usr/include or for those
110 where it is wrong. */
113 #define MY_ISCOFF(X) ISCOFF (X)
116 #endif /* OBJECT_FORMAT_COFF */
118 #ifdef OBJECT_FORMAT_ROSE
125 #include <sys/mman.h>
129 #include <mach_o_format.h>
130 #include <mach_o_header.h>
131 #include <mach_o_vals.h>
132 #include <mach_o_types.h>
134 #endif /* OBJECT_FORMAT_ROSE */
136 #ifdef OBJECT_FORMAT_NONE
138 /* Default flags to pass to nm. */
140 #define NM_FLAGS "-n"
143 #endif /* OBJECT_FORMAT_NONE */
145 /* Some systems use __main in a way incompatible with its use in gcc, in these
146 cases use the macros NAME__MAIN to give a quoted symbol and SYMBOL__MAIN to
147 give the same symbol without quotes for an alternative entry point. You
148 must define both, or neither. */
150 #define NAME__MAIN "__main"
151 #define SYMBOL__MAIN __main
154 /* This must match tree.h. */
155 #define DEFAULT_INIT_PRIORITY 65535
157 #if defined (LDD_SUFFIX) || SUNOS4_SHARED_LIBRARIES
158 #define SCAN_LIBRARIES
162 int do_collecting
= 1;
164 int do_collecting
= 0;
167 /* Linked lists of constructor and destructor names. */
183 /* Enumeration giving which pass this is for scanning the program file. */
186 PASS_FIRST
, /* without constructors */
187 PASS_OBJ
, /* individual objects */
188 PASS_LIB
, /* looking for shared libraries */
189 PASS_SECOND
/* with constructors linked in */
192 int vflag
; /* true if -v */
193 static int rflag
; /* true if -r */
194 static int strip_flag
; /* true if -s */
195 #ifdef COLLECT_EXPORT_LIST
196 static int export_flag
; /* true if -bE */
197 static int aix64_flag
; /* true if -b64 */
200 int debug
; /* true if -debug */
202 static int shared_obj
; /* true if -shared */
204 static const char *c_file
; /* <xxx>.c for constructor/destructor list. */
205 static const char *o_file
; /* <xxx>.o for constructor/destructor list. */
206 #ifdef COLLECT_EXPORT_LIST
207 static const char *export_file
; /* <xxx>.x for AIX export list. */
209 const char *ldout
; /* File for ld errors. */
210 static const char *output_file
; /* Output file for ld. */
211 static const char *nm_file_name
; /* pathname of nm */
213 static const char *ldd_file_name
; /* pathname of ldd (or equivalent) */
215 static const char *strip_file_name
; /* pathname of strip */
216 const char *c_file_name
; /* pathname of gcc */
217 static char *initname
, *fininame
; /* names of init and fini funcs */
219 static struct head constructors
; /* list of constructors found */
220 static struct head destructors
; /* list of destructors found */
221 #ifdef COLLECT_EXPORT_LIST
222 static struct head exports
; /* list of exported symbols */
224 static struct head frame_tables
; /* list of frame unwind info tables */
226 struct obstack temporary_obstack
;
227 struct obstack permanent_obstack
;
228 char * temporary_firstobj
;
230 /* Holds the return value of pexecute. */
233 /* Defined in the automatically-generated underscore.c. */
234 extern int prepends_underscore
;
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 const 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 const 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 const char *libexts
[3] = {"a", "so", NULL
}; /* possible library extentions */
266 static void handler
PARAMS ((int));
267 static int is_ctor_dtor
PARAMS ((const char *));
268 static char *find_a_file
PARAMS ((struct path_prefix
*, const char *));
269 static void add_prefix
PARAMS ((struct path_prefix
*, const char *));
270 static void prefix_from_env
PARAMS ((const char *, struct path_prefix
*));
271 static void prefix_from_string
PARAMS ((const char *, struct path_prefix
*));
272 static void do_wait
PARAMS ((const char *));
273 static void fork_execute
PARAMS ((const char *, char **));
274 static void maybe_unlink
PARAMS ((const char *));
275 static void add_to_list
PARAMS ((struct head
*, const char *));
276 static int extract_init_priority
PARAMS ((const char *));
277 static void sort_ids
PARAMS ((struct head
*));
278 static void write_list
PARAMS ((FILE *, const char *, struct id
*));
279 #ifdef COLLECT_EXPORT_LIST
280 static void dump_list
PARAMS ((FILE *, const char *, struct id
*));
283 static void dump_prefix_list
PARAMS ((FILE *, const char *, struct prefix_list
*));
285 static void write_list_with_asm
PARAMS ((FILE *, const char *, struct id
*));
286 static void write_c_file
PARAMS ((FILE *, const char *));
287 static void write_c_file_stat
PARAMS ((FILE *, const char *));
288 #ifndef LD_INIT_SWITCH
289 static void write_c_file_glob
PARAMS ((FILE *, const char *));
291 static void scan_prog_file
PARAMS ((const char *, enum pass
));
292 #ifdef SCAN_LIBRARIES
293 static void scan_libraries
PARAMS ((const char *));
295 #if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
296 static int is_in_args
PARAMS ((const char *, const char **, const char **));
298 #ifdef COLLECT_EXPORT_LIST
299 static int is_in_list
PARAMS ((const char *, struct id
*));
300 static void write_aix_file
PARAMS ((FILE *, struct id
*));
301 static char *resolve_lib_name
PARAMS ((const char *));
302 static int ignore_library
PARAMS ((const char *));
304 static char *extract_string
PARAMS ((const char **));
319 while ((fd
= dup (oldfd
)) != newfd
&& fd
>= 0) /* good enough for low fd's */
322 close (fdtmp
[--fdx
]);
328 /* Delete tempfiles and exit function. */
331 collect_exit (status
)
334 if (c_file
!= 0 && c_file
[0])
335 maybe_unlink (c_file
);
337 if (o_file
!= 0 && o_file
[0])
338 maybe_unlink (o_file
);
340 #ifdef COLLECT_EXPORT_LIST
341 if (export_file
!= 0 && export_file
[0])
342 maybe_unlink (export_file
);
345 if (ldout
!= 0 && ldout
[0])
348 maybe_unlink (ldout
);
351 if (status
!= 0 && output_file
!= 0 && output_file
[0])
352 maybe_unlink (output_file
);
358 /* Notify user of a non-error. */
360 notice
VPARAMS ((const char *msgid
, ...))
362 #ifndef ANSI_PROTOTYPES
367 VA_START (ap
, msgid
);
369 #ifndef ANSI_PROTOTYPES
370 msgid
= va_arg (ap
, const char *);
373 vfprintf (stderr
, _(msgid
), ap
);
377 /* Die when sys call fails. */
380 fatal_perror
VPARAMS ((const char * msgid
, ...))
382 #ifndef ANSI_PROTOTYPES
388 VA_START (ap
, msgid
);
390 #ifndef ANSI_PROTOTYPES
391 msgid
= va_arg (ap
, const char *);
394 fprintf (stderr
, "collect2: ");
395 vfprintf (stderr
, _(msgid
), ap
);
396 fprintf (stderr
, ": %s\n", xstrerror (e
));
399 collect_exit (FATAL_EXIT_CODE
);
405 fatal
VPARAMS ((const char * msgid
, ...))
407 #ifndef ANSI_PROTOTYPES
412 VA_START (ap
, msgid
);
414 #ifndef ANSI_PROTOTYPES
415 msgid
= va_arg (ap
, const char *);
418 fprintf (stderr
, "collect2: ");
419 vfprintf (stderr
, _(msgid
), ap
);
420 fprintf (stderr
, "\n");
423 collect_exit (FATAL_EXIT_CODE
);
426 /* Write error message. */
429 error
VPARAMS ((const char * msgid
, ...))
431 #ifndef ANSI_PROTOTYPES
436 VA_START (ap
, msgid
);
438 #ifndef ANSI_PROTOTYPES
439 msgid
= va_arg (ap
, const char *);
442 fprintf (stderr
, "collect2: ");
443 vfprintf (stderr
, _(msgid
), ap
);
444 fprintf (stderr
, "\n");
448 /* In case obstack is linked in, and abort is defined to fancy_abort,
449 provide a default entry. */
454 fatal ("internal error");
461 if (c_file
!= 0 && c_file
[0])
462 maybe_unlink (c_file
);
464 if (o_file
!= 0 && o_file
[0])
465 maybe_unlink (o_file
);
467 if (ldout
!= 0 && ldout
[0])
468 maybe_unlink (ldout
);
470 #ifdef COLLECT_EXPORT_LIST
471 if (export_file
!= 0 && export_file
[0])
472 maybe_unlink (export_file
);
475 signal (signo
, SIG_DFL
);
476 kill (getpid (), signo
);
484 return access (name
, R_OK
) == 0;
487 /* Parse a reasonable subset of shell quoting syntax. */
504 obstack_1grow (&temporary_obstack
, c
);
505 else if (! inside
&& c
== ' ')
507 else if (! inside
&& c
== '\\')
512 obstack_1grow (&temporary_obstack
, c
);
515 obstack_1grow (&temporary_obstack
, '\0');
517 return obstack_finish (&temporary_obstack
);
524 FILE *stream
= fopen (name
, "r");
525 int no_demangle
= !! getenv ("COLLECT_NO_DEMANGLE");
532 while (c
= getc (stream
),
533 c
!= EOF
&& (ISALNUM (c
) || c
== '_' || c
== '$' || c
== '.'))
534 obstack_1grow (&temporary_obstack
, c
);
535 if (obstack_object_size (&temporary_obstack
) > 0)
537 const char *word
, *p
;
539 obstack_1grow (&temporary_obstack
, '\0');
540 word
= obstack_finish (&temporary_obstack
);
543 ++word
, putc ('.', stderr
);
545 if (*p
== '_' && prepends_underscore
)
551 result
= cplus_demangle (p
, DMGL_PARAMS
| DMGL_ANSI
);
556 fputs (result
, stderr
);
558 diff
= strlen (word
) - strlen (result
);
560 --diff
, putc (' ', stderr
);
561 while (diff
< 0 && c
== ' ')
562 ++diff
, c
= getc (stream
);
567 fputs (word
, stderr
);
570 obstack_free (&temporary_obstack
, temporary_firstobj
);
579 /* Decide whether the given symbol is: a constructor (1), a destructor
580 (2), a routine in a shared object that calls all the constructors
581 (3) or destructors (4), a DWARF exception-handling table (5), or
582 nothing special (0). */
588 struct names
{ const char *name
; int len
; int ret
; int two_underscores
; };
590 register struct names
*p
;
592 register const char *orig_s
= s
;
594 static struct names special
[] = {
595 { "GLOBAL__I_", sizeof ("GLOBAL__I_")-1, 1, 0 },
596 { "GLOBAL__D_", sizeof ("GLOBAL__D_")-1, 2, 0 },
597 { "GLOBAL__F_", sizeof ("GLOBAL__F_")-1, 5, 0 },
598 { "GLOBAL__FI_", sizeof ("GLOBAL__FI_")-1, 3, 0 },
599 { "GLOBAL__FD_", sizeof ("GLOBAL__FD_")-1, 4, 0 },
600 #ifdef CFRONT_LOSSAGE /* Do not collect cfront initialization functions.
601 cfront has its own linker procedure to collect them;
602 if collect2 gets them too, they get collected twice
603 when the cfront procedure is run and the compiler used
604 for linking happens to be GCC. */
605 { "sti__", sizeof ("sti__")-1, 1, 1 },
606 { "std__", sizeof ("std__")-1, 2, 1 },
607 #endif /* CFRONT_LOSSAGE */
611 while ((ch
= *s
) == '_')
617 for (p
= &special
[0]; p
->len
> 0; p
++)
620 && (!p
->two_underscores
|| ((s
- orig_s
) >= 2))
621 && strncmp(s
, p
->name
, p
->len
) == 0)
629 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
630 and one from the PATH variable. */
632 static struct path_prefix cpath
, path
;
635 /* This is the name of the target machine. We use it to form the name
636 of the files to execute. */
638 static const char *const target_machine
= TARGET_MACHINE
;
641 /* Search for NAME using prefix list PPREFIX. We only look for executable
644 Return 0 if not found, otherwise return its name, allocated with malloc. */
647 find_a_file (pprefix
, name
)
648 struct path_prefix
*pprefix
;
652 struct prefix_list
*pl
;
653 int len
= pprefix
->max_len
+ strlen (name
) + 1;
656 fprintf (stderr
, "Looking for '%s'\n", name
);
658 #ifdef EXECUTABLE_SUFFIX
659 len
+= strlen (EXECUTABLE_SUFFIX
);
662 temp
= xmalloc (len
);
664 /* Determine the filename to execute (special case for absolute paths). */
667 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
668 || (*name
&& name
[1] == ':')
672 if (access (name
, X_OK
) == 0)
677 fprintf (stderr
, " - found: absolute path\n");
682 #ifdef EXECUTABLE_SUFFIX
683 /* Some systems have a suffix for executable files.
684 So try appending that. */
686 strcat (temp
, EXECUTABLE_SUFFIX
);
688 if (access (temp
, X_OK
) == 0)
693 fprintf (stderr
, " - failed to locate using absolute path\n");
696 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
700 strcpy (temp
, pl
->prefix
);
703 if (stat (temp
, &st
) >= 0
704 && ! S_ISDIR (st
.st_mode
)
705 && access (temp
, X_OK
) == 0)
708 #ifdef EXECUTABLE_SUFFIX
709 /* Some systems have a suffix for executable files.
710 So try appending that. */
711 strcat (temp
, EXECUTABLE_SUFFIX
);
713 if (stat (temp
, &st
) >= 0
714 && ! S_ISDIR (st
.st_mode
)
715 && access (temp
, X_OK
) == 0)
720 if (debug
&& pprefix
->plist
== NULL
)
721 fprintf (stderr
, " - failed: no entries in prefix list\n");
727 /* Add an entry for PREFIX to prefix list PPREFIX. */
730 add_prefix (pprefix
, prefix
)
731 struct path_prefix
*pprefix
;
734 struct prefix_list
*pl
, **prev
;
739 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
744 prev
= &pprefix
->plist
;
746 /* Keep track of the longest prefix */
748 len
= strlen (prefix
);
749 if (len
> pprefix
->max_len
)
750 pprefix
->max_len
= len
;
752 pl
= (struct prefix_list
*) xmalloc (sizeof (struct prefix_list
));
753 pl
->prefix
= xstrdup (prefix
);
758 pl
->next
= (struct prefix_list
*) 0;
762 /* Take the value of the environment variable ENV, break it into a path, and
763 add of the entries to PPREFIX. */
766 prefix_from_env (env
, pprefix
)
768 struct path_prefix
*pprefix
;
771 GET_ENV_PATH_LIST (p
, env
);
774 prefix_from_string (p
, pprefix
);
778 prefix_from_string (p
, pprefix
)
780 struct path_prefix
*pprefix
;
782 const char *startp
, *endp
;
783 char *nstore
= (char *) xmalloc (strlen (p
) + 3);
786 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
791 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
793 strncpy (nstore
, startp
, endp
-startp
);
796 strcpy (nstore
, "./");
798 else if (! IS_DIR_SEPARATOR (endp
[-1]))
800 nstore
[endp
-startp
] = DIR_SEPARATOR
;
801 nstore
[endp
-startp
+1] = 0;
804 nstore
[endp
-startp
] = 0;
807 fprintf (stderr
, " - add prefix: %s\n", nstore
);
809 add_prefix (pprefix
, nstore
);
812 endp
= startp
= endp
+ 1;
821 int main
PARAMS ((int, char *[]));
827 const char *ld_suffix
= "ld";
828 const char *full_ld_suffix
= ld_suffix
;
829 const char *real_ld_suffix
= "real-ld";
830 const char *collect_ld_suffix
= "collect-ld";
831 const char *nm_suffix
= "nm";
832 const char *full_nm_suffix
= nm_suffix
;
833 const char *gnm_suffix
= "gnm";
834 const char *full_gnm_suffix
= gnm_suffix
;
836 const char *ldd_suffix
= LDD_SUFFIX
;
837 const char *full_ldd_suffix
= ldd_suffix
;
839 const char *strip_suffix
= "strip";
840 const char *full_strip_suffix
= strip_suffix
;
841 const char *gstrip_suffix
= "gstrip";
842 const char *full_gstrip_suffix
= gstrip_suffix
;
845 #ifdef COLLECT_EXPORT_LIST
848 const char *ld_file_name
;
859 int num_c_args
= argc
+9;
861 #if defined (COLLECT2_HOST_INITIALIZATION)
862 /* Perform system dependent initialization, if neccessary. */
863 COLLECT2_HOST_INITIALIZATION
;
867 /* We *MUST* set SIGCHLD to SIG_DFL so that the wait4() call will
868 receive the signal. A different setting is inheritable */
869 signal (SIGCHLD
, SIG_DFL
);
872 /* LC_CTYPE determines the character set used by the terminal so it has be set
873 to output messages correctly. */
875 #ifdef HAVE_LC_MESSAGES
876 setlocale (LC_CTYPE
, "");
877 setlocale (LC_MESSAGES
, "");
879 setlocale (LC_ALL
, "");
882 (void) bindtextdomain (PACKAGE
, localedir
);
883 (void) textdomain (PACKAGE
);
885 /* Do not invoke xcalloc before this point, since locale needs to be
886 set first, in case a diagnostic is issued. */
888 ld1
= (const char **)(ld1_argv
= (char **) xcalloc(sizeof (char *), argc
+3));
889 ld2
= (const char **)(ld2_argv
= (char **) xcalloc(sizeof (char *), argc
+10));
890 object
= (const char **)(object_lst
= (char **) xcalloc(sizeof (char *), argc
));
896 /* Parse command line early for instances of -debug. This allows
897 the debug flag to be set before functions like find_a_file()
902 for (i
= 1; argv
[i
] != NULL
; i
++)
903 if (! strcmp (argv
[i
], "-debug"))
908 #ifndef DEFAULT_A_OUT_NAME
909 output_file
= "a.out";
911 output_file
= DEFAULT_A_OUT_NAME
;
914 obstack_begin (&temporary_obstack
, 0);
915 obstack_begin (&permanent_obstack
, 0);
916 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
918 current_demangling_style
= auto_demangling
;
919 p
= getenv ("COLLECT_GCC_OPTIONS");
922 const char *q
= extract_string (&p
);
923 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
926 obstack_free (&temporary_obstack
, temporary_firstobj
);
928 /* -fno-exceptions -w */
931 c_ptr
= (const char **)
932 (c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
));
935 fatal ("no arguments");
938 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
939 signal (SIGQUIT
, handler
);
941 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
942 signal (SIGINT
, handler
);
944 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
945 signal (SIGALRM
, handler
);
948 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
949 signal (SIGHUP
, handler
);
951 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
952 signal (SIGSEGV
, handler
);
954 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
955 signal (SIGBUS
, handler
);
958 /* Extract COMPILER_PATH and PATH into our prefix list. */
959 prefix_from_env ("COMPILER_PATH", &cpath
);
960 prefix_from_env ("PATH", &path
);
963 /* If we look for a program in the compiler directories, we just use
964 the short name, since these directories are already system-specific.
965 But it we look for a program in the system directories, we need to
966 qualify the program name with the target machine. */
968 full_ld_suffix
= concat(target_machine
, "-", ld_suffix
, NULL
);
971 full_gld_suffix
= concat (target_machine
, "-", gld_suffix
, NULL
);
974 full_nm_suffix
= concat (target_machine
, "-", nm_suffix
, NULL
);
976 full_gnm_suffix
= concat (target_machine
, "-", gnm_suffix
, NULL
);
979 full_ldd_suffix
= concat (target_machine
, "-", ldd_suffix
, NULL
);
982 full_strip_suffix
= concat (target_machine
, "-", strip_suffix
, NULL
);
984 full_gstrip_suffix
= concat (target_machine
, "-", gstrip_suffix
, NULL
);
985 #endif /* CROSS_COMPILE */
987 /* Try to discover a valid linker/nm/strip to use. */
989 /* Maybe we know the right file to use (if not cross). */
991 #ifdef DEFAULT_LINKER
992 if (access (DEFAULT_LINKER
, X_OK
) == 0)
993 ld_file_name
= DEFAULT_LINKER
;
994 if (ld_file_name
== 0)
996 #ifdef REAL_LD_FILE_NAME
997 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
998 if (ld_file_name
== 0)
1000 /* Search the (target-specific) compiler dirs for ld'. */
1001 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1002 /* Likewise for `collect-ld'. */
1003 if (ld_file_name
== 0)
1004 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1005 /* Search the compiler directories for `ld'. We have protection against
1006 recursive calls in find_a_file. */
1007 if (ld_file_name
== 0)
1008 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1009 /* Search the ordinary system bin directories
1010 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1011 if (ld_file_name
== 0)
1012 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1014 #ifdef REAL_NM_FILE_NAME
1015 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1016 if (nm_file_name
== 0)
1018 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1019 if (nm_file_name
== 0)
1020 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1021 if (nm_file_name
== 0)
1022 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1023 if (nm_file_name
== 0)
1024 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1027 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1028 if (ldd_file_name
== 0)
1029 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1032 #ifdef REAL_STRIP_FILE_NAME
1033 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1034 if (strip_file_name
== 0)
1036 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1037 if (strip_file_name
== 0)
1038 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1039 if (strip_file_name
== 0)
1040 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1041 if (strip_file_name
== 0)
1042 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1044 /* Determine the full path name of the C compiler to use. */
1045 c_file_name
= getenv ("COLLECT_GCC");
1046 if (c_file_name
== 0)
1048 #ifdef CROSS_COMPILE
1049 c_file_name
= concat (target_machine
, "-gcc", NULL
);
1051 c_file_name
= "gcc";
1055 p
= find_a_file (&cpath
, c_file_name
);
1057 /* Here it should be safe to use the system search path since we should have
1058 already qualified the name of the compiler when it is needed. */
1060 p
= find_a_file (&path
, c_file_name
);
1065 *ld1
++ = *ld2
++ = ld_file_name
;
1067 /* Make temp file names. */
1068 c_file
= make_temp_file (".c");
1069 o_file
= make_temp_file (".o");
1070 #ifdef COLLECT_EXPORT_LIST
1071 export_file
= make_temp_file (".x");
1073 ldout
= make_temp_file (".ld");
1074 *c_ptr
++ = c_file_name
;
1081 #ifdef COLLECT_EXPORT_LIST
1082 /* Generate a list of directories from LIBPATH. */
1083 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1084 /* Add to this list also two standard directories where
1085 AIX loader always searches for libraries. */
1086 add_prefix (&libpath_lib_dirs
, "/lib");
1087 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1090 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1092 AIX support needs to know if -shared has been specified before
1093 parsing commandline arguments. */
1095 p
= getenv ("COLLECT_GCC_OPTIONS");
1098 const char *q
= extract_string (&p
);
1099 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1100 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1101 if (strcmp (q
, "-EL") == 0 || strcmp (q
, "-EB") == 0)
1102 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1103 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1105 if (*q
== '-' && q
[1] == 'B')
1107 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1110 q
= extract_string (&p
);
1111 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1115 obstack_free (&temporary_obstack
, temporary_firstobj
);
1116 *c_ptr
++ = "-fno-exceptions";
1119 /* !!! When GCC calls collect2,
1120 it does not know whether it is calling collect2 or ld.
1121 So collect2 cannot meaningfully understand any options
1122 except those ld understands.
1123 If you propose to make GCC pass some other option,
1124 just imagine what will happen if ld is really ld!!! */
1126 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1127 /* After the first file, put in the c++ rt0. */
1130 while ((arg
= *++argv
) != (char *) 0)
1132 *ld1
++ = *ld2
++ = arg
;
1138 #ifdef COLLECT_EXPORT_LIST
1139 /* We want to disable automatic exports on AIX when user
1140 explicitly puts an export list in command line */
1142 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1144 else if (arg
[2] == '6' && arg
[3] == '4')
1150 if (!strcmp (arg
, "-debug"))
1152 /* Already parsed. */
1161 /* place o_file BEFORE this argument! */
1167 #ifdef COLLECT_EXPORT_LIST
1169 /* Resolving full library name. */
1170 const char *s
= resolve_lib_name (arg
+2);
1172 /* Saving a full library name. */
1173 add_to_list (&libs
, s
);
1178 #ifdef COLLECT_EXPORT_LIST
1179 /* Saving directories where to search for libraries. */
1181 add_prefix (&cmdline_lib_dirs
, arg
+2);
1184 #if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
1186 if (is_in_args (arg
, (const char **) ld1_argv
, ld1
-1))
1189 #endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
1194 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1196 #ifdef SWITCHES_NEED_SPACES
1197 && ! strchr (SWITCHES_NEED_SPACES
, arg
[1])
1201 output_file
= &arg
[2];
1210 if (arg
[2] == '\0' && do_collecting
)
1212 /* We must strip after the nm run, otherwise C++ linking
1213 will not work. Thus we strip in the second ld run, or
1214 else with strip if there is no second ld run. */
1226 else if ((p
= strrchr (arg
, '.')) != (char *) 0
1227 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1228 || strcmp (p
, ".so") == 0 || strcmp (p
, ".lo") == 0
1229 || strcmp (p
, ".obj") == 0))
1238 /* place o_file BEFORE this argument! */
1244 if (p
[1] == 'o' || p
[1] == 'l')
1246 #ifdef COLLECT_EXPORT_LIST
1247 /* libraries can be specified directly, i.e. without -l flag. */
1250 /* Saving a full library name. */
1251 add_to_list (&libs
, arg
);
1257 #ifdef COLLECT_EXPORT_LIST
1258 /* This is added only for debugging purposes. */
1261 fprintf (stderr
, "List of libraries:\n");
1262 dump_list (stderr
, "\t", libs
.first
);
1265 /* The AIX linker will discard static constructors in object files if
1266 nothing else in the file is referenced, so look at them first. */
1268 const char **export_object_lst
= (const char **)object_lst
;
1270 while (export_object_lst
< object
)
1271 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1274 struct id
*list
= libs
.first
;
1276 for (; list
; list
= list
->next
)
1277 scan_prog_file (list
->name
, PASS_FIRST
);
1282 char *buf
= xmalloc (strlen (export_file
) + 5);
1284 sprintf (buf
, "-bE:%s", export_file
);
1288 exportf
= fopen (export_file
, "w");
1289 if (exportf
== (FILE *) 0)
1290 fatal_perror ("fopen %s", export_file
);
1291 write_aix_file (exportf
, exports
.first
);
1292 if (fclose (exportf
))
1293 fatal_perror ("fclose %s", export_file
);
1298 *c_ptr
= *ld1
= *object
= (char *) 0;
1302 notice ("collect2 version %s", version_string
);
1303 #ifdef TARGET_VERSION
1306 fprintf (stderr
, "\n");
1312 fprintf (stderr
, "ld_file_name = %s\n",
1313 (ld_file_name
? ld_file_name
: "not found"));
1314 fprintf (stderr
, "c_file_name = %s\n",
1315 (c_file_name
? c_file_name
: "not found"));
1316 fprintf (stderr
, "nm_file_name = %s\n",
1317 (nm_file_name
? nm_file_name
: "not found"));
1319 fprintf (stderr
, "ldd_file_name = %s\n",
1320 (ldd_file_name
? ldd_file_name
: "not found"));
1322 fprintf (stderr
, "strip_file_name = %s\n",
1323 (strip_file_name
? strip_file_name
: "not found"));
1324 fprintf (stderr
, "c_file = %s\n",
1325 (c_file
? c_file
: "not found"));
1326 fprintf (stderr
, "o_file = %s\n",
1327 (o_file
? o_file
: "not found"));
1329 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1331 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1333 ptr
= getenv ("COLLECT_GCC");
1335 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1337 ptr
= getenv ("COMPILER_PATH");
1339 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1341 ptr
= getenv (LIBRARY_PATH_ENV
);
1343 fprintf (stderr
, "%-20s= %s\n", LIBRARY_PATH_ENV
, ptr
);
1345 fprintf (stderr
, "\n");
1348 /* Load the program, searching all libraries and attempting to provide
1349 undefined symbols from repository information. */
1351 /* On AIX we do this later. */
1352 #ifndef COLLECT_EXPORT_LIST
1353 do_tlink (ld1_argv
, object_lst
);
1356 /* If -r or they will be run via some other method, do not build the
1357 constructor or destructor list, just return now. */
1359 #ifndef COLLECT_EXPORT_LIST
1364 #ifdef COLLECT_EXPORT_LIST
1365 /* Do the link we avoided above if we are exiting. */
1366 do_tlink (ld1_argv
, object_lst
);
1368 /* But make sure we delete the export file we may have created. */
1369 if (export_file
!= 0 && export_file
[0])
1370 maybe_unlink (export_file
);
1372 maybe_unlink (c_file
);
1373 maybe_unlink (o_file
);
1377 /* Examine the namelist with nm and search it for static constructors
1378 and destructors to call.
1379 Write the constructor and destructor tables to a .s file and reload. */
1381 /* On AIX we already scanned for global constructors/destructors. */
1382 #ifndef COLLECT_EXPORT_LIST
1383 scan_prog_file (output_file
, PASS_FIRST
);
1386 #ifdef SCAN_LIBRARIES
1387 scan_libraries (output_file
);
1392 notice ("%d constructor(s) found\n", constructors
.number
);
1393 notice ("%d destructor(s) found\n", destructors
.number
);
1394 notice ("%d frame table(s) found\n", frame_tables
.number
);
1397 if (constructors
.number
== 0 && destructors
.number
== 0
1398 && frame_tables
.number
== 0
1399 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1400 /* If we will be running these functions ourselves, we want to emit
1401 stubs into the shared library so that we do not have to relink
1402 dependent programs when we add static objects. */
1407 #ifdef COLLECT_EXPORT_LIST
1408 /* Do tlink without additional code generation */
1409 do_tlink (ld1_argv
, object_lst
);
1411 /* Strip now if it was requested on the command line. */
1414 char **real_strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1415 const char ** strip_argv
= (const char **) real_strip_argv
;
1417 strip_argv
[0] = strip_file_name
;
1418 strip_argv
[1] = output_file
;
1419 strip_argv
[2] = (char *) 0;
1420 fork_execute ("strip", real_strip_argv
);
1423 #ifdef COLLECT_EXPORT_LIST
1424 maybe_unlink (export_file
);
1426 maybe_unlink (c_file
);
1427 maybe_unlink (o_file
);
1431 /* Sort ctor and dtor lists by priority. */
1432 sort_ids (&constructors
);
1433 sort_ids (&destructors
);
1435 maybe_unlink(output_file
);
1436 outf
= fopen (c_file
, "w");
1437 if (outf
== (FILE *) 0)
1438 fatal_perror ("fopen %s", c_file
);
1440 write_c_file (outf
, c_file
);
1443 fatal_perror ("fclose %s", c_file
);
1445 /* Tell the linker that we have initializer and finalizer functions. */
1446 #ifdef LD_INIT_SWITCH
1447 #ifdef COLLECT_EXPORT_LIST
1449 /* option name + functions + colons + NULL */
1450 char *buf
= xmalloc (strlen (LD_INIT_SWITCH
)
1451 + strlen(initname
) + strlen(fininame
) + 3);
1452 sprintf (buf
, "%s:%s:%s", LD_INIT_SWITCH
, initname
, fininame
);
1456 *ld2
++ = LD_INIT_SWITCH
;
1458 *ld2
++ = LD_FINI_SWITCH
;
1463 #ifdef COLLECT_EXPORT_LIST
1466 /* If we did not add export flag to link arguments before, add it to
1467 second link phase now. No new exports should have been added. */
1468 if (! exports
.first
)
1470 char *buf
= xmalloc (strlen (export_file
) + 5);
1472 sprintf (buf
, "-bE:%s", export_file
);
1476 add_to_list (&exports
, initname
);
1477 add_to_list (&exports
, fininame
);
1478 add_to_list (&exports
, "_GLOBAL__DI");
1479 add_to_list (&exports
, "_GLOBAL__DD");
1480 exportf
= fopen (export_file
, "w");
1481 if (exportf
== (FILE *) 0)
1482 fatal_perror ("fopen %s", export_file
);
1483 write_aix_file (exportf
, exports
.first
);
1484 if (fclose (exportf
))
1485 fatal_perror ("fclose %s", export_file
);
1489 /* End of arguments to second link phase. */
1494 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1495 output_file
, c_file
);
1496 write_c_file (stderr
, "stderr");
1497 fprintf (stderr
, "========== end of c_file\n\n");
1498 #ifdef COLLECT_EXPORT_LIST
1499 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1500 write_aix_file (stderr
, exports
.first
);
1501 fprintf (stderr
, "========== end of export_file\n\n");
1505 /* Assemble the constructor and destructor tables.
1506 Link the tables in with the rest of the program. */
1508 fork_execute ("gcc", c_argv
);
1509 #ifdef COLLECT_EXPORT_LIST
1510 /* On AIX we must call tlink because of possible templates resolution */
1511 do_tlink (ld2_argv
, object_lst
);
1513 /* Otherwise, simply call ld because tlink is already done */
1514 fork_execute ("ld", ld2_argv
);
1516 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1517 constructors/destructors in shared libraries. */
1518 scan_prog_file (output_file
, PASS_SECOND
);
1521 maybe_unlink (c_file
);
1522 maybe_unlink (o_file
);
1524 #ifdef COLLECT_EXPORT_LIST
1525 maybe_unlink (export_file
);
1532 /* Wait for a process to finish, and exit if a non-zero status is found. */
1540 pwait (pexecute_pid
, &status
, 0);
1543 if (WIFSIGNALED (status
))
1545 int sig
= WTERMSIG (status
);
1546 error ("%s terminated with signal %d [%s]%s",
1547 prog
, sig
, strsignal(sig
),
1548 status
& 0200 ? "" : ", core dumped");
1549 collect_exit (FATAL_EXIT_CODE
);
1552 if (WIFEXITED (status
))
1553 return WEXITSTATUS (status
);
1562 int ret
= collect_wait (prog
);
1565 error ("%s returned %d exit status", prog
, ret
);
1571 /* Execute a program, and wait for the reply. */
1574 collect_execute (prog
, argv
, redir
)
1581 int redir_handle
= -1;
1582 int stdout_save
= -1;
1583 int stderr_save
= -1;
1591 fprintf (stderr
, "%s", argv
[0]);
1593 notice ("[cannot find %s]", prog
);
1595 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1596 fprintf (stderr
, " %s", str
);
1598 fprintf (stderr
, "\n");
1604 /* If we cannot find a program we need, complain error. Do this here
1605 since we might not end up needing something that we could not find. */
1608 fatal ("cannot find `%s'", prog
);
1612 /* Open response file. */
1613 redir_handle
= open (redir
, O_WRONLY
| O_TRUNC
| O_CREAT
);
1615 /* Duplicate the stdout and stderr file handles
1616 so they can be restored later. */
1617 stdout_save
= dup (STDOUT_FILENO
);
1618 if (stdout_save
== -1)
1619 fatal_perror ("redirecting stdout: %s", redir
);
1620 stderr_save
= dup (STDERR_FILENO
);
1621 if (stderr_save
== -1)
1622 fatal_perror ("redirecting stdout: %s", redir
);
1624 /* Redirect stdout & stderr to our response file. */
1625 dup2 (redir_handle
, STDOUT_FILENO
);
1626 dup2 (redir_handle
, STDERR_FILENO
);
1629 pexecute_pid
= pexecute (argv
[0], argv
, argv
[0], NULL
,
1630 &errmsg_fmt
, &errmsg_arg
,
1631 (PEXECUTE_FIRST
| PEXECUTE_LAST
| PEXECUTE_SEARCH
));
1635 /* Restore stdout and stderr to their previous settings. */
1636 dup2 (stdout_save
, STDOUT_FILENO
);
1637 dup2 (stderr_save
, STDERR_FILENO
);
1639 /* Close reponse file. */
1640 close (redir_handle
);
1643 if (pexecute_pid
== -1)
1644 fatal_perror (errmsg_fmt
, errmsg_arg
);
1648 fork_execute (prog
, argv
)
1652 collect_execute (prog
, argv
, NULL
);
1656 /* Unlink a file unless we are debugging. */
1665 notice ("[Leaving %s]\n", file
);
1669 static long sequence_number
= 0;
1671 /* Add a name to a linked list. */
1674 add_to_list (head_ptr
, name
)
1675 struct head
*head_ptr
;
1679 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1681 strcpy (newid
->name
, name
);
1683 if (head_ptr
->first
)
1684 head_ptr
->last
->next
= newid
;
1686 head_ptr
->first
= newid
;
1688 /* Check for duplicate symbols. */
1689 for (p
= head_ptr
->first
;
1690 strcmp (name
, p
->name
) != 0;
1695 head_ptr
->last
->next
= 0;
1700 newid
->sequence
= ++sequence_number
;
1701 head_ptr
->last
= newid
;
1705 /* Grab the init priority number from an init function name that
1706 looks like "_GLOBAL_.I.12345.foo". */
1709 extract_init_priority (name
)
1714 while (name
[pos
] == '_')
1716 pos
+= 10; /* strlen ("GLOBAL__X_") */
1718 /* Extract init_p number from ctor/dtor name. */
1719 pri
= atoi (name
+ pos
);
1720 return pri
? pri
: DEFAULT_INIT_PRIORITY
;
1723 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1724 ctors will be run from right to left, dtors from left to right. */
1728 struct head
*head_ptr
;
1730 /* id holds the current element to insert. id_next holds the next
1731 element to insert. id_ptr iterates through the already sorted elements
1732 looking for the place to insert id. */
1733 struct id
*id
, *id_next
, **id_ptr
;
1735 id
= head_ptr
->first
;
1737 /* We don't have any sorted elements yet. */
1738 head_ptr
->first
= NULL
;
1740 for (; id
; id
= id_next
)
1743 id
->sequence
= extract_init_priority (id
->name
);
1745 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1747 /* If the sequence numbers are the same, we put the id from the
1748 file later on the command line later in the list. */
1749 || id
->sequence
> (*id_ptr
)->sequence
1750 /* Hack: do lexical compare, too.
1751 || (id->sequence == (*id_ptr)->sequence
1752 && strcmp (id->name, (*id_ptr)->name) > 0) */
1761 /* Now set the sequence numbers properly so write_c_file works. */
1762 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1763 id
->sequence
= ++sequence_number
;
1766 /* Write: `prefix', the names on list LIST, `suffix'. */
1769 write_list (stream
, prefix
, list
)
1776 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1781 #if LINK_ELIMINATE_DUPLICATE_LDIRECTORIES
1782 /* Given a STRING, return nonzero if it occurs in the list in range
1783 [ARGS_BEGIN,ARGS_END). */
1786 is_in_args (string
, args_begin
, args_end
)
1788 const char **args_begin
;
1789 const char **args_end
;
1791 const char **args_pointer
;
1792 for (args_pointer
= args_begin
; args_pointer
!= args_end
; ++args_pointer
)
1793 if (strcmp (string
, *args_pointer
) == 0)
1797 #endif /* LINK_ELIMINATE_DUPLICATE_LDIRECTORIES */
1799 #ifdef COLLECT_EXPORT_LIST
1800 /* This function is really used only on AIX, but may be useful. */
1802 is_in_list (prefix
, list
)
1808 if (!strcmp (prefix
, list
->name
)) return 1;
1815 /* Added for debugging purpose. */
1816 #ifdef COLLECT_EXPORT_LIST
1818 dump_list (stream
, prefix
, list
)
1825 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1833 dump_prefix_list (stream
, prefix
, list
)
1836 struct prefix_list
*list
;
1840 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1847 write_list_with_asm (stream
, prefix
, list
)
1854 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1855 prefix
, list
->sequence
, list
->name
);
1860 /* Write out the constructor and destructor tables statically (for a shared
1861 object), along with the functions to execute them. */
1864 write_c_file_stat (stream
, name
)
1866 const char *name ATTRIBUTE_UNUSED
;
1870 int frames
= (frame_tables
.number
> 0);
1872 /* Figure out name of output_file, stripping off .so version. */
1873 p
= strrchr (output_file
, '/');
1889 if (strncmp (q
, ".so", 3) == 0)
1898 /* q points to null at end of the string (or . of the .so version) */
1899 prefix
= xmalloc (q
- p
+ 1);
1900 strncpy (prefix
, p
, q
- p
);
1902 for (r
= prefix
; *r
; r
++)
1903 if (!ISALNUM ((unsigned char)*r
))
1906 notice ("\nwrite_c_file - output name is %s, prefix is %s\n",
1907 output_file
, prefix
);
1909 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
1910 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
1911 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
1913 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
1914 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
1915 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
1919 /* Write the tables as C code */
1921 fprintf (stream
, "static int count;\n");
1922 fprintf (stream
, "typedef void entry_pt();\n");
1923 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1927 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1929 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1930 write_list (stream
, "\t\t&", frame_tables
.first
);
1931 fprintf (stream
, "\t0\n};\n");
1933 /* This must match what's in frame.h. */
1934 fprintf (stream
, "struct object {\n");
1935 fprintf (stream
, " void *pc_begin;\n");
1936 fprintf (stream
, " void *pc_end;\n");
1937 fprintf (stream
, " void *fde_begin;\n");
1938 fprintf (stream
, " void *fde_array;\n");
1939 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1940 fprintf (stream
, " struct object *next;\n");
1941 fprintf (stream
, "};\n");
1943 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1944 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1946 fprintf (stream
, "static void reg_frame () {\n");
1947 fprintf (stream
, "\tstatic struct object ob;\n");
1948 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1949 fprintf (stream
, "\t}\n");
1951 fprintf (stream
, "static void dereg_frame () {\n");
1952 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1953 fprintf (stream
, "\t}\n");
1956 fprintf (stream
, "void %s() {\n", initname
);
1957 if (constructors
.number
> 0 || frames
)
1959 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
1960 write_list (stream
, "\t\t", constructors
.first
);
1962 fprintf (stream
, "\treg_frame,\n");
1963 fprintf (stream
, "\t};\n");
1964 fprintf (stream
, "\tentry_pt **p;\n");
1965 fprintf (stream
, "\tif (count++ != 0) return;\n");
1966 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
1967 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
1970 fprintf (stream
, "\t++count;\n");
1971 fprintf (stream
, "}\n");
1972 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
1973 fprintf (stream
, "void %s() {\n", fininame
);
1974 if (destructors
.number
> 0 || frames
)
1976 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
1977 write_list (stream
, "\t\t", destructors
.first
);
1979 fprintf (stream
, "\tdereg_frame,\n");
1980 fprintf (stream
, "\t};\n");
1981 fprintf (stream
, "\tentry_pt **p;\n");
1982 fprintf (stream
, "\tif (--count != 0) return;\n");
1983 fprintf (stream
, "\tp = dtors;\n");
1984 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
1985 destructors
.number
+ frames
);
1987 fprintf (stream
, "}\n");
1991 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
1992 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
1996 /* Write the constructor/destructor tables. */
1998 #ifndef LD_INIT_SWITCH
2000 write_c_file_glob (stream
, name
)
2002 const char *name ATTRIBUTE_UNUSED
;
2004 /* Write the tables as C code */
2006 int frames
= (frame_tables
.number
> 0);
2008 fprintf (stream
, "typedef void entry_pt();\n\n");
2010 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2014 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2016 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2017 write_list (stream
, "\t\t&", frame_tables
.first
);
2018 fprintf (stream
, "\t0\n};\n");
2020 /* This must match what's in frame.h. */
2021 fprintf (stream
, "struct object {\n");
2022 fprintf (stream
, " void *pc_begin;\n");
2023 fprintf (stream
, " void *pc_end;\n");
2024 fprintf (stream
, " void *fde_begin;\n");
2025 fprintf (stream
, " void *fde_array;\n");
2026 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2027 fprintf (stream
, " struct object *next;\n");
2028 fprintf (stream
, "};\n");
2030 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2031 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2033 fprintf (stream
, "static void reg_frame () {\n");
2034 fprintf (stream
, "\tstatic struct object ob;\n");
2035 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2036 fprintf (stream
, "\t}\n");
2038 fprintf (stream
, "static void dereg_frame () {\n");
2039 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2040 fprintf (stream
, "\t}\n");
2043 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2044 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2045 write_list (stream
, "\t", constructors
.first
);
2047 fprintf (stream
, "\treg_frame,\n");
2048 fprintf (stream
, "\t0\n};\n\n");
2050 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2052 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2053 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2054 write_list (stream
, "\t", destructors
.first
);
2056 fprintf (stream
, "\tdereg_frame,\n");
2057 fprintf (stream
, "\t0\n};\n\n");
2059 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2060 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2062 #endif /* ! LD_INIT_SWITCH */
2065 write_c_file (stream
, name
)
2069 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2070 #ifndef LD_INIT_SWITCH
2072 write_c_file_glob (stream
, name
);
2075 write_c_file_stat (stream
, name
);
2076 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2079 #ifdef COLLECT_EXPORT_LIST
2081 write_aix_file (stream
, list
)
2085 for (; list
; list
= list
->next
)
2087 fputs (list
->name
, stream
);
2088 putc ('\n', stream
);
2093 #ifdef OBJECT_FORMAT_NONE
2095 /* Generic version to scan the name list of the loaded program for
2096 the symbols g++ uses for static constructors and destructors.
2098 The constructor table begins at __CTOR_LIST__ and contains a count
2099 of the number of pointers (or -1 if the constructors are built in a
2100 separate section by the linker), followed by the pointers to the
2101 constructor functions, terminated with a null pointer. The
2102 destructor table has the same format, and begins at __DTOR_LIST__. */
2105 scan_prog_file (prog_name
, which_pass
)
2106 const char *prog_name
;
2107 enum pass which_pass
;
2109 void (*int_handler
) PARAMS ((int));
2110 void (*quit_handler
) PARAMS ((int));
2111 char *real_nm_argv
[4];
2112 const char **nm_argv
= (const char **) real_nm_argv
;
2119 if (which_pass
== PASS_SECOND
)
2122 /* If we do not have an `nm', complain. */
2123 if (nm_file_name
== 0)
2124 fatal ("cannot find `nm'");
2126 nm_argv
[argc
++] = nm_file_name
;
2127 if (NM_FLAGS
[0] != '\0')
2128 nm_argv
[argc
++] = NM_FLAGS
;
2130 nm_argv
[argc
++] = prog_name
;
2131 nm_argv
[argc
++] = (char *) 0;
2133 if (pipe (pipe_fd
) < 0)
2134 fatal_perror ("pipe");
2136 inf
= fdopen (pipe_fd
[0], "r");
2137 if (inf
== (FILE *) 0)
2138 fatal_perror ("fdopen");
2140 /* Trace if needed. */
2143 const char **p_argv
;
2146 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2147 fprintf (stderr
, " %s", str
);
2149 fprintf (stderr
, "\n");
2155 /* Spawn child nm on pipe */
2158 fatal_perror (VFORK_STRING
);
2160 if (pid
== 0) /* child context */
2163 if (dup2 (pipe_fd
[1], 1) < 0)
2164 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2166 if (close (pipe_fd
[0]) < 0)
2167 fatal_perror ("close %d", pipe_fd
[0]);
2169 if (close (pipe_fd
[1]) < 0)
2170 fatal_perror ("close %d", pipe_fd
[1]);
2172 execv (nm_file_name
, real_nm_argv
);
2173 fatal_perror ("execvp %s", nm_file_name
);
2176 /* Parent context from here on. */
2177 int_handler
= (void (*) PARAMS ((int))) signal (SIGINT
, SIG_IGN
);
2179 quit_handler
= (void (*) PARAMS ((int))) signal (SIGQUIT
, SIG_IGN
);
2182 if (close (pipe_fd
[1]) < 0)
2183 fatal_perror ("close %d", pipe_fd
[1]);
2186 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2188 /* Read each line of nm output. */
2189 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2194 /* If it contains a constructor or destructor name, add the name
2195 to the appropriate list. */
2197 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2198 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2205 /* Find the end of the symbol name.
2206 Do not include `|', because Encore nm can tack that on the end. */
2207 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2213 switch (is_ctor_dtor (name
))
2216 if (which_pass
!= PASS_LIB
)
2217 add_to_list (&constructors
, name
);
2221 if (which_pass
!= PASS_LIB
)
2222 add_to_list (&destructors
, name
);
2226 if (which_pass
!= PASS_LIB
)
2227 fatal ("init function found in object %s", prog_name
);
2228 #ifndef LD_INIT_SWITCH
2229 add_to_list (&constructors
, name
);
2234 if (which_pass
!= PASS_LIB
)
2235 fatal ("fini function found in object %s", prog_name
);
2236 #ifndef LD_FINI_SWITCH
2237 add_to_list (&destructors
, name
);
2242 if (which_pass
!= PASS_LIB
)
2243 add_to_list (&frame_tables
, name
);
2246 default: /* not a constructor or destructor */
2251 fprintf (stderr
, "\t%s\n", buf
);
2255 fprintf (stderr
, "\n");
2257 if (fclose (inf
) != 0)
2258 fatal_perror ("fclose");
2260 do_wait (nm_file_name
);
2262 signal (SIGINT
, int_handler
);
2264 signal (SIGQUIT
, quit_handler
);
2268 #if SUNOS4_SHARED_LIBRARIES
2270 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2271 that the output file depends upon and their initialization/finalization
2272 routines, if any. */
2277 #include <sys/mman.h>
2278 #include <sys/param.h>
2280 #include <sys/dir.h>
2282 /* pointers to the object file */
2283 unsigned object
; /* address of memory mapped file */
2284 unsigned objsize
; /* size of memory mapped to file */
2285 char * code
; /* pointer to code segment */
2286 char * data
; /* pointer to data segment */
2287 struct nlist
*symtab
; /* pointer to symbol table */
2288 struct link_dynamic
*ld
;
2289 struct link_dynamic_2
*ld_2
;
2290 struct head libraries
;
2292 /* Map the file indicated by NAME into memory and store its address. */
2294 static void mapfile
PARAMS ((const char *));
2302 if ((fp
= open (name
, O_RDONLY
)) == -1)
2303 fatal ("unable to open file '%s'", name
);
2304 if (fstat (fp
, &s
) == -1)
2305 fatal ("unable to stat file '%s'", name
);
2307 objsize
= s
.st_size
;
2308 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2310 if (object
== (unsigned)-1)
2311 fatal ("unable to mmap file '%s'", name
);
2316 /* Helpers for locatelib. */
2318 static const char *libname
;
2320 static int libselect
PARAMS ((struct direct
*));
2326 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2329 /* If one file has an additional numeric extension past LIBNAME, then put
2330 that one first in the sort. If both files have additional numeric
2331 extensions, then put the one with the higher number first in the sort.
2333 We must verify that the extension is numeric, because Sun saves the
2334 original versions of patched libraries with a .FCS extension. Files with
2335 invalid extensions must go last in the sort, so that they will not be used. */
2336 static int libcompare
PARAMS ((struct direct
**, struct direct
**));
2340 struct direct
**d1
, **d2
;
2342 int i1
, i2
= strlen (libname
);
2343 char *e1
= (*d1
)->d_name
+ i2
;
2344 char *e2
= (*d2
)->d_name
+ i2
;
2346 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2347 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2351 i1
= strtol (e1
, &e1
, 10);
2352 i2
= strtol (e2
, &e2
, 10);
2359 /* It has a valid numeric extension, prefer this one. */
2360 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2362 /* It has a invalid numeric extension, must prefer the other one. */
2368 /* It has a valid numeric extension, prefer this one. */
2369 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2371 /* It has a invalid numeric extension, must prefer the other one. */
2379 /* Given the name NAME of a dynamic dependency, find its pathname and add
2380 it to the list of libraries. */
2381 static void locatelib
PARAMS ((const char *));
2387 static const char **l
;
2389 char buf
[MAXPATHLEN
];
2397 /* counting elements in array, need 1 extra for null */
2399 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2403 for (; *ld_rules
!= 0; ld_rules
++)
2404 if (*ld_rules
== ':')
2406 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2407 ldr
= xstrdup (ld_rules
);
2409 p
= getenv ("LD_LIBRARY_PATH");
2414 for (q
= p
; *q
!= 0; q
++)
2419 l
= (const char **) xmalloc ((cnt
+ 3) * sizeof (char *));
2424 for (; *ldr
!= 0; ldr
++)
2434 for (; *q
!= 0; q
++)
2441 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2444 *pp
++ = "/usr/local/lib";
2448 for (pp
= l
; *pp
!= 0 ; pp
++)
2450 struct direct
**namelist
;
2452 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2454 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2455 add_to_list (&libraries
, buf
);
2457 fprintf (stderr
, "%s\n", buf
);
2464 notice ("not found\n");
2466 fatal ("dynamic dependency %s not found", name
);
2470 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2471 that it depends upon and any constructors or destructors they contain. */
2474 scan_libraries (prog_name
)
2475 const char *prog_name
;
2477 struct exec
*header
;
2479 struct link_object
*lo
;
2480 char buff
[MAXPATHLEN
];
2483 mapfile (prog_name
);
2484 header
= (struct exec
*)object
;
2485 if (N_BADMAG (*header
))
2486 fatal ("bad magic number in file '%s'", prog_name
);
2487 if (header
->a_dynamic
== 0)
2490 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2491 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2492 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2494 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2497 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2503 ld
= (struct link_dynamic
*) data
;
2508 notice ("dynamic dependencies.\n");
2510 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2511 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2512 lo
= (struct link_object
*) lo
->lo_next
)
2515 lo
= (struct link_object
*) ((long) lo
+ code
);
2516 name
= (char *) (code
+ lo
->lo_name
);
2520 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2521 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2527 fprintf (stderr
, "\t%s\n", name
);
2528 add_to_list (&libraries
, name
);
2533 fprintf (stderr
, "\n");
2535 /* now iterate through the library list adding their symbols to
2537 for (list
= libraries
.first
; list
; list
= list
->next
)
2538 scan_prog_file (list
->name
, PASS_LIB
);
2541 #else /* SUNOS4_SHARED_LIBRARIES */
2544 /* Use the List Dynamic Dependencies program to find shared libraries that
2545 the output file depends upon and their initialization/finalization
2546 routines, if any. */
2549 scan_libraries (prog_name
)
2550 const char *prog_name
;
2552 static struct head libraries
; /* list of shared libraries found */
2554 void (*int_handler
) PARAMS ((int));
2555 void (*quit_handler
) PARAMS ((int));
2556 char *real_ldd_argv
[4];
2557 const char **ldd_argv
= (const char **) real_ldd_argv
;
2564 /* If we do not have an `ldd', complain. */
2565 if (ldd_file_name
== 0)
2567 error ("cannot find `ldd'");
2571 ldd_argv
[argc
++] = ldd_file_name
;
2572 ldd_argv
[argc
++] = prog_name
;
2573 ldd_argv
[argc
++] = (char *) 0;
2575 if (pipe (pipe_fd
) < 0)
2576 fatal_perror ("pipe");
2578 inf
= fdopen (pipe_fd
[0], "r");
2579 if (inf
== (FILE *) 0)
2580 fatal_perror ("fdopen");
2582 /* Trace if needed. */
2585 const char **p_argv
;
2588 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2589 fprintf (stderr
, " %s", str
);
2591 fprintf (stderr
, "\n");
2597 /* Spawn child ldd on pipe */
2600 fatal_perror (VFORK_STRING
);
2602 if (pid
== 0) /* child context */
2605 if (dup2 (pipe_fd
[1], 1) < 0)
2606 fatal_perror ("dup2 %d 1", pipe_fd
[1]);
2608 if (close (pipe_fd
[0]) < 0)
2609 fatal_perror ("close %d", pipe_fd
[0]);
2611 if (close (pipe_fd
[1]) < 0)
2612 fatal_perror ("close %d", pipe_fd
[1]);
2614 execv (ldd_file_name
, real_ldd_argv
);
2615 fatal_perror ("execv %s", ldd_file_name
);
2618 /* Parent context from here on. */
2619 int_handler
= (void (*) PARAMS ((int))) signal (SIGINT
, SIG_IGN
);
2621 quit_handler
= (void (*) PARAMS ((int))) signal (SIGQUIT
, SIG_IGN
);
2624 if (close (pipe_fd
[1]) < 0)
2625 fatal_perror ("close %d", pipe_fd
[1]);
2628 notice ("\nldd output with constructors/destructors.\n");
2630 /* Read each line of ldd output. */
2631 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2634 char *name
, *end
, *p
= buf
;
2636 /* Extract names of libraries and add to list. */
2637 PARSE_LDD_OUTPUT (p
);
2642 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2643 fatal ("dynamic dependency %s not found", buf
);
2645 /* Find the end of the symbol name. */
2647 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2652 if (access (name
, R_OK
) == 0)
2653 add_to_list (&libraries
, name
);
2655 fatal ("unable to open dynamic dependency '%s'", buf
);
2658 fprintf (stderr
, "\t%s\n", buf
);
2661 fprintf (stderr
, "\n");
2663 if (fclose (inf
) != 0)
2664 fatal_perror ("fclose");
2666 do_wait (ldd_file_name
);
2668 signal (SIGINT
, int_handler
);
2670 signal (SIGQUIT
, quit_handler
);
2673 /* now iterate through the library list adding their symbols to
2675 for (list
= libraries
.first
; list
; list
= list
->next
)
2676 scan_prog_file (list
->name
, PASS_LIB
);
2679 #endif /* LDD_SUFFIX */
2680 #endif /* SUNOS4_SHARED_LIBRARIES */
2682 #endif /* OBJECT_FORMAT_NONE */
2686 * COFF specific stuff.
2689 #ifdef OBJECT_FORMAT_COFF
2691 #if defined(EXTENDED_COFF)
2693 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2694 # define GCC_SYMENT SYMR
2695 # define GCC_OK_SYMBOL(X) ((X).st == stProc || (X).st == stGlobal)
2696 # define GCC_SYMINC(X) (1)
2697 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2698 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2702 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2703 # define GCC_SYMENT SYMENT
2704 # define GCC_OK_SYMBOL(X) \
2705 (((X).n_sclass == C_EXT) && \
2706 ((X).n_scnum > N_UNDEF) && \
2708 || (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) \
2709 || ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT))))
2710 # define GCC_UNDEF_SYMBOL(X) \
2711 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2712 # define GCC_SYMINC(X) ((X).n_numaux+1)
2713 # define GCC_SYMZERO(X) 0
2715 /* 0757 = U803XTOCMAGIC (AIX 4.3) and 0767 = U64_TOCMAGIC (AIX V5) */
2717 # define GCC_CHECK_HDR(X) \
2718 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2719 || (HEADER (X).f_magic == 0767 && aix64_flag))
2721 # define GCC_CHECK_HDR(X) \
2722 ((HEADER (X).f_magic == U802TOCMAGIC && ! aix64_flag) \
2723 || (HEADER (X).f_magic == 0757 && aix64_flag))
2728 extern char *ldgetname ();
2730 /* COFF version to scan the name list of the loaded program for
2731 the symbols g++ uses for static constructors and destructors.
2733 The constructor table begins at __CTOR_LIST__ and contains a count
2734 of the number of pointers (or -1 if the constructors are built in a
2735 separate section by the linker), followed by the pointers to the
2736 constructor functions, terminated with a null pointer. The
2737 destructor table has the same format, and begins at __DTOR_LIST__. */
2740 scan_prog_file (prog_name
, which_pass
)
2741 const char *prog_name
;
2742 enum pass which_pass
;
2744 LDFILE
*ldptr
= NULL
;
2745 int sym_index
, sym_count
;
2748 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2751 #ifdef COLLECT_EXPORT_LIST
2752 /* We do not need scanning for some standard C libraries. */
2753 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2756 /* On AIX we have a loop, because there is not much difference
2757 between an object and an archive. This trick allows us to
2758 eliminate scan_libraries() function. */
2762 /* Some platforms (e.g. OSF4) declare ldopen as taking a
2763 non-const char * filename parameter, even though it will not
2764 modify that string. So we must cast away const-ness here,
2765 which will cause -Wcast-qual to burp. */
2766 if ((ldptr
= ldopen ((char *)prog_name
, ldptr
)) != NULL
)
2768 if (! MY_ISCOFF (HEADER (ldptr
).f_magic
))
2769 fatal ("%s: not a COFF file", prog_name
);
2771 if (GCC_CHECK_HDR (ldptr
))
2773 sym_count
= GCC_SYMBOLS (ldptr
);
2774 sym_index
= GCC_SYMZERO (ldptr
);
2776 #ifdef COLLECT_EXPORT_LIST
2777 /* Is current archive member a shared object? */
2778 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2781 while (sym_index
< sym_count
)
2785 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2787 sym_index
+= GCC_SYMINC (symbol
);
2789 if (GCC_OK_SYMBOL (symbol
))
2793 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2794 continue; /* should never happen */
2796 #ifdef XCOFF_DEBUGGING_INFO
2797 /* All AIX function names have a duplicate entry
2798 beginning with a dot. */
2803 switch (is_ctor_dtor (name
))
2807 add_to_list (&constructors
, name
);
2808 #ifdef COLLECT_EXPORT_LIST
2809 if (which_pass
== PASS_OBJ
)
2810 add_to_list (&exports
, name
);
2816 add_to_list (&destructors
, name
);
2817 #ifdef COLLECT_EXPORT_LIST
2818 if (which_pass
== PASS_OBJ
)
2819 add_to_list (&exports
, name
);
2823 #ifdef COLLECT_EXPORT_LIST
2825 #ifndef LD_INIT_SWITCH
2827 add_to_list (&constructors
, name
);
2832 #ifndef LD_INIT_SWITCH
2834 add_to_list (&destructors
, name
);
2841 add_to_list (&frame_tables
, name
);
2842 #ifdef COLLECT_EXPORT_LIST
2843 if (which_pass
== PASS_OBJ
)
2844 add_to_list (&exports
, name
);
2848 default: /* not a constructor or destructor */
2849 #ifdef COLLECT_EXPORT_LIST
2850 /* If we are building a shared object on AIX we need
2851 to explicitly export all global symbols. */
2854 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2855 add_to_list (&exports
, name
);
2862 #if !defined(EXTENDED_COFF)
2863 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2864 symbol
.n_scnum
, symbol
.n_sclass
,
2865 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2869 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2870 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2875 #ifdef COLLECT_EXPORT_LIST
2878 /* If archive contains both 32-bit and 64-bit objects,
2879 we want to skip objects in other mode so mismatch normal. */
2881 fprintf (stderr
, "%s : magic=%o aix64=%d mismatch\n",
2882 prog_name
, HEADER (ldptr
).f_magic
, aix64_flag
);
2888 fatal ("%s: cannot open as COFF file", prog_name
);
2890 #ifdef COLLECT_EXPORT_LIST
2891 /* On AIX loop continues while there are more members in archive. */
2893 while (ldclose (ldptr
) == FAILURE
);
2895 /* Otherwise we simply close ldptr. */
2896 (void) ldclose(ldptr
);
2901 #ifdef COLLECT_EXPORT_LIST
2902 /* Given a library name without "lib" prefix, this function
2903 returns a full library name including a path. */
2905 resolve_lib_name (name
)
2911 for (i
= 0; libpaths
[i
]; i
++)
2912 if (libpaths
[i
]->max_len
> l
)
2913 l
= libpaths
[i
]->max_len
;
2915 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
2917 for (i
= 0; libpaths
[i
]; i
++)
2919 struct prefix_list
*list
= libpaths
[i
]->plist
;
2920 for (; list
; list
= list
->next
)
2922 /* The following lines are needed because path_prefix list
2923 may contain directories both with trailing '/' and
2926 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
2928 for (j
= 0; libexts
[j
]; j
++)
2930 sprintf (lib_buf
, "%s%slib%s.%s",
2931 list
->prefix
, p
, name
, libexts
[j
]);
2932 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
2933 if (file_exists (lib_buf
))
2935 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
2942 fprintf (stderr
, "not found\n");
2944 fatal ("Library lib%s not found", name
);
2948 /* Array of standard AIX libraries which should not
2949 be scanned for ctors/dtors. */
2950 static const char *aix_std_libs
[] = {
2958 "/usr/lib/libc_r.a",
2959 "/usr/lib/libm_r.a",
2960 "/usr/lib/threads/libc.a",
2961 "/usr/ccs/lib/libc.a",
2962 "/usr/ccs/lib/libm.a",
2963 "/usr/ccs/lib/libc_r.a",
2964 "/usr/ccs/lib/libm_r.a",
2968 /* This function checks the filename and returns 1
2969 if this name matches the location of a standard AIX library. */
2971 ignore_library (name
)
2974 const char **p
= &aix_std_libs
[0];
2975 while (*p
++ != NULL
)
2976 if (! strcmp (name
, *p
)) return 1;
2981 #endif /* OBJECT_FORMAT_COFF */
2985 * OSF/rose specific stuff.
2988 #ifdef OBJECT_FORMAT_ROSE
2990 /* Union of the various load commands */
2992 typedef union load_union
2994 ldc_header_t hdr
; /* common header */
2995 load_cmd_map_command_t map
; /* map indexing other load cmds */
2996 interpreter_command_t iprtr
; /* interpreter pathname */
2997 strings_command_t str
; /* load commands strings section */
2998 region_command_t region
; /* region load command */
2999 reloc_command_t reloc
; /* relocation section */
3000 package_command_t pkg
; /* package load command */
3001 symbols_command_t sym
; /* symbol sections */
3002 entry_command_t ent
; /* program start section */
3003 gen_info_command_t info
; /* object information */
3004 func_table_command_t func
; /* function constructors/destructors */
3007 /* Structure to point to load command and data section in memory. */
3009 typedef struct load_all
3011 load_union_t
*load
; /* load command */
3012 char *section
; /* pointer to section */
3015 /* Structure to contain information about a file mapped into memory. */
3019 char *start
; /* start of map */
3020 char *name
; /* filename */
3021 long size
; /* size of the file */
3022 long rounded_size
; /* size rounded to page boundary */
3023 int fd
; /* file descriptor */
3024 int rw
; /* != 0 if opened read/write */
3025 int use_mmap
; /* != 0 if mmap'ed */
3028 extern int decode_mach_o_hdr ();
3029 extern int encode_mach_o_hdr ();
3031 static void add_func_table
PARAMS ((mo_header_t
*, load_all_t
*,
3032 symbol_info_t
*, int));
3033 static void print_header
PARAMS ((mo_header_t
*));
3034 static void print_load_command
PARAMS ((load_union_t
*, size_t, int));
3035 static void bad_header
PARAMS ((int));
3036 static struct file_info
*read_file
PARAMS ((const char *, int, int));
3037 static void end_file
PARAMS ((struct file_info
*));
3039 /* OSF/rose specific version to scan the name list of the loaded
3040 program for the symbols g++ uses for static constructors and
3043 The constructor table begins at __CTOR_LIST__ and contains a count
3044 of the number of pointers (or -1 if the constructors are built in a
3045 separate section by the linker), followed by the pointers to the
3046 constructor functions, terminated with a null pointer. The
3047 destructor table has the same format, and begins at __DTOR_LIST__. */
3050 scan_prog_file (prog_name
, which_pass
)
3051 const char *prog_name
;
3052 enum pass which_pass
;
3056 load_all_t
*load_array
;
3057 load_all_t
*load_end
;
3058 load_all_t
*load_cmd
;
3059 int symbol_load_cmds
;
3065 struct file_info
*obj_file
;
3067 mo_lcid_t cmd_strings
= -1;
3068 symbol_info_t
*main_sym
= 0;
3069 int rw
= (which_pass
!= PASS_FIRST
);
3071 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3073 fatal_perror ("open %s", prog_name
);
3075 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3076 obj
= obj_file
->start
;
3078 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3079 if (status
!= MO_HDR_CONV_SUCCESS
)
3080 bad_header (status
);
3083 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3084 since the hardware will automatically swap bytes for us on loading little endian
3087 #ifndef CROSS_COMPILE
3088 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3089 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3090 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3091 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3092 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3093 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3094 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3096 fatal ("incompatibilities between object file & expected values");
3101 print_header (&hdr
);
3103 offset
= hdr
.moh_first_cmd_off
;
3104 load_end
= load_array
3105 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3107 /* Build array of load commands, calculating the offsets */
3108 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3110 load_union_t
*load_hdr
; /* load command header */
3112 load_cmd
= load_end
++;
3113 load_hdr
= (load_union_t
*) (obj
+ offset
);
3115 /* If modifying the program file, copy the header. */
3118 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3119 memcpy ((char *)ptr
, (char *)load_hdr
, load_hdr
->hdr
.ldci_cmd_size
);
3122 /* null out old command map, because we will rewrite at the end. */
3123 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3125 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3126 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3130 load_cmd
->load
= load_hdr
;
3131 if (load_hdr
->hdr
.ldci_section_off
> 0)
3132 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3135 print_load_command (load_hdr
, offset
, i
);
3137 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3140 /* If the last command is the load command map and is not undefined,
3141 decrement the count of load commands. */
3142 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3145 hdr
.moh_n_load_cmds
--;
3148 /* Go through and process each symbol table section. */
3149 symbol_load_cmds
= 0;
3150 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3152 load_union_t
*load_hdr
= load_cmd
->load
;
3154 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3160 const char *kind
= "unknown";
3162 switch (load_hdr
->sym
.symc_kind
)
3164 case SYMC_IMPORTS
: kind
= "imports"; break;
3165 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3166 case SYMC_STABS
: kind
= "stabs"; break;
3169 notice ("\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3170 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3173 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3176 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3177 if (str_sect
== (char *) 0)
3178 fatal ("string section missing");
3180 if (load_cmd
->section
== (char *) 0)
3181 fatal ("section pointer missing");
3183 num_syms
= load_hdr
->sym
.symc_nentries
;
3184 for (i
= 0; i
< num_syms
; i
++)
3186 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3187 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3194 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3196 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3206 switch (is_ctor_dtor (name
))
3209 add_to_list (&constructors
, name
);
3213 add_to_list (&destructors
, name
);
3216 default: /* not a constructor or destructor */
3222 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3223 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3228 if (symbol_load_cmds
== 0)
3229 fatal ("no symbol table found");
3231 /* Update the program file now, rewrite header and load commands. At present,
3232 we assume that there is enough space after the last load command to insert
3233 one more. Since the first section written out is page aligned, and the
3234 number of load commands is small, this is ok for the present. */
3238 load_union_t
*load_map
;
3241 if (cmd_strings
== -1)
3242 fatal ("no cmd_strings found");
3244 /* Add __main to initializer list.
3245 If we are building a program instead of a shared library, do not
3246 do anything, since in the current version, you cannot do mallocs
3247 and such in the constructors. */
3249 if (main_sym
!= (symbol_info_t
*) 0
3250 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3251 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3254 notice ("\nUpdating header and load commands.\n\n");
3256 hdr
.moh_n_load_cmds
++;
3257 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3259 /* Create new load command map. */
3261 notice ("load command map, %d cmds, new size %ld.\n",
3262 (int) hdr
.moh_n_load_cmds
, (long) size
);
3264 load_map
= (load_union_t
*) xcalloc (1, size
);
3265 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3266 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3267 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3268 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3269 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3271 offset
= hdr
.moh_first_cmd_off
;
3272 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3274 load_map
->map
.lcm_map
[i
] = offset
;
3275 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3276 hdr
.moh_load_map_cmd_off
= offset
;
3278 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3281 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3284 print_header (&hdr
);
3287 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3288 if (status
!= MO_HDR_CONV_SUCCESS
)
3289 bad_header (status
);
3292 notice ("writing load commands.\n\n");
3294 /* Write load commands */
3295 offset
= hdr
.moh_first_cmd_off
;
3296 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3298 load_union_t
*load_hdr
= load_array
[i
].load
;
3299 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3302 print_load_command (load_hdr
, offset
, i
);
3304 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3309 end_file (obj_file
);
3311 if (close (prog_fd
))
3312 fatal_perror ("close %s", prog_name
);
3315 fprintf (stderr
, "\n");
3319 /* Add a function table to the load commands to call a function
3320 on initiation or termination of the process. */
3323 add_func_table (hdr_p
, load_array
, sym
, type
)
3324 mo_header_t
*hdr_p
; /* pointer to global header */
3325 load_all_t
*load_array
; /* array of ptrs to load cmds */
3326 symbol_info_t
*sym
; /* pointer to symbol entry */
3327 int type
; /* fntc_type value */
3329 /* Add a new load command. */
3330 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3331 int load_index
= num_cmds
- 1;
3332 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3333 load_union_t
*ptr
= xcalloc (1, size
);
3334 load_all_t
*load_cmd
;
3337 /* Set the unresolved address bit in the header to force the loader to be
3338 used, since kernel exec does not call the initialization functions. */
3339 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3341 load_cmd
= &load_array
[load_index
];
3342 load_cmd
->load
= ptr
;
3343 load_cmd
->section
= (char *) 0;
3345 /* Fill in func table load command. */
3346 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3347 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3348 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3349 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3350 ptr
->func
.fntc_type
= type
;
3351 ptr
->func
.fntc_nentries
= 1;
3353 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3354 /* Is the symbol already expressed as (region, offset)? */
3355 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3357 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3358 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3361 /* If not, figure out which region it's in. */
3364 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3367 for (i
= 0; i
< load_index
; i
++)
3369 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3371 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3373 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3374 && addr
>= region_ptr
->regc_addr
.vm_addr
3375 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3377 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3378 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3386 fatal ("could not convert 0x%l.8x into a region", addr
);
3390 notice ("%s function, region %d, offset = %ld (0x%.8lx)\n",
3391 type
== FNTC_INITIALIZATION
? "init" : "term",
3392 (int) ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3393 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3394 (long) ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3399 /* Print the global header for an OSF/rose object. */
3402 print_header (hdr_ptr
)
3403 mo_header_t
*hdr_ptr
;
3405 fprintf (stderr
, "\nglobal header:\n");
3406 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3407 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3408 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3409 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3410 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3411 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3412 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3413 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3414 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3415 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3416 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3417 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3418 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3419 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3420 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3422 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3423 fprintf (stderr
, ", relocatable");
3425 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3426 fprintf (stderr
, ", linkable");
3428 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3429 fprintf (stderr
, ", execable");
3431 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3432 fprintf (stderr
, ", executable");
3434 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3435 fprintf (stderr
, ", unresolved");
3437 fprintf (stderr
, "\n\n");
3442 /* Print a short summary of a load command. */
3445 print_load_command (load_hdr
, offset
, number
)
3446 load_union_t
*load_hdr
;
3450 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3451 const char *type_str
= (char *) 0;
3455 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3456 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3457 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3458 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3459 case LDC_REGION
: type_str
= "REGION"; break;
3460 case LDC_RELOC
: type_str
= "RELOC"; break;
3461 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3462 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3463 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3464 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3465 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3469 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3471 (long) load_hdr
->hdr
.ldci_cmd_size
,
3473 (long) load_hdr
->hdr
.ldci_section_off
,
3474 (long) load_hdr
->hdr
.ldci_section_len
);
3476 if (type_str
== (char *) 0)
3477 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3479 else if (type
!= LDC_REGION
)
3480 fprintf (stderr
, ", ty: %s\n", type_str
);
3484 const char *region
= "";
3485 switch (load_hdr
->region
.regc_usage_type
)
3487 case REG_TEXT_T
: region
= ", .text"; break;
3488 case REG_DATA_T
: region
= ", .data"; break;
3489 case REG_BSS_T
: region
= ", .bss"; break;
3490 case REG_GLUE_T
: region
= ", .glue"; break;
3491 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3492 case REG_RDATA_T
: region
= ", .rdata"; break;
3493 case REG_SDATA_T
: region
= ", .sdata"; break;
3494 case REG_SBSS_T
: region
= ", .sbss"; break;
3498 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3500 (long) load_hdr
->region
.regc_vm_addr
,
3501 (long) load_hdr
->region
.regc_vm_size
,
3509 /* Fatal error when {en,de}code_mach_o_header fails. */
3517 case MO_ERROR_BAD_MAGIC
: fatal ("bad magic number");
3518 case MO_ERROR_BAD_HDR_VERS
: fatal ("bad header version");
3519 case MO_ERROR_BAD_RAW_HDR_VERS
: fatal ("bad raw header version");
3520 case MO_ERROR_BUF2SML
: fatal ("raw header buffer too small");
3521 case MO_ERROR_OLD_RAW_HDR_FILE
: fatal ("old raw header file");
3522 case MO_ERROR_UNSUPPORTED_VERS
: fatal ("unsupported version");
3524 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3529 /* Read a file into a memory buffer. */
3531 static struct file_info
*
3532 read_file (name
, fd
, rw
)
3533 const char *name
; /* filename */
3534 int fd
; /* file descriptor */
3535 int rw
; /* read/write */
3537 struct stat stat_pkt
;
3538 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3540 static int page_size
;
3543 if (fstat (fd
, &stat_pkt
) < 0)
3544 fatal_perror ("fstat %s", name
);
3547 p
->size
= stat_pkt
.st_size
;
3548 p
->rounded_size
= stat_pkt
.st_size
;
3554 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3557 page_size
= sysconf (_SC_PAGE_SIZE
);
3559 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3560 p
->start
= mmap ((caddr_t
) 0,
3561 (rw
) ? p
->rounded_size
: p
->size
,
3562 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3563 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3567 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3571 #endif /* USE_MMAP */
3576 fprintf (stderr
, "read %s\n", name
);
3579 p
->start
= xmalloc (p
->size
);
3580 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3581 fatal_perror ("lseek %s 0", name
);
3583 len
= read (fd
, p
->start
, p
->size
);
3585 fatal_perror ("read %s", name
);
3588 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3594 /* Do anything necessary to write a file back from memory. */
3598 struct file_info
*ptr
; /* file information block */
3606 fprintf (stderr
, "msync %s\n", ptr
->name
);
3608 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3609 fatal_perror ("msync %s", ptr
->name
);
3613 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3615 if (munmap (ptr
->start
, ptr
->size
))
3616 fatal_perror ("munmap %s", ptr
->name
);
3619 #endif /* USE_MMAP */
3626 fprintf (stderr
, "write %s\n", ptr
->name
);
3628 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3629 fatal_perror ("lseek %s 0", ptr
->name
);
3631 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3633 fatal_perror ("write %s", ptr
->name
);
3635 if (len
!= ptr
->size
)
3636 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3645 #endif /* OBJECT_FORMAT_ROSE */