e8e41d4cf8
GP register, because it's clobbered for calls across load modules. The previous commit inserted the call to _init_tls() between the call to atexit() and the restoration of the GP register clobbered by it. Fix: restore GP before we call _init_tls(). Pointy hat: dfr@
197 lines
3.4 KiB
ArmAsm
197 lines
3.4 KiB
ArmAsm
/*
|
|
* Copyright (c) 2003 Marcel Moolenaar
|
|
* 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.
|
|
*/
|
|
|
|
.ident "$FreeBSD$"
|
|
|
|
.text
|
|
|
|
/*
|
|
* void _start(char **ap, struct ps_strings *, void (*cleanup)(void));
|
|
*/
|
|
#define AP in0
|
|
#define CLEANUP in2
|
|
|
|
#define GP loc0
|
|
#define ARGC loc1
|
|
#define ARGV loc2
|
|
#define ENVP loc3
|
|
|
|
.global _start
|
|
.type _start, @function
|
|
.proc _start
|
|
_start:
|
|
.prologue
|
|
.save rp, r0
|
|
.body
|
|
{ .mlx
|
|
alloc r14=ar.pfs,3,4,3,0
|
|
movl r15=@gprel(1f)
|
|
}
|
|
1:
|
|
{ .mmi
|
|
ld4 ARGC=[AP]
|
|
adds ARGV=8,AP
|
|
mov r16=ip
|
|
;;
|
|
}
|
|
{ .mmi
|
|
sub gp=r16,r15
|
|
sub GP=r16,r15
|
|
shladd r14=ARGC,3,AP
|
|
;;
|
|
}
|
|
{ .mii
|
|
addl r15=@ltoff(environ),gp
|
|
cmp4.ge p6,p7=0,ARGC
|
|
adds ENVP=16,r14
|
|
;;
|
|
}
|
|
{ .mmi
|
|
ld8 r14=[r15]
|
|
(p7) ld8 r15=[ARGV]
|
|
addl r16=@gprel(__progname),gp
|
|
;;
|
|
}
|
|
{ .mib
|
|
st8 [r14]=ENVP
|
|
(p7) cmp.eq p6,p0=0,r15
|
|
(p6) br.dpnt .L1
|
|
;;
|
|
}
|
|
/* Normalize __progname. */
|
|
{ .mmi
|
|
st8 [r16]=r15
|
|
ld1 r14=[r15],1
|
|
nop 0
|
|
;;
|
|
}
|
|
.L0:
|
|
{ .mib
|
|
cmp4.eq p7,p0=0,r14
|
|
cmp4.eq p6,p0=0x2f,r14
|
|
(p7) br.dptk .L1
|
|
;;
|
|
}
|
|
{ .mmb
|
|
(p6) st8 [r16]=r15
|
|
ld1 r14=[r15],1
|
|
br.dptk.many .L0
|
|
}
|
|
.L1:
|
|
{ .mib
|
|
cmp.ne p7,p0=0,CLEANUP
|
|
mov out0=CLEANUP
|
|
(p7) br.call.sptk b0=atexit
|
|
;;
|
|
}
|
|
{ .mfb
|
|
mov gp=GP
|
|
nop 0
|
|
br.call.sptk b0=_init_tls
|
|
}
|
|
#ifdef GCRT
|
|
{ .mmi
|
|
mov gp=GP
|
|
;;
|
|
addl r14=@ltoff(@fptr(_mcleanup)),gp
|
|
nop 0
|
|
;;
|
|
}
|
|
{ .mfb
|
|
ld8 out0=[r14]
|
|
nop 0
|
|
br.call.sptk b0=atexit
|
|
;;
|
|
}
|
|
#endif
|
|
{ .mmi
|
|
mov gp=GP
|
|
;;
|
|
addl r14=@ltoff(@fptr(_fini)),gp
|
|
nop 0
|
|
;;
|
|
}
|
|
{ .mfb
|
|
ld8 out0=[r14]
|
|
nop 0
|
|
br.call.sptk b0=atexit
|
|
;;
|
|
}
|
|
#ifdef GCRT
|
|
{ .mmi
|
|
mov gp=GP
|
|
;;
|
|
addl r14=@ltoff(eprol),gp
|
|
addl r15=@ltoff(etext),gp
|
|
;;
|
|
}
|
|
{ .mmb
|
|
ld8 out0=[r14]
|
|
ld8 out1=[r15]
|
|
br.call.sptk b0=monstartup
|
|
;;
|
|
}
|
|
#endif
|
|
{ .mfb
|
|
mov gp=GP
|
|
nop 0
|
|
br.call.sptk b0=_init
|
|
;;
|
|
}
|
|
{ .mmi
|
|
mov gp=GP
|
|
mov out0=ARGC
|
|
mov out1=ARGV
|
|
}
|
|
{ .mfb
|
|
mov out2=ENVP
|
|
nop 0
|
|
br.call.sptk b0=main
|
|
;;
|
|
}
|
|
{ .mib
|
|
mov gp=GP
|
|
mov out0=r8
|
|
br.call.sptk b0=exit
|
|
;;
|
|
}
|
|
.endp _start
|
|
|
|
#ifdef GCRT
|
|
eprol:
|
|
#endif
|
|
|
|
.rodata
|
|
.empty: stringz ""
|
|
|
|
.sdata
|
|
.global __progname
|
|
.size __progname,8
|
|
.type __progname,@object
|
|
__progname: data8 .empty
|
|
|
|
.common environ,8,8
|