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

* arm-android: Do not use register r4, since it must be preserved. Use r3 instead.

Browse Source 
git-svn-id: trunk@31719 -
This commit is contained in:
yury 2015-09-16 16:28:41 +00:00
parent 67758f450e
commit f9f8c931f3
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/android/arm/dllprt0.as
View File

@ -25,30 +25,30 @@ FPC_SHARED_LIB_START:
sub fp, ip, #4 sub fp, ip, #4
/* Get GOT */ /* Get GOT */
ldr r4,.L_GOT1 ldr r3,.L_GOT1
.LPIC1: .LPIC1:
add r4,pc,r4 add r3,pc,r3
/* Save initial stackpointer */ /* Save initial stackpointer */
ldr ip,.L__stkptr ldr ip,.L__stkptr
ldr ip,[r4, ip] ldr ip,[r3, ip]
str sp,[ip] str sp,[ip]
/* Get environment info from libc */ /* Get environment info from libc */
ldr ip,.Lenviron ldr ip,.Lenviron
ldr ip,[r4, ip] ldr ip,[r3, ip]
ldr r0,[ip] ldr r0,[ip]
/* Check if environment is NULL */ /* Check if environment is NULL */
cmp r0,#0 cmp r0,#0
ldreq r0,.LEmptyEnv ldreq r0,.LEmptyEnv
ldreq r0,[r4, r0] ldreq r0,[r3, r0]
ldr ip,.Loperatingsystem_parameter_envp ldr ip,.Loperatingsystem_parameter_envp
ldr ip,[r4, ip] ldr ip,[r3, ip]
str r0,[ip] str r0,[ip]
/* Register exit handler. It is called only when the main process terminates */ /* Register exit handler. It is called only when the main process terminates */
ldr r0,.LFPC_LIB_EXIT ldr r0,.LFPC_LIB_EXIT
ldr r0,[r4, r0] ldr r0,[r3, r0]
blx atexit blx atexit
/* call main and exit normally */ /* call main and exit normally */