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

* keep stack aligned at 8 byte boundary inside the startup code

Browse Source 
git-svn-id: trunk@11934 -
This commit is contained in:
florian 2008-10-18 21:20:54 +00:00
parent d11e72b383
commit 10e0f0e387
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/linux/arm/gprt0.as
View File

@ -46,6 +46,8 @@ _start:
/* Save initial stackpointer */ /* Save initial stackpointer */
ldr ip,=__stkptr ldr ip,=__stkptr
str sp,[ip] str sp,[ip]
/* align sp again to 8 byte boundary, needed by eabi */
sub sp,sp,#4
/* Let the libc call main and exit with its return code. */ /* Let the libc call main and exit with its return code. */
bl PASCALMAIN bl PASCALMAIN

2
rtl/linux/arm/prt0.as
View File

@ -65,6 +65,8 @@ _start:
/* Save initial stackpointer */ /* Save initial stackpointer */
ldr ip,=__stkptr ldr ip,=__stkptr
str sp,[ip] str sp,[ip]
/* align sp again to 8 byte boundary, needed by eabi */
sub sp,sp,#4
/* Let the libc call main and exit with its return code. */ /* Let the libc call main and exit with its return code. */
bl PASCALMAIN bl PASCALMAIN

3
rtl/linux/arm/ucprt0.as
View File

@ -121,6 +121,9 @@ _start:
ldr ip,=__stkptr ldr ip,=__stkptr
str sp, [ip] str sp, [ip]
/* keep stack aligned as required by eabi */
sub sp,sp,#4
/* Push stack limit */ /* Push stack limit */
str a3, [sp, #-4]! str a3, [sp, #-4]!