1 /* Collect static initialization info into data structures that can be
2 traversed by C++ initialization and finalization routines.
3 Copyright (C) 1992, 93-97, 1998 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. */
37 #include "gansidecl.h"
42 /* Obstack allocation and deallocation routines. */
43 #define obstack_chunk_alloc xmalloc
44 #define obstack_chunk_free free
51 #define WIFSIGNALED(S) (((S) & 0xff) != 0 && ((S) & 0xff) != 0x7f)
54 #define WTERMSIG(S) ((S) & 0x7f)
57 #define WIFEXITED(S) (((S) & 0xff) == 0)
60 #define WEXITSTATUS(S) (((S) & 0xff00) >> 8)
63 extern char *make_temp_file
PROTO ((char *));
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 #if defined (LDD_SUFFIX) || SUNOS4_SHARED_LIBRARIES
155 #define SCAN_LIBRARIES
159 int do_collecting
= 1;
161 int do_collecting
= 0;
164 /* Linked lists of constructor and destructor names. */
180 /* Enumeration giving which pass this is for scanning the program file. */
183 PASS_FIRST
, /* without constructors */
184 PASS_OBJ
, /* individual objects */
185 PASS_LIB
, /* looking for shared libraries */
186 PASS_SECOND
/* with constructors linked in */
189 extern char *version_string
;
191 int vflag
; /* true if -v */
192 static int rflag
; /* true if -r */
193 static int strip_flag
; /* true if -s */
194 #ifdef COLLECT_EXPORT_LIST
195 static int export_flag
; /* true if -bE */
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_ENVIRONMENT
237 #define GET_ENVIRONMENT(ENV_VALUE,ENV_NAME) ENV_VALUE = getenv (ENV_NAME)
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 static char *my_strerror
PROTO((int));
267 static const char *my_strsignal
PROTO((int));
268 static void handler
PROTO((int));
269 static int is_ctor_dtor
PROTO((char *));
270 static char *find_a_file
PROTO((struct path_prefix
*, char *));
271 static void add_prefix
PROTO((struct path_prefix
*, char *));
272 static void prefix_from_env
PROTO((char *, struct path_prefix
*));
273 static void prefix_from_string
PROTO((char *, struct path_prefix
*));
274 static void do_wait
PROTO((char *));
275 static void fork_execute
PROTO((char *, char **));
276 static void maybe_unlink
PROTO((char *));
277 static void add_to_list
PROTO((struct head
*, char *));
278 static int extract_init_priority
PROTO((char *));
279 static void sort_ids
PROTO((struct head
*));
280 static void write_list
PROTO((FILE *, char *, struct id
*));
281 #ifdef COLLECT_EXPORT_LIST
282 static void dump_list
PROTO((FILE *, char *, struct id
*));
285 static void dump_prefix_list
PROTO((FILE *, char *, struct prefix_list
*));
287 static void write_list_with_asm
PROTO((FILE *, char *, struct id
*));
288 static void write_c_file
PROTO((FILE *, char *));
289 static void scan_prog_file
PROTO((char *, enum pass
));
290 #ifdef SCAN_LIBRARIES
291 static void scan_libraries
PROTO((char *));
293 #ifdef COLLECT_EXPORT_LIST
294 static int is_in_list
PROTO((char *, struct id
*));
295 static void write_export_file
PROTO((FILE *));
296 static void write_import_file
PROTO((FILE *));
297 static char *resolve_lib_name
PROTO((char *));
298 static int use_import_list
PROTO((char *));
299 static int ignore_library
PROTO((char *));
319 while ((fd
= dup (oldfd
)) != newfd
&& fd
>= 0) /* good enough for low fd's */
322 close (fdtmp
[--fdx
]);
338 static char buffer
[30];
342 if (e
> 0 && e
< sys_nerr
)
343 return sys_errlist
[e
];
345 sprintf (buffer
, "Unknown error %d", e
);
354 #ifdef HAVE_STRSIGNAL
355 return strsignal (s
);
357 if (s
>= 0 && s
< NSIG
)
359 # ifdef NO_SYS_SIGLIST
360 static char buffer
[30];
362 sprintf (buffer
, "Unknown signal %d", s
);
365 return sys_siglist
[s
];
370 #endif /* HAVE_STRSIGNAL */
373 /* Delete tempfiles and exit function. */
376 collect_exit (status
)
379 if (c_file
!= 0 && c_file
[0])
380 maybe_unlink (c_file
);
382 if (o_file
!= 0 && o_file
[0])
383 maybe_unlink (o_file
);
385 #ifdef COLLECT_EXPORT_LIST
386 if (export_file
!= 0 && export_file
[0])
387 maybe_unlink (export_file
);
389 if (import_file
!= 0 && import_file
[0])
390 maybe_unlink (import_file
);
393 if (ldout
!= 0 && ldout
[0])
396 maybe_unlink (ldout
);
399 if (status
!= 0 && output_file
!= 0 && output_file
[0])
400 maybe_unlink (output_file
);
406 /* Die when sys call fails. */
409 fatal_perror (string
, arg1
, arg2
, arg3
)
410 char *string
, *arg1
, *arg2
, *arg3
;
414 fprintf (stderr
, "collect2: ");
415 fprintf (stderr
, string
, arg1
, arg2
, arg3
);
416 fprintf (stderr
, ": %s\n", my_strerror (e
));
417 collect_exit (FATAL_EXIT_CODE
);
423 fatal (string
, arg1
, arg2
, arg3
)
424 char *string
, *arg1
, *arg2
, *arg3
;
426 fprintf (stderr
, "collect2: ");
427 fprintf (stderr
, string
, arg1
, arg2
, arg3
);
428 fprintf (stderr
, "\n");
429 collect_exit (FATAL_EXIT_CODE
);
432 /* Write error message. */
435 error (string
, arg1
, arg2
, arg3
, arg4
)
436 char *string
, *arg1
, *arg2
, *arg3
, *arg4
;
438 fprintf (stderr
, "collect2: ");
439 fprintf (stderr
, string
, arg1
, arg2
, arg3
, arg4
);
440 fprintf (stderr
, "\n");
443 /* In case obstack is linked in, and abort is defined to fancy_abort,
444 provide a default entry. */
449 fatal ("internal error");
457 if (c_file
!= 0 && c_file
[0])
458 maybe_unlink (c_file
);
460 if (o_file
!= 0 && o_file
[0])
461 maybe_unlink (o_file
);
463 if (ldout
!= 0 && ldout
[0])
464 maybe_unlink (ldout
);
466 #ifdef COLLECT_EXPORT_LIST
467 if (export_file
!= 0 && export_file
[0])
468 maybe_unlink (export_file
);
470 if (import_file
!= 0 && import_file
[0])
471 maybe_unlink (import_file
);
474 signal (signo
, SIG_DFL
);
475 kill (getpid (), signo
);
480 xcalloc (size1
, size2
)
483 char *ptr
= (char *) calloc (size1
, size2
);
487 fatal ("out of memory");
495 char *ptr
= (char *) malloc (size
);
499 fatal ("out of memory");
508 register char *value
= (char *) realloc (ptr
, size
);
510 fatal ("virtual memory exhausted");
518 return access (name
, R_OK
) == 0;
521 /* Make a copy of a string INPUT with size SIZE. */
524 savestring (input
, size
)
528 char *output
= (char *) xmalloc (size
+ 1);
529 bcopy (input
, output
, size
);
534 /* Parse a reasonable subset of shell quoting syntax. */
551 obstack_1grow (&temporary_obstack
, c
);
552 else if (! inside
&& c
== ' ')
554 else if (! inside
&& c
== '\\')
559 obstack_1grow (&temporary_obstack
, c
);
562 obstack_1grow (&temporary_obstack
, '\0');
564 return obstack_finish (&temporary_obstack
);
571 FILE *stream
= fopen (name
, "r");
572 int no_demangle
= !! getenv ("COLLECT_NO_DEMANGLE");
579 while (c
= getc (stream
),
580 c
!= EOF
&& (ISALNUM (c
) || c
== '_' || c
== '$' || c
== '.'))
581 obstack_1grow (&temporary_obstack
, c
);
582 if (obstack_object_size (&temporary_obstack
) > 0)
584 char *word
, *p
, *result
;
585 obstack_1grow (&temporary_obstack
, '\0');
586 word
= obstack_finish (&temporary_obstack
);
589 ++word
, putc ('.', stderr
);
591 if (*p
== '_' && prepends_underscore
)
597 result
= cplus_demangle (p
, DMGL_PARAMS
| DMGL_ANSI
);
602 fputs (result
, stderr
);
604 diff
= strlen (word
) - strlen (result
);
606 --diff
, putc (' ', stderr
);
607 while (diff
< 0 && c
== ' ')
608 ++diff
, c
= getc (stream
);
613 fputs (word
, stderr
);
616 obstack_free (&temporary_obstack
, temporary_firstobj
);
625 /* Decide whether the given symbol is:
626 a constructor (1), a destructor (2), or neither (0). */
632 struct names
{ char *name
; int len
; int ret
; int two_underscores
; };
634 register struct names
*p
;
636 register char *orig_s
= s
;
638 static struct names special
[] = {
639 #ifdef NO_DOLLAR_IN_LABEL
640 #ifdef NO_DOT_IN_LABEL
641 { "GLOBAL__I_", sizeof ("GLOBAL__I_")-1, 1, 0 },
642 { "GLOBAL__D_", sizeof ("GLOBAL__D_")-1, 2, 0 },
643 { "GLOBAL__F_", sizeof ("GLOBAL__F_")-1, 5, 0 },
645 { "GLOBAL_.I.", sizeof ("GLOBAL_.I.")-1, 1, 0 },
646 { "GLOBAL_.D.", sizeof ("GLOBAL_.D.")-1, 2, 0 },
647 { "GLOBAL_.F.", sizeof ("GLOBAL_.F.")-1, 5, 0 },
650 { "GLOBAL_$I$", sizeof ("GLOBAL_$I$")-1, 1, 0 },
651 { "GLOBAL_$D$", sizeof ("GLOBAL_$D$")-1, 2, 0 },
652 { "GLOBAL_$F$", sizeof ("GLOBAL_$F$")-1, 5, 0 },
654 { "GLOBAL__FI_", sizeof ("GLOBAL__FI_")-1, 3, 0 },
655 { "GLOBAL__FD_", sizeof ("GLOBAL__FD_")-1, 4, 0 },
656 #ifdef CFRONT_LOSSAGE /* Do not collect cfront initialization functions.
657 cfront has its own linker procedure to collect them;
658 if collect2 gets them too, they get collected twice
659 when the cfront procedure is run and the compiler used
660 for linking happens to be GCC. */
661 { "sti__", sizeof ("sti__")-1, 1, 1 },
662 { "std__", sizeof ("std__")-1, 2, 1 },
663 #endif /* CFRONT_LOSSAGE */
667 while ((ch
= *s
) == '_')
673 for (p
= &special
[0]; p
->len
> 0; p
++)
676 && (!p
->two_underscores
|| ((s
- orig_s
) >= 2))
677 && strncmp(s
, p
->name
, p
->len
) == 0)
685 /* Routine to add variables to the environment. */
693 #ifndef VMS /* nor about VMS */
695 extern char **environ
;
696 char **old_environ
= environ
;
703 while ((ch
= *p
++) != '\0' && ch
!= '=')
709 /* Search for replacing an existing environment variable, and
710 count the number of total environment variables. */
711 for (envp
= old_environ
; *envp
; envp
++)
714 if (!strncmp (str
, *envp
, name_len
))
721 /* Add a new environment variable */
722 environ
= (char **) xmalloc (sizeof (char *) * (num_envs
+2));
724 bcopy ((char *) old_environ
, (char *) (environ
+ 1),
725 sizeof (char *) * (num_envs
+1));
731 #endif /* HAVE_PUTENV */
733 /* By default, colon separates directories in a path. */
734 #ifndef PATH_SEPARATOR
735 #define PATH_SEPARATOR ':'
738 /* We maintain two prefix lists: one from COMPILER_PATH environment variable
739 and one from the PATH variable. */
741 static struct path_prefix cpath
, path
;
744 /* This is the name of the target machine. We use it to form the name
745 of the files to execute. */
747 static char *target_machine
= TARGET_MACHINE
;
750 /* Search for NAME using prefix list PPREFIX. We only look for executable
753 Return 0 if not found, otherwise return its name, allocated with malloc. */
756 find_a_file (pprefix
, name
)
757 struct path_prefix
*pprefix
;
761 struct prefix_list
*pl
;
762 int len
= pprefix
->max_len
+ strlen (name
) + 1;
765 fprintf (stderr
, "Looking for '%s'\n", name
);
767 #ifdef EXECUTABLE_SUFFIX
768 len
+= strlen (EXECUTABLE_SUFFIX
);
771 temp
= xmalloc (len
);
773 /* Determine the filename to execute (special case for absolute paths). */
777 || (DIR_SEPARATOR
== '\\' && name
[1] == ':'
778 && (name
[2] == DIR_SEPARATOR
|| name
[2] == '/'))
782 if (access (name
, X_OK
) == 0)
787 fprintf (stderr
, " - found: absolute path\n");
793 fprintf (stderr
, " - failed to locate using absolute path\n");
796 for (pl
= pprefix
->plist
; pl
; pl
= pl
->next
)
798 strcpy (temp
, pl
->prefix
);
801 if (access (temp
, X_OK
) == 0)
804 #ifdef EXECUTABLE_SUFFIX
805 /* Some systems have a suffix for executable files.
806 So try appending that. */
807 strcat (temp
, EXECUTABLE_SUFFIX
);
809 if (access (temp
, X_OK
) == 0)
814 if (debug
&& pprefix
->plist
== NULL
)
815 fprintf (stderr
, " - failed: no entries in prefix list\n");
821 /* Add an entry for PREFIX to prefix list PPREFIX. */
824 add_prefix (pprefix
, prefix
)
825 struct path_prefix
*pprefix
;
828 struct prefix_list
*pl
, **prev
;
833 for (pl
= pprefix
->plist
; pl
->next
; pl
= pl
->next
)
838 prev
= &pprefix
->plist
;
840 /* Keep track of the longest prefix */
842 len
= strlen (prefix
);
843 if (len
> pprefix
->max_len
)
844 pprefix
->max_len
= len
;
846 pl
= (struct prefix_list
*) xmalloc (sizeof (struct prefix_list
));
847 pl
->prefix
= savestring (prefix
, len
);
852 pl
->next
= (struct prefix_list
*) 0;
856 /* Take the value of the environment variable ENV, break it into a path, and
857 add of the entries to PPREFIX. */
860 prefix_from_env (env
, pprefix
)
862 struct path_prefix
*pprefix
;
865 GET_ENVIRONMENT (p
, env
);
868 prefix_from_string (p
, pprefix
);
872 prefix_from_string (p
, pprefix
)
874 struct path_prefix
*pprefix
;
877 char *nstore
= (char *) xmalloc (strlen (p
) + 3);
880 fprintf (stderr
, "Convert string '%s' into prefixes, separator = '%c'\n", p
, PATH_SEPARATOR
);
885 if (*endp
== PATH_SEPARATOR
|| *endp
== 0)
887 strncpy (nstore
, startp
, endp
-startp
);
890 strcpy (nstore
, "./");
892 else if (endp
[-1] != '/')
894 nstore
[endp
-startp
] = '/';
895 nstore
[endp
-startp
+1] = 0;
898 nstore
[endp
-startp
] = 0;
901 fprintf (stderr
, " - add prefix: %s\n", nstore
);
903 add_prefix (pprefix
, nstore
);
906 endp
= startp
= endp
+ 1;
920 char *ld_suffix
= "ld";
921 char *full_ld_suffix
= ld_suffix
;
922 char *real_ld_suffix
= "real-ld";
923 char *collect_ld_suffix
= "collect-ld";
924 char *nm_suffix
= "nm";
925 char *full_nm_suffix
= nm_suffix
;
926 char *gnm_suffix
= "gnm";
927 char *full_gnm_suffix
= gnm_suffix
;
929 char *ldd_suffix
= LDD_SUFFIX
;
930 char *full_ldd_suffix
= ldd_suffix
;
932 char *strip_suffix
= "strip";
933 char *full_strip_suffix
= strip_suffix
;
934 char *gstrip_suffix
= "gstrip";
935 char *full_gstrip_suffix
= gstrip_suffix
;
938 #ifdef COLLECT_EXPORT_LIST
946 char **ld1_argv
= (char **) xcalloc (sizeof (char *), argc
+3);
947 char **ld1
= ld1_argv
;
948 char **ld2_argv
= (char **) xcalloc (sizeof (char *), argc
+6);
949 char **ld2
= ld2_argv
;
950 char **object_lst
= (char **) xcalloc (sizeof (char *), argc
);
951 char **object
= object_lst
;
953 int num_c_args
= argc
+9;
959 /* Parse command line early for instances of -debug. This allows
960 the debug flag to be set before functions like find_a_file()
965 for (i
= 1; argv
[i
] != NULL
; i
++)
966 if (! strcmp (argv
[i
], "-debug"))
971 #ifndef DEFAULT_A_OUT_NAME
972 output_file
= "a.out";
974 output_file
= DEFAULT_A_OUT_NAME
;
977 obstack_begin (&temporary_obstack
, 0);
978 obstack_begin (&permanent_obstack
, 0);
979 temporary_firstobj
= (char *) obstack_alloc (&temporary_obstack
, 0);
981 current_demangling_style
= gnu_demangling
;
982 p
= getenv ("COLLECT_GCC_OPTIONS");
985 char *q
= extract_string (&p
);
986 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
989 obstack_free (&temporary_obstack
, temporary_firstobj
);
992 c_ptr
= c_argv
= (char **) xcalloc (sizeof (char *), num_c_args
);
995 fatal ("no arguments");
998 if (signal (SIGQUIT
, SIG_IGN
) != SIG_IGN
)
999 signal (SIGQUIT
, handler
);
1001 if (signal (SIGINT
, SIG_IGN
) != SIG_IGN
)
1002 signal (SIGINT
, handler
);
1004 if (signal (SIGALRM
, SIG_IGN
) != SIG_IGN
)
1005 signal (SIGALRM
, handler
);
1008 if (signal (SIGHUP
, SIG_IGN
) != SIG_IGN
)
1009 signal (SIGHUP
, handler
);
1011 if (signal (SIGSEGV
, SIG_IGN
) != SIG_IGN
)
1012 signal (SIGSEGV
, handler
);
1014 if (signal (SIGBUS
, SIG_IGN
) != SIG_IGN
)
1015 signal (SIGBUS
, handler
);
1018 /* Extract COMPILER_PATH and PATH into our prefix list. */
1019 prefix_from_env ("COMPILER_PATH", &cpath
);
1020 prefix_from_env ("PATH", &path
);
1022 #ifdef CROSS_COMPILE
1023 /* If we look for a program in the compiler directories, we just use
1024 the short name, since these directories are already system-specific.
1025 But it we look for a program in the system directories, we need to
1026 qualify the program name with the target machine. */
1029 = xcalloc (strlen (ld_suffix
) + strlen (target_machine
) + 2, 1);
1030 strcpy (full_ld_suffix
, target_machine
);
1031 strcat (full_ld_suffix
, "-");
1032 strcat (full_ld_suffix
, ld_suffix
);
1036 = xcalloc (strlen (gld_suffix
) + strlen (target_machine
) + 2, 1);
1037 strcpy (full_gld_suffix
, target_machine
);
1038 strcat (full_gld_suffix
, "-");
1039 strcat (full_gld_suffix
, gld_suffix
);
1043 = xcalloc (strlen (nm_suffix
) + strlen (target_machine
) + 2, 1);
1044 strcpy (full_nm_suffix
, target_machine
);
1045 strcat (full_nm_suffix
, "-");
1046 strcat (full_nm_suffix
, nm_suffix
);
1049 = xcalloc (strlen (gnm_suffix
) + strlen (target_machine
) + 2, 1);
1050 strcpy (full_gnm_suffix
, target_machine
);
1051 strcat (full_gnm_suffix
, "-");
1052 strcat (full_gnm_suffix
, gnm_suffix
);
1056 = xcalloc (strlen (ldd_suffix
) + strlen (target_machine
) + 2, 1);
1057 strcpy (full_ldd_suffix
, target_machine
);
1058 strcat (full_ldd_suffix
, "-");
1059 strcat (full_ldd_suffix
, ldd_suffix
);
1063 = xcalloc (strlen (strip_suffix
) + strlen (target_machine
) + 2, 1);
1064 strcpy (full_strip_suffix
, target_machine
);
1065 strcat (full_strip_suffix
, "-");
1066 strcat (full_strip_suffix
, strip_suffix
);
1069 = xcalloc (strlen (gstrip_suffix
) + strlen (target_machine
) + 2, 1);
1070 strcpy (full_gstrip_suffix
, target_machine
);
1071 strcat (full_gstrip_suffix
, "-");
1072 strcat (full_gstrip_suffix
, gstrip_suffix
);
1073 #endif /* CROSS_COMPILE */
1075 /* Try to discover a valid linker/nm/strip to use. */
1077 /* Maybe we know the right file to use (if not cross). */
1078 #ifdef REAL_LD_FILE_NAME
1079 ld_file_name
= find_a_file (&path
, REAL_LD_FILE_NAME
);
1080 if (ld_file_name
== 0)
1082 /* Search the (target-specific) compiler dirs for ld'. */
1083 ld_file_name
= find_a_file (&cpath
, real_ld_suffix
);
1084 /* Likewise for `collect-ld'. */
1085 if (ld_file_name
== 0)
1086 ld_file_name
= find_a_file (&cpath
, collect_ld_suffix
);
1087 /* Search the compiler directories for `ld'. We have protection against
1088 recursive calls in find_a_file. */
1089 if (ld_file_name
== 0)
1090 ld_file_name
= find_a_file (&cpath
, ld_suffix
);
1091 /* Search the ordinary system bin directories
1092 for `ld' (if native linking) or `TARGET-ld' (if cross). */
1093 if (ld_file_name
== 0)
1094 ld_file_name
= find_a_file (&path
, full_ld_suffix
);
1096 #ifdef REAL_NM_FILE_NAME
1097 nm_file_name
= find_a_file (&path
, REAL_NM_FILE_NAME
);
1098 if (nm_file_name
== 0)
1100 nm_file_name
= find_a_file (&cpath
, gnm_suffix
);
1101 if (nm_file_name
== 0)
1102 nm_file_name
= find_a_file (&path
, full_gnm_suffix
);
1103 if (nm_file_name
== 0)
1104 nm_file_name
= find_a_file (&cpath
, nm_suffix
);
1105 if (nm_file_name
== 0)
1106 nm_file_name
= find_a_file (&path
, full_nm_suffix
);
1109 ldd_file_name
= find_a_file (&cpath
, ldd_suffix
);
1110 if (ldd_file_name
== 0)
1111 ldd_file_name
= find_a_file (&path
, full_ldd_suffix
);
1114 #ifdef REAL_STRIP_FILE_NAME
1115 strip_file_name
= find_a_file (&path
, REAL_STRIP_FILE_NAME
);
1116 if (strip_file_name
== 0)
1118 strip_file_name
= find_a_file (&cpath
, gstrip_suffix
);
1119 if (strip_file_name
== 0)
1120 strip_file_name
= find_a_file (&path
, full_gstrip_suffix
);
1121 if (strip_file_name
== 0)
1122 strip_file_name
= find_a_file (&cpath
, strip_suffix
);
1123 if (strip_file_name
== 0)
1124 strip_file_name
= find_a_file (&path
, full_strip_suffix
);
1126 /* Determine the full path name of the C compiler to use. */
1127 c_file_name
= getenv ("COLLECT_GCC");
1128 if (c_file_name
== 0)
1130 #ifdef CROSS_COMPILE
1131 c_file_name
= xcalloc (sizeof ("gcc-") + strlen (target_machine
) + 1, 1);
1132 strcpy (c_file_name
, target_machine
);
1133 strcat (c_file_name
, "-gcc");
1135 c_file_name
= "gcc";
1139 p
= find_a_file (&cpath
, c_file_name
);
1141 /* Here it should be safe to use the system search path since we should have
1142 already qualified the name of the compiler when it is needed. */
1144 p
= find_a_file (&path
, c_file_name
);
1149 *ld1
++ = *ld2
++ = ld_file_name
;
1151 /* Make temp file names. */
1152 c_file
= make_temp_file (".c");
1153 o_file
= make_temp_file (".o");
1154 #ifdef COLLECT_EXPORT_LIST
1155 export_file
= make_temp_file (".x");
1156 import_file
= make_temp_file (".p");
1158 ldout
= make_temp_file (".ld");
1159 *c_ptr
++ = c_file_name
;
1166 #ifdef COLLECT_EXPORT_LIST
1167 /* Generate a list of directories from LIBPATH. */
1168 prefix_from_env ("LIBPATH", &libpath_lib_dirs
);
1169 /* Add to this list also two standard directories where
1170 AIX loader always searches for libraries. */
1171 add_prefix (&libpath_lib_dirs
, "/lib");
1172 add_prefix (&libpath_lib_dirs
, "/usr/lib");
1175 /* Get any options that the upper GCC wants to pass to the sub-GCC.
1177 AIX support needs to know if -shared has been specified before
1178 parsing commandline arguments. */
1180 p
= getenv ("COLLECT_GCC_OPTIONS");
1183 char *q
= extract_string (&p
);
1184 if (*q
== '-' && (q
[1] == 'm' || q
[1] == 'f'))
1185 *c_ptr
++ = obstack_copy0 (&permanent_obstack
, q
, strlen (q
));
1186 if (strncmp (q
, "-shared", sizeof ("-shared") - 1) == 0)
1189 obstack_free (&temporary_obstack
, temporary_firstobj
);
1190 *c_ptr
++ = "-fno-exceptions";
1192 /* !!! When GCC calls collect2,
1193 it does not know whether it is calling collect2 or ld.
1194 So collect2 cannot meaningfully understand any options
1195 except those ld understands.
1196 If you propose to make GCC pass some other option,
1197 just imagine what will happen if ld is really ld!!! */
1199 /* Parse arguments. Remember output file spec, pass the rest to ld. */
1200 /* After the first file, put in the c++ rt0. */
1203 while ((arg
= *++argv
) != (char *) 0)
1205 *ld1
++ = *ld2
++ = arg
;
1211 #ifdef COLLECT_EXPORT_LIST
1212 /* We want to disable automatic exports on AIX when user
1213 explicitly puts an export list in command line */
1215 if (arg
[2] == 'E' || strncmp (&arg
[2], "export", 6) == 0)
1221 if (!strcmp (arg
, "-debug"))
1223 /* Already parsed. */
1232 /* place o_file BEFORE this argument! */
1238 #ifdef COLLECT_EXPORT_LIST
1240 /* Resolving full library name. */
1241 char *s
= resolve_lib_name (arg
+2);
1243 /* If we will use an import list for this library,
1244 we should exclude it from ld args. */
1245 if (use_import_list (s
))
1251 /* Saving a full library name. */
1252 add_to_list (&libs
, s
);
1257 #ifdef COLLECT_EXPORT_LIST
1258 /* Saving directories where to search for libraries. */
1260 add_prefix (&cmdline_lib_dirs
, arg
+2);
1266 output_file
= *ld1
++ = *ld2
++ = *++argv
;
1268 output_file
= &arg
[2];
1277 if (arg
[2] == '\0' && do_collecting
)
1279 /* We must strip after the nm run, otherwise C++ linking
1280 will not work. Thus we strip in the second ld run, or
1281 else with strip if there is no second ld run. */
1293 else if ((p
= rindex (arg
, '.')) != (char *) 0
1294 && (strcmp (p
, ".o") == 0 || strcmp (p
, ".a") == 0
1295 || strcmp (p
, ".so") == 0))
1304 /* place o_file BEFORE this argument! */
1312 #ifdef COLLECT_EXPORT_LIST
1313 /* libraries can be specified directly, i.e. without -l flag. */
1316 /* If we will use an import list for this library,
1317 we should exclude it from ld args. */
1318 if (use_import_list (arg
))
1324 /* Saving a full library name. */
1325 add_to_list (&libs
, arg
);
1331 #ifdef COLLECT_EXPORT_LIST
1332 /* This is added only for debugging purposes. */
1335 fprintf (stderr
, "List of libraries:\n");
1336 dump_list (stderr
, "\t", libs
.first
);
1339 /* The AIX linker will discard static constructors in object files if
1340 nothing else in the file is referenced, so look at them first. */
1342 char **export_object_lst
= object_lst
;
1343 while (export_object_lst
< object
)
1344 scan_prog_file (*export_object_lst
++, PASS_OBJ
);
1347 struct id
*list
= libs
.first
;
1348 for (; list
; list
= list
->next
)
1349 scan_prog_file (list
->name
, PASS_FIRST
);
1352 char *buf1
= alloca (strlen (export_file
) + 5);
1353 char *buf2
= alloca (strlen (import_file
) + 5);
1354 sprintf (buf1
, "-bE:%s", export_file
);
1355 sprintf (buf2
, "-bI:%s", import_file
);
1360 exportf
= fopen (export_file
, "w");
1361 if (exportf
== (FILE *) 0)
1362 fatal_perror ("%s", export_file
);
1363 write_export_file (exportf
);
1364 if (fclose (exportf
))
1365 fatal_perror ("closing %s", export_file
);
1366 importf
= fopen (import_file
, "w");
1367 if (importf
== (FILE *) 0)
1368 fatal_perror ("%s", import_file
);
1369 write_import_file (importf
);
1370 if (fclose (importf
))
1371 fatal_perror ("closing %s", import_file
);
1376 *object
= *c_ptr
= *ld1
= (char *) 0;
1380 fprintf (stderr
, "collect2 version %s", version_string
);
1381 #ifdef TARGET_VERSION
1384 fprintf (stderr
, "\n");
1390 fprintf (stderr
, "ld_file_name = %s\n",
1391 (ld_file_name
? ld_file_name
: "not found"));
1392 fprintf (stderr
, "c_file_name = %s\n",
1393 (c_file_name
? c_file_name
: "not found"));
1394 fprintf (stderr
, "nm_file_name = %s\n",
1395 (nm_file_name
? nm_file_name
: "not found"));
1397 fprintf (stderr
, "ldd_file_name = %s\n",
1398 (ldd_file_name
? ldd_file_name
: "not found"));
1400 fprintf (stderr
, "strip_file_name = %s\n",
1401 (strip_file_name
? strip_file_name
: "not found"));
1402 fprintf (stderr
, "c_file = %s\n",
1403 (c_file
? c_file
: "not found"));
1404 fprintf (stderr
, "o_file = %s\n",
1405 (o_file
? o_file
: "not found"));
1407 ptr
= getenv ("COLLECT_GCC_OPTIONS");
1409 fprintf (stderr
, "COLLECT_GCC_OPTIONS = %s\n", ptr
);
1411 ptr
= getenv ("COLLECT_GCC");
1413 fprintf (stderr
, "COLLECT_GCC = %s\n", ptr
);
1415 ptr
= getenv ("COMPILER_PATH");
1417 fprintf (stderr
, "COMPILER_PATH = %s\n", ptr
);
1419 ptr
= getenv ("LIBRARY_PATH");
1421 fprintf (stderr
, "LIBRARY_PATH = %s\n", ptr
);
1423 fprintf (stderr
, "\n");
1426 /* Load the program, searching all libraries and attempting to provide
1427 undefined symbols from repository information. */
1429 /* On AIX we do this later. */
1430 #ifndef COLLECT_EXPORT_LIST
1431 do_tlink (ld1_argv
, object_lst
);
1434 /* If -r or they will be run via some other method, do not build the
1435 constructor or destructor list, just return now. */
1437 #ifndef COLLECT_EXPORT_LIST
1442 #ifdef COLLECT_EXPORT_LIST
1443 /* But make sure we delete the export file we may have created. */
1444 if (export_file
!= 0 && export_file
[0])
1445 maybe_unlink (export_file
);
1446 if (import_file
!= 0 && import_file
[0])
1447 maybe_unlink (import_file
);
1449 maybe_unlink (c_file
);
1450 maybe_unlink (o_file
);
1454 /* Examine the namelist with nm and search it for static constructors
1455 and destructors to call.
1456 Write the constructor and destructor tables to a .s file and reload. */
1458 /* On AIX we already done scanning for global constructors/destructors. */
1459 #ifndef COLLECT_EXPORT_LIST
1460 scan_prog_file (output_file
, PASS_FIRST
);
1463 #ifdef SCAN_LIBRARIES
1464 scan_libraries (output_file
);
1469 fprintf (stderr
, "%d constructor(s) found\n", constructors
.number
);
1470 fprintf (stderr
, "%d destructor(s) found\n", destructors
.number
);
1473 if (constructors
.number
== 0 && destructors
.number
== 0
1474 && frame_tables
.number
== 0
1475 #if defined (SCAN_LIBRARIES) || defined (COLLECT_EXPORT_LIST)
1476 /* If we will be running these functions ourselves, we want to emit
1477 stubs into the shared library so that we do not have to relink
1478 dependent programs when we add static objects. */
1483 #ifdef COLLECT_EXPORT_LIST
1484 /* Doing tlink without additional code generation */
1485 do_tlink (ld1_argv
, object_lst
);
1487 /* Strip now if it was requested on the command line. */
1490 char **strip_argv
= (char **) xcalloc (sizeof (char *), 3);
1491 strip_argv
[0] = strip_file_name
;
1492 strip_argv
[1] = output_file
;
1493 strip_argv
[2] = (char *) 0;
1494 fork_execute ("strip", strip_argv
);
1497 #ifdef COLLECT_EXPORT_LIST
1498 maybe_unlink (export_file
);
1499 maybe_unlink (import_file
);
1501 maybe_unlink (c_file
);
1502 maybe_unlink (o_file
);
1506 /* Sort ctor and dtor lists by priority. */
1507 sort_ids (&constructors
);
1508 sort_ids (&destructors
);
1510 maybe_unlink(output_file
);
1511 outf
= fopen (c_file
, "w");
1512 if (outf
== (FILE *) 0)
1513 fatal_perror ("%s", c_file
);
1515 write_c_file (outf
, c_file
);
1518 fatal_perror ("closing %s", c_file
);
1520 /* Tell the linker that we have initializer and finalizer functions. */
1521 #ifdef LD_INIT_SWITCH
1522 *ld2
++ = LD_INIT_SWITCH
;
1524 *ld2
++ = LD_FINI_SWITCH
;
1529 #ifdef COLLECT_EXPORT_LIST
1532 add_to_list (&exports
, initname
);
1533 add_to_list (&exports
, fininame
);
1534 add_to_list (&exports
, "_GLOBAL__DI");
1535 add_to_list (&exports
, "_GLOBAL__DD");
1536 exportf
= fopen (export_file
, "w");
1537 if (exportf
== (FILE *) 0)
1538 fatal_perror ("%s", export_file
);
1539 write_export_file (exportf
);
1540 if (fclose (exportf
))
1541 fatal_perror ("closing %s", export_file
);
1547 fprintf (stderr
, "\n========== output_file = %s, c_file = %s\n",
1548 output_file
, c_file
);
1549 write_c_file (stderr
, "stderr");
1550 fprintf (stderr
, "========== end of c_file\n\n");
1551 #ifdef COLLECT_EXPORT_LIST
1552 fprintf (stderr
, "\n========== export_file = %s\n", export_file
);
1553 write_export_file (stderr
);
1554 fprintf (stderr
, "========== end of export_file\n\n");
1558 /* Assemble the constructor and destructor tables.
1559 Link the tables in with the rest of the program. */
1561 fork_execute ("gcc", c_argv
);
1562 #ifdef COLLECT_EXPORT_LIST
1563 /* On AIX we must call tlink because of possible templates resolution */
1564 do_tlink (ld2_argv
, object_lst
);
1566 /* Otherwise, simply call ld because tlink is already done */
1567 fork_execute ("ld", ld2_argv
);
1569 /* Let scan_prog_file do any final mods (OSF/rose needs this for
1570 constructors/destructors in shared libraries. */
1571 scan_prog_file (output_file
, PASS_SECOND
);
1574 maybe_unlink (c_file
);
1575 maybe_unlink (o_file
);
1577 #ifdef COLLECT_EXPORT_LIST
1578 maybe_unlink (export_file
);
1579 maybe_unlink (import_file
);
1586 /* Wait for a process to finish, and exit if a non-zero status is found. */
1597 if (WIFSIGNALED (status
))
1599 int sig
= WTERMSIG (status
);
1600 error ("%s terminated with signal %d [%s]%s",
1604 (status
& 0200) ? ", core dumped" : "");
1606 collect_exit (FATAL_EXIT_CODE
);
1609 if (WIFEXITED (status
))
1610 return WEXITSTATUS (status
);
1619 int ret
= collect_wait (prog
);
1622 error ("%s returned %d exit status", prog
, ret
);
1628 /* Fork and execute a program, and wait for the reply. */
1631 collect_execute (prog
, argv
, redir
)
1644 fprintf (stderr
, "%s", argv
[0]);
1646 fprintf (stderr
, "[cannot find %s]", prog
);
1648 for (p_argv
= &argv
[1]; (str
= *p_argv
) != (char *) 0; p_argv
++)
1649 fprintf (stderr
, " %s", str
);
1651 fprintf (stderr
, "\n");
1657 /* If we cannot find a program we need, complain error. Do this here
1658 since we might not end up needing something that we could not find. */
1661 fatal ("cannot find `%s'", prog
);
1663 #ifndef __CYGWIN32__
1668 fatal_perror ("fork");
1670 fatal_perror ("vfork");
1674 if (pid
== 0) /* child context */
1679 if (freopen (redir
, "a", stdout
) == NULL
)
1680 fatal_perror ("redirecting stdout: %s", redir
);
1681 if (freopen (redir
, "a", stderr
) == NULL
)
1682 fatal_perror ("redirecting stderr: %s", redir
);
1685 execvp (argv
[0], argv
);
1686 fatal_perror ("executing %s", prog
);
1689 pid
= _spawnvp (_P_NOWAIT
, argv
[0], argv
);
1691 fatal ("spawnvp failed");
1696 fork_execute (prog
, argv
)
1700 collect_execute (prog
, argv
, NULL
);
1704 /* Unlink a file unless we are debugging. */
1713 fprintf (stderr
, "[Leaving %s]\n", file
);
1717 static long sequence_number
= 0;
1719 /* Add a name to a linked list. */
1722 add_to_list (head_ptr
, name
)
1723 struct head
*head_ptr
;
1727 = (struct id
*) xcalloc (sizeof (struct id
) + strlen (name
), 1);
1729 strcpy (newid
->name
, name
);
1731 if (head_ptr
->first
)
1732 head_ptr
->last
->next
= newid
;
1734 head_ptr
->first
= newid
;
1736 /* Check for duplicate symbols. */
1737 for (p
= head_ptr
->first
;
1738 strcmp (name
, p
->name
) != 0;
1743 head_ptr
->last
->next
= 0;
1748 newid
->sequence
= ++sequence_number
;
1749 head_ptr
->last
= newid
;
1753 /* Grab the init priority number from an init function name that
1754 looks like "_GLOBAL_.I.12345.foo". */
1757 extract_init_priority (name
)
1762 while (name
[pos
] == '_')
1764 pos
+= 10; /* strlen ("GLOBAL__X_") */
1766 /* Extract init_p number from ctor/dtor name. */
1767 return atoi (name
+ pos
);
1770 /* Insertion sort the ids from ctor/dtor list HEAD_PTR in descending order.
1771 ctors will be run from right to left, dtors from left to right. */
1775 struct head
*head_ptr
;
1777 /* id holds the current element to insert. id_next holds the next
1778 element to insert. id_ptr iterates through the already sorted elements
1779 looking for the place to insert id. */
1780 struct id
*id
, *id_next
, **id_ptr
;
1783 id
= head_ptr
->first
;
1785 /* We don't have any sorted elements yet. */
1786 head_ptr
->first
= NULL
;
1788 for (; id
; id
= id_next
)
1791 id
->sequence
= extract_init_priority (id
->name
);
1793 for (id_ptr
= &(head_ptr
->first
); ; id_ptr
= &((*id_ptr
)->next
))
1795 /* If the sequence numbers are the same, we put the id from the
1796 file later on the command line later in the list. */
1797 || id
->sequence
> (*id_ptr
)->sequence
1798 /* Hack: do lexical compare, too.
1799 || (id->sequence == (*id_ptr)->sequence
1800 && strcmp (id->name, (*id_ptr)->name) > 0) */
1809 /* Now set the sequence numbers properly so write_c_file works. */
1810 for (id
= head_ptr
->first
; id
; id
= id
->next
)
1811 id
->sequence
= ++sequence_number
;
1814 /* Write: `prefix', the names on list LIST, `suffix'. */
1817 write_list (stream
, prefix
, list
)
1824 fprintf (stream
, "%sx%d,\n", prefix
, list
->sequence
);
1829 #ifdef COLLECT_EXPORT_LIST
1830 /* This function is really used only on AIX, but may be useful. */
1832 is_in_list (prefix
, list
)
1838 if (!strcmp (prefix
, list
->name
)) return 1;
1845 /* Added for debugging purpose. */
1846 #ifdef COLLECT_EXPORT_LIST
1848 dump_list (stream
, prefix
, list
)
1855 fprintf (stream
, "%s%s,\n", prefix
, list
->name
);
1863 dump_prefix_list (stream
, prefix
, list
)
1866 struct prefix_list
*list
;
1870 fprintf (stream
, "%s%s,\n", prefix
, list
->prefix
);
1877 write_list_with_asm (stream
, prefix
, list
)
1884 fprintf (stream
, "%sx%d __asm__ (\"%s\");\n",
1885 prefix
, list
->sequence
, list
->name
);
1890 /* Write out the constructor and destructor tables statically (for a shared
1891 object), along with the functions to execute them. */
1894 write_c_file_stat (stream
, name
)
1898 char *prefix
, *p
, *q
;
1899 int frames
= (frame_tables
.number
> 0);
1901 /* Figure out name of output_file, stripping off .so version. */
1902 p
= rindex (output_file
, '/');
1904 p
= (char *) output_file
;
1918 if (strncmp (q
, ".so", 3) == 0)
1927 /* q points to null at end of the string (or . of the .so version) */
1928 prefix
= xmalloc (q
- p
+ 1);
1929 strncpy (prefix
, p
, q
- p
);
1931 for (q
= prefix
; *q
; q
++)
1935 fprintf (stderr
, "\nwrite_c_file - output name is %s, prefix is %s\n",
1936 output_file
, prefix
);
1938 #define INIT_NAME_FORMAT "_GLOBAL__FI_%s"
1939 initname
= xmalloc (strlen (prefix
) + sizeof (INIT_NAME_FORMAT
) - 2);
1940 sprintf (initname
, INIT_NAME_FORMAT
, prefix
);
1942 #define FINI_NAME_FORMAT "_GLOBAL__FD_%s"
1943 fininame
= xmalloc (strlen (prefix
) + sizeof (FINI_NAME_FORMAT
) - 2);
1944 sprintf (fininame
, FINI_NAME_FORMAT
, prefix
);
1948 /* Write the tables as C code */
1950 fprintf (stream
, "static int count;\n");
1951 fprintf (stream
, "typedef void entry_pt();\n");
1952 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
1956 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
1958 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
1959 write_list (stream
, "\t\t&", frame_tables
.first
);
1960 fprintf (stream
, "\t0\n};\n");
1962 /* This must match what's in frame.h. */
1963 fprintf (stream
, "struct object {\n");
1964 fprintf (stream
, " void *pc_begin;\n");
1965 fprintf (stream
, " void *pc_end;\n");
1966 fprintf (stream
, " void *fde_begin;\n");
1967 fprintf (stream
, " void *fde_array;\n");
1968 fprintf (stream
, " __SIZE_TYPE__ count;\n");
1969 fprintf (stream
, " struct object *next;\n");
1970 fprintf (stream
, "};\n");
1972 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
1973 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
1975 fprintf (stream
, "static void reg_frame () {\n");
1976 fprintf (stream
, "\tstatic struct object ob;\n");
1977 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
1978 fprintf (stream
, "\t}\n");
1980 fprintf (stream
, "static void dereg_frame () {\n");
1981 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
1982 fprintf (stream
, "\t}\n");
1985 fprintf (stream
, "void %s() {\n", initname
);
1986 if (constructors
.number
> 0 || frames
)
1988 fprintf (stream
, "\tstatic entry_pt *ctors[] = {\n");
1989 write_list (stream
, "\t\t", constructors
.first
);
1991 fprintf (stream
, "\treg_frame,\n");
1992 fprintf (stream
, "\t};\n");
1993 fprintf (stream
, "\tentry_pt **p;\n");
1994 fprintf (stream
, "\tif (count++ != 0) return;\n");
1995 fprintf (stream
, "\tp = ctors + %d;\n", constructors
.number
+ frames
);
1996 fprintf (stream
, "\twhile (p > ctors) (*--p)();\n");
1999 fprintf (stream
, "\t++count;\n");
2000 fprintf (stream
, "}\n");
2001 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2002 fprintf (stream
, "void %s() {\n", fininame
);
2003 if (destructors
.number
> 0 || frames
)
2005 fprintf (stream
, "\tstatic entry_pt *dtors[] = {\n");
2006 write_list (stream
, "\t\t", destructors
.first
);
2008 fprintf (stream
, "\tdereg_frame,\n");
2009 fprintf (stream
, "\t};\n");
2010 fprintf (stream
, "\tentry_pt **p;\n");
2011 fprintf (stream
, "\tif (--count != 0) return;\n");
2012 fprintf (stream
, "\tp = dtors;\n");
2013 fprintf (stream
, "\twhile (p < dtors + %d) (*p++)();\n",
2014 destructors
.number
+ frames
);
2016 fprintf (stream
, "}\n");
2020 fprintf (stream
, "void _GLOBAL__DI() {\n\t%s();\n}\n", initname
);
2021 fprintf (stream
, "void _GLOBAL__DD() {\n\t%s();\n}\n", fininame
);
2025 /* Write the constructor/destructor tables. */
2027 #ifndef LD_INIT_SWITCH
2029 write_c_file_glob (stream
, name
)
2033 /* Write the tables as C code */
2035 int frames
= (frame_tables
.number
> 0);
2037 fprintf (stream
, "typedef void entry_pt();\n\n");
2039 write_list_with_asm (stream
, "extern entry_pt ", constructors
.first
);
2043 write_list_with_asm (stream
, "extern void *", frame_tables
.first
);
2045 fprintf (stream
, "\tstatic void *frame_table[] = {\n");
2046 write_list (stream
, "\t\t&", frame_tables
.first
);
2047 fprintf (stream
, "\t0\n};\n");
2049 /* This must match what's in frame.h. */
2050 fprintf (stream
, "struct object {\n");
2051 fprintf (stream
, " void *pc_begin;\n");
2052 fprintf (stream
, " void *pc_end;\n");
2053 fprintf (stream
, " void *fde_begin;\n");
2054 fprintf (stream
, " void *fde_array;\n");
2055 fprintf (stream
, " __SIZE_TYPE__ count;\n");
2056 fprintf (stream
, " struct object *next;\n");
2057 fprintf (stream
, "};\n");
2059 fprintf (stream
, "extern void __register_frame_info_table (void *, struct object *);\n");
2060 fprintf (stream
, "extern void *__deregister_frame_info (void *);\n");
2062 fprintf (stream
, "static void reg_frame () {\n");
2063 fprintf (stream
, "\tstatic struct object ob;\n");
2064 fprintf (stream
, "\t__register_frame_info_table (frame_table, &ob);\n");
2065 fprintf (stream
, "\t}\n");
2067 fprintf (stream
, "static void dereg_frame () {\n");
2068 fprintf (stream
, "\t__deregister_frame_info (frame_table);\n");
2069 fprintf (stream
, "\t}\n");
2072 fprintf (stream
, "\nentry_pt * __CTOR_LIST__[] = {\n");
2073 fprintf (stream
, "\t(entry_pt *) %d,\n", constructors
.number
+ frames
);
2074 write_list (stream
, "\t", constructors
.first
);
2076 fprintf (stream
, "\treg_frame,\n");
2077 fprintf (stream
, "\t0\n};\n\n");
2079 write_list_with_asm (stream
, "extern entry_pt ", destructors
.first
);
2081 fprintf (stream
, "\nentry_pt * __DTOR_LIST__[] = {\n");
2082 fprintf (stream
, "\t(entry_pt *) %d,\n", destructors
.number
+ frames
);
2083 write_list (stream
, "\t", destructors
.first
);
2085 fprintf (stream
, "\tdereg_frame,\n");
2086 fprintf (stream
, "\t0\n};\n\n");
2088 fprintf (stream
, "extern entry_pt %s;\n", NAME__MAIN
);
2089 fprintf (stream
, "entry_pt *__main_reference = %s;\n\n", NAME__MAIN
);
2091 #endif /* ! LD_INIT_SWITCH */
2094 write_c_file (stream
, name
)
2098 fprintf (stream
, "#ifdef __cplusplus\nextern \"C\" {\n#endif\n");
2099 #ifndef LD_INIT_SWITCH
2101 write_c_file_glob (stream
, name
);
2104 write_c_file_stat (stream
, name
);
2105 fprintf (stream
, "#ifdef __cplusplus\n}\n#endif\n");
2108 #ifdef COLLECT_EXPORT_LIST
2110 write_export_file (stream
)
2113 struct id
*list
= exports
.first
;
2114 for (; list
; list
= list
->next
)
2115 fprintf (stream
, "%s\n", list
->name
);
2119 write_import_file (stream
)
2122 struct id
*list
= imports
.first
;
2123 fprintf (stream
, "%s\n", "#! .");
2124 for (; list
; list
= list
->next
)
2125 fprintf (stream
, "%s\n", list
->name
);
2129 #ifdef OBJECT_FORMAT_NONE
2131 /* Generic version to scan the name list of the loaded program for
2132 the symbols g++ uses for static constructors and destructors.
2134 The constructor table begins at __CTOR_LIST__ and contains a count
2135 of the number of pointers (or -1 if the constructors are built in a
2136 separate section by the linker), followed by the pointers to the
2137 constructor functions, terminated with a null pointer. The
2138 destructor table has the same format, and begins at __DTOR_LIST__. */
2141 scan_prog_file (prog_name
, which_pass
)
2143 enum pass which_pass
;
2145 void (*int_handler
) ();
2146 void (*quit_handler
) ();
2154 if (which_pass
== PASS_SECOND
)
2157 /* If we do not have an `nm', complain. */
2158 if (nm_file_name
== 0)
2159 fatal ("cannot find `nm'");
2161 nm_argv
[argc
++] = nm_file_name
;
2162 if (NM_FLAGS
[0] != '\0')
2163 nm_argv
[argc
++] = NM_FLAGS
;
2165 nm_argv
[argc
++] = prog_name
;
2166 nm_argv
[argc
++] = (char *) 0;
2168 if (pipe (pipe_fd
) < 0)
2169 fatal_perror ("pipe");
2171 inf
= fdopen (pipe_fd
[0], "r");
2172 if (inf
== (FILE *) 0)
2173 fatal_perror ("fdopen");
2175 /* Trace if needed. */
2181 for (p_argv
= &nm_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2182 fprintf (stderr
, " %s", str
);
2184 fprintf (stderr
, "\n");
2190 /* Spawn child nm on pipe */
2195 fatal_perror ("fork");
2197 fatal_perror ("vfork");
2201 if (pid
== 0) /* child context */
2204 if (dup2 (pipe_fd
[1], 1) < 0)
2205 fatal_perror ("dup2 (%d, 1)", pipe_fd
[1]);
2207 if (close (pipe_fd
[0]) < 0)
2208 fatal_perror ("close (%d)", pipe_fd
[0]);
2210 if (close (pipe_fd
[1]) < 0)
2211 fatal_perror ("close (%d)", pipe_fd
[1]);
2213 execv (nm_file_name
, nm_argv
);
2214 fatal_perror ("executing %s", nm_file_name
);
2217 /* Parent context from here on. */
2218 int_handler
= (void (*) ())signal (SIGINT
, SIG_IGN
);
2220 quit_handler
= (void (*) ())signal (SIGQUIT
, SIG_IGN
);
2223 if (close (pipe_fd
[1]) < 0)
2224 fatal_perror ("close (%d)", pipe_fd
[1]);
2227 fprintf (stderr
, "\nnm output with constructors/destructors.\n");
2229 /* Read each line of nm output. */
2230 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2235 /* If it contains a constructor or destructor name, add the name
2236 to the appropriate list. */
2238 for (p
= buf
; (ch
= *p
) != '\0' && ch
!= '\n' && ch
!= '_'; p
++)
2239 if (ch
== ' ' && p
[1] == 'U' && p
[2] == ' ')
2246 /* Find the end of the symbol name.
2247 Do not include `|', because Encore nm can tack that on the end. */
2248 for (end
= p
; (ch2
= *end
) != '\0' && !ISSPACE (ch2
) && ch2
!= '|';
2254 switch (is_ctor_dtor (name
))
2257 if (which_pass
!= PASS_LIB
)
2258 add_to_list (&constructors
, name
);
2262 if (which_pass
!= PASS_LIB
)
2263 add_to_list (&destructors
, name
);
2267 if (which_pass
!= PASS_LIB
)
2268 fatal ("init function found in object %s", prog_name
);
2269 #ifndef LD_INIT_SWITCH
2270 add_to_list (&constructors
, name
);
2275 if (which_pass
!= PASS_LIB
)
2276 fatal ("fini function found in object %s", prog_name
);
2277 #ifndef LD_FINI_SWITCH
2278 add_to_list (&destructors
, name
);
2283 if (which_pass
!= PASS_LIB
)
2284 add_to_list (&frame_tables
, name
);
2286 default: /* not a constructor or destructor */
2291 fprintf (stderr
, "\t%s\n", buf
);
2295 fprintf (stderr
, "\n");
2297 if (fclose (inf
) != 0)
2298 fatal_perror ("fclose of pipe");
2300 do_wait (nm_file_name
);
2302 signal (SIGINT
, int_handler
);
2304 signal (SIGQUIT
, quit_handler
);
2308 #if SUNOS4_SHARED_LIBRARIES
2310 /* Routines to scan the SunOS 4 _DYNAMIC structure to find shared libraries
2311 that the output file depends upon and their initialization/finalization
2312 routines, if any. */
2317 #include <sys/mman.h>
2318 #include <sys/param.h>
2320 #include <sys/dir.h>
2322 /* pointers to the object file */
2323 unsigned object
; /* address of memory mapped file */
2324 unsigned objsize
; /* size of memory mapped to file */
2325 char * code
; /* pointer to code segment */
2326 char * data
; /* pointer to data segment */
2327 struct nlist
*symtab
; /* pointer to symbol table */
2328 struct link_dynamic
*ld
;
2329 struct link_dynamic_2
*ld_2
;
2330 struct head libraries
;
2332 /* Map the file indicated by NAME into memory and store its address. */
2340 if ((fp
= open (name
, O_RDONLY
)) == -1)
2341 fatal ("unable to open file '%s'", name
);
2342 if (fstat (fp
, &s
) == -1)
2343 fatal ("unable to stat file '%s'", name
);
2345 objsize
= s
.st_size
;
2346 object
= (unsigned) mmap (0, objsize
, PROT_READ
|PROT_WRITE
, MAP_PRIVATE
,
2349 fatal ("unable to mmap file '%s'", name
);
2354 /* Helpers for locatelib. */
2356 static char *libname
;
2362 return (strncmp (libname
, d
->d_name
, strlen (libname
)) == 0);
2365 /* If one file has an additional numeric extension past LIBNAME, then put
2366 that one first in the sort. If both files have additional numeric
2367 extensions, then put the one with the higher number first in the sort.
2369 We must verify that the extension is numeric, because Sun saves the
2370 original versions of patched libraries with a .FCS extension. Files with
2371 invalid extensions must go last in the sort, so that they will not be used. */
2375 struct direct
**d1
, **d2
;
2377 int i1
, i2
= strlen (libname
);
2378 char *e1
= (*d1
)->d_name
+ i2
;
2379 char *e2
= (*d2
)->d_name
+ i2
;
2381 while (*e1
&& *e2
&& *e1
== '.' && *e2
== '.'
2382 && e1
[1] && ISDIGIT (e1
[1]) && e2
[1] && ISDIGIT (e2
[1]))
2386 i1
= strtol (e1
, &e1
, 10);
2387 i2
= strtol (e2
, &e2
, 10);
2394 /* It has a valid numeric extension, prefer this one. */
2395 if (*e1
== '.' && e1
[1] && ISDIGIT (e1
[1]))
2397 /* It has a invalid numeric extension, must prefer the other one. */
2403 /* It has a valid numeric extension, prefer this one. */
2404 if (*e2
== '.' && e2
[1] && ISDIGIT (e2
[1]))
2406 /* It has a invalid numeric extension, must prefer the other one. */
2414 /* Given the name NAME of a dynamic dependency, find its pathname and add
2415 it to the list of libraries. */
2423 char buf
[MAXPATHLEN
];
2431 /* counting elements in array, need 1 extra for null */
2433 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2437 for (; *ld_rules
!= 0; ld_rules
++)
2438 if (*ld_rules
== ':')
2440 ld_rules
= (char *) (ld_2
->ld_rules
+ code
);
2441 ldr
= (char *) malloc (strlen (ld_rules
) + 1);
2442 strcpy (ldr
, ld_rules
);
2444 p
= getenv ("LD_LIBRARY_PATH");
2449 for (q
= p
; *q
!= 0; q
++)
2452 q
= (char *) malloc (strlen (p
) + 1);
2455 l
= (char **) malloc ((cnt
+ 3) * sizeof (char *));
2460 for (; *ldr
!= 0; ldr
++)
2470 for (; *q
!= 0; q
++)
2477 /* built in directories are /lib, /usr/lib, and /usr/local/lib */
2480 *pp
++ = "/usr/local/lib";
2484 for (pp
= l
; *pp
!= 0 ; pp
++)
2486 struct direct
**namelist
;
2488 if ((entries
= scandir (*pp
, &namelist
, libselect
, libcompare
)) > 0)
2490 sprintf (buf
, "%s/%s", *pp
, namelist
[entries
- 1]->d_name
);
2491 add_to_list (&libraries
, buf
);
2493 fprintf (stderr
, "%s\n", buf
);
2500 fprintf (stderr
, "not found\n");
2502 fatal ("dynamic dependency %s not found", name
);
2506 /* Scan the _DYNAMIC structure of the output file to find shared libraries
2507 that it depends upon and any constructors or destructors they contain. */
2510 scan_libraries (prog_name
)
2513 struct exec
*header
;
2515 struct link_object
*lo
;
2516 char buff
[MAXPATHLEN
];
2519 mapfile (prog_name
);
2520 header
= (struct exec
*)object
;
2521 if (N_BADMAG (*header
))
2522 fatal ("bad magic number in file '%s'", prog_name
);
2523 if (header
->a_dynamic
== 0)
2526 code
= (char *) (N_TXTOFF (*header
) + (long) header
);
2527 data
= (char *) (N_DATOFF (*header
) + (long) header
);
2528 symtab
= (struct nlist
*) (N_SYMOFF (*header
) + (long) header
);
2530 if (header
->a_magic
== ZMAGIC
&& header
->a_entry
== 0x20)
2533 ld
= (struct link_dynamic
*) (symtab
->n_value
+ code
);
2539 ld
= (struct link_dynamic
*) data
;
2544 fprintf (stderr
, "dynamic dependencies.\n");
2546 ld_2
= (struct link_dynamic_2
*) ((long) ld
->ld_un
.ld_2
+ (long)base
);
2547 for (lo
= (struct link_object
*) ld_2
->ld_need
; lo
;
2548 lo
= (struct link_object
*) lo
->lo_next
)
2551 lo
= (struct link_object
*) ((long) lo
+ code
);
2552 name
= (char *) (code
+ lo
->lo_name
);
2556 fprintf (stderr
, "\t-l%s.%d => ", name
, lo
->lo_major
);
2557 sprintf (buff
, "lib%s.so.%d.%d", name
, lo
->lo_major
, lo
->lo_minor
);
2563 fprintf (stderr
, "\t%s\n", name
);
2564 add_to_list (&libraries
, name
);
2569 fprintf (stderr
, "\n");
2571 /* now iterate through the library list adding their symbols to
2573 for (list
= libraries
.first
; list
; list
= list
->next
)
2574 scan_prog_file (list
->name
, PASS_LIB
);
2577 #else /* SUNOS4_SHARED_LIBRARIES */
2580 /* Use the List Dynamic Dependencies program to find shared libraries that
2581 the output file depends upon and their initialization/finalization
2582 routines, if any. */
2585 scan_libraries (prog_name
)
2588 static struct head libraries
; /* list of shared libraries found */
2590 void (*int_handler
) ();
2591 void (*quit_handler
) ();
2599 /* If we do not have an `ldd', complain. */
2600 if (ldd_file_name
== 0)
2602 error ("cannot find `ldd'");
2606 ldd_argv
[argc
++] = ldd_file_name
;
2607 ldd_argv
[argc
++] = prog_name
;
2608 ldd_argv
[argc
++] = (char *) 0;
2610 if (pipe (pipe_fd
) < 0)
2611 fatal_perror ("pipe");
2613 inf
= fdopen (pipe_fd
[0], "r");
2614 if (inf
== (FILE *) 0)
2615 fatal_perror ("fdopen");
2617 /* Trace if needed. */
2623 for (p_argv
= &ldd_argv
[0]; (str
= *p_argv
) != (char *) 0; p_argv
++)
2624 fprintf (stderr
, " %s", str
);
2626 fprintf (stderr
, "\n");
2632 /* Spawn child ldd on pipe */
2637 fatal_perror ("fork");
2639 fatal_perror ("vfork");
2643 if (pid
== 0) /* child context */
2646 if (dup2 (pipe_fd
[1], 1) < 0)
2647 fatal_perror ("dup2 (%d, 1)", pipe_fd
[1]);
2649 if (close (pipe_fd
[0]) < 0)
2650 fatal_perror ("close (%d)", pipe_fd
[0]);
2652 if (close (pipe_fd
[1]) < 0)
2653 fatal_perror ("close (%d)", pipe_fd
[1]);
2655 execv (ldd_file_name
, ldd_argv
);
2656 fatal_perror ("executing %s", ldd_file_name
);
2659 /* Parent context from here on. */
2660 int_handler
= (void (*) ()) signal (SIGINT
, SIG_IGN
);
2662 quit_handler
= (void (*) ()) signal (SIGQUIT
, SIG_IGN
);
2665 if (close (pipe_fd
[1]) < 0)
2666 fatal_perror ("close (%d)", pipe_fd
[1]);
2669 fprintf (stderr
, "\nldd output with constructors/destructors.\n");
2671 /* Read each line of ldd output. */
2672 while (fgets (buf
, sizeof buf
, inf
) != (char *) 0)
2675 char *name
, *end
, *p
= buf
;
2677 /* Extract names of libraries and add to list. */
2678 PARSE_LDD_OUTPUT (p
);
2683 if (strncmp (name
, "not found", sizeof ("not found") - 1) == 0)
2684 fatal ("dynamic dependency %s not found", buf
);
2686 /* Find the end of the symbol name. */
2688 (ch2
= *end
) != '\0' && ch2
!= '\n' && !ISSPACE (ch2
) && ch2
!= '|';
2693 if (access (name
, R_OK
) == 0)
2694 add_to_list (&libraries
, name
);
2696 fatal ("unable to open dynamic dependency '%s'", buf
);
2699 fprintf (stderr
, "\t%s\n", buf
);
2702 fprintf (stderr
, "\n");
2704 if (fclose (inf
) != 0)
2705 fatal_perror ("fclose of pipe");
2707 do_wait (ldd_file_name
);
2709 signal (SIGINT
, int_handler
);
2711 signal (SIGQUIT
, quit_handler
);
2714 /* now iterate through the library list adding their symbols to
2716 for (list
= libraries
.first
; list
; list
= list
->next
)
2717 scan_prog_file (list
->name
, PASS_LIB
);
2720 #endif /* LDD_SUFFIX */
2721 #endif /* SUNOS4_SHARED_LIBRARIES */
2723 #endif /* OBJECT_FORMAT_NONE */
2727 * COFF specific stuff.
2730 #ifdef OBJECT_FORMAT_COFF
2732 #if defined(EXTENDED_COFF)
2733 # define GCC_SYMBOLS(X) (SYMHEADER(X).isymMax + SYMHEADER(X).iextMax)
2734 # define GCC_SYMENT SYMR
2735 # define GCC_OK_SYMBOL(X) ((X).st == stProc && (X).sc == scText)
2736 # define GCC_SYMINC(X) (1)
2737 # define GCC_SYMZERO(X) (SYMHEADER(X).isymMax)
2738 # define GCC_CHECK_HDR(X) (PSYMTAB(X) != 0)
2740 # define GCC_SYMBOLS(X) (HEADER(ldptr).f_nsyms)
2741 # define GCC_SYMENT SYMENT
2742 # define GCC_OK_SYMBOL(X) \
2743 (((X).n_sclass == C_EXT) && \
2744 ((X).n_scnum > N_UNDEF) && \
2745 (((X).n_type & N_TMASK) == (DT_NON << N_BTSHFT) || \
2746 ((X).n_type & N_TMASK) == (DT_FCN << N_BTSHFT)))
2747 # define GCC_UNDEF_SYMBOL(X) \
2748 (((X).n_sclass == C_EXT) && ((X).n_scnum == N_UNDEF))
2749 # define GCC_SYMINC(X) ((X).n_numaux+1)
2750 # define GCC_SYMZERO(X) 0
2751 # define GCC_CHECK_HDR(X) (1)
2754 extern char *ldgetname ();
2756 /* COFF version to scan the name list of the loaded program for
2757 the symbols g++ uses for static constructors and destructors.
2759 The constructor table begins at __CTOR_LIST__ and contains a count
2760 of the number of pointers (or -1 if the constructors are built in a
2761 separate section by the linker), followed by the pointers to the
2762 constructor functions, terminated with a null pointer. The
2763 destructor table has the same format, and begins at __DTOR_LIST__. */
2766 scan_prog_file (prog_name
, which_pass
)
2768 enum pass which_pass
;
2770 LDFILE
*ldptr
= NULL
;
2771 int sym_index
, sym_count
;
2773 #ifdef COLLECT_EXPORT_LIST
2774 /* Should we generate an import list for given prog_name? */
2775 int import_flag
= (which_pass
== PASS_OBJ
? 0 : use_import_list (prog_name
));
2778 if (which_pass
!= PASS_FIRST
&& which_pass
!= PASS_OBJ
)
2781 #ifdef COLLECT_EXPORT_LIST
2782 /* We do not need scanning for some standard C libraries. */
2783 if (which_pass
== PASS_FIRST
&& ignore_library (prog_name
))
2786 /* On AIX we have a loop, because there is not much difference
2787 between an object and an archive. This trick allows us to
2788 eliminate scan_libraries() function. */
2792 if ((ldptr
= ldopen (prog_name
, ldptr
)) != NULL
)
2795 if (!MY_ISCOFF (HEADER (ldptr
).f_magic
))
2796 fatal ("%s: not a COFF file", prog_name
);
2798 #ifdef COLLECT_EXPORT_LIST
2799 /* Is current archive member a shared object? */
2800 is_shared
= HEADER (ldptr
).f_flags
& F_SHROBJ
;
2802 if (GCC_CHECK_HDR (ldptr
))
2804 sym_count
= GCC_SYMBOLS (ldptr
);
2805 sym_index
= GCC_SYMZERO (ldptr
);
2806 while (sym_index
< sym_count
)
2810 if (ldtbread (ldptr
, sym_index
, &symbol
) <= 0)
2812 sym_index
+= GCC_SYMINC (symbol
);
2814 if (GCC_OK_SYMBOL (symbol
))
2818 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2819 continue; /* should never happen */
2821 #ifdef XCOFF_DEBUGGING_INFO
2822 /* All AIX function names have a duplicate entry
2823 beginning with a dot. */
2828 switch (is_ctor_dtor (name
))
2831 if (! is_shared
) add_to_list (&constructors
, name
);
2832 #ifdef COLLECT_EXPORT_LIST
2833 if (which_pass
== PASS_OBJ
)
2834 add_to_list (&exports
, name
);
2835 /* If this symbol was undefined and we are building
2836 an import list, we should add a symbol to this
2840 && is_in_list (name
, undefined
.first
))
2841 add_to_list (&imports
, name
);
2846 if (! is_shared
) add_to_list (&destructors
, name
);
2847 #ifdef COLLECT_EXPORT_LIST
2848 if (which_pass
== PASS_OBJ
)
2849 add_to_list (&exports
, name
);
2850 /* If this symbol was undefined and we are building
2851 an import list, we should add a symbol to this
2855 && is_in_list (name
, undefined
.first
))
2856 add_to_list (&imports
, name
);
2860 #ifdef COLLECT_EXPORT_LIST
2863 add_to_list (&constructors
, name
);
2868 add_to_list (&destructors
, name
);
2872 default: /* not a constructor or destructor */
2873 #ifdef COLLECT_EXPORT_LIST
2874 /* If we are building a shared object on AIX we need
2875 to explicitly export all global symbols or add
2876 them to import list. */
2879 if (which_pass
== PASS_OBJ
&& (! export_flag
))
2880 add_to_list (&exports
, name
);
2881 else if (! is_shared
&& which_pass
== PASS_FIRST
2883 && is_in_list(name
, undefined
.first
))
2884 add_to_list (&imports
, name
);
2890 #if !defined(EXTENDED_COFF)
2892 fprintf (stderr
, "\tsec=%d class=%d type=%s%o %s\n",
2893 symbol
.n_scnum
, symbol
.n_sclass
,
2894 (symbol
.n_type
? "0" : ""), symbol
.n_type
,
2899 "\tiss = %5d, value = %5ld, index = %5d, name = %s\n",
2900 symbol
.iss
, (long) symbol
.value
, symbol
.index
, name
);
2903 #ifdef COLLECT_EXPORT_LIST
2904 /* If we are building a shared object we should collect
2905 information about undefined symbols for later
2906 import list generation. */
2907 else if (shared_obj
&& GCC_UNDEF_SYMBOL (symbol
))
2911 if ((name
= ldgetname (ldptr
, &symbol
)) == NULL
)
2912 continue; /* should never happen */
2914 /* All AIX function names have a duplicate entry
2915 beginning with a dot. */
2918 add_to_list (&undefined
, name
);
2926 fatal ("%s: cannot open as COFF file", prog_name
);
2928 #ifdef COLLECT_EXPORT_LIST
2929 /* On AIX loop continues while there are more members in archive. */
2931 while (ldclose (ldptr
) == FAILURE
);
2933 /* Otherwise we simply close ldptr. */
2934 (void) ldclose(ldptr
);
2939 #ifdef COLLECT_EXPORT_LIST
2941 /* This new function is used to decide whether we should
2942 generate import list for an object or to use it directly. */
2944 use_import_list (prog_name
)
2949 /* If we do not build a shared object then import list should not be used. */
2950 if (! shared_obj
) return 0;
2952 /* Currently we check only for libgcc, but this can be changed in future. */
2953 p
= strstr (prog_name
, "libgcc.a");
2954 if (p
!= 0 && (strlen (p
) == sizeof ("libgcc.a") - 1))
2959 /* Given a library name without "lib" prefix, this function
2960 returns a full library name including a path. */
2962 resolve_lib_name (name
)
2968 for (i
= 0; libpaths
[i
]; i
++)
2969 if (libpaths
[i
]->max_len
> l
)
2970 l
= libpaths
[i
]->max_len
;
2972 lib_buf
= xmalloc (l
+ strlen(name
) + 10);
2974 for (i
= 0; libpaths
[i
]; i
++)
2976 struct prefix_list
*list
= libpaths
[i
]->plist
;
2977 for (; list
; list
= list
->next
)
2979 for (j
= 0; libexts
[j
]; j
++)
2981 /* The following lines are needed because path_prefix list
2982 may contain directories both with trailing '/' and
2985 if (list
->prefix
[strlen(list
->prefix
)-1] != '/')
2987 sprintf (lib_buf
, "%s%slib%s.%s",
2988 list
->prefix
, p
, name
, libexts
[j
]);
2989 if (debug
) fprintf (stderr
, "searching for: %s\n", lib_buf
);
2990 if (file_exists (lib_buf
))
2992 if (debug
) fprintf (stderr
, "found: %s\n", lib_buf
);
2999 fprintf (stderr
, "not found\n");
3001 fatal ("Library lib%s not found", name
);
3005 /* Array of standard AIX libraries which should not
3006 be scanned for ctors/dtors. */
3007 static char* aix_std_libs
[] = {
3012 "/usr/lib/libc_r.a",
3013 "/usr/lib/threads/libc.a",
3014 "/usr/ccs/lib/libc.a",
3015 "/usr/ccs/lib/libc_r.a",
3019 /* This function checks the filename and returns 1
3020 if this name matches the location of a standard AIX library. */
3022 ignore_library (name
)
3025 char **p
= &aix_std_libs
[0];
3026 while (*p
++ != NULL
)
3027 if (! strcmp (name
, *p
)) return 1;
3033 #endif /* OBJECT_FORMAT_COFF */
3037 * OSF/rose specific stuff.
3040 #ifdef OBJECT_FORMAT_ROSE
3042 /* Union of the various load commands */
3044 typedef union load_union
3046 ldc_header_t hdr
; /* common header */
3047 load_cmd_map_command_t map
; /* map indexing other load cmds */
3048 interpreter_command_t iprtr
; /* interpreter pathname */
3049 strings_command_t str
; /* load commands strings section */
3050 region_command_t region
; /* region load command */
3051 reloc_command_t reloc
; /* relocation section */
3052 package_command_t pkg
; /* package load command */
3053 symbols_command_t sym
; /* symbol sections */
3054 entry_command_t ent
; /* program start section */
3055 gen_info_command_t info
; /* object information */
3056 func_table_command_t func
; /* function constructors/destructors */
3059 /* Structure to point to load command and data section in memory. */
3061 typedef struct load_all
3063 load_union_t
*load
; /* load command */
3064 char *section
; /* pointer to section */
3067 /* Structure to contain information about a file mapped into memory. */
3071 char *start
; /* start of map */
3072 char *name
; /* filename */
3073 long size
; /* size of the file */
3074 long rounded_size
; /* size rounded to page boundary */
3075 int fd
; /* file descriptor */
3076 int rw
; /* != 0 if opened read/write */
3077 int use_mmap
; /* != 0 if mmap'ed */
3080 extern int decode_mach_o_hdr ();
3081 extern int encode_mach_o_hdr ();
3083 static void add_func_table
PROTO((mo_header_t
*, load_all_t
*,
3084 symbol_info_t
*, int));
3085 static void print_header
PROTO((mo_header_t
*));
3086 static void print_load_command
PROTO((load_union_t
*, size_t, int));
3087 static void bad_header
PROTO((int));
3088 static struct file_info
*read_file
PROTO((char *, int, int));
3089 static void end_file
PROTO((struct file_info
*));
3091 /* OSF/rose specific version to scan the name list of the loaded
3092 program for the symbols g++ uses for static constructors and
3095 The constructor table begins at __CTOR_LIST__ and contains a count
3096 of the number of pointers (or -1 if the constructors are built in a
3097 separate section by the linker), followed by the pointers to the
3098 constructor functions, terminated with a null pointer. The
3099 destructor table has the same format, and begins at __DTOR_LIST__. */
3102 scan_prog_file (prog_name
, which_pass
)
3104 enum pass which_pass
;
3108 load_all_t
*load_array
;
3109 load_all_t
*load_end
;
3110 load_all_t
*load_cmd
;
3111 int symbol_load_cmds
;
3117 struct file_info
*obj_file
;
3119 mo_lcid_t cmd_strings
= -1;
3120 symbol_info_t
*main_sym
= 0;
3121 int rw
= (which_pass
!= PASS_FIRST
);
3123 prog_fd
= open (prog_name
, (rw
) ? O_RDWR
: O_RDONLY
);
3125 fatal_perror ("cannot read %s", prog_name
);
3127 obj_file
= read_file (prog_name
, prog_fd
, rw
);
3128 obj
= obj_file
->start
;
3130 status
= decode_mach_o_hdr (obj
, MO_SIZEOF_RAW_HDR
, MOH_HEADER_VERSION
, &hdr
);
3131 if (status
!= MO_HDR_CONV_SUCCESS
)
3132 bad_header (status
);
3135 /* Do some basic sanity checks. Note we explicitly use the big endian magic number,
3136 since the hardware will automatically swap bytes for us on loading little endian
3139 #ifndef CROSS_COMPILE
3140 if (hdr
.moh_magic
!= MOH_MAGIC_MSB
3141 || hdr
.moh_header_version
!= MOH_HEADER_VERSION
3142 || hdr
.moh_byte_order
!= OUR_BYTE_ORDER
3143 || hdr
.moh_data_rep_id
!= OUR_DATA_REP_ID
3144 || hdr
.moh_cpu_type
!= OUR_CPU_TYPE
3145 || hdr
.moh_cpu_subtype
!= OUR_CPU_SUBTYPE
3146 || hdr
.moh_vendor_type
!= OUR_VENDOR_TYPE
)
3148 fatal ("incompatibilities between object file & expected values");
3153 print_header (&hdr
);
3155 offset
= hdr
.moh_first_cmd_off
;
3156 load_end
= load_array
3157 = (load_all_t
*) xcalloc (sizeof (load_all_t
), hdr
.moh_n_load_cmds
+ 2);
3159 /* Build array of load commands, calculating the offsets */
3160 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3162 load_union_t
*load_hdr
; /* load command header */
3164 load_cmd
= load_end
++;
3165 load_hdr
= (load_union_t
*) (obj
+ offset
);
3167 /* If modifying the program file, copy the header. */
3170 load_union_t
*ptr
= (load_union_t
*) xmalloc (load_hdr
->hdr
.ldci_cmd_size
);
3171 bcopy ((char *)load_hdr
, (char *)ptr
, load_hdr
->hdr
.ldci_cmd_size
);
3174 /* null out old command map, because we will rewrite at the end. */
3175 if (ptr
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3177 cmd_strings
= ptr
->map
.lcm_ld_cmd_strings
;
3178 ptr
->hdr
.ldci_cmd_type
= LDC_UNDEFINED
;
3182 load_cmd
->load
= load_hdr
;
3183 if (load_hdr
->hdr
.ldci_section_off
> 0)
3184 load_cmd
->section
= obj
+ load_hdr
->hdr
.ldci_section_off
;
3187 print_load_command (load_hdr
, offset
, i
);
3189 offset
+= load_hdr
->hdr
.ldci_cmd_size
;
3192 /* If the last command is the load command map and is not undefined,
3193 decrement the count of load commands. */
3194 if (rw
&& load_end
[-1].load
->hdr
.ldci_cmd_type
== LDC_UNDEFINED
)
3197 hdr
.moh_n_load_cmds
--;
3200 /* Go through and process each symbol table section. */
3201 symbol_load_cmds
= 0;
3202 for (load_cmd
= load_array
; load_cmd
< load_end
; load_cmd
++)
3204 load_union_t
*load_hdr
= load_cmd
->load
;
3206 if (load_hdr
->hdr
.ldci_cmd_type
== LDC_SYMBOLS
)
3212 char *kind
= "unknown";
3214 switch (load_hdr
->sym
.symc_kind
)
3216 case SYMC_IMPORTS
: kind
= "imports"; break;
3217 case SYMC_DEFINED_SYMBOLS
: kind
= "defined"; break;
3218 case SYMC_STABS
: kind
= "stabs"; break;
3221 fprintf (stderr
, "\nProcessing symbol table #%d, offset = 0x%.8lx, kind = %s\n",
3222 symbol_load_cmds
, load_hdr
->hdr
.ldci_section_off
, kind
);
3225 if (load_hdr
->sym
.symc_kind
!= SYMC_DEFINED_SYMBOLS
)
3228 str_sect
= load_array
[load_hdr
->sym
.symc_strings_section
].section
;
3229 if (str_sect
== (char *) 0)
3230 fatal ("string section missing");
3232 if (load_cmd
->section
== (char *) 0)
3233 fatal ("section pointer missing");
3235 num_syms
= load_hdr
->sym
.symc_nentries
;
3236 for (i
= 0; i
< num_syms
; i
++)
3238 symbol_info_t
*sym
= ((symbol_info_t
*) load_cmd
->section
) + i
;
3239 char *name
= sym
->si_name
.symbol_name
+ str_sect
;
3246 char *n
= name
+ strlen (name
) - strlen (NAME__MAIN
);
3248 if ((n
- name
) < 0 || strcmp (n
, NAME__MAIN
))
3258 switch (is_ctor_dtor (name
))
3261 add_to_list (&constructors
, name
);
3265 add_to_list (&destructors
, name
);
3268 default: /* not a constructor or destructor */
3274 fprintf (stderr
, "\ttype = 0x%.4x, sc = 0x%.2x, flags = 0x%.8x, name = %.30s\n",
3275 sym
->si_type
, sym
->si_sc_type
, sym
->si_flags
, name
);
3280 if (symbol_load_cmds
== 0)
3281 fatal ("no symbol table found");
3283 /* Update the program file now, rewrite header and load commands. At present,
3284 we assume that there is enough space after the last load command to insert
3285 one more. Since the first section written out is page aligned, and the
3286 number of load commands is small, this is ok for the present. */
3290 load_union_t
*load_map
;
3293 if (cmd_strings
== -1)
3294 fatal ("no cmd_strings found");
3296 /* Add __main to initializer list.
3297 If we are building a program instead of a shared library, do not
3298 do anything, since in the current version, you cannot do mallocs
3299 and such in the constructors. */
3301 if (main_sym
!= (symbol_info_t
*) 0
3302 && ((hdr
.moh_flags
& MOH_EXECABLE_F
) == 0))
3303 add_func_table (&hdr
, load_array
, main_sym
, FNTC_INITIALIZATION
);
3306 fprintf (stderr
, "\nUpdating header and load commands.\n\n");
3308 hdr
.moh_n_load_cmds
++;
3309 size
= sizeof (load_cmd_map_command_t
) + (sizeof (mo_offset_t
) * (hdr
.moh_n_load_cmds
- 1));
3311 /* Create new load command map. */
3313 fprintf (stderr
, "load command map, %d cmds, new size %ld.\n",
3314 (int)hdr
.moh_n_load_cmds
, (long)size
);
3316 load_map
= (load_union_t
*) xcalloc (1, size
);
3317 load_map
->map
.ldc_header
.ldci_cmd_type
= LDC_CMD_MAP
;
3318 load_map
->map
.ldc_header
.ldci_cmd_size
= size
;
3319 load_map
->map
.lcm_ld_cmd_strings
= cmd_strings
;
3320 load_map
->map
.lcm_nentries
= hdr
.moh_n_load_cmds
;
3321 load_array
[hdr
.moh_n_load_cmds
-1].load
= load_map
;
3323 offset
= hdr
.moh_first_cmd_off
;
3324 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3326 load_map
->map
.lcm_map
[i
] = offset
;
3327 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_CMD_MAP
)
3328 hdr
.moh_load_map_cmd_off
= offset
;
3330 offset
+= load_array
[i
].load
->hdr
.ldci_cmd_size
;
3333 hdr
.moh_sizeofcmds
= offset
- MO_SIZEOF_RAW_HDR
;
3336 print_header (&hdr
);
3339 status
= encode_mach_o_hdr (&hdr
, obj
, MO_SIZEOF_RAW_HDR
);
3340 if (status
!= MO_HDR_CONV_SUCCESS
)
3341 bad_header (status
);
3344 fprintf (stderr
, "writing load commands.\n\n");
3346 /* Write load commands */
3347 offset
= hdr
.moh_first_cmd_off
;
3348 for (i
= 0; i
< hdr
.moh_n_load_cmds
; i
++)
3350 load_union_t
*load_hdr
= load_array
[i
].load
;
3351 size_t size
= load_hdr
->hdr
.ldci_cmd_size
;
3354 print_load_command (load_hdr
, offset
, i
);
3356 bcopy ((char *) load_hdr
, (char *) (obj
+ offset
), size
);
3361 end_file (obj_file
);
3363 if (close (prog_fd
))
3364 fatal_perror ("closing %s", prog_name
);
3367 fprintf (stderr
, "\n");
3371 /* Add a function table to the load commands to call a function
3372 on initiation or termination of the process. */
3375 add_func_table (hdr_p
, load_array
, sym
, type
)
3376 mo_header_t
*hdr_p
; /* pointer to global header */
3377 load_all_t
*load_array
; /* array of ptrs to load cmds */
3378 symbol_info_t
*sym
; /* pointer to symbol entry */
3379 int type
; /* fntc_type value */
3381 /* Add a new load command. */
3382 int num_cmds
= ++hdr_p
->moh_n_load_cmds
;
3383 int load_index
= num_cmds
- 1;
3384 size_t size
= sizeof (func_table_command_t
) + sizeof (mo_addr_t
);
3385 load_union_t
*ptr
= xcalloc (1, size
);
3386 load_all_t
*load_cmd
;
3389 /* Set the unresolved address bit in the header to force the loader to be
3390 used, since kernel exec does not call the initialization functions. */
3391 hdr_p
->moh_flags
|= MOH_UNRESOLVED_F
;
3393 load_cmd
= &load_array
[load_index
];
3394 load_cmd
->load
= ptr
;
3395 load_cmd
->section
= (char *) 0;
3397 /* Fill in func table load command. */
3398 ptr
->func
.ldc_header
.ldci_cmd_type
= LDC_FUNC_TABLE
;
3399 ptr
->func
.ldc_header
.ldci_cmd_size
= size
;
3400 ptr
->func
.ldc_header
.ldci_section_off
= 0;
3401 ptr
->func
.ldc_header
.ldci_section_len
= 0;
3402 ptr
->func
.fntc_type
= type
;
3403 ptr
->func
.fntc_nentries
= 1;
3405 /* copy address, turn it from abs. address to (region,offset) if necessary. */
3406 /* Is the symbol already expressed as (region, offset)? */
3407 if ((sym
->si_flags
& SI_ABSOLUTE_VALUE_F
) == 0)
3409 ptr
->func
.fntc_entry_loc
[i
].adr_lcid
= sym
->si_value
.def_val
.adr_lcid
;
3410 ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
= sym
->si_value
.def_val
.adr_sctoff
;
3413 /* If not, figure out which region it's in. */
3416 mo_vm_addr_t addr
= sym
->si_value
.abs_val
;
3419 for (i
= 0; i
< load_index
; i
++)
3421 if (load_array
[i
].load
->hdr
.ldci_cmd_type
== LDC_REGION
)
3423 region_command_t
*region_ptr
= &load_array
[i
].load
->region
;
3425 if ((region_ptr
->regc_flags
& REG_ABS_ADDR_F
) != 0
3426 && addr
>= region_ptr
->regc_addr
.vm_addr
3427 && addr
<= region_ptr
->regc_addr
.vm_addr
+ region_ptr
->regc_vm_size
)
3429 ptr
->func
.fntc_entry_loc
[0].adr_lcid
= i
;
3430 ptr
->func
.fntc_entry_loc
[0].adr_sctoff
= addr
- region_ptr
->regc_addr
.vm_addr
;
3438 fatal ("could not convert 0x%l.8x into a region", addr
);
3443 "%s function, region %d, offset = %ld (0x%.8lx)\n",
3444 (type
== FNTC_INITIALIZATION
) ? "init" : "term",
3445 (int)ptr
->func
.fntc_entry_loc
[i
].adr_lcid
,
3446 (long)ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
,
3447 (long)ptr
->func
.fntc_entry_loc
[i
].adr_sctoff
);
3452 /* Print the global header for an OSF/rose object. */
3455 print_header (hdr_ptr
)
3456 mo_header_t
*hdr_ptr
;
3458 fprintf (stderr
, "\nglobal header:\n");
3459 fprintf (stderr
, "\tmoh_magic = 0x%.8lx\n", hdr_ptr
->moh_magic
);
3460 fprintf (stderr
, "\tmoh_major_version = %d\n", (int)hdr_ptr
->moh_major_version
);
3461 fprintf (stderr
, "\tmoh_minor_version = %d\n", (int)hdr_ptr
->moh_minor_version
);
3462 fprintf (stderr
, "\tmoh_header_version = %d\n", (int)hdr_ptr
->moh_header_version
);
3463 fprintf (stderr
, "\tmoh_max_page_size = %d\n", (int)hdr_ptr
->moh_max_page_size
);
3464 fprintf (stderr
, "\tmoh_byte_order = %d\n", (int)hdr_ptr
->moh_byte_order
);
3465 fprintf (stderr
, "\tmoh_data_rep_id = %d\n", (int)hdr_ptr
->moh_data_rep_id
);
3466 fprintf (stderr
, "\tmoh_cpu_type = %d\n", (int)hdr_ptr
->moh_cpu_type
);
3467 fprintf (stderr
, "\tmoh_cpu_subtype = %d\n", (int)hdr_ptr
->moh_cpu_subtype
);
3468 fprintf (stderr
, "\tmoh_vendor_type = %d\n", (int)hdr_ptr
->moh_vendor_type
);
3469 fprintf (stderr
, "\tmoh_load_map_cmd_off = %d\n", (int)hdr_ptr
->moh_load_map_cmd_off
);
3470 fprintf (stderr
, "\tmoh_first_cmd_off = %d\n", (int)hdr_ptr
->moh_first_cmd_off
);
3471 fprintf (stderr
, "\tmoh_sizeofcmds = %d\n", (int)hdr_ptr
->moh_sizeofcmds
);
3472 fprintf (stderr
, "\tmon_n_load_cmds = %d\n", (int)hdr_ptr
->moh_n_load_cmds
);
3473 fprintf (stderr
, "\tmoh_flags = 0x%.8lx", (long)hdr_ptr
->moh_flags
);
3475 if (hdr_ptr
->moh_flags
& MOH_RELOCATABLE_F
)
3476 fprintf (stderr
, ", relocatable");
3478 if (hdr_ptr
->moh_flags
& MOH_LINKABLE_F
)
3479 fprintf (stderr
, ", linkable");
3481 if (hdr_ptr
->moh_flags
& MOH_EXECABLE_F
)
3482 fprintf (stderr
, ", execable");
3484 if (hdr_ptr
->moh_flags
& MOH_EXECUTABLE_F
)
3485 fprintf (stderr
, ", executable");
3487 if (hdr_ptr
->moh_flags
& MOH_UNRESOLVED_F
)
3488 fprintf (stderr
, ", unresolved");
3490 fprintf (stderr
, "\n\n");
3495 /* Print a short summary of a load command. */
3498 print_load_command (load_hdr
, offset
, number
)
3499 load_union_t
*load_hdr
;
3503 mo_long_t type
= load_hdr
->hdr
.ldci_cmd_type
;
3504 char *type_str
= (char *) 0;
3508 case LDC_UNDEFINED
: type_str
= "UNDEFINED"; break;
3509 case LDC_CMD_MAP
: type_str
= "CMD_MAP"; break;
3510 case LDC_INTERPRETER
: type_str
= "INTERPRETER"; break;
3511 case LDC_STRINGS
: type_str
= "STRINGS"; break;
3512 case LDC_REGION
: type_str
= "REGION"; break;
3513 case LDC_RELOC
: type_str
= "RELOC"; break;
3514 case LDC_PACKAGE
: type_str
= "PACKAGE"; break;
3515 case LDC_SYMBOLS
: type_str
= "SYMBOLS"; break;
3516 case LDC_ENTRY
: type_str
= "ENTRY"; break;
3517 case LDC_FUNC_TABLE
: type_str
= "FUNC_TABLE"; break;
3518 case LDC_GEN_INFO
: type_str
= "GEN_INFO"; break;
3522 "cmd %2d, sz: 0x%.2lx, coff: 0x%.3lx, doff: 0x%.6lx, dlen: 0x%.6lx",
3524 (long) load_hdr
->hdr
.ldci_cmd_size
,
3526 (long) load_hdr
->hdr
.ldci_section_off
,
3527 (long) load_hdr
->hdr
.ldci_section_len
);
3529 if (type_str
== (char *) 0)
3530 fprintf (stderr
, ", ty: unknown (%ld)\n", (long) type
);
3532 else if (type
!= LDC_REGION
)
3533 fprintf (stderr
, ", ty: %s\n", type_str
);
3538 switch (load_hdr
->region
.regc_usage_type
)
3540 case REG_TEXT_T
: region
= ", .text"; break;
3541 case REG_DATA_T
: region
= ", .data"; break;
3542 case REG_BSS_T
: region
= ", .bss"; break;
3543 case REG_GLUE_T
: region
= ", .glue"; break;
3544 #if defined (REG_RDATA_T) && defined (REG_SDATA_T) && defined (REG_SBSS_T) /*mips*/
3545 case REG_RDATA_T
: region
= ", .rdata"; break;
3546 case REG_SDATA_T
: region
= ", .sdata"; break;
3547 case REG_SBSS_T
: region
= ", .sbss"; break;
3551 fprintf (stderr
, ", ty: %s, vaddr: 0x%.8lx, vlen: 0x%.6lx%s\n",
3553 (long) load_hdr
->region
.regc_vm_addr
,
3554 (long) load_hdr
->region
.regc_vm_size
,
3562 /* Fatal error when {en,de}code_mach_o_header fails. */
3568 char *msg
= (char *) 0;
3572 case MO_ERROR_BAD_MAGIC
: msg
= "bad magic number"; break;
3573 case MO_ERROR_BAD_HDR_VERS
: msg
= "bad header version"; break;
3574 case MO_ERROR_BAD_RAW_HDR_VERS
: msg
= "bad raw header version"; break;
3575 case MO_ERROR_BUF2SML
: msg
= "raw header buffer too small"; break;
3576 case MO_ERROR_OLD_RAW_HDR_FILE
: msg
= "old raw header file"; break;
3577 case MO_ERROR_UNSUPPORTED_VERS
: msg
= "unsupported version"; break;
3580 if (msg
== (char *) 0)
3581 fatal ("unknown {de,en}code_mach_o_hdr return value %d", status
);
3587 /* Read a file into a memory buffer. */
3589 static struct file_info
*
3590 read_file (name
, fd
, rw
)
3591 char *name
; /* filename */
3592 int fd
; /* file descriptor */
3593 int rw
; /* read/write */
3595 struct stat stat_pkt
;
3596 struct file_info
*p
= (struct file_info
*) xcalloc (sizeof (struct file_info
), 1);
3598 static int page_size
;
3601 if (fstat (fd
, &stat_pkt
) < 0)
3602 fatal_perror ("fstat %s", name
);
3605 p
->size
= stat_pkt
.st_size
;
3606 p
->rounded_size
= stat_pkt
.st_size
;
3612 fprintf (stderr
, "mmap %s, %s\n", name
, (rw
) ? "read/write" : "read-only");
3615 page_size
= sysconf (_SC_PAGE_SIZE
);
3617 p
->rounded_size
= ((p
->size
+ page_size
- 1) / page_size
) * page_size
;
3618 p
->start
= mmap ((caddr_t
) 0,
3619 (rw
) ? p
->rounded_size
: p
->size
,
3620 (rw
) ? (PROT_READ
| PROT_WRITE
) : PROT_READ
,
3621 MAP_FILE
| MAP_VARIABLE
| MAP_SHARED
,
3625 if (p
->start
!= (char *) 0 && p
->start
!= (char *) -1)
3629 #endif /* USE_MMAP */
3634 fprintf (stderr
, "read %s\n", name
);
3637 p
->start
= xmalloc (p
->size
);
3638 if (lseek (fd
, 0L, SEEK_SET
) < 0)
3639 fatal_perror ("lseek to 0 on %s", name
);
3641 len
= read (fd
, p
->start
, p
->size
);
3643 fatal_perror ("read %s", name
);
3646 fatal ("read %ld bytes, expected %ld, from %s", len
, p
->size
, name
);
3652 /* Do anything necessary to write a file back from memory. */
3656 struct file_info
*ptr
; /* file information block */
3664 fprintf (stderr
, "msync %s\n", ptr
->name
);
3666 if (msync (ptr
->start
, ptr
->rounded_size
, MS_ASYNC
))
3667 fatal_perror ("msync %s", ptr
->name
);
3671 fprintf (stderr
, "munmap %s\n", ptr
->name
);
3673 if (munmap (ptr
->start
, ptr
->size
))
3674 fatal_perror ("munmap %s", ptr
->name
);
3677 #endif /* USE_MMAP */
3684 fprintf (stderr
, "write %s\n", ptr
->name
);
3686 if (lseek (ptr
->fd
, 0L, SEEK_SET
) < 0)
3687 fatal_perror ("lseek to 0 on %s", ptr
->name
);
3689 len
= write (ptr
->fd
, ptr
->start
, ptr
->size
);
3691 fatal_perror ("write %s", ptr
->name
);
3693 if (len
!= ptr
->size
)
3694 fatal ("wrote %ld bytes, expected %ld, to %s", len
, ptr
->size
, ptr
->name
);
3703 #endif /* OBJECT_FORMAT_ROSE */