mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-28 11:39:13 +02:00
* powerpc64-linux: unused assembler loader files removed
This commit is contained in:
florian
parent
4ef8ae2a63
commit
0b2a58027c
@ -370,6 +370,7 @@ SYSINIT_UNITS=si_prc si_c si_g si_dll
|
||||
override LOADERS=abitag
|
||||
endif
|
||||
ifeq ($(ARCH),powerpc64)
|
||||
override LOADERS=
|
||||
SYSINIT_UNITS=si_prc si_c si_g si_dll
|
||||
endif
|
||||
ifeq ($(ARCH),sparc64)
|
||||
|
||||
@ -83,6 +83,7 @@ override LOADERS=abitag
|
||||
endif
|
||||
|
||||
ifeq ($(ARCH),powerpc64)
|
||||
override LOADERS=
|
||||
SYSINIT_UNITS=si_prc si_c si_g si_dll
|
||||
endif
|
||||
|
||||
|
||||
@ -1,446 +0,0 @@
|
||||
/*
|
||||
* Startup code for programs linked with GNU libc, PowerPC64
|
||||
* version.
|
||||
*
|
||||
* Adapted from the glibc-sources (2.3.5) in the file
|
||||
*
|
||||
* sysdeps/powerpc/powerpc64/elf/start.S
|
||||
*
|
||||
* Original header follows.
|
||||
*/
|
||||
|
||||
/* Startup code for programs linked with GNU libc. PowerPC64 version.
|
||||
Copyright (C) 1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library 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
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||||
02110-1301 USA. */
|
||||
|
||||
/* some macros which simplify the startup code */
|
||||
|
||||
/* load the 64 bit value "value" into register ra */
|
||||
.macro LOAD_64BIT_VAL ra, value
|
||||
lis \ra,\value@highest
|
||||
ori \ra,\ra,\value@higher
|
||||
sldi \ra,\ra,32
|
||||
oris \ra,\ra,\value@h
|
||||
ori \ra,\ra,\value@l
|
||||
.endm
|
||||
|
||||
/* create function prolog for symbol "fn" */
|
||||
.macro FUNCTION_PROLOG fn
|
||||
.section ".text"
|
||||
.align 2
|
||||
.globl \fn
|
||||
.section ".opd", "aw"
|
||||
.align 3
|
||||
\fn:
|
||||
.quad .\fn, .TOC.@tocbase, 0
|
||||
.previous
|
||||
.size \fn, 24
|
||||
.type \fn, @function
|
||||
.globl .\fn
|
||||
.\fn:
|
||||
.endm
|
||||
|
||||
/*
|
||||
* "ptrgl" glue code for calls via pointer. This function
|
||||
* sequence loads the data from the function descriptor
|
||||
* referenced by R11 into the CTR register (function address),
|
||||
* R2 (GOT/TOC pointer), and R11 (the outer frame pointer).
|
||||
*
|
||||
* On entry, R11 must be set to point to the function descriptor.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.11 (in v1.7).
|
||||
*/
|
||||
.section ".text"
|
||||
.align 3
|
||||
.globl .ptrgl
|
||||
.ptrgl:
|
||||
ld 0, 0(11)
|
||||
std 2, 40(1)
|
||||
mtctr 0
|
||||
ld 2, 8(11)
|
||||
ld 11, 8(11)
|
||||
bctr
|
||||
.long 0
|
||||
.byte 0, 12, 128, 0, 0, 0, 0, 0
|
||||
.type .ptrgl, @function
|
||||
.size .ptrgl, . - .ptrgl
|
||||
|
||||
/*
|
||||
* Function prolog/epilog helpers, which are part of the 64-bit
|
||||
* PowerPC ABI.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.5, "Register saving and restoring
|
||||
* function" (in v1.7).
|
||||
*/
|
||||
|
||||
/* Each _savegpr0_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area. R0 must contain the old LR on
|
||||
* entry.
|
||||
*/
|
||||
_savegpr0_14: std 14,-144(1)
|
||||
_savegpr0_15: std 15,-136(1)
|
||||
_savegpr0_16: std 16,-128(1)
|
||||
_savegpr0_17: std 17,-120(1)
|
||||
_savegpr0_18: std 18,-112(1)
|
||||
_savegpr0_19: std 19,-104(1)
|
||||
_savegpr0_20: std 20,-96(1)
|
||||
_savegpr0_21: std 21,-88(1)
|
||||
_savegpr0_22: std 22,-80(1)
|
||||
_savegpr0_23: std 23,-72(1)
|
||||
_savegpr0_24: std 24,-64(1)
|
||||
_savegpr0_25: std 25,-56(1)
|
||||
_savegpr0_26: std 26,-48(1)
|
||||
_savegpr0_27: std 27,-40(1)
|
||||
_savegpr0_28: std 28,-32(1)
|
||||
_savegpr0_29: std 29,-24(1)
|
||||
_savegpr0_30: std 30,-16(1)
|
||||
_savegpr0_31:
|
||||
std 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _restgpr0_N routine restores the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area.
|
||||
*/
|
||||
_restgpr0_14: ld 14,-144(1)
|
||||
_restgpr0_15: ld 15,-136(1)
|
||||
_restgpr0_16: ld 16,-128(1)
|
||||
_restgpr0_17: ld 17,-120(1)
|
||||
_restgpr0_18: ld 18,-112(1)
|
||||
_restgpr0_19: ld 19,-104(1)
|
||||
_restgpr0_20: ld 20,-96(1)
|
||||
_restgpr0_21: ld 21,-88(1)
|
||||
_restgpr0_22: ld 22,-80(1)
|
||||
_restgpr0_23: ld 23,-72(1)
|
||||
_restgpr0_24: ld 24,-64(1)
|
||||
_restgpr0_25: ld 25,-56(1)
|
||||
_restgpr0_26: ld 26,-48(1)
|
||||
_restgpr0_27: ld 27,-40(1)
|
||||
_restgpr0_28: ld 28,-32(1)
|
||||
_restgpr0_29:
|
||||
ld 0, 16(1)
|
||||
ld 29,-24(1)
|
||||
mtlr 0
|
||||
ld 30,-16(1)
|
||||
ld 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restgpr0_30: ld 30,-16(1)
|
||||
_restgpr0_31: ld 0, 16(1)
|
||||
ld 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savegpr1_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r12
|
||||
* must point to the start of the general register save area.
|
||||
*/
|
||||
_savegpr1_14: std 14,-144(12)
|
||||
_savegpr1_15: std 15,-136(12)
|
||||
_savegpr1_16: std 16,-128(12)
|
||||
_savegpr1_17: std 17,-120(12)
|
||||
_savegpr1_18: std 18,-112(12)
|
||||
_savegpr1_19: std 19,-104(12)
|
||||
_savegpr1_20: std 20,-96(12)
|
||||
_savegpr1_21: std 21,-88(12)
|
||||
_savegpr1_22: std 22,-80(12)
|
||||
_savegpr1_23: std 23,-72(12)
|
||||
_savegpr1_24: std 24,-64(12)
|
||||
_savegpr1_25: std 25,-56(12)
|
||||
_savegpr1_26: std 26,-48(12)
|
||||
_savegpr1_27: std 27,-40(12)
|
||||
_savegpr1_28: std 28,-32(12)
|
||||
_savegpr1_29: std 29,-24(12)
|
||||
_savegpr1_30: std 30,-16(12)
|
||||
_savegpr1_31: std 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restgpr1_N routines restore the general registers from rN to r31.
|
||||
* When the routine is called, r12 must point to the start of the general
|
||||
* register save area.
|
||||
*/
|
||||
_restgpr1_14: ld 14,-144(12)
|
||||
_restgpr1_15: ld 15,-136(12)
|
||||
_restgpr1_16: ld 16,-128(12)
|
||||
_restgpr1_17: ld 17,-120(12)
|
||||
_restgpr1_18: ld 18,-112(12)
|
||||
_restgpr1_19: ld 19,-104(12)
|
||||
_restgpr1_20: ld 20,-96(12)
|
||||
_restgpr1_21: ld 21,-88(12)
|
||||
_restgpr1_22: ld 22,-80(12)
|
||||
_restgpr1_23: ld 23,-72(12)
|
||||
_restgpr1_24: ld 24,-64(12)
|
||||
_restgpr1_25: ld 25,-56(12)
|
||||
_restgpr1_26: ld 26,-48(12)
|
||||
_restgpr1_27: ld 27,-40(12)
|
||||
_restgpr1_28: ld 28,-32(12)
|
||||
_restgpr1_29: ld 29,-24(12)
|
||||
_restgpr1_30: ld 30,-16(12)
|
||||
_restgpr1_31: ld 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
/* Each _savefpr_M routine saves the floating point registers from fM to f31,
|
||||
* inclusive. When the routine is called, r1 must point to the start of the
|
||||
* floating point register save area, and r0 must contain the value of LR on
|
||||
* function entry.
|
||||
*/
|
||||
_savefpr_14: stfd 14,-144(1)
|
||||
_savefpr_15: stfd 15,-136(1)
|
||||
_savefpr_16: stfd 16,-128(1)
|
||||
_savefpr_17: stfd 17,-120(1)
|
||||
_savefpr_18: stfd 18,-112(1)
|
||||
_savefpr_19: stfd 19,-104(1)
|
||||
_savefpr_20: stfd 20,-96(1)
|
||||
_savefpr_21: stfd 21,-88(1)
|
||||
_savefpr_22: stfd 22,-80(1)
|
||||
_savefpr_23: stfd 23,-72(1)
|
||||
_savefpr_24: stfd 24,-64(1)
|
||||
_savefpr_25: stfd 25,-56(1)
|
||||
_savefpr_26: stfd 26,-48(1)
|
||||
_savefpr_27: stfd 27,-40(1)
|
||||
_savefpr_28: stfd 28,-32(1)
|
||||
_savefpr_29: stfd 29,-24(1)
|
||||
_savefpr_30: stfd 30,-16(1)
|
||||
_savefpr_31: stfd 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restfpr_M routines restore the floating point registers from fM to f31.
|
||||
* When the routine is called, r1 must point to the start of the floating point
|
||||
* register save area.
|
||||
*/
|
||||
_restfpr_14: lfd 14,-144(1)
|
||||
_restfpr_15: lfd 15,-136(1)
|
||||
_restfpr_16: lfd 16,-128(1)
|
||||
_restfpr_17: lfd 17,-120(1)
|
||||
_restfpr_18: lfd 18,-112(1)
|
||||
_restfpr_19: lfd 19,-104(1)
|
||||
_restfpr_20: lfd 20,-96(1)
|
||||
_restfpr_21: lfd 21,-88(1)
|
||||
_restfpr_22: lfd 22,-80(1)
|
||||
_restfpr_23: lfd 23,-72(1)
|
||||
_restfpr_24: lfd 24,-64(1)
|
||||
_restfpr_25: lfd 25,-56(1)
|
||||
_restfpr_26: lfd 26,-48(1)
|
||||
_restfpr_27: lfd 27,-40(1)
|
||||
_restfpr_28: lfd 28,-32(1)
|
||||
_restfpr_29:
|
||||
ld 0, 16(1)
|
||||
lfd 29,-24(1)
|
||||
mtlr 0
|
||||
lfd 30,-16(1)
|
||||
lfd 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restfpr_30: lfd 30,-16(1)
|
||||
_restfpr_31:
|
||||
ld 0, 16(1)
|
||||
lfd 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savevr_M routine saves the vector registers from vM to v31, inclusive.
|
||||
* When the routine is called, r0 must point to the word just beyound the end
|
||||
* of the vector register save area. On return the value of r0 is unchanged
|
||||
* while r12 may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_savevr_20: addi r12,r0,-192
|
||||
stvx v20,r12,r0
|
||||
_savevr_21: addi r12,r0,-176
|
||||
stvx v21,r12,r0
|
||||
_savevr_22: addi r12,r0,-160
|
||||
stvx v22,r12,r0
|
||||
_savevr_23: addi r12,r0,-144
|
||||
stvx v23,r12,r0
|
||||
_savevr_24: addi r12,r0,-128
|
||||
stvx v24,r12,r0
|
||||
_savevr_25: addi r12,r0,-112
|
||||
stvx v25,r12,r0
|
||||
_savevr_26: addi r12,r0,-96
|
||||
stvx v26,r12,r0
|
||||
_savevr_27: addi r12,r0,-80
|
||||
stvx v27,r12,r0
|
||||
_savevr_28: addi r12,r0,-64
|
||||
stvx v28,r12,r0
|
||||
_savevr_29: addi r12,r0,-48
|
||||
stvx v29,r12,r0
|
||||
_savevr_30: addi r12,r0,-32
|
||||
stvx v30,r12,r0
|
||||
_savevr_31: addi r12,r0,-16
|
||||
stvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
/* The _restvr_M routines restore the vector registers from vM to v31. When the
|
||||
* routine is called, r0 must point to the word just beyound the end of the
|
||||
* vector register save area. On return the value of r0 is unchanged while r12
|
||||
* may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_restvr_20: addi r12,r0,-192
|
||||
lvx v20,r12,r0
|
||||
_restvr_21: addi r12,r0,-176
|
||||
lvx v21,r12,r0
|
||||
_restvr_22: addi r12,r0,-160
|
||||
lvx v22,r12,r0
|
||||
_restvr_23: addi r12,r0,-144
|
||||
lvx v23,r12,r0
|
||||
_restvr_24: addi r12,r0,-128
|
||||
lvx v24,r12,r0
|
||||
_restvr_25: addi r12,r0,-112
|
||||
lvx v25,r12,r0
|
||||
_restvr_26: addi r12,r0,-96
|
||||
lvx v26,r12,r0
|
||||
_restvr_27: addi r12,r0,-80
|
||||
lvx v27,r12,r0
|
||||
_restvr_28: addi r12,r0,-64
|
||||
lvx v28,r12,r0
|
||||
_restvr_29: addi r12,r0,-48
|
||||
lvx v29,r12,r0
|
||||
_restvr_30: addi r12,r0,-32
|
||||
lvx v30,r12,r0
|
||||
_restvr_31: addi r12,r0,-16
|
||||
lvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
|
||||
/*
|
||||
* start_addresses is a structure containing the real
|
||||
* entry point (next to other things not interesting to
|
||||
* us here).
|
||||
*
|
||||
* All references in the struct are function descriptors
|
||||
*
|
||||
*/
|
||||
.section ".rodata"
|
||||
.align 3
|
||||
start_addresses:
|
||||
.quad 0 /* was _SDA_BASE_ but not in 64-bit ABI*/
|
||||
.quad main_stub
|
||||
.quad __libc_csu_init
|
||||
.quad __libc_csu_fini
|
||||
.size start_adresses, .-start_addresses
|
||||
|
||||
/*
|
||||
* the real entry point for the program
|
||||
*/
|
||||
FUNCTION_PROLOG _start
|
||||
mr 9,1 /* save the stack pointer */
|
||||
|
||||
/* Set up an initial stack frame, and clear the LR. */
|
||||
|
||||
clrrdi 1,1,4
|
||||
li 0,0
|
||||
stdu 1,-128(1)
|
||||
mtlr 0
|
||||
std 0,0(1)
|
||||
|
||||
/* put the address of start_addresses in r8... */
|
||||
/* PPC64 ABI uses R13 for thread local, so we leave it alone */
|
||||
LOAD_64BIT_VAL 8, start_addresses
|
||||
|
||||
bl __libc_start_main
|
||||
nop /* a NOP for the linker */
|
||||
|
||||
/*
|
||||
* This is our FreePascal main procedure which is called by
|
||||
* libc after initializing.
|
||||
*/
|
||||
|
||||
FUNCTION_PROLOG main_stub
|
||||
mflr 0
|
||||
std 0,16(1)
|
||||
stdu 1,-128(1)
|
||||
|
||||
LOAD_64BIT_VAL 8, operatingsystem_parameter_argc
|
||||
stw 3,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, operatingsystem_parameter_argv
|
||||
std 4,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, operatingsystem_parameter_envp
|
||||
std 5,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, __stkptr
|
||||
std 1,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, ___fpc_ret
|
||||
std 1,0(8)
|
||||
|
||||
bl PASCALMAIN
|
||||
nop
|
||||
|
||||
b ._haltproc
|
||||
|
||||
FUNCTION_PROLOG _haltproc
|
||||
LOAD_64BIT_VAL 8, ___fpc_ret
|
||||
ld 1, 0(8)
|
||||
addi 1, 1, 128
|
||||
ld 0, 16(1)
|
||||
mtlr 0
|
||||
blr
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.section ".data"
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
data_start:
|
||||
|
||||
___fpc_ret: /* return address to libc */
|
||||
.quad 0
|
||||
|
||||
.section ".bss"
|
||||
|
||||
.type __stkptr, @object
|
||||
.size __stkptr, 8
|
||||
.global __stkptr
|
||||
__stkptr:
|
||||
.skip 8
|
||||
|
||||
|
||||
.type operatingsystem_parameters, @object
|
||||
.size operatingsystem_parameters, 24
|
||||
operatingsystem_parameters:
|
||||
.skip 3 * 8
|
||||
.global operatingsystem_parameter_argc
|
||||
.global operatingsystem_parameter_argv
|
||||
.global operatingsystem_parameter_envp
|
||||
.set operatingsystem_parameter_argc, operatingsystem_parameters+0
|
||||
.set operatingsystem_parameter_argv, operatingsystem_parameters+8
|
||||
.set operatingsystem_parameter_envp, operatingsystem_parameters+16
|
||||
|
||||
.section .note.GNU-stack,"",%progbits
|
||||
@ -1,402 +0,0 @@
|
||||
/*
|
||||
* This file is part of the Free Pascal run time library.
|
||||
* Copyright (c) 2005 by Thomas Schatzl,
|
||||
* member of the Free Pascal development team.
|
||||
*
|
||||
* Startup code for shared libraries, PowerPC64 version.
|
||||
*
|
||||
* See the file COPYING.FPC, included in this distribution,
|
||||
* for details about the copyright.
|
||||
*
|
||||
* This program 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.
|
||||
*/
|
||||
|
||||
.macro LOAD_64BIT_VAL ra, value
|
||||
lis \ra,\value@highest
|
||||
ori \ra,\ra,\value@higher
|
||||
sldi \ra,\ra,32
|
||||
oris \ra,\ra,\value@h
|
||||
ori \ra,\ra,\value@l
|
||||
.endm
|
||||
|
||||
/* create function prolog for symbol "fn" */
|
||||
.macro FUNCTION_PROLOG fn
|
||||
.section ".text"
|
||||
.align 2
|
||||
.globl \fn
|
||||
.section ".opd", "aw"
|
||||
.align 3
|
||||
\fn:
|
||||
.quad .\fn, .TOC.@tocbase, 0
|
||||
.previous
|
||||
.size \fn, 24
|
||||
.type \fn, @function
|
||||
.globl .\fn
|
||||
.\fn:
|
||||
.endm
|
||||
|
||||
/*
|
||||
* "ptrgl" glue code for calls via pointer. This function
|
||||
* sequence loads the data from the function descriptor
|
||||
* referenced by R11 into the CTR register (function address),
|
||||
* R2 (GOT/TOC pointer), and R11 (the outer frame pointer).
|
||||
*
|
||||
* On entry, R11 must be set to point to the function descriptor.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.11 (in v1.7).
|
||||
*/
|
||||
.section ".text"
|
||||
.align 3
|
||||
.globl .ptrgl
|
||||
.ptrgl:
|
||||
ld 0, 0(11)
|
||||
std 2, 40(1)
|
||||
mtctr 0
|
||||
ld 2, 8(11)
|
||||
ld 11, 16(11)
|
||||
bctr
|
||||
.long 0
|
||||
.byte 0, 12, 128, 0, 0, 0, 0, 0
|
||||
.type .ptrgl, @function
|
||||
.size .ptrgl, . - .ptrgl
|
||||
|
||||
/*
|
||||
* Function prolog/epilog helpers, which are part of the 64-bit
|
||||
* PowerPC ABI.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.5, "Register saving and restoring
|
||||
* function" (in v1.7).
|
||||
*/
|
||||
|
||||
/* Each _savegpr0_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area. R0 must contain the old LR on
|
||||
* entry.
|
||||
*/
|
||||
_savegpr0_14: std 14,-144(1)
|
||||
_savegpr0_15: std 15,-136(1)
|
||||
_savegpr0_16: std 16,-128(1)
|
||||
_savegpr0_17: std 17,-120(1)
|
||||
_savegpr0_18: std 18,-112(1)
|
||||
_savegpr0_19: std 19,-104(1)
|
||||
_savegpr0_20: std 20,-96(1)
|
||||
_savegpr0_21: std 21,-88(1)
|
||||
_savegpr0_22: std 22,-80(1)
|
||||
_savegpr0_23: std 23,-72(1)
|
||||
_savegpr0_24: std 24,-64(1)
|
||||
_savegpr0_25: std 25,-56(1)
|
||||
_savegpr0_26: std 26,-48(1)
|
||||
_savegpr0_27: std 27,-40(1)
|
||||
_savegpr0_28: std 28,-32(1)
|
||||
_savegpr0_29: std 29,-24(1)
|
||||
_savegpr0_30: std 30,-16(1)
|
||||
_savegpr0_31:
|
||||
std 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _restgpr0_N routine restores the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area.
|
||||
*/
|
||||
_restgpr0_14: ld 14,-144(1)
|
||||
_restgpr0_15: ld 15,-136(1)
|
||||
_restgpr0_16: ld 16,-128(1)
|
||||
_restgpr0_17: ld 17,-120(1)
|
||||
_restgpr0_18: ld 18,-112(1)
|
||||
_restgpr0_19: ld 19,-104(1)
|
||||
_restgpr0_20: ld 20,-96(1)
|
||||
_restgpr0_21: ld 21,-88(1)
|
||||
_restgpr0_22: ld 22,-80(1)
|
||||
_restgpr0_23: ld 23,-72(1)
|
||||
_restgpr0_24: ld 24,-64(1)
|
||||
_restgpr0_25: ld 25,-56(1)
|
||||
_restgpr0_26: ld 26,-48(1)
|
||||
_restgpr0_27: ld 27,-40(1)
|
||||
_restgpr0_28: ld 28,-32(1)
|
||||
_restgpr0_29:
|
||||
ld 0, 16(1)
|
||||
ld 29,-24(1)
|
||||
mtlr 0
|
||||
ld 30,-16(1)
|
||||
ld 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restgpr0_30: ld 30,-16(1)
|
||||
_restgpr0_31: ld 0, 16(1)
|
||||
ld 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savegpr1_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r12
|
||||
* must point to the start of the general register save area.
|
||||
*/
|
||||
_savegpr1_14: std 14,-144(12)
|
||||
_savegpr1_15: std 15,-136(12)
|
||||
_savegpr1_16: std 16,-128(12)
|
||||
_savegpr1_17: std 17,-120(12)
|
||||
_savegpr1_18: std 18,-112(12)
|
||||
_savegpr1_19: std 19,-104(12)
|
||||
_savegpr1_20: std 20,-96(12)
|
||||
_savegpr1_21: std 21,-88(12)
|
||||
_savegpr1_22: std 22,-80(12)
|
||||
_savegpr1_23: std 23,-72(12)
|
||||
_savegpr1_24: std 24,-64(12)
|
||||
_savegpr1_25: std 25,-56(12)
|
||||
_savegpr1_26: std 26,-48(12)
|
||||
_savegpr1_27: std 27,-40(12)
|
||||
_savegpr1_28: std 28,-32(12)
|
||||
_savegpr1_29: std 29,-24(12)
|
||||
_savegpr1_30: std 30,-16(12)
|
||||
_savegpr1_31: std 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restgpr1_N routines restore the general registers from rN to r31.
|
||||
* When the routine is called, r12 must point to the start of the general
|
||||
* register save area.
|
||||
*/
|
||||
_restgpr1_14: ld 14,-144(12)
|
||||
_restgpr1_15: ld 15,-136(12)
|
||||
_restgpr1_16: ld 16,-128(12)
|
||||
_restgpr1_17: ld 17,-120(12)
|
||||
_restgpr1_18: ld 18,-112(12)
|
||||
_restgpr1_19: ld 19,-104(12)
|
||||
_restgpr1_20: ld 20,-96(12)
|
||||
_restgpr1_21: ld 21,-88(12)
|
||||
_restgpr1_22: ld 22,-80(12)
|
||||
_restgpr1_23: ld 23,-72(12)
|
||||
_restgpr1_24: ld 24,-64(12)
|
||||
_restgpr1_25: ld 25,-56(12)
|
||||
_restgpr1_26: ld 26,-48(12)
|
||||
_restgpr1_27: ld 27,-40(12)
|
||||
_restgpr1_28: ld 28,-32(12)
|
||||
_restgpr1_29: ld 29,-24(12)
|
||||
_restgpr1_30: ld 30,-16(12)
|
||||
_restgpr1_31: ld 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
/* Each _savefpr_M routine saves the floating point registers from fM to f31,
|
||||
* inclusive. When the routine is called, r1 must point to the start of the
|
||||
* floating point register save area, and r0 must contain the value of LR on
|
||||
* function entry.
|
||||
*/
|
||||
_savefpr_14: stfd 14,-144(1)
|
||||
_savefpr_15: stfd 15,-136(1)
|
||||
_savefpr_16: stfd 16,-128(1)
|
||||
_savefpr_17: stfd 17,-120(1)
|
||||
_savefpr_18: stfd 18,-112(1)
|
||||
_savefpr_19: stfd 19,-104(1)
|
||||
_savefpr_20: stfd 20,-96(1)
|
||||
_savefpr_21: stfd 21,-88(1)
|
||||
_savefpr_22: stfd 22,-80(1)
|
||||
_savefpr_23: stfd 23,-72(1)
|
||||
_savefpr_24: stfd 24,-64(1)
|
||||
_savefpr_25: stfd 25,-56(1)
|
||||
_savefpr_26: stfd 26,-48(1)
|
||||
_savefpr_27: stfd 27,-40(1)
|
||||
_savefpr_28: stfd 28,-32(1)
|
||||
_savefpr_29: stfd 29,-24(1)
|
||||
_savefpr_30: stfd 30,-16(1)
|
||||
_savefpr_31: stfd 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restfpr_M routines restore the floating point registers from fM to f31.
|
||||
* When the routine is called, r1 must point to the start of the floating point
|
||||
* register save area.
|
||||
*/
|
||||
_restfpr_14: lfd 14,-144(1)
|
||||
_restfpr_15: lfd 15,-136(1)
|
||||
_restfpr_16: lfd 16,-128(1)
|
||||
_restfpr_17: lfd 17,-120(1)
|
||||
_restfpr_18: lfd 18,-112(1)
|
||||
_restfpr_19: lfd 19,-104(1)
|
||||
_restfpr_20: lfd 20,-96(1)
|
||||
_restfpr_21: lfd 21,-88(1)
|
||||
_restfpr_22: lfd 22,-80(1)
|
||||
_restfpr_23: lfd 23,-72(1)
|
||||
_restfpr_24: lfd 24,-64(1)
|
||||
_restfpr_25: lfd 25,-56(1)
|
||||
_restfpr_26: lfd 26,-48(1)
|
||||
_restfpr_27: lfd 27,-40(1)
|
||||
_restfpr_28: lfd 28,-32(1)
|
||||
_restfpr_29:
|
||||
ld 0, 16(1)
|
||||
lfd 29,-24(1)
|
||||
mtlr 0
|
||||
lfd 30,-16(1)
|
||||
lfd 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restfpr_30: lfd 30,-16(1)
|
||||
_restfpr_31:
|
||||
ld 0, 16(1)
|
||||
lfd 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savevr_M routine saves the vector registers from vM to v31, inclusive.
|
||||
* When the routine is called, r0 must point to the word just beyound the end
|
||||
* of the vector register save area. On return the value of r0 is unchanged
|
||||
* while r12 may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_savevr_20: addi r12,r0,-192
|
||||
stvx v20,r12,r0
|
||||
_savevr_21: addi r12,r0,-176
|
||||
stvx v21,r12,r0
|
||||
_savevr_22: addi r12,r0,-160
|
||||
stvx v22,r12,r0
|
||||
_savevr_23: addi r12,r0,-144
|
||||
stvx v23,r12,r0
|
||||
_savevr_24: addi r12,r0,-128
|
||||
stvx v24,r12,r0
|
||||
_savevr_25: addi r12,r0,-112
|
||||
stvx v25,r12,r0
|
||||
_savevr_26: addi r12,r0,-96
|
||||
stvx v26,r12,r0
|
||||
_savevr_27: addi r12,r0,-80
|
||||
stvx v27,r12,r0
|
||||
_savevr_28: addi r12,r0,-64
|
||||
stvx v28,r12,r0
|
||||
_savevr_29: addi r12,r0,-48
|
||||
stvx v29,r12,r0
|
||||
_savevr_30: addi r12,r0,-32
|
||||
stvx v30,r12,r0
|
||||
_savevr_31: addi r12,r0,-16
|
||||
stvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
/* The _restvr_M routines restore the vector registers from vM to v31. When the
|
||||
* routine is called, r0 must point to the word just beyound the end of the
|
||||
* vector register save area. On return the value of r0 is unchanged while r12
|
||||
* may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_restvr_20: addi r12,r0,-192
|
||||
lvx v20,r12,r0
|
||||
_restvr_21: addi r12,r0,-176
|
||||
lvx v21,r12,r0
|
||||
_restvr_22: addi r12,r0,-160
|
||||
lvx v22,r12,r0
|
||||
_restvr_23: addi r12,r0,-144
|
||||
lvx v23,r12,r0
|
||||
_restvr_24: addi r12,r0,-128
|
||||
lvx v24,r12,r0
|
||||
_restvr_25: addi r12,r0,-112
|
||||
lvx v25,r12,r0
|
||||
_restvr_26: addi r12,r0,-96
|
||||
lvx v26,r12,r0
|
||||
_restvr_27: addi r12,r0,-80
|
||||
lvx v27,r12,r0
|
||||
_restvr_28: addi r12,r0,-64
|
||||
lvx v28,r12,r0
|
||||
_restvr_29: addi r12,r0,-48
|
||||
lvx v29,r12,r0
|
||||
_restvr_30: addi r12,r0,-32
|
||||
lvx v30,r12,r0
|
||||
_restvr_31: addi r12,r0,-16
|
||||
lvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
|
||||
/*
|
||||
* Main program entry point label (function), called by the loader
|
||||
*
|
||||
* The document "64-bit PowerPC ELF Application Binary Interface Supplement 1.9"
|
||||
* pg. 24f specifies the register contents.
|
||||
*/
|
||||
FUNCTION_PROLOG FPC_SHARED_LIB_START
|
||||
mflr 0
|
||||
std 0, 16(1) /* save LR */
|
||||
stdu 1, -144(1) /* save back chain, make frame */
|
||||
|
||||
/* store argument count (in r3)*/
|
||||
LOAD_64BIT_VAL 10, operatingsystem_parameter_argc
|
||||
stw 3, 0(10)
|
||||
/* store argument vector (in r4) */
|
||||
LOAD_64BIT_VAL 10, operatingsystem_parameter_argv
|
||||
std 4, 0(10)
|
||||
/* store environment pointer (in r5) */
|
||||
LOAD_64BIT_VAL 10, operatingsystem_parameter_envp
|
||||
std 5, 0(10)
|
||||
|
||||
LOAD_64BIT_VAL 8, __stkptr
|
||||
std 1,0(8)
|
||||
|
||||
/* call library initialization */
|
||||
bl PASCALMAIN
|
||||
nop
|
||||
|
||||
/* return to the caller */
|
||||
addi 1,1,144 /* restore stack */
|
||||
ld 0,16(1) /* prepare for method return */
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* this routine is only called when the halt() routine of the RTL embedded in
|
||||
the shared library is called */
|
||||
FUNCTION_PROLOG _haltproc
|
||||
/* exit_group call */
|
||||
LOAD_64BIT_VAL 3, operatingsystem_result
|
||||
lwz 3, 0(3)
|
||||
li 0, 234
|
||||
sc
|
||||
/* exit call */
|
||||
LOAD_64BIT_VAL 3, operatingsystem_result
|
||||
lwz 3, 0(3)
|
||||
li 0, 1
|
||||
sc
|
||||
/* we should not reach here. Crash horribly */
|
||||
trap
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.section ".data"
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
data_start:
|
||||
|
||||
.section ".bss"
|
||||
|
||||
.type __stkptr, @object
|
||||
.size __stkptr, 8
|
||||
.global __stkptr
|
||||
__stkptr:
|
||||
.skip 8
|
||||
|
||||
.type operatingsystem_parameters, @object
|
||||
.size operatingsystem_parameters, 24
|
||||
operatingsystem_parameters:
|
||||
.skip 3 * 8
|
||||
.global operatingsystem_parameter_argc
|
||||
.global operatingsystem_parameter_argv
|
||||
.global operatingsystem_parameter_envp
|
||||
.set operatingsystem_parameter_argc, operatingsystem_parameters+0
|
||||
.set operatingsystem_parameter_argv, operatingsystem_parameters+8
|
||||
.set operatingsystem_parameter_envp, operatingsystem_parameters+16
|
||||
|
||||
.section .note.GNU-stack,"",%progbits
|
||||
@ -1,455 +0,0 @@
|
||||
/*
|
||||
* Startup code for programs linked with GNU libc, PowerPC64
|
||||
* version.
|
||||
*
|
||||
* Adapted from the glibc-sources (2.3.5) in the file
|
||||
*
|
||||
* sysdeps/powerpc/powerpc64/elf/start.S
|
||||
*
|
||||
* Original header follows.
|
||||
*/
|
||||
|
||||
/* Startup code for programs linked with GNU libc. PowerPC64 version.
|
||||
Copyright (C) 1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library 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
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||||
02110-1301 USA. */
|
||||
|
||||
/* some macros which simplify the startup code */
|
||||
|
||||
/* load the 64 bit value "value" into register ra */
|
||||
.macro LOAD_64BIT_VAL ra, value
|
||||
lis \ra,\value@highest
|
||||
ori \ra,\ra,\value@higher
|
||||
sldi \ra,\ra,32
|
||||
oris \ra,\ra,\value@h
|
||||
ori \ra,\ra,\value@l
|
||||
.endm
|
||||
|
||||
/* create function prolog for symbol "fn" */
|
||||
.macro FUNCTION_PROLOG fn
|
||||
.section ".text"
|
||||
.align 2
|
||||
.globl \fn
|
||||
.section ".opd", "aw"
|
||||
.align 3
|
||||
\fn:
|
||||
.quad .\fn, .TOC.@tocbase, 0
|
||||
.previous
|
||||
.size \fn, 24
|
||||
.type \fn, @function
|
||||
.globl .\fn
|
||||
.\fn:
|
||||
.endm
|
||||
|
||||
/*
|
||||
* "ptrgl" glue code for calls via pointer. This function
|
||||
* sequence loads the data from the function descriptor
|
||||
* referenced by R11 into the CTR register (function address),
|
||||
* R2 (GOT/TOC pointer), and R11 (the outer frame pointer).
|
||||
*
|
||||
* On entry, R11 must be set to point to the function descriptor.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.11 (in v1.7).
|
||||
*/
|
||||
.section ".text"
|
||||
.align 3
|
||||
.globl .ptrgl
|
||||
.ptrgl:
|
||||
ld 0, 0(11)
|
||||
std 2, 40(1)
|
||||
mtctr 0
|
||||
ld 2, 8(11)
|
||||
ld 11, 8(11)
|
||||
bctr
|
||||
.long 0
|
||||
.byte 0, 12, 128, 0, 0, 0, 0, 0
|
||||
.type .ptrgl, @function
|
||||
.size .ptrgl, . - .ptrgl
|
||||
|
||||
/*
|
||||
* Function prolog/epilog helpers, which are part of the 64-bit
|
||||
* PowerPC ABI.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.5, "Register saving and restoring
|
||||
* function" (in v1.7).
|
||||
*/
|
||||
|
||||
/* Each _savegpr0_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area. R0 must contain the old LR on
|
||||
* entry.
|
||||
*/
|
||||
_savegpr0_14: std 14,-144(1)
|
||||
_savegpr0_15: std 15,-136(1)
|
||||
_savegpr0_16: std 16,-128(1)
|
||||
_savegpr0_17: std 17,-120(1)
|
||||
_savegpr0_18: std 18,-112(1)
|
||||
_savegpr0_19: std 19,-104(1)
|
||||
_savegpr0_20: std 20,-96(1)
|
||||
_savegpr0_21: std 21,-88(1)
|
||||
_savegpr0_22: std 22,-80(1)
|
||||
_savegpr0_23: std 23,-72(1)
|
||||
_savegpr0_24: std 24,-64(1)
|
||||
_savegpr0_25: std 25,-56(1)
|
||||
_savegpr0_26: std 26,-48(1)
|
||||
_savegpr0_27: std 27,-40(1)
|
||||
_savegpr0_28: std 28,-32(1)
|
||||
_savegpr0_29: std 29,-24(1)
|
||||
_savegpr0_30: std 30,-16(1)
|
||||
_savegpr0_31:
|
||||
std 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _restgpr0_N routine restores the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area.
|
||||
*/
|
||||
_restgpr0_14: ld 14,-144(1)
|
||||
_restgpr0_15: ld 15,-136(1)
|
||||
_restgpr0_16: ld 16,-128(1)
|
||||
_restgpr0_17: ld 17,-120(1)
|
||||
_restgpr0_18: ld 18,-112(1)
|
||||
_restgpr0_19: ld 19,-104(1)
|
||||
_restgpr0_20: ld 20,-96(1)
|
||||
_restgpr0_21: ld 21,-88(1)
|
||||
_restgpr0_22: ld 22,-80(1)
|
||||
_restgpr0_23: ld 23,-72(1)
|
||||
_restgpr0_24: ld 24,-64(1)
|
||||
_restgpr0_25: ld 25,-56(1)
|
||||
_restgpr0_26: ld 26,-48(1)
|
||||
_restgpr0_27: ld 27,-40(1)
|
||||
_restgpr0_28: ld 28,-32(1)
|
||||
_restgpr0_29:
|
||||
ld 0, 16(1)
|
||||
ld 29,-24(1)
|
||||
mtlr 0
|
||||
ld 30,-16(1)
|
||||
ld 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restgpr0_30: ld 30,-16(1)
|
||||
_restgpr0_31: ld 0, 16(1)
|
||||
ld 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savegpr1_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r12
|
||||
* must point to the start of the general register save area.
|
||||
*/
|
||||
_savegpr1_14: std 14,-144(12)
|
||||
_savegpr1_15: std 15,-136(12)
|
||||
_savegpr1_16: std 16,-128(12)
|
||||
_savegpr1_17: std 17,-120(12)
|
||||
_savegpr1_18: std 18,-112(12)
|
||||
_savegpr1_19: std 19,-104(12)
|
||||
_savegpr1_20: std 20,-96(12)
|
||||
_savegpr1_21: std 21,-88(12)
|
||||
_savegpr1_22: std 22,-80(12)
|
||||
_savegpr1_23: std 23,-72(12)
|
||||
_savegpr1_24: std 24,-64(12)
|
||||
_savegpr1_25: std 25,-56(12)
|
||||
_savegpr1_26: std 26,-48(12)
|
||||
_savegpr1_27: std 27,-40(12)
|
||||
_savegpr1_28: std 28,-32(12)
|
||||
_savegpr1_29: std 29,-24(12)
|
||||
_savegpr1_30: std 30,-16(12)
|
||||
_savegpr1_31: std 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restgpr1_N routines restore the general registers from rN to r31.
|
||||
* When the routine is called, r12 must point to the start of the general
|
||||
* register save area.
|
||||
*/
|
||||
_restgpr1_14: ld 14,-144(12)
|
||||
_restgpr1_15: ld 15,-136(12)
|
||||
_restgpr1_16: ld 16,-128(12)
|
||||
_restgpr1_17: ld 17,-120(12)
|
||||
_restgpr1_18: ld 18,-112(12)
|
||||
_restgpr1_19: ld 19,-104(12)
|
||||
_restgpr1_20: ld 20,-96(12)
|
||||
_restgpr1_21: ld 21,-88(12)
|
||||
_restgpr1_22: ld 22,-80(12)
|
||||
_restgpr1_23: ld 23,-72(12)
|
||||
_restgpr1_24: ld 24,-64(12)
|
||||
_restgpr1_25: ld 25,-56(12)
|
||||
_restgpr1_26: ld 26,-48(12)
|
||||
_restgpr1_27: ld 27,-40(12)
|
||||
_restgpr1_28: ld 28,-32(12)
|
||||
_restgpr1_29: ld 29,-24(12)
|
||||
_restgpr1_30: ld 30,-16(12)
|
||||
_restgpr1_31: ld 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
/* Each _savefpr_M routine saves the floating point registers from fM to f31,
|
||||
* inclusive. When the routine is called, r1 must point to the start of the
|
||||
* floating point register save area, and r0 must contain the value of LR on
|
||||
* function entry.
|
||||
*/
|
||||
_savefpr_14: stfd 14,-144(1)
|
||||
_savefpr_15: stfd 15,-136(1)
|
||||
_savefpr_16: stfd 16,-128(1)
|
||||
_savefpr_17: stfd 17,-120(1)
|
||||
_savefpr_18: stfd 18,-112(1)
|
||||
_savefpr_19: stfd 19,-104(1)
|
||||
_savefpr_20: stfd 20,-96(1)
|
||||
_savefpr_21: stfd 21,-88(1)
|
||||
_savefpr_22: stfd 22,-80(1)
|
||||
_savefpr_23: stfd 23,-72(1)
|
||||
_savefpr_24: stfd 24,-64(1)
|
||||
_savefpr_25: stfd 25,-56(1)
|
||||
_savefpr_26: stfd 26,-48(1)
|
||||
_savefpr_27: stfd 27,-40(1)
|
||||
_savefpr_28: stfd 28,-32(1)
|
||||
_savefpr_29: stfd 29,-24(1)
|
||||
_savefpr_30: stfd 30,-16(1)
|
||||
_savefpr_31: stfd 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restfpr_M routines restore the floating point registers from fM to f31.
|
||||
* When the routine is called, r1 must point to the start of the floating point
|
||||
* register save area.
|
||||
*/
|
||||
_restfpr_14: lfd 14,-144(1)
|
||||
_restfpr_15: lfd 15,-136(1)
|
||||
_restfpr_16: lfd 16,-128(1)
|
||||
_restfpr_17: lfd 17,-120(1)
|
||||
_restfpr_18: lfd 18,-112(1)
|
||||
_restfpr_19: lfd 19,-104(1)
|
||||
_restfpr_20: lfd 20,-96(1)
|
||||
_restfpr_21: lfd 21,-88(1)
|
||||
_restfpr_22: lfd 22,-80(1)
|
||||
_restfpr_23: lfd 23,-72(1)
|
||||
_restfpr_24: lfd 24,-64(1)
|
||||
_restfpr_25: lfd 25,-56(1)
|
||||
_restfpr_26: lfd 26,-48(1)
|
||||
_restfpr_27: lfd 27,-40(1)
|
||||
_restfpr_28: lfd 28,-32(1)
|
||||
_restfpr_29:
|
||||
ld 0, 16(1)
|
||||
lfd 29,-24(1)
|
||||
mtlr 0
|
||||
lfd 30,-16(1)
|
||||
lfd 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restfpr_30: lfd 30,-16(1)
|
||||
_restfpr_31:
|
||||
ld 0, 16(1)
|
||||
lfd 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savevr_M routine saves the vector registers from vM to v31, inclusive.
|
||||
* When the routine is called, r0 must point to the word just beyound the end
|
||||
* of the vector register save area. On return the value of r0 is unchanged
|
||||
* while r12 may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_savevr_20: addi r12,r0,-192
|
||||
stvx v20,r12,r0
|
||||
_savevr_21: addi r12,r0,-176
|
||||
stvx v21,r12,r0
|
||||
_savevr_22: addi r12,r0,-160
|
||||
stvx v22,r12,r0
|
||||
_savevr_23: addi r12,r0,-144
|
||||
stvx v23,r12,r0
|
||||
_savevr_24: addi r12,r0,-128
|
||||
stvx v24,r12,r0
|
||||
_savevr_25: addi r12,r0,-112
|
||||
stvx v25,r12,r0
|
||||
_savevr_26: addi r12,r0,-96
|
||||
stvx v26,r12,r0
|
||||
_savevr_27: addi r12,r0,-80
|
||||
stvx v27,r12,r0
|
||||
_savevr_28: addi r12,r0,-64
|
||||
stvx v28,r12,r0
|
||||
_savevr_29: addi r12,r0,-48
|
||||
stvx v29,r12,r0
|
||||
_savevr_30: addi r12,r0,-32
|
||||
stvx v30,r12,r0
|
||||
_savevr_31: addi r12,r0,-16
|
||||
stvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
/* The _restvr_M routines restore the vector registers from vM to v31. When the
|
||||
* routine is called, r0 must point to the word just beyound the end of the
|
||||
* vector register save area. On return the value of r0 is unchanged while r12
|
||||
* may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_restvr_20: addi r12,r0,-192
|
||||
lvx v20,r12,r0
|
||||
_restvr_21: addi r12,r0,-176
|
||||
lvx v21,r12,r0
|
||||
_restvr_22: addi r12,r0,-160
|
||||
lvx v22,r12,r0
|
||||
_restvr_23: addi r12,r0,-144
|
||||
lvx v23,r12,r0
|
||||
_restvr_24: addi r12,r0,-128
|
||||
lvx v24,r12,r0
|
||||
_restvr_25: addi r12,r0,-112
|
||||
lvx v25,r12,r0
|
||||
_restvr_26: addi r12,r0,-96
|
||||
lvx v26,r12,r0
|
||||
_restvr_27: addi r12,r0,-80
|
||||
lvx v27,r12,r0
|
||||
_restvr_28: addi r12,r0,-64
|
||||
lvx v28,r12,r0
|
||||
_restvr_29: addi r12,r0,-48
|
||||
lvx v29,r12,r0
|
||||
_restvr_30: addi r12,r0,-32
|
||||
lvx v30,r12,r0
|
||||
_restvr_31: addi r12,r0,-16
|
||||
lvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
|
||||
/*
|
||||
* start_addresses is a structure containing the real
|
||||
* entry point (next to other things not interesting to
|
||||
* us here).
|
||||
*
|
||||
* All references in the struct are function descriptors
|
||||
*
|
||||
*/
|
||||
.section ".rodata"
|
||||
.align 3
|
||||
start_addresses:
|
||||
.quad 0 /* was _SDA_BASE_ but not in 64-bit ABI*/
|
||||
.quad main_stub
|
||||
.quad __libc_csu_init
|
||||
.quad __libc_csu_fini
|
||||
.size start_adresses, .-start_addresses
|
||||
|
||||
/*
|
||||
* the real entry point for the program
|
||||
*/
|
||||
FUNCTION_PROLOG _start
|
||||
mr 9,1 /* save the stack pointer */
|
||||
|
||||
/* Set up an initial stack frame, and clear the LR. */
|
||||
|
||||
clrrdi 1,1,4
|
||||
li 0,0
|
||||
stdu 1,-128(1)
|
||||
mtlr 0
|
||||
std 0,0(1)
|
||||
|
||||
/* put the address of start_addresses in r8... */
|
||||
/* PPC64 ABI uses R13 for thread local, so we leave it alone */
|
||||
LOAD_64BIT_VAL 8, start_addresses
|
||||
|
||||
b __libc_start_main
|
||||
nop /* a NOP for the linker */
|
||||
|
||||
/*
|
||||
* This is our FreePascal main procedure which is called by
|
||||
* libc after initializing.
|
||||
*/
|
||||
|
||||
FUNCTION_PROLOG main_stub
|
||||
mflr 0
|
||||
std 0,16(1)
|
||||
stdu 1,-128(1)
|
||||
|
||||
LOAD_64BIT_VAL 8, operatingsystem_parameter_argc
|
||||
stw 3,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, operatingsystem_parameter_argv
|
||||
std 4,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, operatingsystem_parameter_envp
|
||||
std 5,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, __stkptr
|
||||
std 1,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 8, ___fpc_ret
|
||||
std 1,0(8)
|
||||
|
||||
LOAD_64BIT_VAL 3, _start
|
||||
ld 3, 0(3)
|
||||
LOAD_64BIT_VAL 4, etext
|
||||
bl __monstartup
|
||||
nop
|
||||
|
||||
LOAD_64BIT_VAL 3, _mcleanup
|
||||
bl atexit
|
||||
nop
|
||||
|
||||
bl PASCALMAIN
|
||||
nop
|
||||
|
||||
b ._haltproc
|
||||
|
||||
FUNCTION_PROLOG _haltproc
|
||||
LOAD_64BIT_VAL 8, ___fpc_ret
|
||||
ld 1, 0(8)
|
||||
addi 1, 1, 128
|
||||
ld 0, 16(1)
|
||||
mtlr 0
|
||||
blr
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.section ".data"
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
data_start:
|
||||
|
||||
___fpc_ret: /* return address to libc */
|
||||
.quad 0
|
||||
|
||||
.section ".bss"
|
||||
|
||||
.type __stkptr, @object
|
||||
.size __stkptr, 8
|
||||
.global __stkptr
|
||||
__stkptr:
|
||||
.skip 8
|
||||
|
||||
.type operatingsystem_parameters, @object
|
||||
.size operatingsystem_parameters, 24
|
||||
operatingsystem_parameters:
|
||||
.skip 3 * 8
|
||||
.global operatingsystem_parameter_argc
|
||||
.global operatingsystem_parameter_argv
|
||||
.global operatingsystem_parameter_envp
|
||||
.set operatingsystem_parameter_argc, operatingsystem_parameters+0
|
||||
.set operatingsystem_parameter_argv, operatingsystem_parameters+8
|
||||
.set operatingsystem_parameter_envp, operatingsystem_parameters+16
|
||||
|
||||
.section .note.GNU-stack,"",%progbits
|
||||
@ -1,464 +0,0 @@
|
||||
/*
|
||||
* This file is part of the Free Pascal run time library.
|
||||
* Copyright (c) 2005 by Thomas Schatzl,
|
||||
* member of the Free Pascal development team.
|
||||
*
|
||||
* Startup code for normal programs, PowerPC64 version.
|
||||
*
|
||||
* See the file COPYING.FPC, included in this distribution,
|
||||
* for details about the copyright.
|
||||
*
|
||||
* This program 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.
|
||||
*/
|
||||
|
||||
.macro LOAD_64BIT_VAL ra, value
|
||||
lis \ra,\value@highest
|
||||
ori \ra,\ra,\value@higher
|
||||
sldi \ra,\ra,32
|
||||
oris \ra,\ra,\value@h
|
||||
ori \ra,\ra,\value@l
|
||||
.endm
|
||||
|
||||
/* create function prolog for symbol "fn" */
|
||||
.macro FUNCTION_PROLOG fn
|
||||
.section ".text"
|
||||
.align 2
|
||||
.globl \fn
|
||||
.section ".opd", "aw"
|
||||
.align 3
|
||||
\fn:
|
||||
.quad .\fn, .TOC.@tocbase, 0
|
||||
.previous
|
||||
.size \fn, 24
|
||||
.type \fn, @function
|
||||
.globl .\fn
|
||||
.\fn:
|
||||
.endm
|
||||
|
||||
/*
|
||||
* "ptrgl" glue code for calls via pointer. This function
|
||||
* sequence loads the data from the function descriptor
|
||||
* referenced by R11 into the CTR register (function address),
|
||||
* R2 (GOT/TOC pointer), and R11 (the outer frame pointer).
|
||||
*
|
||||
* On entry, R11 must be set to point to the function descriptor.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.11 (in v1.7).
|
||||
*/
|
||||
.section ".text"
|
||||
.align 3
|
||||
.globl .ptrgl
|
||||
.ptrgl:
|
||||
ld 0, 0(11)
|
||||
std 2, 40(1)
|
||||
mtctr 0
|
||||
ld 2, 8(11)
|
||||
ld 11, 16(11)
|
||||
bctr
|
||||
.long 0
|
||||
.byte 0, 12, 128, 0, 0, 0, 0, 0
|
||||
.type .ptrgl, @function
|
||||
.size .ptrgl, . - .ptrgl
|
||||
|
||||
/*
|
||||
* Function prolog/epilog helpers, which are part of the 64-bit
|
||||
* PowerPC ABI.
|
||||
*
|
||||
* See also the 64-bit PowerPC ABI specification for more
|
||||
* information, chapter 3.5.5, "Register saving and restoring
|
||||
* function" (in v1.7).
|
||||
*/
|
||||
|
||||
/* Each _savegpr0_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area. R0 must contain the old LR on
|
||||
* entry.
|
||||
*/
|
||||
_savegpr0_14: std 14,-144(1)
|
||||
_savegpr0_15: std 15,-136(1)
|
||||
_savegpr0_16: std 16,-128(1)
|
||||
_savegpr0_17: std 17,-120(1)
|
||||
_savegpr0_18: std 18,-112(1)
|
||||
_savegpr0_19: std 19,-104(1)
|
||||
_savegpr0_20: std 20,-96(1)
|
||||
_savegpr0_21: std 21,-88(1)
|
||||
_savegpr0_22: std 22,-80(1)
|
||||
_savegpr0_23: std 23,-72(1)
|
||||
_savegpr0_24: std 24,-64(1)
|
||||
_savegpr0_25: std 25,-56(1)
|
||||
_savegpr0_26: std 26,-48(1)
|
||||
_savegpr0_27: std 27,-40(1)
|
||||
_savegpr0_28: std 28,-32(1)
|
||||
_savegpr0_29: std 29,-24(1)
|
||||
_savegpr0_30: std 30,-16(1)
|
||||
_savegpr0_31:
|
||||
std 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _restgpr0_N routine restores the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r1 must point to the start
|
||||
* of the general register save area.
|
||||
*/
|
||||
_restgpr0_14: ld 14,-144(1)
|
||||
_restgpr0_15: ld 15,-136(1)
|
||||
_restgpr0_16: ld 16,-128(1)
|
||||
_restgpr0_17: ld 17,-120(1)
|
||||
_restgpr0_18: ld 18,-112(1)
|
||||
_restgpr0_19: ld 19,-104(1)
|
||||
_restgpr0_20: ld 20,-96(1)
|
||||
_restgpr0_21: ld 21,-88(1)
|
||||
_restgpr0_22: ld 22,-80(1)
|
||||
_restgpr0_23: ld 23,-72(1)
|
||||
_restgpr0_24: ld 24,-64(1)
|
||||
_restgpr0_25: ld 25,-56(1)
|
||||
_restgpr0_26: ld 26,-48(1)
|
||||
_restgpr0_27: ld 27,-40(1)
|
||||
_restgpr0_28: ld 28,-32(1)
|
||||
_restgpr0_29:
|
||||
ld 0, 16(1)
|
||||
ld 29,-24(1)
|
||||
mtlr 0
|
||||
ld 30,-16(1)
|
||||
ld 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restgpr0_30: ld 30,-16(1)
|
||||
_restgpr0_31: ld 0, 16(1)
|
||||
ld 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savegpr1_N routine saves the general registers from rN to r31,
|
||||
* inclusive. When the routine is called, r12
|
||||
* must point to the start of the general register save area.
|
||||
*/
|
||||
_savegpr1_14: std 14,-144(12)
|
||||
_savegpr1_15: std 15,-136(12)
|
||||
_savegpr1_16: std 16,-128(12)
|
||||
_savegpr1_17: std 17,-120(12)
|
||||
_savegpr1_18: std 18,-112(12)
|
||||
_savegpr1_19: std 19,-104(12)
|
||||
_savegpr1_20: std 20,-96(12)
|
||||
_savegpr1_21: std 21,-88(12)
|
||||
_savegpr1_22: std 22,-80(12)
|
||||
_savegpr1_23: std 23,-72(12)
|
||||
_savegpr1_24: std 24,-64(12)
|
||||
_savegpr1_25: std 25,-56(12)
|
||||
_savegpr1_26: std 26,-48(12)
|
||||
_savegpr1_27: std 27,-40(12)
|
||||
_savegpr1_28: std 28,-32(12)
|
||||
_savegpr1_29: std 29,-24(12)
|
||||
_savegpr1_30: std 30,-16(12)
|
||||
_savegpr1_31: std 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restgpr1_N routines restore the general registers from rN to r31.
|
||||
* When the routine is called, r12 must point to the start of the general
|
||||
* register save area.
|
||||
*/
|
||||
_restgpr1_14: ld 14,-144(12)
|
||||
_restgpr1_15: ld 15,-136(12)
|
||||
_restgpr1_16: ld 16,-128(12)
|
||||
_restgpr1_17: ld 17,-120(12)
|
||||
_restgpr1_18: ld 18,-112(12)
|
||||
_restgpr1_19: ld 19,-104(12)
|
||||
_restgpr1_20: ld 20,-96(12)
|
||||
_restgpr1_21: ld 21,-88(12)
|
||||
_restgpr1_22: ld 22,-80(12)
|
||||
_restgpr1_23: ld 23,-72(12)
|
||||
_restgpr1_24: ld 24,-64(12)
|
||||
_restgpr1_25: ld 25,-56(12)
|
||||
_restgpr1_26: ld 26,-48(12)
|
||||
_restgpr1_27: ld 27,-40(12)
|
||||
_restgpr1_28: ld 28,-32(12)
|
||||
_restgpr1_29: ld 29,-24(12)
|
||||
_restgpr1_30: ld 30,-16(12)
|
||||
_restgpr1_31: ld 31,-8(12)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
/* Each _savefpr_M routine saves the floating point registers from fM to f31,
|
||||
* inclusive. When the routine is called, r1 must point to the start of the
|
||||
* floating point register save area, and r0 must contain the value of LR on
|
||||
* function entry.
|
||||
*/
|
||||
_savefpr_14: stfd 14,-144(1)
|
||||
_savefpr_15: stfd 15,-136(1)
|
||||
_savefpr_16: stfd 16,-128(1)
|
||||
_savefpr_17: stfd 17,-120(1)
|
||||
_savefpr_18: stfd 18,-112(1)
|
||||
_savefpr_19: stfd 19,-104(1)
|
||||
_savefpr_20: stfd 20,-96(1)
|
||||
_savefpr_21: stfd 21,-88(1)
|
||||
_savefpr_22: stfd 22,-80(1)
|
||||
_savefpr_23: stfd 23,-72(1)
|
||||
_savefpr_24: stfd 24,-64(1)
|
||||
_savefpr_25: stfd 25,-56(1)
|
||||
_savefpr_26: stfd 26,-48(1)
|
||||
_savefpr_27: stfd 27,-40(1)
|
||||
_savefpr_28: stfd 28,-32(1)
|
||||
_savefpr_29: stfd 29,-24(1)
|
||||
_savefpr_30: stfd 30,-16(1)
|
||||
_savefpr_31: stfd 31,-8(1)
|
||||
std 0, 16(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* The _restfpr_M routines restore the floating point registers from fM to f31.
|
||||
* When the routine is called, r1 must point to the start of the floating point
|
||||
* register save area.
|
||||
*/
|
||||
_restfpr_14: lfd 14,-144(1)
|
||||
_restfpr_15: lfd 15,-136(1)
|
||||
_restfpr_16: lfd 16,-128(1)
|
||||
_restfpr_17: lfd 17,-120(1)
|
||||
_restfpr_18: lfd 18,-112(1)
|
||||
_restfpr_19: lfd 19,-104(1)
|
||||
_restfpr_20: lfd 20,-96(1)
|
||||
_restfpr_21: lfd 21,-88(1)
|
||||
_restfpr_22: lfd 22,-80(1)
|
||||
_restfpr_23: lfd 23,-72(1)
|
||||
_restfpr_24: lfd 24,-64(1)
|
||||
_restfpr_25: lfd 25,-56(1)
|
||||
_restfpr_26: lfd 26,-48(1)
|
||||
_restfpr_27: lfd 27,-40(1)
|
||||
_restfpr_28: lfd 28,-32(1)
|
||||
_restfpr_29:
|
||||
ld 0, 16(1)
|
||||
lfd 29,-24(1)
|
||||
mtlr 0
|
||||
lfd 30,-16(1)
|
||||
lfd 31,-8(1)
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
_restfpr_30: lfd 30,-16(1)
|
||||
_restfpr_31:
|
||||
ld 0, 16(1)
|
||||
lfd 31,-8(1)
|
||||
mtlr 0
|
||||
blr
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Each _savevr_M routine saves the vector registers from vM to v31, inclusive.
|
||||
* When the routine is called, r0 must point to the word just beyound the end
|
||||
* of the vector register save area. On return the value of r0 is unchanged
|
||||
* while r12 may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_savevr_20: addi r12,r0,-192
|
||||
stvx v20,r12,r0
|
||||
_savevr_21: addi r12,r0,-176
|
||||
stvx v21,r12,r0
|
||||
_savevr_22: addi r12,r0,-160
|
||||
stvx v22,r12,r0
|
||||
_savevr_23: addi r12,r0,-144
|
||||
stvx v23,r12,r0
|
||||
_savevr_24: addi r12,r0,-128
|
||||
stvx v24,r12,r0
|
||||
_savevr_25: addi r12,r0,-112
|
||||
stvx v25,r12,r0
|
||||
_savevr_26: addi r12,r0,-96
|
||||
stvx v26,r12,r0
|
||||
_savevr_27: addi r12,r0,-80
|
||||
stvx v27,r12,r0
|
||||
_savevr_28: addi r12,r0,-64
|
||||
stvx v28,r12,r0
|
||||
_savevr_29: addi r12,r0,-48
|
||||
stvx v29,r12,r0
|
||||
_savevr_30: addi r12,r0,-32
|
||||
stvx v30,r12,r0
|
||||
_savevr_31: addi r12,r0,-16
|
||||
stvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
/* The _restvr_M routines restore the vector registers from vM to v31. When the
|
||||
* routine is called, r0 must point to the word just beyound the end of the
|
||||
* vector register save area. On return the value of r0 is unchanged while r12
|
||||
* may be modified.
|
||||
*/
|
||||
/* commented out for now, unused
|
||||
_restvr_20: addi r12,r0,-192
|
||||
lvx v20,r12,r0
|
||||
_restvr_21: addi r12,r0,-176
|
||||
lvx v21,r12,r0
|
||||
_restvr_22: addi r12,r0,-160
|
||||
lvx v22,r12,r0
|
||||
_restvr_23: addi r12,r0,-144
|
||||
lvx v23,r12,r0
|
||||
_restvr_24: addi r12,r0,-128
|
||||
lvx v24,r12,r0
|
||||
_restvr_25: addi r12,r0,-112
|
||||
lvx v25,r12,r0
|
||||
_restvr_26: addi r12,r0,-96
|
||||
lvx v26,r12,r0
|
||||
_restvr_27: addi r12,r0,-80
|
||||
lvx v27,r12,r0
|
||||
_restvr_28: addi r12,r0,-64
|
||||
lvx v28,r12,r0
|
||||
_restvr_29: addi r12,r0,-48
|
||||
lvx v29,r12,r0
|
||||
_restvr_30: addi r12,r0,-32
|
||||
lvx v30,r12,r0
|
||||
_restvr_31: addi r12,r0,-16
|
||||
lvx v31,r12,r0
|
||||
blr
|
||||
*/
|
||||
|
||||
/*
|
||||
* Main program entry point for dynamic executables.
|
||||
*
|
||||
* r7 contains the function pointer that needs to be registered for calling at exit.
|
||||
* r3/r4/r5 contain argc/argv/envp
|
||||
*/
|
||||
FUNCTION_PROLOG _dynamic_start
|
||||
LOAD_64BIT_VAL 11, __dl_fini
|
||||
std 7,0(11)
|
||||
LOAD_64BIT_VAL 11, PASCALMAIN
|
||||
/* set up GOT pointer from PASCALMAIN */
|
||||
ld 2,8(11)
|
||||
/* and environment pointer */
|
||||
ld 11,16(11)
|
||||
/* store argument count */
|
||||
LOAD_64BIT_VAL 10,operatingsystem_parameter_argc
|
||||
stw 3,0(10)
|
||||
/* store argument address */
|
||||
LOAD_64BIT_VAL 10,operatingsystem_parameter_argv
|
||||
std 4,0(10)
|
||||
/* store environment pointer */
|
||||
LOAD_64BIT_VAL 10,operatingsystem_parameter_envp
|
||||
std 5,0(10)
|
||||
|
||||
LOAD_64BIT_VAL 8,__stkptr
|
||||
std 1,0(8)
|
||||
|
||||
bl PASCALMAIN
|
||||
nop
|
||||
|
||||
/* we should not reach here. Crash horribly */
|
||||
trap
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/*
|
||||
* Main program entry point for static executables
|
||||
*
|
||||
* The document "64-bit PowerPC ELF Application Binary Interface Supplement 1.9"
|
||||
* pg. 24f specifies that argc/argv/envp are passed in registers r3/r4/r5 respectively,
|
||||
* but that does not seem to be the case.
|
||||
*
|
||||
* However the stack layout and contents are the same as for other platforms, so
|
||||
* use this.
|
||||
*/
|
||||
FUNCTION_PROLOG _start
|
||||
mr 26,1 /* save stack pointer */
|
||||
/* Set up an initial stack frame, and clear the LR */
|
||||
clrrdi 1,1,5 /* align r1 */
|
||||
li 0,0
|
||||
stdu 1,-128(1)
|
||||
mtlr 0
|
||||
std 0,0(1) /* r1 = pointer to NULL value */
|
||||
|
||||
/* store argument count (= 0(r1) )*/
|
||||
ld 3,0(26)
|
||||
LOAD_64BIT_VAL 10,operatingsystem_parameter_argc
|
||||
stw 3,0(10)
|
||||
/* calculate argument vector address and store (= 8(r1) + 8 ) */
|
||||
addi 4,26,8
|
||||
LOAD_64BIT_VAL 10,operatingsystem_parameter_argv
|
||||
std 4,0(10)
|
||||
/* store environment pointer (= argv + (argc+1)* 8 ) */
|
||||
addi 5,3,1
|
||||
sldi 5,5,3
|
||||
add 5,4,5
|
||||
LOAD_64BIT_VAL 10, operatingsystem_parameter_envp
|
||||
std 5,0(10)
|
||||
|
||||
LOAD_64BIT_VAL 8,__stkptr
|
||||
std 1,0(8)
|
||||
|
||||
bl PASCALMAIN
|
||||
nop
|
||||
|
||||
/* we should not reach here. Crash horribly */
|
||||
trap
|
||||
|
||||
FUNCTION_PROLOG _haltproc
|
||||
mflr 0
|
||||
std 0,16(1)
|
||||
stdu 1,-144(1)
|
||||
|
||||
LOAD_64BIT_VAL 11,__dl_fini
|
||||
ld 11,0(11)
|
||||
cmpdi 11,0
|
||||
beq .LNoCallDlFini
|
||||
|
||||
bl .ptrgl
|
||||
ld 2,40(1)
|
||||
|
||||
.LNoCallDlFini:
|
||||
|
||||
LOAD_64BIT_VAL 3, operatingsystem_result
|
||||
lwz 3,0(3)
|
||||
/* exit group call */
|
||||
li 0,234
|
||||
sc
|
||||
|
||||
LOAD_64BIT_VAL 3, operatingsystem_result
|
||||
lwz 3,0(3)
|
||||
/* exit call */
|
||||
li 0,1
|
||||
sc
|
||||
/* we should not reach here. Crash horribly */
|
||||
trap
|
||||
/* do not bother cleaning up the stack frame, we should not reach here */
|
||||
.long 0
|
||||
.byte 0, 12, 64, 0, 0, 0, 0, 0
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.section ".data"
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
data_start:
|
||||
|
||||
.section ".bss"
|
||||
|
||||
.type __stkptr, @object
|
||||
.size __stkptr, 8
|
||||
.global __stkptr
|
||||
__stkptr:
|
||||
.skip 8
|
||||
|
||||
.type __dl_fini, @object
|
||||
.size __dl_fini, 8
|
||||
.global __dl_fini
|
||||
__dl_fini:
|
||||
.skip 8
|
||||
|
||||
.type operatingsystem_parameters, @object
|
||||
.size operatingsystem_parameters, 24
|
||||
operatingsystem_parameters:
|
||||
.skip 3 * 8
|
||||
.global operatingsystem_parameter_argc
|
||||
.global operatingsystem_parameter_argv
|
||||
.global operatingsystem_parameter_envp
|
||||
.set operatingsystem_parameter_argc, operatingsystem_parameters+0
|
||||
.set operatingsystem_parameter_argv, operatingsystem_parameters+8
|
||||
.set operatingsystem_parameter_envp, operatingsystem_parameters+16
|
||||
|
||||
.section .note.GNU-stack,"",%progbits
|
||||
Loading…
Reference in New Issue
Block a user