8sa1-gcc/gcc/config/rs6000/eabi.asm
1996-05-29 21:20:36 +00:00

524 lines
16 KiB
NASM

/*
* special support for eabi
*
* Copyright (C) 1995, 1996 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 2, or (at your option) any
* later version.
*
* In addition to the permissions in the GNU General Public License, the
* Free Software Foundation gives you unlimited permission to link the
* compiled version of this file with other programs, and to distribute
* those programs without any restriction coming from the use of this
* file. (The General Public License restrictions do apply in other
* respects; for example, they cover modification of the file, and
* distribution when not linked into another program.)
*
* 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.
*
* You should have received a copy of the GNU General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*
* As a special exception, if you link this library with files
* compiled with GCC to produce an executable, this does not cause
* the resulting executable to be covered by the GNU General Public License.
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*/
/* Do any initializations needed for the eabi environment */
.file "eabi.asm"
.section ".text"
#include "ppc-asm.h"
.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 */
.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 */
.data
.align 2
.Linit_p:
.long 0
.text
#ifdef _RELOCATABLE
.Lptr:
.long .LCTOC1-.Laddr /* PC relative pointer to .got2 */
#endif
FUNC_START(__eabi)
/* Eliminate -mrelocatable code if not -mrelocatable, so that this file can
be assembled with other assemblers than GAS, such as the Solaris PowerPC
assembler. */
#ifdef _RELOCATABLE
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 */
mtlr 0 /* restore link register */
lwzx 9,10,12 /* done flag */
#else /* !-mrelocatable */
addis 11,0,.LCTOC1@ha /* load address of .LCTOC1 */
addi 11,11,.LCTOC1@l
lwz 10,.Linit(11) /* init flag */
#endif /* !-mrelocatable */
cmplwi 2,9,0 /* init flag != 0? */
bnelr 2 /* return now, if we've been called already */
stwx 1,10,12 /* store a non-zero value in the done flag */
bne 0,.Lreloc /* skip if we need to relocate */
/* 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 */
b FUNC_NAME(__do_global_ctors) /* do any C++ global constructors (which returns to caller) */
.Lreloc:
#ifdef _RELOCATABLE
/* We need to relocate the .got2 pointers. Don't load registers 2 or 13 */
lwz 3,.Lgot2s(11) /* GOT pointers start */
lwz 4,.Lgot2e(11) /* GOT pointers end */
add 3,12,3 /* adjust pointers */
add 4,12,4
cmpw 1,3,4 /* any pointers to adjust */
bc 12,6,.Lctor
.Lloop:
lwz 5,0(3) /* next pointer */
add 5,5,12 /* adjust */
stw 5,0(3)
addi 3,3,4 /* bump to next word */
cmpw 1,3,4 /* more pointers to adjust? */
bc 4,6,.Lloop
/* Fixup the .ctor section for static constructors */
.Lctor:
lwz 3,.Lctors(11) /* constructors pointers start */
lwz 4,.Lctore(11) /* constructors pointers end */
cmpw 1,3,4 /* any pointers to adjust */
bc 12,6,.Ldtor
.Lcloop:
lwz 5,0(3) /* next pointer */
add 5,5,12 /* adjust */
stw 5,0(3)
addi 3,3,4 /* bump to next word */
cmpw 1,3,4 /* more pointers to adjust? */
bc 4,6,.Lcloop
/* Fixup the .dtor section for static destructors */
.Ldtor:
lwz 3,.Ldtors(11) /* destructors pointers start */
lwz 4,.Ldtore(11) /* destructors pointers end */
cmpw 1,3,4 /* any pointers to adjust */
bc 12,6,.Lexcept
.Ldloop:
lwz 5,0(3) /* next pointer */
add 5,5,12 /* adjust */
stw 5,0(3)
addi 3,3,4 /* bump to next word */
cmpw 1,3,4 /* more pointers to adjust? */
bc 4,6,.Ldloop
/* Fixup the .gcc_except_table section for G++ exceptions */
.Lexcept:
lwz 3,.Lexcepts(11) /* exception table pointers start */
lwz 4,.Lexcepte(11) /* exception table pointers end */
cmpw 1,3,4 /* any pointers to adjust */
bc 12,6,.Lfix
.Leloop:
lwz 5,0(3) /* next pointer */
addi 3,3,4 /* bump to next word */
cmpi 1,5,0
beq 1,.Leloop /* if NULL pointer, don't adjust */
add 5,5,12 /* adjust */
stw 5,-4(3)
cmpw 1,3,4 /* more pointers to adjust? */
bc 4,6,.Leloop
/* 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 */
cmpw 1,3,4 /* any user pointers to adjust */
bc 12,6,.Ldone
.Lfloop:
lwz 5,0(3) /* next pointer */
add 5,5,12 /* adjust pointer */
lwz 6,0(5) /* get the pointer it points to */
stw 5,0(3) /* store adjusted pointer */
add 6,6,12 /* adjust */
stw 6,0(5)
addi 3,3,4 /* bump to next word */
cmpw 1,3,4 /* more pointers to adjust? */
bc 4,6,.Lfloop
#endif /* _RELOCATABLE */
/* Done adjusting pointers, return */
.Ldone:
b FUNC_NAME(__do_global_ctors) /* do any C++ global constructors (which returns to caller) */
FUNC_END(__eabi)
/* Routines for saving floating point registers, called by the compiler. */
/* Called with r11 pointing to the stack header word of the caller of the */
/* function, just beyond the end of the floating point save area. */
FUNC_START(_savefpr_14) stfd 14,-144(11) /* save fp registers */
FUNC_START(_savefpr_15) stfd 15,-136(11)
FUNC_START(_savefpr_16) stfd 16,-128(11)
FUNC_START(_savefpr_17) stfd 17,-120(11)
FUNC_START(_savefpr_18) stfd 18,-112(11)
FUNC_START(_savefpr_19) stfd 19,-104(11)
FUNC_START(_savefpr_20) stfd 20,-96(11)
FUNC_START(_savefpr_21) stfd 21,-88(11)
FUNC_START(_savefpr_22) stfd 22,-80(11)
FUNC_START(_savefpr_23) stfd 23,-72(11)
FUNC_START(_savefpr_24) stfd 24,-64(11)
FUNC_START(_savefpr_25) stfd 25,-56(11)
FUNC_START(_savefpr_26) stfd 26,-48(11)
FUNC_START(_savefpr_27) stfd 27,-40(11)
FUNC_START(_savefpr_28) stfd 28,-32(11)
FUNC_START(_savefpr_29) stfd 29,-24(11)
FUNC_START(_savefpr_30) stfd 30,-16(11)
FUNC_START(_savefpr_31) stfd 31,-8(11)
blr
FUNC_END(_savefpr_31)
FUNC_END(_savefpr_30)
FUNC_END(_savefpr_29)
FUNC_END(_savefpr_28)
FUNC_END(_savefpr_27)
FUNC_END(_savefpr_26)
FUNC_END(_savefpr_25)
FUNC_END(_savefpr_24)
FUNC_END(_savefpr_23)
FUNC_END(_savefpr_22)
FUNC_END(_savefpr_21)
FUNC_END(_savefpr_20)
FUNC_END(_savefpr_19)
FUNC_END(_savefpr_18)
FUNC_END(_savefpr_17)
FUNC_END(_savefpr_16)
FUNC_END(_savefpr_15)
FUNC_END(_savefpr_14)
/* Routines for saving integer registers, called by the compiler. */
/* Called with r11 pointing to the stack header word of the caller of the */
/* function, just beyond the end of the integer save area. */
FUNC_START(_savegpr_14) stw 14,-72(11) /* save gp registers */
FUNC_START(_savegpr_15) stw 15,-68(11)
FUNC_START(_savegpr_16) stw 16,-64(11)
FUNC_START(_savegpr_17) stw 17,-60(11)
FUNC_START(_savegpr_18) stw 18,-56(11)
FUNC_START(_savegpr_19) stw 19,-52(11)
FUNC_START(_savegpr_20) stw 20,-48(11)
FUNC_START(_savegpr_21) stw 21,-44(11)
FUNC_START(_savegpr_22) stw 22,-40(11)
FUNC_START(_savegpr_23) stw 23,-36(11)
FUNC_START(_savegpr_24) stw 24,-32(11)
FUNC_START(_savegpr_25) stw 25,-28(11)
FUNC_START(_savegpr_26) stw 26,-24(11)
FUNC_START(_savegpr_27) stw 27,-20(11)
FUNC_START(_savegpr_28) stw 28,-16(11)
FUNC_START(_savegpr_29) stw 29,-12(11)
FUNC_START(_savegpr_30) stw 30,-8(11)
FUNC_START(_savegpr_31) stw 31,-4(11)
blr
FUNC_END(_savegpr_31)
FUNC_END(_savegpr_30)
FUNC_END(_savegpr_29)
FUNC_END(_savegpr_28)
FUNC_END(_savegpr_27)
FUNC_END(_savegpr_26)
FUNC_END(_savegpr_25)
FUNC_END(_savegpr_24)
FUNC_END(_savegpr_23)
FUNC_END(_savegpr_22)
FUNC_END(_savegpr_21)
FUNC_END(_savegpr_20)
FUNC_END(_savegpr_19)
FUNC_END(_savegpr_18)
FUNC_END(_savegpr_17)
FUNC_END(_savegpr_16)
FUNC_END(_savegpr_15)
FUNC_END(_savegpr_14)
/* Routines for restoring floating point registers, called by the compiler. */
/* Called with r11 pointing to the stack header word of the caller of the */
/* function, just beyond the end of the floating point save area. */
FUNC_START(_restfpr_14) lfd 14,-144(11) /* restore fp registers */
FUNC_START(_restfpr_15) lfd 15,-136(11)
FUNC_START(_restfpr_16) lfd 16,-128(11)
FUNC_START(_restfpr_17) lfd 17,-120(11)
FUNC_START(_restfpr_18) lfd 18,-112(11)
FUNC_START(_restfpr_19) lfd 19,-104(11)
FUNC_START(_restfpr_20) lfd 20,-96(11)
FUNC_START(_restfpr_21) lfd 21,-88(11)
FUNC_START(_restfpr_22) lfd 22,-80(11)
FUNC_START(_restfpr_23) lfd 23,-72(11)
FUNC_START(_restfpr_24) lfd 24,-64(11)
FUNC_START(_restfpr_25) lfd 25,-56(11)
FUNC_START(_restfpr_26) lfd 26,-48(11)
FUNC_START(_restfpr_27) lfd 27,-40(11)
FUNC_START(_restfpr_28) lfd 28,-32(11)
FUNC_START(_restfpr_29) lfd 29,-24(11)
FUNC_START(_restfpr_30) lfd 30,-16(11)
FUNC_START(_restfpr_31) lfd 31,-8(11)
blr
FUNC_END(_restfpr_31)
FUNC_END(_restfpr_30)
FUNC_END(_restfpr_29)
FUNC_END(_restfpr_28)
FUNC_END(_restfpr_27)
FUNC_END(_restfpr_26)
FUNC_END(_restfpr_25)
FUNC_END(_restfpr_24)
FUNC_END(_restfpr_23)
FUNC_END(_restfpr_22)
FUNC_END(_restfpr_21)
FUNC_END(_restfpr_20)
FUNC_END(_restfpr_19)
FUNC_END(_restfpr_18)
FUNC_END(_restfpr_17)
FUNC_END(_restfpr_16)
FUNC_END(_restfpr_15)
FUNC_END(_restfpr_14)
/* Routines for restoring integer registers, called by the compiler. */
/* Called with r11 pointing to the stack header word of the caller of the */
/* function, just beyond the end of the integer restore area. */
FUNC_START(_restgpr_14) lwz 14,-72(11) /* restore gp registers */
FUNC_START(_restgpr_15) lwz 15,-68(11)
FUNC_START(_restgpr_16) lwz 16,-64(11)
FUNC_START(_restgpr_17) lwz 17,-60(11)
FUNC_START(_restgpr_18) lwz 18,-56(11)
FUNC_START(_restgpr_19) lwz 19,-52(11)
FUNC_START(_restgpr_20) lwz 20,-48(11)
FUNC_START(_restgpr_21) lwz 21,-44(11)
FUNC_START(_restgpr_22) lwz 22,-40(11)
FUNC_START(_restgpr_23) lwz 23,-36(11)
FUNC_START(_restgpr_24) lwz 24,-32(11)
FUNC_START(_restgpr_25) lwz 25,-28(11)
FUNC_START(_restgpr_26) lwz 26,-24(11)
FUNC_START(_restgpr_27) lwz 27,-20(11)
FUNC_START(_restgpr_28) lwz 28,-16(11)
FUNC_START(_restgpr_29) lwz 29,-12(11)
FUNC_START(_restgpr_30) lwz 30,-8(11)
FUNC_START(_restgpr_31) lwz 31,-4(11)
blr
FUNC_END(_restgpr_31)
FUNC_END(_restgpr_30)
FUNC_END(_restgpr_29)
FUNC_END(_restgpr_28)
FUNC_END(_restgpr_27)
FUNC_END(_restgpr_26)
FUNC_END(_restgpr_25)
FUNC_END(_restgpr_24)
FUNC_END(_restgpr_23)
FUNC_END(_restgpr_22)
FUNC_END(_restgpr_21)
FUNC_END(_restgpr_20)
FUNC_END(_restgpr_19)
FUNC_END(_restgpr_18)
FUNC_END(_restgpr_17)
FUNC_END(_restgpr_16)
FUNC_END(_restgpr_15)
FUNC_END(_restgpr_14)
/* Routines for restoring floating point registers, called by the compiler. */
/* Called with r11 pointing to the stack header word of the caller of the */
/* function, just beyond the end of the floating point save area. */
/* In addition to restoring the fp registers, it will return to the caller's */
/* caller */
FUNC_START(_restfpr_14_x) lfd 14,-144(11) /* restore fp registers */
FUNC_START(_restfpr_15_x) lfd 15,-136(11)
FUNC_START(_restfpr_16_x) lfd 16,-128(11)
FUNC_START(_restfpr_17_x) lfd 17,-120(11)
FUNC_START(_restfpr_18_x) lfd 18,-112(11)
FUNC_START(_restfpr_19_x) lfd 19,-104(11)
FUNC_START(_restfpr_20_x) lfd 20,-96(11)
FUNC_START(_restfpr_21_x) lfd 21,-88(11)
FUNC_START(_restfpr_22_x) lfd 22,-80(11)
FUNC_START(_restfpr_23_x) lfd 23,-72(11)
FUNC_START(_restfpr_24_x) lfd 24,-64(11)
FUNC_START(_restfpr_25_x) lfd 25,-56(11)
FUNC_START(_restfpr_26_x) lfd 26,-48(11)
FUNC_START(_restfpr_27_x) lfd 27,-40(11)
FUNC_START(_restfpr_28_x) lfd 28,-32(11)
FUNC_START(_restfpr_29_x) lfd 29,-24(11)
FUNC_START(_restfpr_30_x) lfd 30,-16(11)
FUNC_START(_restfpr_31_x) lwz 0,4(11)
lfd 31,-8(11)
mtlr 0
mr 1,11
blr
FUNC_END(_restfpr_31_x)
FUNC_END(_restfpr_30_x)
FUNC_END(_restfpr_29_x)
FUNC_END(_restfpr_28_x)
FUNC_END(_restfpr_27_x)
FUNC_END(_restfpr_26_x)
FUNC_END(_restfpr_25_x)
FUNC_END(_restfpr_24_x)
FUNC_END(_restfpr_23_x)
FUNC_END(_restfpr_22_x)
FUNC_END(_restfpr_21_x)
FUNC_END(_restfpr_20_x)
FUNC_END(_restfpr_19_x)
FUNC_END(_restfpr_18_x)
FUNC_END(_restfpr_17_x)
FUNC_END(_restfpr_16_x)
FUNC_END(_restfpr_15_x)
FUNC_END(_restfpr_14_x)
/* Routines for restoring integer registers, called by the compiler. */
/* Called with r11 pointing to the stack header word of the caller of the */
/* function, just beyond the end of the integer restore area. */
FUNC_START(_restgpr_14_x) lwz 14,-72(11) /* restore gp registers */
FUNC_START(_restgpr_15_x) lwz 15,-68(11)
FUNC_START(_restgpr_16_x) lwz 16,-64(11)
FUNC_START(_restgpr_17_x) lwz 17,-60(11)
FUNC_START(_restgpr_18_x) lwz 18,-56(11)
FUNC_START(_restgpr_19_x) lwz 19,-52(11)
FUNC_START(_restgpr_20_x) lwz 20,-48(11)
FUNC_START(_restgpr_21_x) lwz 21,-44(11)
FUNC_START(_restgpr_22_x) lwz 22,-40(11)
FUNC_START(_restgpr_23_x) lwz 23,-36(11)
FUNC_START(_restgpr_24_x) lwz 24,-32(11)
FUNC_START(_restgpr_25_x) lwz 25,-28(11)
FUNC_START(_restgpr_26_x) lwz 26,-24(11)
FUNC_START(_restgpr_27_x) lwz 27,-20(11)
FUNC_START(_restgpr_28_x) lwz 28,-16(11)
FUNC_START(_restgpr_29_x) lwz 29,-12(11)
FUNC_START(_restgpr_30_x) lwz 30,-8(11)
FUNC_START(_restgpr_31_x) lwz 0,4(11)
lwz 31,-4(11)
mtlr 0
mr 1,11
blr
FUNC_END(_restgpr_31_x)
FUNC_END(_restgpr_30_x)
FUNC_END(_restgpr_29_x)
FUNC_END(_restgpr_28_x)
FUNC_END(_restgpr_27_x)
FUNC_END(_restgpr_26_x)
FUNC_END(_restgpr_25_x)
FUNC_END(_restgpr_24_x)
FUNC_END(_restgpr_23_x)
FUNC_END(_restgpr_22_x)
FUNC_END(_restgpr_21_x)
FUNC_END(_restgpr_20_x)
FUNC_END(_restgpr_19_x)
FUNC_END(_restgpr_18_x)
FUNC_END(_restgpr_17_x)
FUNC_END(_restgpr_16_x)
FUNC_END(_restgpr_15_x)
FUNC_END(_restgpr_14_x)