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

* load exit code in _haltproc for thumb

Browse Source 
git-svn-id: trunk@24191 -
This commit is contained in:
florian 2013-04-07 21:00:54 +00:00
parent f25a905904
commit a86531c225
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -115,6 +115,9 @@ _start:
_haltproc: _haltproc:
/* r0 contains exitcode */ /* r0 contains exitcode */
.ifdef __thumb__ .ifdef __thumb__
ldr r0,=operatingsystem_result
ldr r0,[r0]
mov r7,#248 /* exit group call */
swi 0x0 swi 0x0
.else .else
swi 0x900001 swi 0x900001