|
Packit |
6c4009 |
/* Startup code for Alpha/ELF.
|
|
Packit |
6c4009 |
Copyright (C) 1993-2018 Free Software Foundation, Inc.
|
|
Packit |
6c4009 |
This file is part of the GNU C Library.
|
|
Packit |
6c4009 |
Contributed by Richard Henderson <rth@tamu.edu>
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
The GNU C Library is free software; you can redistribute it and/or
|
|
Packit |
6c4009 |
modify it under the terms of the GNU Lesser General Public
|
|
Packit |
6c4009 |
License as published by the Free Software Foundation; either
|
|
Packit |
6c4009 |
version 2.1 of the License, or (at your option) any later version.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
In addition to the permissions in the GNU Lesser General Public
|
|
Packit |
6c4009 |
License, the Free Software Foundation gives you unlimited
|
|
Packit |
6c4009 |
permission to link the compiled version of this file with other
|
|
Packit |
6c4009 |
programs, and to distribute those programs without any restriction
|
|
Packit |
6c4009 |
coming from the use of this file. (The GNU Lesser General Public
|
|
Packit |
6c4009 |
License restrictions do apply in other respects; for example, they
|
|
Packit |
6c4009 |
cover modification of the file, and distribution when not linked
|
|
Packit |
6c4009 |
into another program.)
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
Note that people who make modified versions of this file are not
|
|
Packit |
6c4009 |
obligated to grant this special exception for their modified
|
|
Packit |
6c4009 |
versions; it is their choice whether to do so. The GNU Lesser
|
|
Packit |
6c4009 |
General Public License gives permission to release a modified
|
|
Packit |
6c4009 |
version without this exception; this exception also makes it
|
|
Packit |
6c4009 |
possible to release a modified version which carries forward this
|
|
Packit |
6c4009 |
exception.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
The GNU C Library is distributed in the hope that it will be useful,
|
|
Packit |
6c4009 |
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
6c4009 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
6c4009 |
Lesser General Public License for more details.
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
You should have received a copy of the GNU Lesser General Public
|
|
Packit |
6c4009 |
License along with the GNU C Library. If not, see
|
|
Packit |
6c4009 |
<http://www.gnu.org/licenses/>. */
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
#include <sysdep.h>
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
.text
|
|
Packit |
6c4009 |
.align 3
|
|
Packit |
6c4009 |
.globl _start
|
|
Packit |
6c4009 |
.ent _start, 0
|
|
Packit |
6c4009 |
.type _start,@function
|
|
Packit |
6c4009 |
_start:
|
|
Packit |
6c4009 |
.frame $15, 0, $15
|
|
Packit |
6c4009 |
br gp, 1f
|
|
Packit |
6c4009 |
1: ldgp gp, 0(gp)
|
|
Packit |
6c4009 |
subq sp, 16, sp
|
|
Packit |
6c4009 |
mov 0, $15
|
|
Packit |
6c4009 |
.prologue 0
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Load address of the user's main function. */
|
|
Packit |
6c4009 |
lda a0, main
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
ldl a1, 16(sp) /* get argc */
|
|
Packit |
6c4009 |
lda a2, 24(sp) /* get argv */
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Load address of our own entry points to .fini and .init. */
|
|
Packit |
6c4009 |
lda a3, __libc_csu_init
|
|
Packit |
6c4009 |
lda a4, __libc_csu_fini
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Store address of the shared library termination function. */
|
|
Packit |
6c4009 |
mov v0, a5
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Provide the highest stack address to the user code. */
|
|
Packit |
6c4009 |
stq sp, 0(sp)
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Call the user's main function, and exit with its value.
|
|
Packit |
6c4009 |
But let the libc call main. */
|
|
Packit |
6c4009 |
jsr ra, __libc_start_main
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Die very horribly if exit returns. Call_pal hlt is callable from
|
|
Packit |
6c4009 |
kernel mode only; this will result in an illegal instruction trap. */
|
|
Packit |
6c4009 |
call_pal 0
|
|
Packit |
6c4009 |
.end _start
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* For ECOFF backwards compatibility. */
|
|
Packit |
6c4009 |
weak_alias (_start, __start)
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/* Define a symbol for the first piece of initialized data. */
|
|
Packit |
6c4009 |
.data
|
|
Packit |
6c4009 |
.globl __data_start
|
|
Packit |
6c4009 |
__data_start:
|
|
Packit |
6c4009 |
.weak data_start
|
|
Packit |
6c4009 |
data_start = __data_start
|