Browse Source

* patch by Anton Kavalenka: heaptrc prints exe/dll binary name where it is linked, resolves #32707

git-svn-id: trunk@37670 -
florian 7 years ago
parent
commit
c08bdf3f85
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/heaptrc.pp

+ 1 - 1
rtl/inc/heaptrc.pp

@@ -1193,7 +1193,7 @@ begin
   pp:=loc_info^.heap_mem_root;
   if ((loc_info^.getmem_size-loc_info^.freemem_size)=0) and SkipIfNoLeaks then
     exit;
-  Writeln(ptext^,'Heap dump by heaptrc unit');
+  Writeln(ptext^,'Heap dump by heaptrc unit of'+ParamStr(0));
   Writeln(ptext^,loc_info^.getmem_cnt, ' memory blocks allocated : ',
     loc_info^.getmem_size,'/',loc_info^.getmem8_size);
   Writeln(ptext^,loc_info^.freemem_cnt,' memory blocks freed     : ',