Changeset 61 for trunk/NewView/GlobalFilelistUnit.pas

Timestamp:

Jan 14, 2007, 8:02:42 PM (19 years ago)

Author:

RBRi

Message:

another refactoring step for cleaning up the command line handling

File:

• trunk/NewView/GlobalFilelistUnit.pas (modified) (3 diffs)

trunk/NewView/GlobalFilelistUnit.pas

@@ -50 +50 @@
 
 uses
+  DebugUnit,
   ACLStringUtility,
   SysUtils;
@@ -55 +56 @@
 constructor TGlobalFilelist.Create;
 begin
+  LogEvent(LogObjConstDest, '+ TGlobalFilelist.Create');
+
   FMem := TSuballocatedSharedMemory.Create( 'NEWVIEW_GLOBAL_FILELIST',
                                             GLOBAL_FILELIST_SIZE,
@@ -68 +71 @@
 destructor TGlobalFilelist.Destroy;
 begin
+  LogEvent(LogObjConstDest, '- TGlobalFilelist.Destroy');
+
   FMem.Destroy;
   FMutex.Destroy;