1 /* LINTLIBRARY */ 2 /*- 3 * Copyright 1996-1998 John D. Polstra. 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 17 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 18 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 19 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 20 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 21 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 22 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 23 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 24 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 25 * 26 * $FreeBSD: src/lib/csu/amd64/crt1.c,v 1.13 2003/04/30 19:27:07 peter Exp $ 27 */ 28 29 #ifndef lint 30 #ifndef __GNUC__ 31 #error "GCC is needed to compile this file" 32 #endif 33 #endif /* lint */ 34 35 #include <machine/tls.h> 36 #include <stdlib.h> 37 38 #include "libc_private.h" 39 #include "crtbrand.c" 40 41 extern int _DYNAMIC; 42 #pragma weak _DYNAMIC 43 44 typedef void (*fptr)(void); 45 46 extern void _fini(void); 47 extern void _init(void); 48 extern int main(int, char **, char **); 49 extern void _start(char **, void (*)(void)); 50 51 #ifdef GCRT 52 extern void _mcleanup(void); 53 extern void monstartup(void *, void *); 54 extern int eprol; 55 extern int etext; 56 #endif 57 58 char **environ; 59 const char *__progname = ""; 60 61 /* The entry function. */ 62 void 63 _start(char **ap, void (*cleanup)(void)) 64 { 65 int argc; 66 char **argv; 67 char **env; 68 const char *s; 69 70 argc = *(long *)(void *)ap; 71 argv = ap + 1; 72 env = ap + 2 + argc; 73 environ = env; 74 if (argc > 0 && argv[0] != NULL) { 75 __progname = argv[0]; 76 for (s = __progname; *s != '\0'; s++) 77 if (*s == '/') 78 __progname = s + 1; 79 } 80 81 /* 82 * Setup the initial TLS space. The RTLD does not set up our TLS 83 * (it can't, it doesn't know how our errno is declared). It simply 84 * does all the groundwork required so that we can call 85 * _rtld_allocate_tls(). 86 */ 87 _init_tls(); 88 _rtld_call_init(); 89 90 if (&_DYNAMIC != NULL) 91 atexit(cleanup); 92 93 #ifdef GCRT 94 atexit(_mcleanup); 95 #endif 96 atexit(_fini); 97 #ifdef GCRT 98 monstartup(&eprol, &etext); 99 #endif 100 _init(); 101 exit( main(argc, argv, env) ); 102 } 103 104 #ifdef GCRT 105 __asm__(".text"); 106 __asm__("eprol:"); 107 __asm__(".previous"); 108 #endif 109