mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-07 16:47:38 +01:00
arm-linux: new gprt0 based on cprt0, plus gmon initialization, so profiling output generation actually works now
git-svn-id: trunk@28663 -
This commit is contained in:
Károly Balogh
parent
fb5939befe
commit
6381280ebd
@ -1,79 +1,136 @@
|
||||
/*
|
||||
At this entry point, most registers' values are unspecified, except:
|
||||
/* Startup code for ARM & ELF
|
||||
Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
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.
|
||||
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.
|
||||
|
||||
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
|
||||
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., 51 Franklin Street, Fifth Floor, Boston,
|
||||
MA 02110-1301, 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
|
||||
*/
|
||||
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,#function
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,#function
|
||||
_start:
|
||||
/* Clear the frame pointer since this is the outermost frame. */
|
||||
mov fp, #0
|
||||
ldmia sp!, {a2}
|
||||
/* Clear the frame pointer since this is the outermost frame. */
|
||||
mov fp, #0
|
||||
ldmia sp!, {a2}
|
||||
|
||||
/* Pop argc off the stack and save a pointer to argv */
|
||||
ldr ip,=operatingsystem_parameter_argc
|
||||
ldr a3,=operatingsystem_parameter_argv
|
||||
str a2,[ip]
|
||||
/* Pop argc off the stack and save a pointer to argv */
|
||||
ldr ip,=operatingsystem_parameter_argc
|
||||
ldr a3,=operatingsystem_parameter_argv
|
||||
str a2,[ip]
|
||||
|
||||
/* calc envp */
|
||||
add a2,a2,#1
|
||||
add a2,sp,a2,LSL #2
|
||||
ldr ip,=operatingsystem_parameter_envp
|
||||
/* calc envp */
|
||||
add a4,a2,#1
|
||||
add a4,sp,a4,LSL #2
|
||||
ldr ip,=operatingsystem_parameter_envp
|
||||
|
||||
str sp,[a3]
|
||||
str a2,[ip]
|
||||
str sp,[a3]
|
||||
str a4,[ip]
|
||||
|
||||
ldr r1,=_etext /* Initialize gmon */
|
||||
/* Save initial stackpointer */
|
||||
ldr ip,=__stkptr
|
||||
str sp,[ip]
|
||||
|
||||
/* Initialize gmon */
|
||||
mov r2,#1
|
||||
ldr r1,=_etext
|
||||
ldr r0,=_start
|
||||
bl monstartup
|
||||
bl __monstartup
|
||||
ldr r0,=_mcleanup
|
||||
bl atexit
|
||||
|
||||
/* Save initial stackpointer */
|
||||
ldr ip,=__stkptr
|
||||
str sp,[ip]
|
||||
/* align sp again to 8 byte boundary, needed by eabi */
|
||||
sub sp,sp,#4
|
||||
/* argc already loaded to a2*/
|
||||
ldr ip, =operatingsystem_parameter_argc
|
||||
ldr a2,[ip]
|
||||
|
||||
/* Let the libc call main and exit with its return code. */
|
||||
bl PASCALMAIN
|
||||
/* Fetch address of fini */
|
||||
ldr ip, =_fini
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,#function
|
||||
/* load argv */
|
||||
mov a3, sp
|
||||
|
||||
/* Push stack limit */
|
||||
str a3, [sp, #-4]!
|
||||
|
||||
/* Push rtld_fini */
|
||||
str a1, [sp, #-4]!
|
||||
|
||||
/* Set up the other arguments in registers */
|
||||
ldr a1, =PASCALMAIN
|
||||
ldr a4, =_init
|
||||
|
||||
/* Push fini */
|
||||
str ip, [sp, #-4]!
|
||||
|
||||
/* __libc_start_main (main, argc, argv, init, fini, rtld_fini, stack_end) */
|
||||
|
||||
/* Let the libc call main and exit with its return code. */
|
||||
bl __libc_start_main
|
||||
|
||||
/* should never get here....*/
|
||||
bl abort
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,#function
|
||||
_haltproc:
|
||||
/* r0 contains exitcode */
|
||||
swi 0x900001
|
||||
b _haltproc
|
||||
ldr r0,=operatingsystem_result
|
||||
ldrb r0,[r0]
|
||||
swi 0x900001
|
||||
b _haltproc
|
||||
|
||||
.globl _haltproc_eabi
|
||||
.globl _haltproc_eabi
|
||||
.type _haltproc_eabi,#function
|
||||
_haltproc_eabi:
|
||||
/* r0 contains exitcode */
|
||||
bl exit /* libc exit */
|
||||
|
||||
ldr r0,=operatingsystem_result
|
||||
ldrb r0,[r0]
|
||||
mov r7,#248
|
||||
swi 0x0
|
||||
b _haltproc_eabi
|
||||
swi 0x0
|
||||
b _haltproc_eabi
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.data
|
||||
.globl __data_start
|
||||
.data
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
.long 0
|
||||
.weak data_start
|
||||
data_start = __data_start
|
||||
.long 0
|
||||
.weak data_start
|
||||
data_start = __data_start
|
||||
|
||||
.bss
|
||||
.comm __stkptr,4
|
||||
@ -82,9 +139,9 @@ __data_start:
|
||||
.comm operatingsystem_parameter_argc,4
|
||||
.comm operatingsystem_parameter_argv,4
|
||||
|
||||
.section ".comment"
|
||||
.byte 0
|
||||
.ascii "generated by FPC http://www.freepascal.org\0"
|
||||
.section ".comment"
|
||||
.byte 0
|
||||
.ascii "generated by FPC http://www.freepascal.org\0"
|
||||
|
||||
/* We need this stuff to make gdb behave itself, otherwise
|
||||
gdb will chokes with SIGILL when trying to debug apps.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user