|
|
@@ -20,58 +20,58 @@
|
|
|
/* 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
|
|
|
+ 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:
|
|
|
+ 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.
|
|
|
+ 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
|
|
|
+ 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 a4,a2,#1
|
|
|
- add a4,sp,a4,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 a4,[ip]
|
|
|
+ str sp,[a3]
|
|
|
+ str a4,[ip]
|
|
|
|
|
|
- /* Save initial stackpointer */
|
|
|
- ldr ip,=__stkptr
|
|
|
- str sp,[ip]
|
|
|
+ /* Save initial stackpointer */
|
|
|
+ ldr ip,=__stkptr
|
|
|
+ str sp,[ip]
|
|
|
|
|
|
/* Fetch address of fini */
|
|
|
ldr ip, =_fini
|
|
|
|
|
|
/* argc already loaded to a2*/
|
|
|
|
|
|
- /* load argv
|
|
|
+ /* load argv */
|
|
|
mov a3, sp
|
|
|
|
|
|
/* Push stack limit */
|
|
|
@@ -95,21 +95,21 @@ _start:
|
|
|
/* should never get here....*/
|
|
|
bl abort
|
|
|
|
|
|
- .globl _haltproc
|
|
|
+ .globl _haltproc
|
|
|
.type _haltproc,#function
|
|
|
_haltproc:
|
|
|
- ldr r0,=operatingsystem_result
|
|
|
- ldrb r0,[r0]
|
|
|
- swi 0x900001
|
|
|
- b _haltproc
|
|
|
-
|
|
|
- /* Define a symbol for the first piece of initialized data. */
|
|
|
- .data
|
|
|
- .globl __data_start
|
|
|
+ ldr r0,=operatingsystem_result
|
|
|
+ ldrb r0,[r0]
|
|
|
+ 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
|
|
|
+ .long 0
|
|
|
+ .weak data_start
|
|
|
+ data_start = __data_start
|
|
|
|
|
|
.bss
|
|
|
.comm __stkptr,4
|
|
|
@@ -118,9 +118,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.
|
florian