Quellcode durchsuchen

Checkpointer: consider bss section too for go32v2 (webtbs/tw3661 now works)

git-svn-id: trunk@10967 -
giulio vor 17 Jahren
Ursprung
Commit
50cd527d30
1 geänderte Dateien mit 6 neuen und 6 gelöschten Zeilen
  1. 6 6
      rtl/inc/heaptrc.pp

+ 6 - 6
rtl/inc/heaptrc.pp

@@ -885,7 +885,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}
@@ -929,7 +929,7 @@ var
   loc_info: pheap_info;
 {$ifdef go32v2}
   get_ebp,stack_top : longword;
-  data_end : longword;
+  bss_end : longword;
 {$endif go32v2}
 {$ifdef morphos}
   stack_top: longword;
@@ -953,12 +953,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 !! }