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

MG: fixed memcheck

Browse Source 
git-svn-id: trunk@2966 -
This commit is contained in:
lazarus 2002-08-18 08:56:37 +00:00
parent f38aeff336
commit 0498f6377e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/uniteditor.pp
View File

@ -2327,14 +2327,14 @@ Begin
writeln('[TSourceNotebook.CreateNotebook] START'); writeln('[TSourceNotebook.CreateNotebook] START');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
CheckHeap('[TSourceNotebook.CreateNotebook] A '+IntToStr(GetMem_Cnt)); CheckHeapWrtMemCnt('[TSourceNotebook.CreateNotebook] A ');
{$ENDIF} {$ENDIF}
ClearUnUsedEditorComponents(false); ClearUnUsedEditorComponents(false);
{$IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
writeln('[TSourceNotebook.CreateNotebook] A'); writeln('[TSourceNotebook.CreateNotebook] A');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
CheckHeap('[TSourceNotebook.CreateNotebook] B '+IntToStr(GetMem_Cnt)); CheckHeapWrtMemCnt('[TSourceNotebook.CreateNotebook] B ');
{$ENDIF} {$ENDIF}
Result := False; Result := False;
if not assigned(Notebook) then if not assigned(Notebook) then
@ -2348,7 +2348,7 @@ Begin
writeln('[TSourceNotebook.CreateNotebook] C'); writeln('[TSourceNotebook.CreateNotebook] C');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
CheckHeap('[TSourceNotebook.CreateNotebook] C '+IntToStr(GetMem_Cnt)); CheckHeapWrtMemCnt('[TSourceNotebook.CreateNotebook] C ');
{$ENDIF} {$ENDIF}
with Notebook do with Notebook do
Begin Begin
@ -2381,7 +2381,7 @@ Begin
writeln('[TSourceNotebook.CreateNotebook] F'); writeln('[TSourceNotebook.CreateNotebook] F');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
CheckHeap('[TSourceNotebook.CreateNotebook] F '+IntToStr(GetMem_Cnt)); CheckHeapWrtMemCnt('[TSourceNotebook.CreateNotebook] F ');
{$ENDIF} {$ENDIF}
end; //with end; //with
Show; //used to display the code form Show; //used to display the code form
@ -2390,7 +2390,7 @@ Begin
writeln('[TSourceNotebook.CreateNotebook] END'); writeln('[TSourceNotebook.CreateNotebook] END');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
CheckHeap('[TSourceNotebook.CreateNotebook] END '+IntToStr(GetMem_Cnt)); CheckHeapWrtMemCnt('[TSourceNotebook.CreateNotebook] END ');
{$ENDIF} {$ENDIF}
End; End;