paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 08:19:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

netbsd: startup code, first working version for arm

Browse Source 
git-svn-id: trunk@38591 -
This commit is contained in:
Károly Balogh 2018-03-22 01:10:37 +00:00
parent 626dc172ee
commit b06105c893
1 changed files with 24 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/netbsd/arm/prt0.as
View File

@ -14,28 +14,38 @@
#
# NetBSD standard (shared) ELF/arm startup code for Free Pascal
# r12/ip = ps_strings on entry
.section .text
.globl _start
_start:
# move.l %a2,-(%sp) | ps_strings
# move.l %a0,-(%sp) | obj
# move.l %a1,-(%sp) | cleanup
mov ip, r0
mov r0, r2
mov r2, ip
# move.l 0(%a2),operatingsystem_parameter_argv
# move.l 4(%a2),operatingsystem_parameter_argc
# move.l 8(%a2),operatingsystem_parameter_envp
# move.l 8(%a2),environ
ldr r3, [r2, #0]
ldr r4, =operatingsystem_parameter_argv
str r3, [r4]
ldr r3, [r2, #4]
ldr r4, =operatingsystem_parameter_argc
str r3, [r4]
ldr r3, [r2, #8]
ldr r4, =operatingsystem_parameter_envp
str r3, [r4]
ldr r4, =environ
str r3, [r4]
# jsr PASCALMAIN
# jmp _haltproc
# cache align, just in case
bic sp, sp, #7
bl PASCALMAIN
bl _haltproc
.globl _haltproc
_haltproc:
# move.l operatingsystem_result,-(%sp)
# move.l #0,-(%sp)
# moveq.l #1,%d0
# trap #0
# rts
ldr r0,=operatingsystem_result
ldr r0,[r0]
svc 0xa00001
.section .data