paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed stack initialization in the ZX Spectrum startup code

Browse Source 
git-svn-id: trunk@45623 -
This commit is contained in:
nickysn 2020-06-07 23:22:57 +00:00
parent 5816a4a940
commit 4a78b7e073
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/zxspectrum/si_prc.pp
View File

@ -31,7 +31,7 @@ procedure PascalMain; external name 'PASCALMAIN';
{ this *must* always remain the first procedure with code in this unit } { this *must* always remain the first procedure with code in this unit }
procedure _start; assembler; nostackframe; public name 'start'; procedure _start; assembler; nostackframe; public name 'start';
asm asm
ld sp, fpc_stackarea_end ld sp, offset fpc_stackarea_end
ld (FPC_SAVE_IY), iy ld (FPC_SAVE_IY), iy
jp PASCALMAIN jp PASCALMAIN
end; end;