mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 13:08:49 +02:00
* fixed stack initialization in the ZX Spectrum startup code
git-svn-id: trunk@45623 -
This commit is contained in:
parent
5816a4a940
commit
4a78b7e073
@ -31,7 +31,7 @@ procedure PascalMain; external name 'PASCALMAIN';
|
||||
{ this *must* always remain the first procedure with code in this unit }
|
||||
procedure _start; assembler; nostackframe; public name 'start';
|
||||
asm
|
||||
ld sp, fpc_stackarea_end
|
||||
ld sp, offset fpc_stackarea_end
|
||||
ld (FPC_SAVE_IY), iy
|
||||
jp PASCALMAIN
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user