* fixed stack initialization in the ZX Spectrum startup code

git-svn-id: trunk@45623 -
This commit is contained in:
nickysn 2020-06-07 23:22:57 +00:00
parent 5816a4a940
commit 4a78b7e073

View File

@ -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;