paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:50:32 +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 .globl _haltproc
_haltproc: _haltproc:
move.l d0,returnValue
| Swapping the stack back | Swapping the stack back
move.l _ExecBase,a6 move.l _ExecBase,a6
@ -62,7 +61,7 @@ _haltproc:
__exit: __exit:
movem.l (sp)+,d0-d7/a0-a6 movem.l (sp)+,d0-d7/a0-a6
move.l returnValue,d0 move.l operatingsystem_result,d0
rts rts
.data .data
@ -74,11 +73,6 @@ SysBase:
_ExecBase: _ExecBase:
.long 0 .long 0
.globl returnValue
.align 4
returnValue:
.long 0
.globl stackArea .globl stackArea
.align 4 .align 4
stackArea: stackArea: