1996-09-05 02:48:53 +00:00
|
|
|
/* The job of this fragment it to find argc and friends for INIT.
|
|
|
|
|
This is done in one of two ways: either in the stack context
|
|
|
|
|
of program start, or having dlopen pass them in. */
|
1996-07-01 22:16:20 +00:00
|
|
|
|
1997-12-22 20:19:45 +00:00
|
|
|
#define SYSDEP_CALL_INIT(NAME, INIT) asm("\
|
|
|
|
|
.weak _dl_starting_up
|
|
|
|
|
.globl " #NAME "
|
|
|
|
|
.ent " #NAME "
|
|
|
|
|
" #NAME ":
|
|
|
|
|
ldgp $29, 0($27)
|
|
|
|
|
.prologue 1
|
|
|
|
|
.set at
|
|
|
|
|
/* Are we a dynamic libc being loaded into a static program? */
|
|
|
|
|
lda $0, _dl_starting_up
|
|
|
|
|
beq $0, 1f
|
|
|
|
|
ldl $0, 0($0)
|
|
|
|
|
cmpeq $31, $0, $0
|
|
|
|
|
1: stl $0, __libc_multiple_libcs
|
|
|
|
|
/* If so, argc et al are in a0-a2 already. Otherwise, load them. */
|
|
|
|
|
bne $0, 2f
|
|
|
|
|
ldl $16, 0($30)
|
|
|
|
|
lda $17, 8($30)
|
|
|
|
|
s8addq $16, $17, $18
|
|
|
|
|
addq $18, 8, $18
|
|
|
|
|
2: br $31, " ASM_ALPHA_NG_SYMBOL_PREFIX #INIT "..ng
|
|
|
|
|
.set noat
|
|
|
|
|
.end " #NAME);
|
