mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 14:19:31 +02:00
* put generic mips code into mips dir
git-svn-id: trunk@20254 -
This commit is contained in:
florian
parent
2c76472bd5
commit
5a64b05cb4
@ -2,7 +2,7 @@
|
||||
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
|
||||
Startup code for elf32-mipsel/elf32-mips
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
for details about the copyright.
|
||||
@ -11,89 +11,101 @@
|
||||
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
|
||||
.type _dynamic_start,#function
|
||||
.ent _dynamic_start
|
||||
.type _dynamic_start,@function
|
||||
_dynamic_start:
|
||||
/* TODO: need to set __dl_fini here */
|
||||
b _start
|
||||
/* TODO: check whether this code is correct */
|
||||
lui $a2,%hi(__dl_fini)
|
||||
sw $v0,%lo(__dl_fini)($a2)
|
||||
b _start
|
||||
nop
|
||||
|
||||
.end _dynamic_start
|
||||
.size _dynamic_start, .-_start
|
||||
|
||||
.align 4
|
||||
.global _start
|
||||
.type _start,#function
|
||||
.set nomips16
|
||||
.ent _start
|
||||
.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:
|
||||
0: 03a0f021 move s8,sp
|
||||
4: 2401fff8 li at,-8
|
||||
8: 03a1e824 and sp,sp,at
|
||||
c: 27bdffe0 addiu sp,sp,-32
|
||||
10: 3c17003d lui s7,0x3d
|
||||
14: 26f70900 addiu s7,s7,2304
|
||||
18: 2401fff8 li at,-8
|
||||
1c: 02e1b824 and s7,s7,at
|
||||
20: 26f7ffe0 addiu s7,s7,-32
|
||||
24: 8fc40000 lw a0,0(s8)
|
||||
28: 3c050000 lui a1,0x0
|
||||
2c: aca40000 sw a0,0(a1)
|
||||
30: 27c50004 addiu a1,s8,4
|
||||
34: 3c060000 lui a2,0x0
|
||||
38: acc50000 sw a1,0(a2)
|
||||
3c: 24860001 addiu a2,a0,1
|
||||
40: 00063080 sll a2,a2,0x2
|
||||
44: 00c53021 addu a2,a2,a1
|
||||
48: 3c070000 lui a3,0x0
|
||||
4c: 0c000000 jal 0 <__start>
|
||||
50: ace60000 sw a2,0(a3)
|
||||
54: 00000000 nop
|
||||
/* load fp */
|
||||
move $s8,$sp
|
||||
|
||||
/* Terminate the stack frame, and reserve space for functions to
|
||||
drop their arguments. */
|
||||
mov %g0, %fp
|
||||
sub %sp, 6*4, %sp
|
||||
/* align stack */
|
||||
li $at,-8
|
||||
and $sp,$sp,$at
|
||||
|
||||
/* Extract the arguments and environment as encoded on the stack. The
|
||||
argument info starts after one register window (16 words) past the SP. */
|
||||
ld [%sp+22*4], %o2
|
||||
sethi %hi(operatingsystem_parameter_argc),%o1
|
||||
or %o1,%lo(operatingsystem_parameter_argc),%o1
|
||||
st %o2, [%o1]
|
||||
addiu $sp,$sp,-32
|
||||
|
||||
add %sp, 23*4, %o0
|
||||
sethi %hi(operatingsystem_parameter_argv),%o1
|
||||
or %o1,%lo(operatingsystem_parameter_argv),%o1
|
||||
st %o0, [%o1]
|
||||
lui $s7,0x3d
|
||||
addiu $s7,$s7,2304
|
||||
li $at,-8
|
||||
and $s7,$s7,$at
|
||||
addiu $s7,$s7,-32
|
||||
|
||||
/* envp=(argc+1)*4+argv */
|
||||
inc %o2
|
||||
sll %o2, 2, %o2
|
||||
add %o2, %o0, %o2
|
||||
sethi %hi(operatingsystem_parameter_envp),%o1
|
||||
or %o1,%lo(operatingsystem_parameter_envp),%o1
|
||||
st %o2, [%o1]
|
||||
/* store argc */
|
||||
lw $a0,0($s8)
|
||||
lui $a1,%hi(operatingsystem_parameter_argc)
|
||||
sw $a0,%lo(operatingsystem_parameter_argc)($a1)
|
||||
|
||||
/* Save initial stackpointer */
|
||||
sethi %hi(__stkptr),%o1
|
||||
or %o1,%lo(__stkptr),%o1
|
||||
st %sp, [%o1]
|
||||
/* store argv */
|
||||
addiu $a1,$s8,4
|
||||
lui $a2,%hi(operatingsystem_parameter_argv)
|
||||
sw $a1,%lo(operatingsystem_parameter_argv)($a2)
|
||||
|
||||
/* Call the user program entry point. */
|
||||
call PASCALMAIN
|
||||
nop
|
||||
/* store envp */
|
||||
addiu $a2,$a0,1
|
||||
sll $a2,$a2,0x2
|
||||
addu $a2,$a2,$a1
|
||||
lui $a3,%hi(operatingsystem_parameter_envp)
|
||||
jal PASCALMAIN
|
||||
sw $a2,%lo(operatingsystem_parameter_envp)($a3)
|
||||
nop
|
||||
b _haltproc
|
||||
nop
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,@function
|
||||
.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
|
||||
lui a0,0x0
|
||||
lw a0,0(a0)
|
||||
li $v0,4001
|
||||
lui $a0,0x0
|
||||
lw $a0,0($a0)
|
||||
syscall
|
||||
b _haltproc
|
||||
nop
|
||||
|
||||
.size _start, .-_start
|
||||
.end _haltproc
|
||||
.size _haltproc, .-_haltproc
|
||||
|
||||
.comm __stkptr,4
|
||||
.comm __dl_fini,4
|
||||
@ -101,3 +113,4 @@ _haltproc:
|
||||
.comm operatingsystem_parameter_envp,4
|
||||
.comm operatingsystem_parameter_argc,4
|
||||
.comm operatingsystem_parameter_argv,4
|
||||
|
||||
|
||||
@ -1,116 +1 @@
|
||||
/*
|
||||
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
|
||||
.ent _dynamic_start
|
||||
.type _dynamic_start,@function
|
||||
_dynamic_start:
|
||||
/* TODO: check whether this code is correct */
|
||||
lui $a2,%hi(__dl_fini)
|
||||
sw $v0,%lo(__dl_fini)($a2)
|
||||
b _start
|
||||
nop
|
||||
|
||||
.end _dynamic_start
|
||||
.size _dynamic_start, .-_start
|
||||
|
||||
.align 4
|
||||
.global _start
|
||||
.set nomips16
|
||||
.ent _start
|
||||
.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:
|
||||
/* load fp */
|
||||
move $s8,$sp
|
||||
|
||||
/* align stack */
|
||||
li $at,-8
|
||||
and $sp,$sp,$at
|
||||
|
||||
addiu $sp,$sp,-32
|
||||
|
||||
lui $s7,0x3d
|
||||
addiu $s7,$s7,2304
|
||||
li $at,-8
|
||||
and $s7,$s7,$at
|
||||
addiu $s7,$s7,-32
|
||||
|
||||
/* store argc */
|
||||
lw $a0,0($s8)
|
||||
lui $a1,%hi(operatingsystem_parameter_argc)
|
||||
sw $a0,%lo(operatingsystem_parameter_argc)($a1)
|
||||
|
||||
/* store argv */
|
||||
addiu $a1,$s8,4
|
||||
lui $a2,%hi(operatingsystem_parameter_argv)
|
||||
sw $a1,%lo(operatingsystem_parameter_argv)($a2)
|
||||
|
||||
/* store envp */
|
||||
addiu $a2,$a0,1
|
||||
sll $a2,$a2,0x2
|
||||
addu $a2,$a2,$a1
|
||||
lui $a3,%hi(operatingsystem_parameter_envp)
|
||||
jal PASCALMAIN
|
||||
sw $a2,%lo(operatingsystem_parameter_envp)($a3)
|
||||
nop
|
||||
b _haltproc
|
||||
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
|
||||
lui $a0,0x0
|
||||
lw $a0,0($a0)
|
||||
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
|
||||
|
||||
.include "mips/prt0.as"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user