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

+ update to make it work

Browse Source
This commit is contained in:
carl 1998-08-14 12:02:18 +00:00
parent c1cf6d35ed
commit 268fc56902
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/m68k/prt0.as
View File

@ -1,4 +1,4 @@
.file "crt0.s" .file "prt0.as"
.text .text
.globl __entry .globl __entry
__entry: __entry:
@ -10,10 +10,17 @@ __entry:
movel d0,U_SYSLINUX_ARGC movel d0,U_SYSLINUX_ARGC
jsr PASCALMAIN jsr PASCALMAIN
.globl _haltproc
_haltproc:
movel U_SYSLINUX_EXITCODE,d1
done:
moveq #1,d0 moveq #1,d0
movel U_SYSLINUX_EXITCODE,d1
trap #0 trap #0
bras done bras _haltproc
.data
.align 4
.globl ___fpc_brk_addr
___fpc_brk_addr:
.long 0