Browse Source

* fixed stack initialization in the ZX Spectrum startup code

git-svn-id: trunk@45623 -
nickysn 5 years ago
parent
commit
4a78b7e073
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/zxspectrum/si_prc.pp

+ 1 - 1
rtl/zxspectrum/si_prc.pp

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