Merged revisions 10967 via svnmerge from

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

........
  r10967 | giulio | 2008-05-14 15:08:11 +0200 (mer, 14 mag 2008) | 2 lines
  
  Checkpointer: consider bss section too for go32v2 (webtbs/tw3661 now works)
........


git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_2@10975 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 6 insertions, 6 deletions

diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 946769a911..795fa7a562 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -792,7 +792,7 @@ end;
 var
    __stklen : longword;external name '__stklen';
    __stkbottom : longword;external name '__stkbottom';
-   edata : longword; external name 'edata';
+   ebss : longword; external name 'end';
 {$endif go32v2}
 
 {$ifdef linux}
@@ -835,7 +835,7 @@ var
   pp : pheap_mem_info;
 {$ifdef go32v2}
   get_ebp,stack_top : longword;
-  data_end : longword;
+  bss_end : longword;
 {$endif go32v2}
 {$ifdef morphos}
   stack_top: longword;
@@ -859,12 +859,12 @@ begin
     runerror(216);
   asm
      movl %ebp,get_ebp
-     leal edata,%eax
-     movl %eax,data_end
+     leal ebss,%eax
+     movl %eax,bss_end
   end;
   stack_top:=__stkbottom+__stklen;
-  { allow all between start of code and end of data }
-  if ptruint(p)<=data_end then
+  { allow all between start of code and end of bss }
+  if ptruint(p)<=bss_end then
     goto _exit;
   { stack can be above heap !! }