mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-07 03:58:47 +02:00
* _haltproc fixed
This commit is contained in:
parent
5953d974c2
commit
935201e75c
@ -45,13 +45,13 @@ _start:
|
|||||||
stw 5,U_SYSTEM_ENVP@l(11);
|
stw 5,U_SYSTEM_ENVP@l(11);
|
||||||
|
|
||||||
bl PASCALMAIN
|
bl PASCALMAIN
|
||||||
|
|
||||||
|
b _haltproc
|
||||||
|
|
||||||
.globl _haltproc
|
.globl _haltproc
|
||||||
.type _haltproc,@function
|
.type _haltproc,@function
|
||||||
_haltproc:
|
_haltproc:
|
||||||
li 0,1 /* exit call */
|
li 0,1 /* exit call */
|
||||||
lis 3,U_SYSTEM_EXITCODE@h
|
|
||||||
stw 3,U_SYSTEM_EXITCODE@l(3)
|
|
||||||
sc
|
sc
|
||||||
b _haltproc
|
b _haltproc
|
||||||
|
|
||||||
@ -67,8 +67,11 @@ ___fpc_brk_addr:
|
|||||||
.long 0
|
.long 0
|
||||||
/*
|
/*
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.11 2004-01-04 17:23:57 florian
|
Revision 1.12 2004-05-26 20:48:17 florian
|
||||||
+ haeder added
|
* _haltproc fixed
|
||||||
|
|
||||||
|
Revision 1.11 2004/01/04 17:23:57 florian
|
||||||
|
+ header added
|
||||||
|
|
||||||
Revision 1.10 2003/05/12 22:36:45 florian
|
Revision 1.10 2003/05/12 22:36:45 florian
|
||||||
+ added setup of argv, argc and envp
|
+ added setup of argv, argc and envp
|
||||||
|
Loading…
Reference in New Issue
Block a user