+ exposed FillChar, Sptr, get_frame, get_caller_addr, get_caller_frame from z80.inc even without FULL_RTL. This allows

  testing them and using them for debugging (e.g. PrintHexWord(Word(Sptr)) now works)

git-svn-id: branches/z80@44969 -

rtl/zxspectrum/system.pp

@@ -64,6 +64,12 @@ Type
 
 procedure fpc_InitializeUnits;compilerproc;
 Procedure fpc_do_exit;compilerproc;
+Procedure FillChar(var x;count:SizeInt;value:byte);
+function get_frame:pointer;
+function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;
+function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;
+Function Sptr : pointer;
+
 {$endif FULL_RTL}
 
 { OpenChannel(2) opens the upper screen