mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 13:59:28 +02:00
+ add arm-linux/uclibc startup code
git-svn-id: trunk@9725 -
This commit is contained in:
micha
parent
3d39cb8d1d
commit
a9972548b0
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -5071,6 +5071,7 @@ rtl/linux/arm/stat.inc svneol=native#text/plain
|
||||
rtl/linux/arm/syscall.inc svneol=native#text/plain
|
||||
rtl/linux/arm/syscallh.inc svneol=native#text/plain
|
||||
rtl/linux/arm/sysnr.inc svneol=native#text/plain
|
||||
rtl/linux/arm/ucprt0.as svneol=native#text/plain
|
||||
rtl/linux/bunxsysc.inc svneol=native#text/plain
|
||||
rtl/linux/errno.inc svneol=native#text/plain
|
||||
rtl/linux/errnostr.inc -text
|
||||
|
||||
@ -264,6 +264,9 @@ endif
|
||||
ifeq ($(CPU_TARGET),x86_64)
|
||||
SYSINIT_UNITS= # si_prc si_c si_dll
|
||||
endif
|
||||
ifeq ($(CPU_TARGET),arm)
|
||||
override LOADERS+=ucprt0
|
||||
endif
|
||||
SYSTEMUNIT=system
|
||||
ifdef RELEASE
|
||||
override FPCOPT+=-Ur
|
||||
@ -2692,6 +2695,8 @@ cprt21$(OEXT) : $(CPU_TARGET)/cprt21.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)cprt21$(OEXT) $(CPU_TARGET)/cprt21.as
|
||||
gprt21$(OEXT) : $(CPU_TARGET)/gprt21.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)gprt21$(OEXT) $(CPU_TARGET)/gprt21.as
|
||||
ucprt0$(OEXT) : $(CPU_TARGET)/ucprt0.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)$@ $<
|
||||
$(SYSTEMUNIT)$(PPUEXT) : $(SYSTEMUNIT).pp $(SYSDEPS)
|
||||
$(COMPILER) -Us -Sg $(SYSTEMUNIT).pp
|
||||
objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
@ -74,6 +74,10 @@ ifeq ($(CPU_TARGET),x86_64)
|
||||
SYSINIT_UNITS= # si_prc si_c si_dll
|
||||
endif
|
||||
|
||||
ifeq ($(CPU_TARGET),arm)
|
||||
override LOADERS+=ucprt0
|
||||
endif
|
||||
|
||||
SYSTEMUNIT=system
|
||||
|
||||
# Causes release PPU files not to be recompiled
|
||||
@ -134,6 +138,9 @@ cprt21$(OEXT) : $(CPU_TARGET)/cprt21.as
|
||||
gprt21$(OEXT) : $(CPU_TARGET)/gprt21.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)gprt21$(OEXT) $(CPU_TARGET)/gprt21.as
|
||||
|
||||
ucprt0$(OEXT) : $(CPU_TARGET)/ucprt0.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)$@ $<
|
||||
|
||||
|
||||
#
|
||||
# $(SYSTEMUNIT) Units ($(SYSTEMUNIT), Objpas, Strings)
|
||||
|
||||
180
rtl/linux/arm/ucprt0.as
Normal file
180
rtl/linux/arm/ucprt0.as
Normal file
@ -0,0 +1,180 @@
|
||||
/* Startup code for ARM & ELF
|
||||
Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002, 2005
|
||||
Free Software Foundation, Inc.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
In addition to the permissions in the GNU Lesser General Public
|
||||
License, the Free Software Foundation gives you unlimited
|
||||
permission to link the compiled version of this file with other
|
||||
programs, and to distribute those programs without any restriction
|
||||
coming from the use of this file. (The GNU Lesser General Public
|
||||
License restrictions do apply in other respects; for example, they
|
||||
cover modification of the file, and distribution when not linked
|
||||
into another program.)
|
||||
|
||||
Note that people who make modified versions of this file are not
|
||||
obligated to grant this special exception for their modified
|
||||
versions; it is their choice whether to do so. The GNU Lesser
|
||||
General Public License gives permission to release a modified
|
||||
version without this exception; this exception also makes it
|
||||
possible to release a modified version which carries forward this
|
||||
exception.
|
||||
|
||||
The GNU C Library 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. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
/* This is the canonical entry point, usually the first thing in the text
|
||||
segment.
|
||||
|
||||
Note that the code in the .init section has already been run.
|
||||
This includes _init and _libc_init
|
||||
|
||||
|
||||
At this entry point, most registers' values are unspecified, except:
|
||||
|
||||
a1 Contains a function pointer to be registered with `atexit'.
|
||||
This is how the dynamic linker arranges to have DT_FINI
|
||||
functions called for shared libraries that have been loaded
|
||||
before this code runs.
|
||||
|
||||
sp 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
|
||||
*/
|
||||
/*
|
||||
For uClinux it looks like this:
|
||||
|
||||
argc argument counter (integer)
|
||||
argv char *argv[]
|
||||
envp char *envp[]
|
||||
argv[0] program name (pointer)
|
||||
argv[1...N] program args (pointers)
|
||||
argv[argc-1] end of args (integer)
|
||||
NULL
|
||||
env[0...N] environment variables (pointers)
|
||||
NULL
|
||||
|
||||
ARM register quick reference:
|
||||
|
||||
Name Number ARM Procedure Calling Standard Role
|
||||
|
||||
a1 r0 argument 1 / integer result / scratch register / argc
|
||||
a2 r1 argument 2 / scratch register / argv
|
||||
a3 r2 argument 3 / scratch register / envp
|
||||
a4 r3 argument 4 / scratch register
|
||||
v1 r4 register variable
|
||||
v2 r5 register variable
|
||||
v3 r6 register variable
|
||||
v4 r7 register variable
|
||||
v5 r8 register variable
|
||||
sb/v6 r9 static base / register variable
|
||||
sl/v7 r10 stack limit / stack chunk handle / reg. variable
|
||||
fp r11 frame pointer
|
||||
ip r12 scratch register / new-sb in inter-link-unit calls
|
||||
sp r13 lower end of current stack frame
|
||||
lr r14 link address / scratch register
|
||||
pc r15 program counter
|
||||
*/
|
||||
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,%function
|
||||
.type _init,%function
|
||||
.type _fini,%function
|
||||
.weak _init
|
||||
.weak _fini
|
||||
|
||||
_start:
|
||||
/* Clear the frame pointer and link register since this is the outermost frame. */
|
||||
mov fp, #0
|
||||
mov lr, #0
|
||||
|
||||
/* Pop argc off the stack and save a pointer to argv */
|
||||
ldr a2, [sp], #4
|
||||
mov a3, sp
|
||||
|
||||
/* calc envp */
|
||||
add a4, a3, a2, lsl #2
|
||||
|
||||
ldr ip,=operatingsystem_parameter_argc
|
||||
str a2, [ip]
|
||||
ldr ip,=operatingsystem_parameter_argv
|
||||
str a3, [ip]
|
||||
ldr ip,=operatingsystem_parameter_envp
|
||||
str a4, [ip]
|
||||
ldr ip,=__stkptr
|
||||
str sp, [ip]
|
||||
|
||||
/* Push stack limit */
|
||||
str a3, [sp, #-4]!
|
||||
|
||||
/* Push rtld_fini */
|
||||
str a1, [sp, #-4]!
|
||||
|
||||
/* Fetch address of fini */
|
||||
ldr ip, =_fini
|
||||
/* Push fini */
|
||||
str ip, [sp, #-4]!
|
||||
|
||||
/* Set up the other arguments in registers */
|
||||
ldr a1, =PASCALMAIN
|
||||
ldr a4, =_init
|
||||
|
||||
/* __uClibc_main (main, argc, argv, init, fini, rtld_fini, stack_end) */
|
||||
|
||||
/* Let the libc call main and exit with its return code. */
|
||||
b __uClibc_main
|
||||
|
||||
/* should never get here....*/
|
||||
bl abort
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,#function
|
||||
_haltproc:
|
||||
swi 0x900001
|
||||
b _haltproc
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.data
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
.long 0
|
||||
.weak data_start
|
||||
data_start = __data_start
|
||||
|
||||
.bss
|
||||
.comm __stkptr,4
|
||||
|
||||
.comm operatingsystem_parameter_envp,4
|
||||
.comm operatingsystem_parameter_argc,4
|
||||
.comm operatingsystem_parameter_argv,4
|
||||
|
||||
/* We need this stuff to make gdb behave itself, otherwise
|
||||
gdb will chokes with SIGILL when trying to debug apps.
|
||||
*/
|
||||
.section ".note.ABI-tag", "a"
|
||||
.align 4
|
||||
.long 1f - 0f
|
||||
.long 3f - 2f
|
||||
.long 1
|
||||
0: .asciz "GNU"
|
||||
1: .align 4
|
||||
2: .long 0
|
||||
.long 2,0,0
|
||||
3: .align 4
|
||||
Loading…
Reference in New Issue
Block a user