mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 18:39:19 +02:00
+ arm-linux startup code for thumb
git-svn-id: trunk@23981 -
This commit is contained in:
parent
ac4a6accd3
commit
767e932e0e
@ -45,19 +45,48 @@
|
|||||||
.globl _dynamic_start
|
.globl _dynamic_start
|
||||||
.type _dynamic_start,#function
|
.type _dynamic_start,#function
|
||||||
_dynamic_start:
|
_dynamic_start:
|
||||||
|
.ifdef __thumb__
|
||||||
|
ldr r7,=__dl_fini
|
||||||
|
str a1,[r7]
|
||||||
|
.else
|
||||||
ldr ip,=__dl_fini
|
ldr ip,=__dl_fini
|
||||||
str a1,[ip]
|
str a1,[ip]
|
||||||
|
.endif
|
||||||
b _start
|
b _start
|
||||||
|
|
||||||
.text
|
.text
|
||||||
.globl _start
|
.globl _start
|
||||||
.type _start,#function
|
.type _start,#function
|
||||||
_start:
|
_start:
|
||||||
|
.ifdef __thumb__
|
||||||
|
pop {a2}
|
||||||
|
|
||||||
|
/* Pop argc off the stack and save a pointer to argv */
|
||||||
|
ldr r7,=operatingsystem_parameter_argc
|
||||||
|
str a2,[r7]
|
||||||
|
|
||||||
|
ldr r7,=operatingsystem_parameter_argv
|
||||||
|
mov a3,sp
|
||||||
|
str a3,[r7]
|
||||||
|
|
||||||
|
/* calc envp */
|
||||||
|
ldr r7,=operatingsystem_parameter_envp
|
||||||
|
add a2,a2,#1
|
||||||
|
lsl a2,a2,#2
|
||||||
|
add a2,sp,a2
|
||||||
|
str a2,[r7]
|
||||||
|
|
||||||
|
/* Save initial stackpointer */
|
||||||
|
ldr r7,=__stkptr
|
||||||
|
str a3,[r7]
|
||||||
|
|
||||||
/* Clear the frame pointer since this is the outermost frame. */
|
/* Clear the frame pointer since this is the outermost frame. */
|
||||||
|
mov r7, #0
|
||||||
|
.else
|
||||||
mov fp, #0
|
mov fp, #0
|
||||||
ldmia sp!, {a2}
|
ldmia sp!, {a2}
|
||||||
|
|
||||||
/* Pop argc off the stack and save a pointer to argv */
|
/* Pop argc off the stack and save a pointer to argv */
|
||||||
ldr ip,=operatingsystem_parameter_argc
|
ldr ip,=operatingsystem_parameter_argc
|
||||||
ldr a3,=operatingsystem_parameter_argv
|
ldr a3,=operatingsystem_parameter_argv
|
||||||
str a2,[ip]
|
str a2,[ip]
|
||||||
@ -73,6 +102,8 @@ _start:
|
|||||||
/* Save initial stackpointer */
|
/* Save initial stackpointer */
|
||||||
ldr ip,=__stkptr
|
ldr ip,=__stkptr
|
||||||
str sp,[ip]
|
str sp,[ip]
|
||||||
|
.endif
|
||||||
|
|
||||||
/* align sp again to 8 byte boundary, needed by eabi */
|
/* align sp again to 8 byte boundary, needed by eabi */
|
||||||
sub sp,sp,#4
|
sub sp,sp,#4
|
||||||
|
|
||||||
@ -83,7 +114,11 @@ _start:
|
|||||||
.type _haltproc,#function
|
.type _haltproc,#function
|
||||||
_haltproc:
|
_haltproc:
|
||||||
/* r0 contains exitcode */
|
/* r0 contains exitcode */
|
||||||
|
.ifdef __thumb__
|
||||||
|
swi 0x0
|
||||||
|
.else
|
||||||
swi 0x900001
|
swi 0x900001
|
||||||
|
.endif
|
||||||
b _haltproc
|
b _haltproc
|
||||||
|
|
||||||
.globl _haltproc_eabi
|
.globl _haltproc_eabi
|
||||||
@ -93,9 +128,17 @@ _haltproc_eabi:
|
|||||||
ldr r0,[r0]
|
ldr r0,[r0]
|
||||||
cmp r0,#0
|
cmp r0,#0
|
||||||
|
|
||||||
|
.ifdef __thumb__
|
||||||
|
beq .Lnobranch
|
||||||
|
/* only branch if not equal zero */
|
||||||
|
mov lr,pc
|
||||||
|
bx r0 /* we require armv5 anyway, so use bx here */
|
||||||
|
.Lnobranch:
|
||||||
|
.else
|
||||||
/* only branch if not equal zero */
|
/* only branch if not equal zero */
|
||||||
movne lr,pc
|
movne lr,pc
|
||||||
bxne r0 /* we require armv5 anyway, so use bx here */
|
bxne r0 /* we require armv5 anyway, so use bx here */
|
||||||
|
.endif
|
||||||
|
|
||||||
.Lloop:
|
.Lloop:
|
||||||
ldr r0,=operatingsystem_result
|
ldr r0,=operatingsystem_result
|
||||||
|
Loading…
Reference in New Issue
Block a user