paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: aded memcheck diff

Browse Source 
git-svn-id: trunk@3332 -
This commit is contained in:
lazarus 2002-09-13 08:23:11 +00:00
parent a8acebb11a
commit 9e033cc12d
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/memcheck.pas
View File

@ -158,10 +158,19 @@ begin
QuickTrace:=true;
end;
const
LastWrittenGetMemCnt: longint = 0;
procedure CheckHeapWrtMemCnt(const txt: ansistring);
var p: pointer;
var
p: pointer;
CurGetMemCount, DiffGetMemCount: longint;
begin
writeln('>>> memcheck.pp - CheckHeap2 "',txt,'" ',MemCheck_getmem_cnt);
CurGetMemCount:=MemCheck_getmem_cnt;
DiffGetMemCount:=CurGetMemCount-LastWrittenGetMemCnt;
LastWrittenGetMemCnt:=CurGetMemCount;
writeln('>>> memcheck.pp - CheckHeap2 "',txt,'" ',
CurGetMemCount,' +',DiffGetMemCount);
QuickTrace:=false;
GetMem(p,4);
FreeMem(p);
@ -1128,6 +1137,9 @@ finalization
end.
{
$Log$
Revision 1.10 2002/09/13 08:23:11 lazarus
MG: aded memcheck diff
Revision 1.9 2002/09/13 08:11:46 lazarus
MG: fixed memcheck output

2
ide/include/ide.inc
View File

@ -21,7 +21,7 @@
{ $DEFINE IDE_VERBOSE}
{ $DEFINE IDE_MEM_CHECK}
{$DEFINE IDE_MEM_CHECK}
{ $DEFINE IDE_DEBUG}