paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 03:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

use operatingsystem_result on m68k-amiga to pass returncode to OS

Browse Source 
git-svn-id: trunk@23166 -
This commit is contained in:
Károly Balogh 2012-12-18 01:41:52 +00:00
parent f62269a111
commit 39755ba888
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/amiga/m68k/prt0.as
View File

@ -49,7 +49,6 @@ start:
.globl _haltproc
_haltproc:
move.l d0,returnValue
| Swapping the stack back
move.l _ExecBase,a6
@ -62,7 +61,7 @@ _haltproc:
__exit:
movem.l (sp)+,d0-d7/a0-a6
move.l returnValue,d0
move.l operatingsystem_result,d0
rts
.data
@ -74,11 +73,6 @@ SysBase:
_ExecBase:
.long 0
.globl returnValue
.align 4
returnValue:
.long 0
.globl stackArea
.align 4
stackArea: