mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-29 15:00:27 +02:00
* HaltProc does not return
git-svn-id: trunk@49504 -
This commit is contained in:
parent
7ee31ae252
commit
c193551980
@ -9,7 +9,7 @@ var
|
||||
|
||||
procedure Pascalmain; external name 'PASCALMAIN';
|
||||
|
||||
procedure HaltProc; assembler; nostackframe; public name'_haltproc';
|
||||
procedure HaltProc; assembler; nostackframe; public name'_haltproc'; noreturn;
|
||||
asm
|
||||
.Lloop:
|
||||
b .Lloop
|
||||
|
@ -9,7 +9,7 @@ var
|
||||
|
||||
procedure Pascalmain; external name 'PASCALMAIN';
|
||||
|
||||
procedure HaltProc; assembler; nostackframe; public name'_haltproc';
|
||||
procedure HaltProc; assembler; nostackframe; public name'_haltproc'; noreturn;
|
||||
asm
|
||||
.Lloop:
|
||||
b .Lloop
|
||||
|
Loading…
Reference in New Issue
Block a user