lib/csu/vax/crt0.c

   1 /*      $NetBSD: crt0.c,v 1.16 2008/04/28 20:22:55 martin Exp $ */
   2
   3 /*-
   4  * Copyright (c) 1998 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Paul Kranenburg.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #include <stdlib.h>
  33
  34 #include "common.h"
  35
  36 extern void     start __P((void)) __asm("start");
  37 struct kframe {
  38         int     kargc;
  39         char    *kargv[1];      /* size depends on kargc */
  40         char    kargstr[1];     /* size varies */
  41         char    kenvstr[1];     /* size varies */
  42 };
  43
  44         __asm(" .text");
  45         __asm(" .align 2");
  46         __asm(" .globl start");
  47         __asm(" .type start,@function");
  48         __asm(" start:");
  49         __asm("         .word 0x0101");         /* two nops just in case */
  50         __asm("         pushl %sp");            /* no registers to save */
  51         __asm("         calls $1,___start");    /* do the real start */
  52         __asm("         halt");
  53
  54 void
  55 __start(kfp)
  56         struct kframe *kfp;
  57 {
  58         /*
  59          *      ALL REGISTER VARIABLES!!!
  60          */
  61         char **argv, *ap;
  62
  63         argv = &kfp->kargv[0];
  64         environ = argv + kfp->kargc + 1;
  65
  66         if (ap = argv[0])
  67                 if ((__progname = _strrchr(ap, '/')) == NULL)
  68                         __progname = ap;
  69                 else
  70                         ++__progname;
  71
  72 #ifdef DYNAMIC
  73         /* ld(1) convention: if DYNAMIC = 0 then statically linked */
  74         if (&_DYNAMIC)
  75                 __load_rtld(&_DYNAMIC);
  76 #endif /* DYNAMIC */
  77
  78 __asm("eprol:");
  79
  80 #ifdef MCRT0
  81         atexit(_mcleanup);
  82         monstartup((u_long)&eprol, (u_long)&etext);
  83 #endif /* MCRT0 */
  84
  85 __asm ("__callmain:");          /* Defined for the benefit of debuggers */
  86         exit(main(kfp->kargc, argv, environ));
  87 }
  88
  89 #ifdef DYNAMIC
  90         __asm(" ___syscall:");
  91         __asm("         .word 0");              /* no registers to save */
  92         __asm("         addl2 $4,%ap");         /* n-1 args to syscall */
  93         __asm("         movl (%ap),r0");        /* get syscall number */
  94         __asm("         subl3 $1,-4(%ap),(%ap)"); /* n-1 args to syscall */
  95         __asm("         chmk %r0");             /* do system call */
  96         __asm("         jcc 1f");               /* check error */
  97         __asm("         mnegl $1,%r0");
  98         __asm("         ret");
  99         __asm(" 1:      movpsl -(%sp)");        /* flush the icache */
 100         __asm("         pushab 2f");            /* by issuing an REI */
 101         __asm("         rei");
 102         __asm(" 2:      ret");
 103
 104 #endif /* DYNAMIC */
 105
 106 #include "common.c"
 107
 108 #if defined(LIBC_SCCS) && !defined(lint)
 109 __RCSID("$NetBSD: crt0.c,v 1.16 2008/04/28 20:22:55 martin Exp $");
 110 #endif /* LIBC_SCCS and not lint */
 111
 112 #ifdef MCRT0
 113 __asm ("        .text");
 114 __asm ("_eprol:");
 115 #endif