paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: removed label

Browse Source 
git-svn-id: trunk@364 -
This commit is contained in:
lazarus 2001-10-23 13:51:27 +00:00
parent 57014a2ff7
commit e7de97e52a
1 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/codetools/memcheck.pas
View File

@ -691,11 +691,8 @@ var
stack_top : cardinal;
data_end : cardinal;
{$endif}
label
_exit;
begin
if p=nil then
goto _exit;
if p=nil then exit;
i:=0;
@ -709,28 +706,23 @@ begin
end;
stack_top:=__stkbottom+__stklen;
{ allow all between start of code and end of data }
if cardinal(p)<=data_end then
goto _exit;
if cardinal(p)<=data_end then exit;
{ .bss section }
if cardinal(p)<=cardinal(heap_at_init) then
goto _exit;
if cardinal(p)<=cardinal(heap_at_init) then exit;
{ stack can be above heap !! }
if (cardinal(p)>=get_ebp) and (cardinal(p)<=stack_top) then
goto _exit;
if (cardinal(p)>=get_ebp) and (cardinal(p)<=stack_top) then exit;
{$endif go32v2}
{ I don't know where the stack is in other OS !! }
{$ifdef win32}
if (cardinal(p)>=$40000) and (p<=HeapOrg) then
goto _exit;
if (cardinal(p)>=$40000) and (p<=HeapOrg) then exit;
{ inside stack ? }
asm
movl %ebp,get_ebp
end;
if (cardinal(p)>get_ebp) and
(cardinal(p)<Win32StackTop) then
goto _exit;
(cardinal(p)<Win32StackTop) then exit;
{$endif win32}
if p>=heapptr then
@ -752,8 +744,7 @@ begin
((pp^.sig=calculate_sig(pp)) and usecrc) or
{ special case of the fill_extra_info call }
((pp=heap_valid_last) and usecrc and (pp^.sig=$DEADBEEF)
and inside_trace_getmem) then
goto _exit
and inside_trace_getmem) then exit
else
begin
writeln(ptext^,'corrupted heap_mem_info');
@ -781,7 +772,7 @@ begin
{ allocated block }
if ((pp^.sig=$DEADBEEF) and not usecrc) or
((pp^.sig=calculate_sig(pp)) and usecrc) then
goto _exit
exit
else
begin
writeln(ptext^,'pointer $',hexstr(longint(p),8),' points into invalid memory block');
@ -798,7 +789,6 @@ begin
end;
writeln(ptext^,'pointer $',hexstr(longint(p),8),' does not point to valid memory block');
runerror(204);
_exit:
end;
{*****************************************************************************