mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-10 03:54:48 +00:00
289 lines
8.8 KiB
ArmAsm
289 lines
8.8 KiB
ArmAsm
/*
|
|
* Special support for eabi and SVR4
|
|
*
|
|
* Copyright (C) 1995-2016 Free Software Foundation, Inc.
|
|
* Written By Michael Meissner
|
|
*
|
|
* This file is free software; you can redistribute it and/or modify it
|
|
* under the terms of the GNU General Public License as published by the
|
|
* Free Software Foundation; either version 3, or (at your option) any
|
|
* later version.
|
|
*
|
|
* This file is distributed in the hope that it will be useful, but
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* General Public License for more details.
|
|
*
|
|
* Under Section 7 of GPL version 3, you are granted additional
|
|
* permissions described in the GCC Runtime Library Exception, version
|
|
* 3.1, as published by the Free Software Foundation.
|
|
*
|
|
* You should have received a copy of the GNU General Public License and
|
|
* a copy of the GCC Runtime Library Exception along with this program;
|
|
* see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
* <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
/* Do any initializations needed for the eabi environment */
|
|
|
|
.section ".text"
|
|
#include "ppc-asm.h"
|
|
|
|
#ifndef __powerpc64__
|
|
|
|
.section ".got2","aw"
|
|
.align 2
|
|
.LCTOC1 = . /* +32768 */
|
|
|
|
/* Table of addresses */
|
|
.Ltable = .-.LCTOC1
|
|
.long .LCTOC1 /* address we are really at */
|
|
|
|
.Lsda = .-.LCTOC1
|
|
.long _SDA_BASE_ /* address of the first small data area */
|
|
|
|
.Lsdas = .-.LCTOC1
|
|
.long __SDATA_START__ /* start of .sdata/.sbss section */
|
|
|
|
.Lsdae = .-.LCTOC1
|
|
.long __SBSS_END__ /* end of .sdata/.sbss section */
|
|
|
|
.Lsda2 = .-.LCTOC1
|
|
.long _SDA2_BASE_ /* address of the second small data area */
|
|
|
|
.Lsda2s = .-.LCTOC1
|
|
.long __SDATA2_START__ /* start of .sdata2/.sbss2 section */
|
|
|
|
.Lsda2e = .-.LCTOC1
|
|
.long __SBSS2_END__ /* end of .sdata2/.sbss2 section */
|
|
|
|
#ifdef _RELOCATABLE
|
|
.Lgots = .-.LCTOC1
|
|
.long __GOT_START__ /* Global offset table start */
|
|
|
|
.Lgotm1 = .-.LCTOC1
|
|
.long _GLOBAL_OFFSET_TABLE_-4 /* end of GOT ptrs before BLCL + 3 reserved words */
|
|
|
|
.Lgotm2 = .-.LCTOC1
|
|
.long _GLOBAL_OFFSET_TABLE_+12 /* start of GOT ptrs after BLCL + 3 reserved words */
|
|
|
|
.Lgote = .-.LCTOC1
|
|
.long __GOT_END__ /* Global offset table end */
|
|
|
|
.Lgot2s = .-.LCTOC1
|
|
.long __GOT2_START__ /* -mrelocatable GOT pointers start */
|
|
|
|
.Lgot2e = .-.LCTOC1
|
|
.long __GOT2_END__ /* -mrelocatable GOT pointers end */
|
|
|
|
.Lfixups = .-.LCTOC1
|
|
.long __FIXUP_START__ /* start of .fixup section */
|
|
|
|
.Lfixupe = .-.LCTOC1
|
|
.long __FIXUP_END__ /* end of .fixup section */
|
|
|
|
.Lctors = .-.LCTOC1
|
|
.long __CTOR_LIST__ /* start of .ctor section */
|
|
|
|
.Lctore = .-.LCTOC1
|
|
.long __CTOR_END__ /* end of .ctor section */
|
|
|
|
.Ldtors = .-.LCTOC1
|
|
.long __DTOR_LIST__ /* start of .dtor section */
|
|
|
|
.Ldtore = .-.LCTOC1
|
|
.long __DTOR_END__ /* end of .dtor section */
|
|
|
|
.Lexcepts = .-.LCTOC1
|
|
.long __EXCEPT_START__ /* start of .gcc_except_table section */
|
|
|
|
.Lexcepte = .-.LCTOC1
|
|
.long __EXCEPT_END__ /* end of .gcc_except_table section */
|
|
|
|
.Linit = .-.LCTOC1
|
|
.long .Linit_p /* address of variable to say we've been called */
|
|
|
|
.text
|
|
.align 2
|
|
.Lptr:
|
|
.long .LCTOC1-.Laddr /* PC relative pointer to .got2 */
|
|
#endif
|
|
|
|
.data
|
|
.align 2
|
|
.Linit_p:
|
|
.long 0
|
|
|
|
.text
|
|
|
|
FUNC_START(__eabi)
|
|
|
|
/* Eliminate -mrelocatable code if not -mrelocatable, so that this file can
|
|
be assembled with other assemblers than GAS. */
|
|
|
|
#ifndef _RELOCATABLE
|
|
addis 10,0,.Linit_p@ha /* init flag */
|
|
addis 11,0,.LCTOC1@ha /* load address of .LCTOC1 */
|
|
lwz 9,.Linit_p@l(10) /* init flag */
|
|
addi 11,11,.LCTOC1@l
|
|
cmplwi 2,9,0 /* init flag != 0? */
|
|
bnelr 2 /* return now, if we've been called already */
|
|
stw 1,.Linit_p@l(10) /* store a nonzero value in the done flag */
|
|
|
|
#else /* -mrelocatable */
|
|
mflr 0
|
|
bl .Laddr /* get current address */
|
|
.Laddr:
|
|
mflr 12 /* real address of .Laddr */
|
|
lwz 11,(.Lptr-.Laddr)(12) /* linker generated address of .LCTOC1 */
|
|
add 11,11,12 /* correct to real pointer */
|
|
lwz 12,.Ltable(11) /* get linker's idea of where .Laddr is */
|
|
lwz 10,.Linit(11) /* address of init flag */
|
|
subf. 12,12,11 /* calculate difference */
|
|
lwzx 9,10,12 /* done flag */
|
|
cmplwi 2,9,0 /* init flag != 0? */
|
|
mtlr 0 /* restore in case branch was taken */
|
|
bnelr 2 /* return now, if we've been called already */
|
|
stwx 1,10,12 /* store a nonzero value in the done flag */
|
|
beq+ 0,.Lsdata /* skip if we don't need to relocate */
|
|
|
|
/* We need to relocate the .got2 pointers. */
|
|
|
|
lwz 3,.Lgot2s(11) /* GOT2 pointers start */
|
|
lwz 4,.Lgot2e(11) /* GOT2 pointers end */
|
|
add 3,12,3 /* adjust pointers */
|
|
add 4,12,4
|
|
bl FUNC_NAME(__eabi_convert) /* convert pointers in .got2 section */
|
|
|
|
/* Fixup the .ctor section for static constructors */
|
|
|
|
lwz 3,.Lctors(11) /* constructors pointers start */
|
|
lwz 4,.Lctore(11) /* constructors pointers end */
|
|
bl FUNC_NAME(__eabi_convert) /* convert constructors */
|
|
|
|
/* Fixup the .dtor section for static destructors */
|
|
|
|
lwz 3,.Ldtors(11) /* destructors pointers start */
|
|
lwz 4,.Ldtore(11) /* destructors pointers end */
|
|
bl FUNC_NAME(__eabi_convert) /* convert destructors */
|
|
|
|
/* Fixup the .gcc_except_table section for G++ exceptions */
|
|
|
|
lwz 3,.Lexcepts(11) /* exception table pointers start */
|
|
lwz 4,.Lexcepte(11) /* exception table pointers end */
|
|
bl FUNC_NAME(__eabi_convert) /* convert exceptions */
|
|
|
|
/* Fixup the addresses in the GOT below _GLOBAL_OFFSET_TABLE_-4 */
|
|
|
|
lwz 3,.Lgots(11) /* GOT table pointers start */
|
|
lwz 4,.Lgotm1(11) /* GOT table pointers below _GLOBAL_OFFSET_TABLE-4 */
|
|
bl FUNC_NAME(__eabi_convert) /* convert lower GOT */
|
|
|
|
/* Fixup the addresses in the GOT above _GLOBAL_OFFSET_TABLE_+12 */
|
|
|
|
lwz 3,.Lgotm2(11) /* GOT table pointers above _GLOBAL_OFFSET_TABLE+12 */
|
|
lwz 4,.Lgote(11) /* GOT table pointers end */
|
|
bl FUNC_NAME(__eabi_convert) /* convert lower GOT */
|
|
|
|
/* Fixup any user initialized pointers now (the compiler drops pointers to */
|
|
/* each of the relocs that it does in the .fixup section). */
|
|
|
|
.Lfix:
|
|
lwz 3,.Lfixups(11) /* fixup pointers start */
|
|
lwz 4,.Lfixupe(11) /* fixup pointers end */
|
|
bl FUNC_NAME(__eabi_uconvert) /* convert user initialized pointers */
|
|
|
|
.Lsdata:
|
|
mtlr 0 /* restore link register */
|
|
#endif /* _RELOCATABLE */
|
|
|
|
/* Only load up register 13 if there is a .sdata and/or .sbss section */
|
|
lwz 3,.Lsdas(11) /* start of .sdata/.sbss section */
|
|
lwz 4,.Lsdae(11) /* end of .sdata/.sbss section */
|
|
cmpw 1,3,4 /* .sdata/.sbss section non-empty? */
|
|
beq- 1,.Lsda2l /* skip loading r13 */
|
|
|
|
lwz 13,.Lsda(11) /* load r13 with _SDA_BASE_ address */
|
|
|
|
/* Only load up register 2 if there is a .sdata2 and/or .sbss2 section */
|
|
|
|
.Lsda2l:
|
|
lwz 3,.Lsda2s(11) /* start of .sdata/.sbss section */
|
|
lwz 4,.Lsda2e(11) /* end of .sdata/.sbss section */
|
|
cmpw 1,3,4 /* .sdata/.sbss section non-empty? */
|
|
beq+ 1,.Ldone /* skip loading r2 */
|
|
|
|
lwz 2,.Lsda2(11) /* load r2 with _SDA2_BASE_ address */
|
|
|
|
/* Done adjusting pointers, return by way of doing the C++ global constructors. */
|
|
|
|
.Ldone:
|
|
b FUNC_NAME(__init) /* do any C++ global constructors (which returns to caller) */
|
|
FUNC_END(__eabi)
|
|
|
|
/* Special subroutine to convert a bunch of pointers directly.
|
|
r0 has original link register
|
|
r3 has low pointer to convert
|
|
r4 has high pointer to convert
|
|
r5 .. r10 are scratch registers
|
|
r11 has the address of .LCTOC1 in it.
|
|
r12 has the value to add to each pointer
|
|
r13 .. r31 are unchanged */
|
|
#ifdef _RELOCATABLE
|
|
FUNC_START(__eabi_convert)
|
|
cmplw 1,3,4 /* any pointers to convert? */
|
|
subf 5,3,4 /* calculate number of words to convert */
|
|
bclr 4,4 /* return if no pointers */
|
|
|
|
srawi 5,5,2
|
|
addi 3,3,-4 /* start-4 for use with lwzu */
|
|
mtctr 5
|
|
|
|
.Lcvt:
|
|
lwzu 6,4(3) /* pointer to convert */
|
|
cmpwi 0,6,0
|
|
beq- .Lcvt2 /* if pointer is null, don't convert */
|
|
|
|
add 6,6,12 /* convert pointer */
|
|
stw 6,0(3)
|
|
.Lcvt2:
|
|
bdnz+ .Lcvt
|
|
blr
|
|
|
|
FUNC_END(__eabi_convert)
|
|
|
|
/* Special subroutine to convert the pointers the user has initialized. The
|
|
compiler has placed the address of the initialized pointer into the .fixup
|
|
section.
|
|
|
|
r0 has original link register
|
|
r3 has low pointer to convert
|
|
r4 has high pointer to convert
|
|
r5 .. r10 are scratch registers
|
|
r11 has the address of .LCTOC1 in it.
|
|
r12 has the value to add to each pointer
|
|
r13 .. r31 are unchanged */
|
|
|
|
FUNC_START(__eabi_uconvert)
|
|
cmplw 1,3,4 /* any pointers to convert? */
|
|
subf 5,3,4 /* calculate number of words to convert */
|
|
bclr 4,4 /* return if no pointers */
|
|
|
|
srawi 5,5,2
|
|
addi 3,3,-4 /* start-4 for use with lwzu */
|
|
mtctr 5
|
|
|
|
.Lucvt:
|
|
lwzu 6,4(3) /* next pointer to pointer to convert */
|
|
add 6,6,12 /* adjust pointer */
|
|
lwz 7,0(6) /* get the pointer it points to */
|
|
stw 6,0(3) /* store adjusted pointer */
|
|
add 7,7,12 /* adjust */
|
|
stw 7,0(6)
|
|
bdnz+ .Lucvt
|
|
blr
|
|
|
|
FUNC_END(__eabi_uconvert)
|
|
#endif
|
|
#endif
|