1/* $NetBSD: crt0-common.c,v 1.6 2011/06/30 19:48:43 joerg Exp $ */
2
3/*
4 * Copyright (c) 1998 Christos Zoulas
5 * Copyright (c) 1995 Christopher G. Demetriou
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 *    notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 *    notice, this list of conditions and the following disclaimer in the
15 *    documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 *    must display the following acknowledgement:
18 *          This product includes software developed for the
19 *          NetBSD Project.  See http://www.NetBSD.org/ for
20 *          information about NetBSD.
21 * 4. The name of the author may not be used to endorse or promote products
22 *    derived from this software without specific prior written permission.
23 *
24 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
25 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
26 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
27 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
28 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
29 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
30 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
31 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
32 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
33 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
34 *
35 * <<Id: LICENSE,v 1.2 2000/06/14 15:57:33 cgd Exp>>
36 */
37
38#include <sys/cdefs.h>
39__RCSID("$NetBSD: crt0-common.c,v 1.6 2011/06/30 19:48:43 joerg Exp $");
40
41#include <sys/types.h>
42#include <sys/exec.h>
43#include <sys/syscall.h>
44#include <machine/profile.h>
45#include <stdlib.h>
46#include <unistd.h>
47
48#include "rtld.h"
49
50extern int main(int, char **, char **);
51
52extern void	_init(void);
53extern void	_fini(void);
54extern void	_libc_init(void);
55
56/*
57 * Arrange for _DYNAMIC to be weak and undefined (and therefore to show up
58 * as being at address zero, unless something else defines it).  That way,
59 * if we happen to be compiling without -static but with without any
60 * shared libs present, things will still work.
61 */
62
63__weakref_visible int rtld_DYNAMIC __weak_reference(_DYNAMIC);
64
65#ifdef MCRT0
66extern void	monstartup(u_long, u_long);
67extern void	_mcleanup(void);
68extern unsigned char __etext, __eprol;
69#endif /* MCRT0 */
70
71char		**environ;
72struct ps_strings *__ps_strings = 0;
73
74static char	 empty_string[] = "";
75char		*__progname = empty_string;
76
77__dso_hidden void ___start(void (*)(void), const Obj_Entry *,
78			 struct ps_strings *);
79
80#define	write(fd, s, n)	__syscall(SYS_write, (fd), (s), (n))
81
82#define	_FATAL(str)				\
83do {						\
84	write(2, str, sizeof(str)-1);		\
85	_exit(1);				\
86} while (0)
87
88void
89___start(void (*cleanup)(void),			/* from shared loader */
90    const Obj_Entry *obj,			/* from shared loader */
91    struct ps_strings *ps_strings)
92{
93
94	if (ps_strings == NULL)
95		_FATAL("ps_strings missing\n");
96	__ps_strings = ps_strings;
97
98	environ = ps_strings->ps_envstr;
99
100	if (ps_strings->ps_argvstr[0] != NULL) {
101		char *c;
102		__progname = ps_strings->ps_argvstr[0];
103		for (c = ps_strings->ps_argvstr[0]; *c; ++c) {
104			if (*c == '/')
105				__progname = c + 1;
106		}
107	} else {
108		__progname = empty_string;
109	}
110
111	if (&rtld_DYNAMIC != NULL) {
112		if (obj == NULL)
113			_FATAL("NULL Obj_Entry pointer in GOT\n");
114		if (obj->magic != RTLD_MAGIC)
115			_FATAL("Corrupt Obj_Entry pointer in GOT\n");
116		if (obj->version != RTLD_VERSION)
117			_FATAL("Dynamic linker version mismatch\n");
118		atexit(cleanup);
119	}
120
121	_libc_init();
122
123#ifdef MCRT0
124	atexit(_mcleanup);
125	monstartup((u_long)&__eprol, (u_long)&__etext);
126#endif
127
128	atexit(_fini);
129	_init();
130
131	exit(main(ps_strings->ps_nargvstr, ps_strings->ps_argvstr, environ));
132}
133