Merged revisions 4122 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r4122 | karoly | 2006-07-08 10:25:19 +0200 (Sat, 08 Jul 2006) | 2 lines
  
  + added some morphos support to checkpointer
........

git-svn-id: branches/fixes_2_0@4123 -

rtl/inc/heaptrc.pp

@@ -778,6 +778,9 @@ var
   get_ebp,stack_top : longword;
   data_end : longword;
 {$endif go32v2}
+{$ifdef morphos}
+  stack_top: longword;
+{$endif morphos}
   ptext : ^text;
 label
   _exit;
@@ -845,6 +848,15 @@ begin
     goto _exit;
 {$endif linux}
 
+{$ifdef morphos}
+  { inside stack ? }
+  stack_top:=ptruint(StackBottom)+StackLength;
+  if (ptruint(p)<stack_top) and (ptruint(p)>ptruint(StackBottom)) then
+    goto _exit;
+  { inside data or bss ? }
+  {$WARNING data and bss checking missing }
+{$endif morphos}
+
   { first try valid list faster }
 
 {$ifdef EXTRA}