paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 04:19:09 +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; QuickTrace:=true;
end; end;
const
LastWrittenGetMemCnt: longint = 0;
procedure CheckHeapWrtMemCnt(const txt: ansistring); procedure CheckHeapWrtMemCnt(const txt: ansistring);
var p: pointer; var
p: pointer;
CurGetMemCount, DiffGetMemCount: longint;
begin 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; QuickTrace:=false;
GetMem(p,4); GetMem(p,4);
FreeMem(p); FreeMem(p);
@ -1128,6 +1137,9 @@ finalization
end. end.
{ {
$Log$ $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 Revision 1.9 2002/09/13 08:11:46 lazarus
MG: fixed memcheck output MG: fixed memcheck output

2
ide/include/ide.inc
View File

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