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

* restored correct exit code

Browse Source
This commit is contained in:
carl 1998-05-25 12:15:04 +00:00
parent e88d6f01cd
commit fd85bca7b3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/atari/prt0.as
View File

@ -13,7 +13,6 @@
.globl _edata | end of data segment .globl _edata | end of data segment
.globl _end | end of BSS segment (end of program) .globl _end | end of BSS segment (end of program)
.globl __BREAK | location of stack/heap break .globl __BREAK | location of stack/heap break
.globl __exit | terminate immediately with exit code
.globl __ARGC | number of arguments .globl __ARGC | number of arguments
.globl __ARGS | argument list pointer .globl __ARGS | argument list pointer
.globl __envp | environment string pointer .globl __envp | environment string pointer
@ -141,7 +140,11 @@ shrink:
| call C entry point function _main() | call C entry point function _main()
| |
jsr PASCALMAIN | if _main returns jsr PASCALMAIN | if _main returns
movew d0,sp@(4) | insert return value and fall thru
movew #0,sp@- | Terminate program normally
trap #1
| movew d0,sp@(4) | insert return value and fall thru