Replace FSF snail mail address with URLs.
[platform/upstream/glibc.git] / csu / init-first.c
1 /* Initialization code run first thing by the ELF startup code.  Stub version.
2    Copyright (C) 1995, 1997, 1998, 2001, 2002 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 Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the 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    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; if not, see
17    <http://www.gnu.org/licenses/>.  */
18
19 #include <unistd.h>
20 #include <sys/types.h>
21
22 /* Set nonzero if we have to be prepared for more then one libc being
23    used in the process.  Safe assumption if initializer never runs.  */
24 int __libc_multiple_libcs attribute_hidden = 1;
25
26 extern void __libc_init (int, char **, char **);
27 #ifdef USE_NONOPTION_FLAGS
28 extern void __getopt_clean_environment (char **);
29 #endif
30
31 #ifdef SHARED
32 void
33 __libc_init_first (void)
34 {
35 }
36 #endif
37
38 #ifdef SHARED
39 /* NOTE!  The linker notices the magical name `_init' and sets the DT_INIT
40    pointer in the dynamic section based solely on that.  It is convention
41    for this function to be in the `.init' section, but the symbol name is
42    the only thing that really matters!!  */
43 void _init
44 #else
45 void __libc_init_first
46 #endif
47 (int argc, char *arg0, ...)
48 {
49   char **argv = &arg0, **envp = &argv[argc + 1];
50
51   __environ = envp;
52   __libc_init (argc, argv, envp);
53
54 #ifdef USE_NONOPTION_FLAGS
55   /* This is a hack to make the special getopt in GNU libc working.  */
56   __getopt_clean_environment (envp);
57 #endif
58 }