sinclairql: implemented StackTop, this results in working stacktraces and working stack checking. Implemented a custom 5% stack safety margin and a system specific SysBackTraceStr()

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49201 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/rtl/sinclairql/si_prc.pp b/rtl/sinclairql/si_prc.pp
index 23154ae8b0..e0b97cdff7 100644
--- a/rtl/sinclairql/si_prc.pp
+++ b/rtl/sinclairql/si_prc.pp
@@ -26,7 +26,7 @@ var
   binend: byte; external name '_etext';
   bssstart: byte; external name '_sbss';
   bssend: byte; external name '_ebss';
-  jobStackDataPtr: pointer; public name '__job_stack_data_ptr';
+  stackpointer_on_entry: pointer; public name '__stackpointer_on_entry';
 
 procedure PascalMain; external name 'PASCALMAIN';
 procedure PascalStart(a7_on_entry: pointer); noreturn; forward;
@@ -102,7 +102,7 @@ begin
   { initialize .bss }
   FillChar(bssstart,PtrUInt(@bssend)-PtrUInt(@bssstart),#0);
 
-  jobStackDataPtr:=a7_on_entry;
+  stackpointer_on_entry:=a7_on_entry;
 
   PascalMain;
 end;