lib/csu/pc532/crt0.c

   1 /*-
   2  * Copyright (c) 1990 The Regents of the University of California.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #if defined(LIBC_SCCS) && !defined(lint)
  35 /*static char sccsid[] = "@(#)crt0.c    5.7 (Berkeley) 7/3/91"; */
  36 static char rcsid[] = "";
  37 #endif /* LIBC_SCCS and not lint */
  38
  39
  40 /*
  41  *      $Id: crt0.c,v 1.1 1993/09/17 18:42:10 phil Exp $
  42  *
  43  *      C start up routine.
  44  *      Robert Henry, UCB, 20 Oct 81
  45  *
  46  *      Modified by Phil Nelson for the PC532, July 18, 1993.
  47  *
  48  *      We make the following (true) assumption:
  49  *      1) We can trust fp and sp.  Both "start" pointing to the
  50  *      first entry in the argc/argv/envp structure...  After
  51  *      the "enter [???],?", fp points to the word just before
  52  *      the argc/argv/envp structure!
  53  *
  54  */
  55
  56 #include <stddef.h>
  57 #include <stdlib.h>
  58 #include <string.h>
  59
  60 char    **environ = (char **)0;
  61 static char empty[1];
  62 char    *__progname = empty;
  63 int     errno = 0;
  64
  65 /* To make sure "start" is past the a.out header.  This should go away soon. */
  66 asm(".text");
  67 asm(".long 0,0,0,0,0,0,0,0");
  68
  69 extern  unsigned char   etext;
  70 extern  unsigned char   eprol asm ("eprol");
  71 extern                  start() asm("start");
  72 extern                  mcount() asm ("mcount");
  73
  74 start(long param)
  75 {
  76         struct kframe {
  77                 int     kargc;
  78                 char    *kargv[1];      /* size depends on kargc */
  79                 char    kargstr[1];     /* size varies */
  80                 char    kenvstr[1];     /* size varies */
  81         };
  82         /*
  83          *      ALL REGISTER VARIABLES!!!
  84          */
  85         register struct kframe *kfp;
  86         register char **targv;
  87         register char **argv;
  88         extern void _mcleanup();
  89
  90         kfp = (struct kframe *) (&param-1);
  91         for (argv = targv = &kfp->kargv[0]; *targv++; /* void */)
  92                 /* void */ ;
  93         if (targv >= (char **)(*argv))
  94                 --targv;
  95         environ = targv;
  96 asm("eprol:");
  97
  98 #ifdef MCRT0
  99         atexit(_mcleanup);
 100         monstartup(&eprol, &etext);
 101 #endif MCRT0
 102         errno = 0;
 103         if (argv[0])
 104                 if ((__progname = strrchr(argv[0], '/')) == NULL)
 105                         __progname = argv[0];
 106                 else
 107                         ++__progname;
 108         exit(main(kfp->kargc, argv, environ));
 109 }
 110
 111 #ifdef CRT0
 112 /*
 113  * null mcount and moncontrol,
 114  * just in case some routine is compiled for profiling
 115  */
 116 moncontrol(val)
 117         int val;
 118 {
 119 }
 120
 121 mcount() { }
 122 #endif CRT0