* copied from BSD

rtl/bsd/i386/crt1.c

@@ -0,0 +1,102 @@
+/*-
+ * Copyright 1996-1998 John D. Polstra.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * $FreeBSD: src/lib/csu/i386-elf/crt1.c,v 1.3.2.1 1999/08/29 14:55:14 peter Exp $
+ */
+
+#ifndef __GNUC__
+#error "GCC is needed to compile this file"
+#endif
+
+#include <stddef.h>
+#include <stdlib.h>
+
+typedef void (*fptr)(void);
+
+extern void _fini(void);
+extern void _init(void);
+extern int main(int, char **, char **);
+
+#ifdef GCRT
+extern void _mcleanup(void);
+extern void monstartup(void *, void *);
+extern int eprol;
+extern int etext;
+#endif
+
+extern int _DYNAMIC;
+#pragma weak _DYNAMIC
+
+#ifdef __i386__
+#define get_rtld_cleanup()				\
+    ({ fptr __value;					\
+       __asm__("movl %%edx,%0" : "=rm"(__value));	\
+       __value; })
+#else
+#error "This file only supports the i386 architecture"
+#endif
+
+char **environ;
+char *__progname = "";
+
+void
+_start(char *arguments, ...)
+{
+    fptr rtld_cleanup;
+    int argc;
+    char **argv;
+    char **env;
+
+    rtld_cleanup = get_rtld_cleanup();
+    argv = &arguments;
+    argc = * (int *) (argv - 1);
+    env = argv + argc + 1;
+    environ = env;
+    if(argc > 0 && argv[0] != NULL) {
+	char *s;
+	__progname = argv[0];
+	for (s = __progname; *s != '\0'; s++)
+	    if (*s == '/')
+		__progname = s + 1;
+    }
+
+    if(&_DYNAMIC != NULL)
+	atexit(rtld_cleanup);
+
+#ifdef GCRT
+    atexit(_mcleanup);
+#endif
+    atexit(_fini);
+#ifdef GCRT
+    monstartup(&eprol, &etext);
+#endif
+    _init();
+    exit( main(argc, argv, env) );
+}
+
+#ifdef GCRT
+__asm__(".text");
+__asm__("eprol:");
+__asm__(".previous");
+#endif