Changeset 324 for branches/2.19_branch/NewView

Timestamp:

Aug 16, 2008, 6:06:28 PM (17 years ago)

Author:

RBRi

Message:

+ memory log

File:

• branches/2.19_branch/NewView/DebugUnit.pas (modified) (3 diffs)

branches/2.19_branch/NewView/DebugUnit.pas

@@ -29 +29 @@
                         LogViewStub,
                         LogObjConstDest,
+                        LogMem,
                         LogDebug
     );
@@ -130 +131 @@
       LogViewStub     : result := 'ViewStub';
       LogObjConstDest : result := 'ObjConstDest';
+      LogMem          : result := 'Mem';
       LogDebug        : result := 'Debug';
       else              result := 'Unknown';
@@ -156 +158 @@
       if tmpAspects[i] = 'LogViewStub'     then activeLogAspects := activeLogAspects + [ LogViewStub ];
       if tmpAspects[i] = 'LogObjConstDest' then activeLogAspects := activeLogAspects + [ LogObjConstDest ];
+      if tmpAspects[i] = 'LogMem'          then activeLogAspects := activeLogAspects + [ LogMem ];
       if tmpAspects[i] = 'LogDebug'        then activeLogAspects := activeLogAspects + [ LogDebug ];
     end;