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

+ haltproc added

Browse Source
This commit is contained in:
florian 2004-04-12 19:05:55 +00:00
parent e678705648
commit c645ff1af9
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/x86_64/prt0.as
View File

@ -54,9 +54,14 @@ _start:
xorq %rbp, %rbp xorq %rbp, %rbp
call PASCALMAIN call PASCALMAIN
hlt /* Crash if somehow `exit' does return. */ .globl _haltproc
.type _haltproc,@function
/*!!!! hlt syscall? */ _haltproc:
movl $1,%eax /* exit call */
xorq %rbx,%rbx
movw U_SYSTEM_EXITCODE,%bx
syscall
jmp _haltproc
/* Define a symbol for the first piece of initialized data. */ /* Define a symbol for the first piece of initialized data. */
.data .data
@ -84,7 +89,10 @@ __data_start:
# #
# $Log$ # $Log$
# Revision 1.4 2004-02-20 23:48:27 peter # Revision 1.5 2004-04-12 19:05:55 florian
# + haltproc added
#
# Revision 1.4 2004/02/20 23:48:27 peter
# * c stub implemented # * c stub implemented
# #
# Revision 1.3 2004/02/08 15:33:50 florian # Revision 1.3 2004/02/08 15:33:50 florian