mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 08:39:10 +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.
|
This file is part of the Free Pascal run time library.
|
||||||
Copyright (c) 1999-2009 by Michael Van Canneyt and David Zhang
|
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,
|
See the file COPYING.FPC, included in this distribution,
|
||||||
for details about the copyright.
|
for details about the copyright.
|
||||||
@ -11,89 +11,101 @@
|
|||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||||
*/
|
*/
|
||||||
|
.set noat
|
||||||
|
|
||||||
.section ".text"
|
.section ".text"
|
||||||
|
|
||||||
.align 4
|
.align 4
|
||||||
.global _dynamic_start
|
.global _dynamic_start
|
||||||
.type _dynamic_start,#function
|
.ent _dynamic_start
|
||||||
|
.type _dynamic_start,@function
|
||||||
_dynamic_start:
|
_dynamic_start:
|
||||||
/* TODO: need to set __dl_fini here */
|
/* TODO: check whether this code is correct */
|
||||||
b _start
|
lui $a2,%hi(__dl_fini)
|
||||||
|
sw $v0,%lo(__dl_fini)($a2)
|
||||||
|
b _start
|
||||||
|
nop
|
||||||
|
|
||||||
|
.end _dynamic_start
|
||||||
|
.size _dynamic_start, .-_start
|
||||||
|
|
||||||
.align 4
|
.align 4
|
||||||
.global _start
|
.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:
|
_start:
|
||||||
0: 03a0f021 move s8,sp
|
/* load fp */
|
||||||
4: 2401fff8 li at,-8
|
move $s8,$sp
|
||||||
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
|
|
||||||
|
|
||||||
/* Terminate the stack frame, and reserve space for functions to
|
/* align stack */
|
||||||
drop their arguments. */
|
li $at,-8
|
||||||
mov %g0, %fp
|
and $sp,$sp,$at
|
||||||
sub %sp, 6*4, %sp
|
|
||||||
|
|
||||||
/* Extract the arguments and environment as encoded on the stack. The
|
addiu $sp,$sp,-32
|
||||||
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]
|
|
||||||
|
|
||||||
add %sp, 23*4, %o0
|
lui $s7,0x3d
|
||||||
sethi %hi(operatingsystem_parameter_argv),%o1
|
addiu $s7,$s7,2304
|
||||||
or %o1,%lo(operatingsystem_parameter_argv),%o1
|
li $at,-8
|
||||||
st %o0, [%o1]
|
and $s7,$s7,$at
|
||||||
|
addiu $s7,$s7,-32
|
||||||
|
|
||||||
/* envp=(argc+1)*4+argv */
|
/* store argc */
|
||||||
inc %o2
|
lw $a0,0($s8)
|
||||||
sll %o2, 2, %o2
|
lui $a1,%hi(operatingsystem_parameter_argc)
|
||||||
add %o2, %o0, %o2
|
sw $a0,%lo(operatingsystem_parameter_argc)($a1)
|
||||||
sethi %hi(operatingsystem_parameter_envp),%o1
|
|
||||||
or %o1,%lo(operatingsystem_parameter_envp),%o1
|
|
||||||
st %o2, [%o1]
|
|
||||||
|
|
||||||
/* Save initial stackpointer */
|
/* store argv */
|
||||||
sethi %hi(__stkptr),%o1
|
addiu $a1,$s8,4
|
||||||
or %o1,%lo(__stkptr),%o1
|
lui $a2,%hi(operatingsystem_parameter_argv)
|
||||||
st %sp, [%o1]
|
sw $a1,%lo(operatingsystem_parameter_argv)($a2)
|
||||||
|
|
||||||
/* Call the user program entry point. */
|
/* store envp */
|
||||||
call PASCALMAIN
|
addiu $a2,$a0,1
|
||||||
nop
|
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
|
.end _start
|
||||||
.type _haltproc,@function
|
.size _start, .-_start
|
||||||
|
|
||||||
|
.globl _haltproc
|
||||||
|
.ent _haltproc
|
||||||
|
.type _haltproc,@function
|
||||||
_haltproc:
|
_haltproc:
|
||||||
/* TODO: need to check whether __dl_fini is non-zero and call the function pointer in case */
|
/* TODO: need to check whether __dl_fini is non-zero and call the function pointer in case */
|
||||||
|
|
||||||
li v0,4001
|
li $v0,4001
|
||||||
lui a0,0x0
|
lui $a0,0x0
|
||||||
lw a0,0(a0)
|
lw $a0,0($a0)
|
||||||
syscall
|
syscall
|
||||||
b _haltproc
|
b _haltproc
|
||||||
nop
|
nop
|
||||||
|
|
||||||
.size _start, .-_start
|
.end _haltproc
|
||||||
|
.size _haltproc, .-_haltproc
|
||||||
|
|
||||||
.comm __stkptr,4
|
.comm __stkptr,4
|
||||||
.comm __dl_fini,4
|
.comm __dl_fini,4
|
||||||
@ -101,3 +113,4 @@ _haltproc:
|
|||||||
.comm operatingsystem_parameter_envp,4
|
.comm operatingsystem_parameter_envp,4
|
||||||
.comm operatingsystem_parameter_argc,4
|
.comm operatingsystem_parameter_argc,4
|
||||||
.comm operatingsystem_parameter_argv,4
|
.comm operatingsystem_parameter_argv,4
|
||||||
|
|
||||||
|
|||||||
@ -1,116 +1 @@
|
|||||||
/*
|
.include "mips/prt0.as"
|
||||||
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
|
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user