9f58d9cdbe9668adcaa50d1a249592ca12708267
[kopensolaris-gnu/glibc.git] / sysdeps / unix / sysv / linux / init-first.c
1 /* Initialization code run first thing by the ELF startup code.  Linux version.
2    Copyright (C) 1995-1999, 2000 Free Software Foundation, Inc.
3    This file is part of the GNU C Library.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 #include <stdio.h>
21 #include <fcntl.h>
22 #include <unistd.h>
23 #include <sysdep.h>
24 #include <fpu_control.h>
25 #include <sys/param.h>
26 #include <sys/sysctl.h>
27 #include <sys/types.h>
28 #include "kernel-features.h"
29
30 extern void __libc_init_secure (void);
31 extern void __libc_init (int, char **, char **);
32 extern void __libc_global_ctors (void);
33
34 /* The function is called from assembly stubs the compiler can't see.  */
35 static void init (int, char **, char **) __attribute__ ((unused));
36
37 /* The function we use to get the kernel revision.  */
38 extern int __sysctl (int *name, int nlen, void *oldval, size_t *oldlenp,
39                      void *newval, size_t newlen);
40
41 extern int _dl_starting_up;
42 weak_extern (_dl_starting_up)
43
44 extern fpu_control_t _dl_fpu_control;
45 extern int _dl_fpu_control_set;
46
47 /* Set nonzero if we have to be prepared for more then one libc being
48    used in the process.  Safe assumption if initializer never runs.  */
49 int __libc_multiple_libcs = 1;
50
51 /* Remember the command line argument and enviroment contents for
52    later calls of initializers for dynamic libraries.  */
53 int __libc_argc;
54 char **__libc_argv;
55
56
57 static void
58 init (int argc, char **argv, char **envp)
59 {
60   extern void __getopt_clean_environment (char **);
61   /* The next variable is only here to work around a bug in gcc <= 2.7.2.2.
62      If the address would be taken inside the expression the optimizer
63      would try to be too smart and throws it away.  Grrr.  */
64   int *dummy_addr = &_dl_starting_up;
65
66   __libc_multiple_libcs = dummy_addr && !_dl_starting_up;
67
68   /* Make sure we don't initialize twice.  */
69   if (!__libc_multiple_libcs)
70     {
71       /* Test whether the kernel is new enough.  This test is only
72          performed if the library is not compiled to run on all
73          kernels.  */
74       if (__LINUX_KERNEL_VERSION > 0)
75         {
76           static const int sysctl_args[] = { CTL_KERN, KERN_OSRELEASE };
77           char buf[64];
78           size_t reslen = sizeof (buf);
79           unsigned int version;
80           int parts;
81           char *cp;
82
83           /* Try reading the number using `sysctl' first.  */
84           if (__sysctl ((int *) sysctl_args,
85                         sizeof (sysctl_args) / sizeof (sysctl_args[0]),
86                         buf, &reslen, NULL, 0) < 0)
87             {
88               /* This was not successful.  Now try reading the /proc
89                  filesystem.  */
90               int fd = __open ("/proc/sys/kernel/osrelease", O_RDONLY);
91               if (fd == -1
92                   || (reslen = __read (fd, buf, sizeof (buf))) <= 0)
93                 /* This also didn't work.  We give up since we cannot
94                    make sure the library can actually work.  */
95                 __libc_fatal ("FATAL: cannot determine library version\n");
96
97               __close (fd);
98             }
99           buf[MIN (reslen, sizeof (buf) - 1)] = '\0';
100
101           /* Now convert it into a number.  The string consists of at most
102              three parts.  */
103           version = 0;
104           parts = 0;
105           cp = buf;
106           while ((*cp >= '0') && (*cp <= '9'))
107             {
108               unsigned int here = *cp++ - '0';
109
110               while ((*cp >= '0') && (*cp <= '9'))
111                 {
112                   here *= 10;
113                   here += *cp++ - '0';
114                 }
115
116               ++parts;
117               version <<= 8;
118               version |= here;
119
120               if (*cp++ != '.')
121                 /* Another part following?  */
122                 break;
123             }
124
125           if (parts < 3)
126             version <<= 8 * (3 - parts);
127
128           /* Now we can test with the required version.  */
129           if (version < __LINUX_KERNEL_VERSION)
130             /* Not sufficent.  */
131             __libc_fatal ("FATAL: kernel too old\n");
132         }
133
134       /* Set the FPU control word to the proper default value if the
135          kernel would use a different value.  (In a static program we
136          don't have this information.)  */
137 #ifdef SHARED
138       if (__fpu_control != _dl_fpu_control)
139 #endif
140         __setfpucw (__fpu_control);
141     }
142
143   /* Save the command-line arguments.  */
144   __libc_argc = argc;
145   __libc_argv = argv;
146   __environ = envp;
147
148 #ifndef SHARED
149   __libc_init_secure ();
150 #endif
151
152   __libc_init (argc, argv, envp);
153
154   /* This is a hack to make the special getopt in GNU libc working.  */
155   __getopt_clean_environment (envp);
156
157 #ifdef SHARED
158   __libc_global_ctors ();
159 #endif
160 }
161
162 #ifdef SHARED
163
164 strong_alias (init, _init);
165
166 void
167 __libc_init_first (void)
168 {
169 }
170
171 #else
172 void
173 __libc_init_first (int argc, char **argv, char **envp)
174 {
175   init (argc, argv, envp);
176 }
177 #endif
178
179
180 /* This function is defined here so that if this file ever gets into
181    ld.so we will get a link error.  Having this file silently included
182    in ld.so causes disaster, because the _init definition above will
183    cause ld.so to gain an init function, which is not a cool thing. */
184
185 void
186 _dl_start (void)
187 {
188   abort ();
189 }