mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:28:16 +02:00
157 lines
3.6 KiB
ActionScript
157 lines
3.6 KiB
ActionScript
/*
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2009 by Michael Van Canneyt and David Zhang
|
|
|
|
Startup code for elf32-mipsel/elf32-mips
|
|
|
|
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.
|
|
*/
|
|
.set noat
|
|
|
|
.section ".text"
|
|
|
|
.align 4
|
|
.global _dynamic_start
|
|
.global FPC_SHARED_LIB_START
|
|
.type _dynamic_start,@function
|
|
.type FPC_SHARED_LIB_START,@function
|
|
FPC_SHARED_LIB_START:
|
|
_dynamic_start:
|
|
.ent _dynamic_start
|
|
.set noreorder
|
|
.cpload $25
|
|
/* TODO: check whether this code is correct */
|
|
la $v0,__dl_fini
|
|
lw $v0,($v0)
|
|
la $t9,_start
|
|
jr $t9
|
|
nop
|
|
|
|
.end _dynamic_start
|
|
.size _dynamic_start, .-_dynamic_start
|
|
|
|
.align 4
|
|
.global _start
|
|
.set nomips16
|
|
.type _start,@function
|
|
/* This is the canonical entry point, usually the first thing in the text
|
|
segment. The SVR4/Mips ABI (pages 3-31, 3-32) says that when the entry
|
|
point runs, most registers' values are unspecified, except for:
|
|
|
|
v0 ($2) Function pointer of a function to be executed at exit
|
|
|
|
sp ($29) The stack contains the arguments and environment:
|
|
0(%sp) argc
|
|
4(%sp) argv[0]
|
|
|
|
...
|
|
(4*argc)(%sp) NULL
|
|
(4*(argc+1))(%sp) envp[0]
|
|
...
|
|
NULL
|
|
ra ($31) Return address set to zero.
|
|
*/
|
|
_start:
|
|
.ent _start
|
|
.frame $sp,40,$ra
|
|
/* load fp */
|
|
.set noreorder
|
|
.cpload $25
|
|
|
|
/* Record $sp into $t1,
|
|
to cope with unknown alignment value. */
|
|
move $t1,$sp
|
|
|
|
/* align stack */
|
|
li $at,-8
|
|
and $sp,$sp,$at
|
|
addiu $sp,$sp,-40
|
|
|
|
/* Save needed regs:
|
|
$t1, at offset 20
|
|
$gp ($28), at offset 24
|
|
$s8 ($30), at offset 28
|
|
$ra ($31), at offset 32
|
|
*/
|
|
|
|
/* Compute and save sp offset */
|
|
subu $t1,$t1,$sp
|
|
sw $t1,20($sp)
|
|
/* Save $gp register */
|
|
.cprestore 24
|
|
/* Save previous $s8 at offset 28 */
|
|
sw $s8,28($sp)
|
|
/* Save $ra register */
|
|
sw $ra,32($sp)
|
|
|
|
/* Set __stkptr variable */
|
|
move $s8,$sp
|
|
la $t1,__stkptr
|
|
sw $s8,($t1)
|
|
|
|
/* store argc, which is in $a0 */
|
|
lw $a0,0($s8)
|
|
la $t1,operatingsystem_parameter_argc
|
|
sw $a0,($t1)
|
|
|
|
/* store argv which is in $a1 */
|
|
addiu $a1,$s8,4
|
|
la $t1,operatingsystem_parameter_argv
|
|
sw $a1,($t1)
|
|
|
|
/* store envp which is in $a2 */
|
|
la $t1,operatingsystem_parameter_envp
|
|
sw $a2,($t1)
|
|
|
|
/* Set IsLibrary to one */
|
|
la $t1,operatingsystem_islibrary
|
|
li $t2,1
|
|
sb $t2,($t1)
|
|
/* Jump to PASCALMAIN */
|
|
la $t9,PASCALMAIN
|
|
jal $t9
|
|
nop
|
|
|
|
/* Restore $ra */
|
|
lw $ra,32($sp)
|
|
/* Restore $s8 */
|
|
lw $s8,28($sp)
|
|
|
|
/* Restore old $sp */
|
|
lw $t1,20($sp)
|
|
addu $sp,$sp,$t1
|
|
/* Return to caller */
|
|
jr $ra
|
|
nop
|
|
|
|
.end _start
|
|
.size _start, .-_start
|
|
|
|
.globl _haltproc
|
|
.ent _haltproc
|
|
.type _haltproc,@function
|
|
_haltproc:
|
|
/* TODO: need to check whether __dl_fini is non-zero and call the function pointer in case */
|
|
|
|
li $v0,4001
|
|
syscall
|
|
b _haltproc
|
|
nop
|
|
|
|
.end _haltproc
|
|
.size _haltproc, .-_haltproc
|
|
|
|
.comm __stkptr,4
|
|
.comm __dl_fini,4
|
|
|
|
.comm operatingsystem_parameter_envp,4
|
|
.comm operatingsystem_parameter_argc,4
|
|
.comm operatingsystem_parameter_argv,4
|
|
|
|
.section .note.GNU-stack,"",@progbits
|