Changeset 6890 for trunk/MagicSoft/Mars/mbase/MEvtLoop.cc

Timestamp:

03/29/05 09:56:16 (19 years ago)

Author:

tbretz

Message:

*** empty log message ***

File:

• trunk/MagicSoft/Mars/mbase/MEvtLoop.cc (modified) (3 diffs)

trunk/MagicSoft/Mars/mbase/MEvtLoop.cc

@@ -263 +263 @@
 
     return kTRUE;
+}
+
+// --------------------------------------------------------------------------
+//
+// Return the memory currently used by this process (VmSize)
+// which contains shared memory, data memory and private memory.
+//
+UInt_t MEvtLoop::GetMemoryUsage()
+{
+    const TString path = Form("/proc/%d/status", gSystem->GetPid());
+    if (gSystem->AccessPathName(path, kFileExists))
+        return 0;
+
+    return TEnv(path).GetValue("VmSize", 0);
 }
 
@@ -400 +414 @@
         return kFALSE;
 
+    const UInt_t mem0 = GetMemoryUsage();
+
     //
     //   loop over all events and process all tasks for
@@ -514 +530 @@
     if (numcnts>0)
         *fLog << " --> " << numcnts/clock.RealTime() << " Events/s";
+
+
+    const UInt_t mem1 = GetMemoryUsage();
+    if (mem1>mem0)
+        *fLog << endl << "Mem  - Loss: " << mem1-mem0 << "kB" << endl;
 
     *fLog << endl << endl;