xref: /illumos-gate/usr/src/cmd/sgs/ldd/common/ldd.c (revision 02938ba214e4690cccd8cbd233d1242246ef6ff1)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  *
21  *	Copyright (c) 1988 AT&T
22  *	  All Rights Reserved
23  *
24  *
25  * Copyright (c) 1990, 2010, Oracle and/or its affiliates. All rights reserved.
26  */
27 
28 /*
29  * Print the list of shared objects required by a dynamic executable or shared
30  * object.
31  *
32  * usage is: ldd [-d | -r] [-c] [-D] [-e envar] [-i] [-f] [-L] [-l] [-p] [-s]
33  *		[-U | -u] [-v] [-w] file(s)
34  *
35  * ldd opens the file and verifies the information in the elf header.
36  * If the file is a dynamic executable, we set up some environment variables
37  * and exec(2) the file.  If the file is a shared object, we preload the
38  * file with a dynamic executable stub. The runtime linker (ld.so.1) actually
39  * provides the diagnostic output, according to the environment variables set.
40  *
41  * If neither -d nor -r is specified, we set only LD_TRACE_LOADED_OBJECTS_[AE].
42  * The runtime linker will print the pathnames of all dynamic objects it
43  * loads, and then exit.  Note that we distiguish between ELF and AOUT objects
44  * when setting this environment variable - AOUT executables cause the mapping
45  * of sbcp, the dependencies of which the user isn't interested in.
46  *
47  * If -d or -r is specified, we also set LD_WARN=1; the runtime linker will
48  * perform its normal relocations and issue warning messages for unresolved
49  * references. It will then exit.
50  * If -r is specified, we set LD_BIND_NOW=1, so that the runtime linker
51  * will perform all relocations, otherwise (under -d) the runtime linker
52  * will not perform PLT (function) type relocations.
53  *
54  * If -c is specified we also set LD_NOCONFIG=1, thus disabling any
55  * configuration file use.
56  *
57  * If -D is specified we skip deferred dependency processing.  By default,
58  * ldd loads all deferred dependencies.  However, during normal process
59  * execution, deferred dependencies are only loaded when an explicit binding
60  * to an individual deferred reference is made.  As no user code is executed
61  * under ldd, explicit references to deferred symbols can't be triggered.
62  *
63  * If -e is specified the associated environment variable is set for the
64  * child process that will produce ldd's diagnostics.
65  *
66  * If -i is specified, we set LD_INIT=1. The order of inititialization
67  * sections to be executed is printed. We also set LD_WARN=1.
68  *
69  * If -f is specified, we will run ldd as root on executables that have
70  * an unsercure runtime linker that does not live under the "/usr/lib"
71  * directory.  By default we will not let this happen.
72  *
73  * If -l is specified it generates a warning for any auxiliary filter not found.
74  * Prior to 2.8 this forced any filters to load (all) their filtees.  This is
75  * now the default, however missing auxiliary filters don't generate any error
76  * diagniostic.  See also -L.
77  *
78  * If -L is specified we revert to lazy loading, thus any filtee or lazy
79  * dependency loading is deferred until relocations cause loading.  Without
80  * this option we set LD_LOADFLTR=1, thus forcing any filters to load (all)
81  * their filtees, and LD_NOLAZYLOAD=1 thus forcing immediate processing of
82  * any lazy loaded dependencies.
83  *
84  * If -s is specified we also set LD_TRACE_SEARCH_PATH=1, thus enabling
85  * the runtime linker to indicate the search algorithm used.
86  *
87  * If -v is specified we also set LD_VERBOSE=1, thus enabling the runtime
88  * linker to indicate all object dependencies (not just the first object
89  * loaded) together with any versioning requirements.
90  *
91  * If -U or -u is specified unused dependencies are detected.  -u causes
92  * LD_UNUSED=1 to be set, which causes dependencies that are unused within the
93  * process to be detected.  -U causes LD_UNREF=1 to be set, which causes
94  * unreferenced objects, and unreferenced cyclic dependencies to be detected.
95  * These options assert that at least -d is set as relocation references are
96  * what determine an objects use.
97  *
98  * If -w is specified, no unresolved weak references are allowed.  -w causes
99  * LD_NOUNRESWEAK=1 to be set.  By default, an unresolved weak reference is
100  * allowed, and a "0" is written to the relocation offset.  The -w option
101  * disables this default.  Any weak references that can not be resolved result
102  * in relocation error messages.  This option has no use without -r or -d.
103  *
104  * If the -p option is specified, no unresolved PARENT or EXTERN references are
105  * allowed.  -p causes LD_NOPAREXT=1 to be set.  By default, PARENT and EXTERN
106  * references, which have been explicitly assigned via a mapfile when a shared
107  * object was built, imply that a caller will provide the symbols, and hence
108  * these are not reported as relocation errors.  Note, the -p option is asserted
109  * by default when either the -r or -d options are used to inspect a dynamic
110  * executable.  This option has no use with a shared object without -r or -d.
111  */
112 #include	<fcntl.h>
113 #include	<stdio.h>
114 #include	<string.h>
115 #include	<_libelf.h>
116 #include	<stdlib.h>
117 #include	<unistd.h>
118 #include	<wait.h>
119 #include	<locale.h>
120 #include	<errno.h>
121 #include	<signal.h>
122 #include	"machdep.h"
123 #include	"sgs.h"
124 #include	"conv.h"
125 #include	"a.out.h"
126 #include	"msg.h"
127 
128 static int	elf_check(int, char *, char *, Elf *, int);
129 static int	aout_check(int, char *, char *, int, int);
130 static int	run(int, char *, char *, const char *, int);
131 
132 
133 /*
134  * Define all environment variable strings.  The character following the "="
135  * will be written to, to disable or enable the associated feature.
136  */
137 static char	bind[] =	"LD_BIND_NOW= ",
138 		load_elf[] =	"LD_TRACE_LOADED_OBJECTS_E= ",
139 		load_aout[] =	"LD_TRACE_LOADED_OBJECTS_A= ",
140 		path[] =	"LD_TRACE_SEARCH_PATHS= ",
141 		verb[] =	"LD_VERBOSE= ",
142 		warn[] =	"LD_WARN= ",
143 		conf[] =	"LD_NOCONFIG= ",
144 		fltr[] =	"LD_LOADFLTR= ",
145 		lazy[] =	"LD_NOLAZYLOAD=1",
146 		init[] =	"LD_INIT= ",
147 		uref[] =	"LD_UNREF= ",
148 		used[] =	"LD_UNUSED= ",
149 		weak[] =	"LD_NOUNRESWEAK= ",
150 		nope[] =	"LD_NOPAREXT= ",
151 		defr[] =	"LD_DEFERRED= ";
152 static char	*load;
153 
154 static const char	*prefile_32, *prefile_64, *prefile;
155 static APlist		*eopts = NULL;
156 
157 int
158 main(int argc, char **argv, char **envp)
159 {
160 	char	*str, *cname = argv[0];
161 
162 	Elf	*elf;
163 	int	cflag = 0, dflag = 0, fflag = 0, iflag = 0, Lflag = 0;
164 	int	lflag = 0, rflag = 0, sflag = 0, Uflag = 0, uflag = 0;
165 	int	Dflag = 0, pflag = 0, vflag = 0, wflag = 0;
166 	int	nfile, var, error = 0;
167 	Aliste	idx;
168 
169 	/*
170 	 * If we're on a 64-bit kernel, try to exec a full 64-bit version of
171 	 * the binary.  If successful, conv_check_native() won't return.
172 	 *
173 	 * This is done to ensure that ldd can handle objects >2GB.
174 	 * ldd uses libelf, which is not large file capable. The
175 	 * 64-bit ldd can handle any sized object.
176 	 */
177 	(void) conv_check_native(argv, envp);
178 
179 	/*
180 	 * Establish locale.
181 	 */
182 	(void) setlocale(LC_MESSAGES, MSG_ORIG(MSG_STR_EMPTY));
183 	(void) textdomain(MSG_ORIG(MSG_SUNW_OST_SGS));
184 
185 	/*
186 	 * verify command line syntax and process arguments
187 	 */
188 	opterr = 0;				/* disable getopt error mesg */
189 
190 	while ((var = getopt(argc, argv, MSG_ORIG(MSG_STR_GETOPT))) != EOF) {
191 		switch (var) {
192 		case 'c' :			/* enable config search */
193 			cflag = 1;
194 			break;
195 		case 'D' :			/* skip deferred dependencies */
196 			Dflag = 1;
197 			break;
198 		case 'd' :			/* perform data relocations */
199 			dflag = 1;
200 			if (rflag)
201 				error++;
202 			break;
203 		case 'e' :
204 			if (aplist_append(&eopts, optarg, 10) == NULL) {
205 				(void) fprintf(stderr, MSG_INTL(MSG_SYS_MALLOC),
206 				    cname);
207 				exit(1);
208 			}
209 			break;
210 		case 'f' :
211 			fflag = 1;
212 			break;
213 		case 'L' :
214 			Lflag = 1;
215 			break;
216 		case 'l' :
217 			lflag = 1;
218 			break;
219 		case 'i' :			/* print the order of .init */
220 			iflag = 1;
221 			break;
222 		case 'p' :
223 			pflag = 1;		/* expose unreferenced */
224 			break;			/*	parent or externals */
225 		case 'r' :			/* perform all relocations */
226 			rflag = 1;
227 			if (dflag)
228 				error++;
229 			break;
230 		case 's' :			/* enable search path output */
231 			sflag = 1;
232 			break;
233 		case 'U' :			/* list unreferenced */
234 			Uflag = 1;		/*	dependencies */
235 			if (uflag)
236 				error++;
237 			break;
238 		case 'u' :			/* list unused dependencies */
239 			uflag = 1;
240 			if (Uflag)
241 				error++;
242 			break;
243 		case 'v' :			/* enable verbose output */
244 			vflag = 1;
245 			break;
246 		case 'w' :			/* expose unresolved weak */
247 			wflag = 1;		/*	references */
248 			break;
249 		default :
250 			error++;
251 			break;
252 		}
253 		if (error)
254 			break;
255 	}
256 	if (error) {
257 		(void) fprintf(stderr, MSG_INTL(MSG_ARG_USAGE), cname);
258 		exit(1);
259 	}
260 
261 	/*
262 	 * Determine if any of the LD_PRELOAD family is already set in the
263 	 * environment, if so we'll continue to analyze each object with the
264 	 * appropriate setting.
265 	 */
266 	if (((prefile_32 = getenv(MSG_ORIG(MSG_LD_PRELOAD_32))) == NULL) ||
267 	    (*prefile_32 == '\0')) {
268 		prefile_32 = MSG_ORIG(MSG_STR_EMPTY);
269 	}
270 	if (((prefile_64 = getenv(MSG_ORIG(MSG_LD_PRELOAD_64))) == NULL) ||
271 	    (*prefile_64 == '\0')) {
272 		prefile_64 = MSG_ORIG(MSG_STR_EMPTY);
273 	}
274 	if (((prefile = getenv(MSG_ORIG(MSG_LD_PRELOAD))) == NULL) ||
275 	    (*prefile == '\0')) {
276 		prefile = MSG_ORIG(MSG_STR_EMPTY);
277 	}
278 
279 	/*
280 	 * Determine if any environment requests are for the LD_PRELOAD family,
281 	 * and if so override any environment settings we've established above.
282 	 */
283 	for (APLIST_TRAVERSE(eopts, idx, str)) {
284 		if ((strncmp(str, MSG_ORIG(MSG_LD_PRELOAD_32),
285 		    MSG_LD_PRELOAD_32_SIZE)) == 0) {
286 			str += MSG_LD_PRELOAD_32_SIZE;
287 			if ((*str++ == '=') && (*str != '\0'))
288 				prefile_32 = str;
289 			continue;
290 		}
291 		if ((strncmp(str, MSG_ORIG(MSG_LD_PRELOAD_64),
292 		    MSG_LD_PRELOAD_64_SIZE)) == 0) {
293 			str += MSG_LD_PRELOAD_64_SIZE;
294 			if ((*str++ == '=') && (*str != '\0'))
295 				prefile_64 = str;
296 			continue;
297 		}
298 		if ((strncmp(str, MSG_ORIG(MSG_LD_PRELOAD),
299 		    MSG_LD_PRELOAD_SIZE)) == 0) {
300 			str += MSG_LD_PRELOAD_SIZE;
301 			if ((*str++ == '=') && (*str != '\0'))
302 				prefile = str;
303 			continue;
304 		}
305 	}
306 
307 	/*
308 	 * Set the appropriate relocation environment variables (Note unsetting
309 	 * the environment variables is done just in case the user already
310 	 * has these in their environment ... sort of thing the test folks
311 	 * would do :-)
312 	 */
313 	warn[sizeof (warn) - 2] = (dflag || rflag || Uflag || uflag) ? '1' :
314 	    '\0';
315 	bind[sizeof (bind) - 2] = (rflag) ? '1' : '\0';
316 	path[sizeof (path) - 2] = (sflag) ? '1' : '\0';
317 	verb[sizeof (verb) - 2] = (vflag) ? '1' : '\0';
318 	fltr[sizeof (fltr) - 2] = (Lflag) ? '\0' : (lflag) ? '2' : '1';
319 	init[sizeof (init) - 2] = (iflag) ? '1' : '\0';
320 	conf[sizeof (conf) - 2] = (cflag) ? '1' : '\0';
321 	lazy[sizeof (lazy) - 2] = (Lflag) ? '\0' : '1';
322 	uref[sizeof (uref) - 2] = (Uflag) ? '1' : '\0';
323 	used[sizeof (used) - 2] = (uflag) ? '1' : '\0';
324 	weak[sizeof (weak) - 2] = (wflag) ? '1' : '\0';
325 	nope[sizeof (nope) - 2] = (pflag) ? '1' : '\0';
326 	defr[sizeof (defr) - 2] = (Dflag) ? '\0' : '1';
327 
328 	/*
329 	 * coordinate libelf's version information
330 	 */
331 	if (elf_version(EV_CURRENT) == EV_NONE) {
332 		(void) fprintf(stderr, MSG_INTL(MSG_ELF_LIBELF), cname,
333 		    EV_CURRENT);
334 		exit(1);
335 	}
336 
337 	/*
338 	 * Loop through remaining arguments.  Note that from here on there
339 	 * are no exit conditions so that we can process a list of files,
340 	 * any error condition is retained for a final exit status.
341 	 */
342 	nfile = argc - optind;
343 	for (; optind < argc; optind++) {
344 		char	*fname = argv[optind];
345 
346 		/*
347 		 * Open file (do this before checking access so that we can
348 		 * provide the user with better diagnostics).
349 		 */
350 		if ((var = open(fname, O_RDONLY)) == -1) {
351 			int	err = errno;
352 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_OPEN), cname,
353 			    fname, strerror(err));
354 			error = 1;
355 			continue;
356 		}
357 
358 		/*
359 		 * Get the files elf descriptor and process it as an elf or
360 		 * a.out (4.x) file.
361 		 */
362 		elf = elf_begin(var, ELF_C_READ, (Elf *)0);
363 		switch (elf_kind(elf)) {
364 		case ELF_K_AR :
365 			(void) fprintf(stderr, MSG_INTL(MSG_USP_NODYNORSO),
366 			    cname, fname);
367 			error = 1;
368 			break;
369 		case ELF_K_COFF:
370 			(void) fprintf(stderr, MSG_INTL(MSG_USP_UNKNOWN),
371 			    cname, fname);
372 			error = 1;
373 			break;
374 		case ELF_K_ELF:
375 			if (elf_check(nfile, fname, cname, elf, fflag) != NULL)
376 				error = 1;
377 			break;
378 		default:
379 			/*
380 			 * This is either an unknown file or an aout format
381 			 */
382 			if (aout_check(nfile, fname, cname, var, fflag) != NULL)
383 				error = 1;
384 			break;
385 		}
386 		(void) elf_end(elf);
387 		(void) close(var);
388 	}
389 	return (error);
390 }
391 
392 
393 
394 static int
395 elf_check(int nfile, char *fname, char *cname, Elf *elf, int fflag)
396 {
397 	Conv_inv_buf_t	inv_buf;
398 	GElf_Ehdr 	ehdr;
399 	GElf_Phdr 	phdr;
400 	int		dynamic = 0, interp = 0, cnt, class;
401 
402 	/*
403 	 * verify information in file header
404 	 */
405 	if (gelf_getehdr(elf, &ehdr) == NULL) {
406 		(void) fprintf(stderr, MSG_INTL(MSG_ELF_GETEHDR),
407 		    cname, fname, elf_errmsg(-1));
408 		return (1);
409 	}
410 
411 	/*
412 	 * Compatible machine
413 	 */
414 	if ((ehdr.e_machine != M_MACH_32) && (ehdr.e_machine != M_MACH_64) &&
415 	    (ehdr.e_machine != M_MACHPLUS)) {
416 		(void) fprintf(stderr, MSG_INTL(MSG_ELF_MACHTYPE), cname, fname,
417 		    conv_ehdr_mach(ehdr.e_machine, 0, &inv_buf));
418 		return (1);
419 	}
420 
421 	/*
422 	 * Compatible encoding (byte order)
423 	 */
424 	if (ehdr.e_ident[EI_DATA] != M_DATA) {
425 		(void) fprintf(stderr, MSG_INTL(MSG_ELF_DATA), cname, fname,
426 		    conv_ehdr_data(ehdr.e_ident[EI_DATA], 0, &inv_buf));
427 		return (1);
428 	}
429 
430 	/*
431 	 * Compatible class
432 	 */
433 	switch (class = ehdr.e_ident[EI_CLASS]) {
434 	case ELFCLASS32:
435 		/*
436 		 * If M_MACH is not the same thing as M_MACHPLUS and this
437 		 * is an M_MACHPLUS object, then the corresponding header
438 		 * flag must be set.
439 		 */
440 		if ((ehdr.e_machine != M_MACH) &&
441 		    ((ehdr.e_flags & M_FLAGSPLUS) == 0)) {
442 			(void) fprintf(stderr, MSG_INTL(MSG_ELF_MACHFLAGS),
443 			    cname, fname);
444 			return (1);
445 		}
446 		break;
447 	case ELFCLASS64:
448 		/* Requires 64-bit kernel */
449 		if (conv_sys_eclass() == ELFCLASS32) {
450 			(void) fprintf(stderr, MSG_INTL(MSG_ELF_KCLASS32),
451 			    cname, fname, conv_ehdr_class(class, 0, &inv_buf));
452 			return (1);
453 		}
454 		break;
455 	default:
456 		(void) fprintf(stderr, MSG_INTL(MSG_ELF_CLASS), cname, fname,
457 		    conv_ehdr_class(class, 0, &inv_buf));
458 		return (1);
459 	}
460 
461 	/*
462 	 * Object type
463 	 */
464 	if ((ehdr.e_type != ET_EXEC) && (ehdr.e_type != ET_DYN) &&
465 	    (ehdr.e_type != ET_REL)) {
466 		(void) fprintf(stderr, MSG_INTL(MSG_ELF_BADMAGIC),
467 		    cname, fname);
468 		return (1);
469 	}
470 
471 	/*
472 	 * Check that the file is executable.  Dynamic executables must be
473 	 * executable to be exec'ed.  Shared objects need not be executable to
474 	 * be mapped with a dynamic executable, however, by convention they're
475 	 * supposed to be executable.
476 	 */
477 	if (access(fname, X_OK) != 0) {
478 		if (ehdr.e_type == ET_EXEC) {
479 			(void) fprintf(stderr, MSG_INTL(MSG_USP_NOTEXEC_1),
480 			    cname, fname);
481 			return (1);
482 		}
483 		(void) fprintf(stderr, MSG_INTL(MSG_USP_NOTEXEC_2), cname,
484 		    fname);
485 	}
486 
487 	/*
488 	 * Determine whether we have a dynamic section or interpretor.
489 	 */
490 	for (cnt = 0; cnt < (int)ehdr.e_phnum; cnt++) {
491 		if (dynamic && interp)
492 			break;
493 
494 		if (gelf_getphdr(elf, cnt, &phdr) == NULL) {
495 			(void) fprintf(stderr, MSG_INTL(MSG_ELF_GETPHDR),
496 			    cname, fname, elf_errmsg(-1));
497 			return (1);
498 		}
499 
500 		if (phdr.p_type == PT_DYNAMIC) {
501 			dynamic = 1;
502 			continue;
503 		}
504 
505 		if (phdr.p_type != PT_INTERP)
506 			continue;
507 
508 		interp = 1;
509 
510 		/*
511 		 * If fflag is not set, and euid == root, and the interpreter
512 		 * does not live under /lib, /usr/lib or /etc/lib then don't
513 		 * allow ldd to execute the image.  This prevents someone
514 		 * creating a `trojan horse' by substituting their own
515 		 * interpreter that could preform privileged operations
516 		 * when ldd is against it.
517 		 */
518 		if ((fflag == 0) && (geteuid() == 0) &&
519 		    (strcmp(fname, conv_lddstub(class)) != 0)) {
520 			char	*interpreter;
521 
522 			/*
523 			 * Does the interpreter live under a trusted directory.
524 			 */
525 			interpreter = elf_getident(elf, 0) + phdr.p_offset;
526 
527 			if ((strncmp(interpreter, MSG_ORIG(MSG_PTH_USRLIB),
528 			    MSG_PTH_USRLIB_SIZE) != 0) &&
529 			    (strncmp(interpreter, MSG_ORIG(MSG_PTH_LIB),
530 			    MSG_PTH_LIB_SIZE) != 0) &&
531 			    (strncmp(interpreter, MSG_ORIG(MSG_PTH_ETCLIB),
532 			    MSG_PTH_ETCLIB_SIZE) != 0)) {
533 				(void) fprintf(stderr, MSG_INTL(MSG_USP_ELFINS),
534 				    cname, fname, interpreter);
535 				return (1);
536 			}
537 		}
538 	}
539 
540 	/*
541 	 * Catch the case of a static executable (ie, an ET_EXEC that has a set
542 	 * of program headers but no PT_DYNAMIC).
543 	 */
544 	if (ehdr.e_phnum && !dynamic) {
545 		(void) fprintf(stderr, MSG_INTL(MSG_USP_NODYNORSO), cname,
546 		    fname);
547 		return (1);
548 	}
549 
550 	/*
551 	 * If there is a dynamic section, then check for the DF_1_NOHDR
552 	 * flag, and bail if it is present. Such objects are created using
553 	 * a mapfile option (?N in the version 1 syntax, or HDR_NOALLOC
554 	 * otherwise). The ELF header and program headers are
555 	 * not mapped as part of the first segment, and virtual addresses
556 	 * are computed without them. If ldd tries to interpret such
557 	 * a file, it will become confused and generate bad output or
558 	 * crash. Such objects are always special purpose files (like an OS
559 	 * kernel) --- files for which the ldd operation doesn't make sense.
560 	 */
561 	if (dynamic && (_gelf_getdyndtflags_1(elf) & DF_1_NOHDR)) {
562 		(void) fprintf(stderr, MSG_INTL(MSG_USP_NOHDR), cname,
563 		    fname);
564 		return (1);
565 	}
566 
567 	load = load_elf;
568 
569 	/*
570 	 * Run the required program (shared and relocatable objects require the
571 	 * use of lddstub).
572 	 */
573 	if ((ehdr.e_type == ET_EXEC) && interp)
574 		return (run(nfile, cname, fname, (const char *)fname, class));
575 	else
576 		return (run(nfile, cname, fname, conv_lddstub(class), class));
577 }
578 
579 static int
580 aout_check(int nfile, char *fname, char *cname, int fd, int fflag)
581 {
582 	struct exec32	aout;
583 	int		err;
584 
585 	if (lseek(fd, 0, SEEK_SET) != 0) {
586 		err = errno;
587 		(void) fprintf(stderr, MSG_INTL(MSG_SYS_LSEEK), cname, fname,
588 		    strerror(err));
589 		return (1);
590 	}
591 	if (read(fd, (char *)&aout, sizeof (aout)) != sizeof (aout)) {
592 		err = errno;
593 		(void) fprintf(stderr, MSG_INTL(MSG_SYS_READ), cname, fname,
594 		    strerror(err));
595 		return (1);
596 	}
597 	if (aout.a_machtype != M_SPARC) {
598 		(void) fprintf(stderr, MSG_INTL(MSG_USP_UNKNOWN), cname, fname);
599 		return (1);
600 	}
601 	if (N_BADMAG(aout) || !aout.a_dynamic) {
602 		(void) fprintf(stderr, MSG_INTL(MSG_USP_NODYNORSO), cname,
603 		    fname);
604 		return (1);
605 	}
606 	if (!fflag && (geteuid() == 0)) {
607 		(void) fprintf(stderr, MSG_INTL(MSG_USP_AOUTINS), cname, fname);
608 		return (1);
609 	}
610 
611 	/*
612 	 * Run the required program.
613 	 */
614 	if ((aout.a_magic == ZMAGIC) && (aout.a_entry <= sizeof (aout))) {
615 		load = load_elf;
616 		return (run(nfile, cname, fname, conv_lddstub(ELFCLASS32),
617 		    ELFCLASS32));
618 	} else {
619 		load = load_aout;
620 		return (run(nfile, cname, fname, (const char *)fname,
621 		    ELFCLASS32));
622 	}
623 }
624 
625 
626 /*
627  * Run the required program, setting the preload and trace environment
628  * variables accordingly.
629  */
630 static int
631 run(int nfile, char *cname, char *fname, const char *ename, int class)
632 {
633 	const char	*preload = 0;
634 	int		pid, status;
635 
636 	if ((pid = fork()) == -1) {
637 		int	err = errno;
638 		(void) fprintf(stderr, MSG_INTL(MSG_SYS_FORK), cname,
639 		    strerror(err));
640 		return (1);
641 	}
642 
643 	if (pid) {				/* parent */
644 		while (wait(&status) != pid)
645 			;
646 		if (WIFSIGNALED(status) && ((WSIGMASK & status) != SIGPIPE)) {
647 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_EXEC), cname,
648 			    fname);
649 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_EXEC_SIG),
650 			    (WSIGMASK & status), ((status & WCOREFLG) ?
651 			    MSG_INTL(MSG_SYS_EXEC_CORE) :
652 			    MSG_ORIG(MSG_STR_EMPTY)));
653 			status = 1;
654 		} else if (WHIBYTE(status)) {
655 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_EXEC), cname,
656 			    fname);
657 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_EXEC_STAT),
658 			    WHIBYTE(status));
659 			status = 1;
660 		}
661 	} else {				/* child */
662 		Aliste	idx;
663 		char	*str;
664 		size_t	size;
665 
666 		/*
667 		 * When using ldd(1) to analyze a shared object we preload the
668 		 * shared object with lddstub.  Any additional preload
669 		 * requirements are added after the object being analyzed, this
670 		 * allows us to skip the first object but produce diagnostics
671 		 * for each other preloaded object.
672 		 */
673 		if (fname != ename) {
674 			char		*str;
675 			const char	*files = prefile;
676 			const char	*format = MSG_ORIG(MSG_STR_FMT1);
677 
678 			for (str = fname; *str; str++)
679 				if (*str == '/') {
680 					format = MSG_ORIG(MSG_STR_FMT2);
681 					break;
682 			}
683 
684 			preload = MSG_ORIG(MSG_LD_PRELOAD);
685 
686 			/*
687 			 * Determine which preload files and preload environment
688 			 * variable to use.
689 			 */
690 			if (class == ELFCLASS64) {
691 				if (prefile_64 != MSG_ORIG(MSG_STR_EMPTY)) {
692 					files = prefile_64;
693 					preload = MSG_ORIG(MSG_LD_PRELOAD_64);
694 				}
695 			} else {
696 				if (prefile_32 != MSG_ORIG(MSG_STR_EMPTY)) {
697 					files = prefile_32;
698 					preload = MSG_ORIG(MSG_LD_PRELOAD_32);
699 				}
700 			}
701 
702 			if ((str = (char *)malloc(strlen(preload) +
703 			    strlen(fname) + strlen(files) + 5)) == 0) {
704 				(void) fprintf(stderr, MSG_INTL(MSG_SYS_MALLOC),
705 				    cname);
706 				exit(1);
707 			}
708 
709 			(void) sprintf(str, format, preload, fname, files);
710 			if (putenv(str) != 0) {
711 				(void) fprintf(stderr, MSG_INTL(MSG_ENV_FAILED),
712 				    cname);
713 				exit(1);
714 			}
715 
716 			/*
717 			 * The pointer "load" has be assigned to load_elf[] or
718 			 * load_aout[].  Use the size of load_elf[] as the size
719 			 * of load_aout[] is the same.
720 			 */
721 			load[sizeof (load_elf) - 2] = '2';
722 		} else
723 			load[sizeof (load_elf) - 2] = '1';
724 
725 
726 		/*
727 		 * Establish new environment variables to affect the child
728 		 * process.
729 		 */
730 		if ((putenv(warn) != 0) || (putenv(bind) != 0) ||
731 		    (putenv(path) != 0) || (putenv(verb) != 0) ||
732 		    (putenv(fltr) != 0) || (putenv(conf) != 0) ||
733 		    (putenv(init) != 0) || (putenv(lazy) != 0) ||
734 		    (putenv(uref) != 0) || (putenv(used) != 0) ||
735 		    (putenv(weak) != 0) || (putenv(load) != 0) ||
736 		    (putenv(nope) != 0) || (putenv(defr) != 0)) {
737 			(void) fprintf(stderr, MSG_INTL(MSG_ENV_FAILED), cname);
738 			exit(1);
739 		}
740 
741 		/*
742 		 * Establish explicit environment requires (but don't override
743 		 * any preload request established to process a shared object).
744 		 */
745 		size = 0;
746 		for (APLIST_TRAVERSE(eopts, idx, str)) {
747 			if (preload) {
748 				if (size == 0)
749 					size = strlen(preload);
750 				if ((strncmp(preload, str, size) == 0) &&
751 				    (str[size] == '=')) {
752 					continue;
753 				}
754 			}
755 			if (putenv(str) != 0) {
756 				(void) fprintf(stderr, MSG_INTL(MSG_ENV_FAILED),
757 				    cname);
758 				exit(1);
759 			}
760 		}
761 
762 		/*
763 		 * Execute the object and let ld.so.1 do the rest.
764 		 */
765 		if (nfile > 1)
766 			(void) printf(MSG_ORIG(MSG_STR_FMT3), fname);
767 		(void) fflush(stdout);
768 		if ((execl(ename, ename, (char *)0)) == -1) {
769 			(void) fprintf(stderr, MSG_INTL(MSG_SYS_EXEC), cname,
770 			    fname);
771 			perror(ename);
772 			_exit(0);
773 			/* NOTREACHED */
774 		}
775 	}
776 	return (status);
777 }
778 
779 const char *
780 _ldd_msg(Msg mid)
781 {
782 	return (gettext(MSG_ORIG(mid)));
783 }
784