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

memcheck: raising RunError 204 on error in linked list

Browse Source 
git-svn-id: trunk@12234 -
This commit is contained in:
mattias 2007-09-29 10:21:43 +00:00
parent 62639b92b8
commit c8e3c47a30
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/memcheck.pas
View File

@ -12,7 +12,7 @@ interface
check by CRC value if not changed after release
WARNING this needs extremely much memory (PM) }
{ $DEFINE Extra}
{$DEFINE Extra}
{$inline off}// inline off for stack traces
@ -362,11 +362,13 @@ begin
is_in_getmem_list:=true;
pp:=pp^.previous;
inc(i);
if i>loc_info^.getmem_cnt-loc_info^.freemem_cnt then
if i>loc_info^.getmem_cnt-loc_info^.freemem_cnt then begin
if useownfile then
writeln(ownfile,'error in linked list of heap_mem_info')
else
writeln(stderr,'error in linked list of heap_mem_info');
RunError(204);
end;
end;
end;

2
ide/lazarus.pp
View File

@ -40,7 +40,7 @@ program Lazarus;
{$R lazarus.rc}
{$ENDIF}
{off $DEFINE IDE_MEM_CHECK}
{$DEFINE IDE_MEM_CHECK}
uses
//cmem,