TCF Agent: improved DWARF cache efficiency: added small delay when disposing the cache after all contexts exited

1 files changed, 3 insertions, 1 deletions

diff --git a/services/tcf_elf.c b/services/tcf_elf.c
index f1cebf1e..fe5c66c6 100644
--- a/services/tcf_elf.c
+++ b/services/tcf_elf.c
@@ -42,6 +42,7 @@
 #  define USE_MMAP
 #endif
 
+#define MIN_FILE_AGE 3
 #define MAX_FILE_AGE 60
 
 typedef struct FileINode {
@@ -101,7 +102,7 @@ static void elf_cleanup_event(void * arg) {
     elf_cleanup_posted = 0;
     while (file != NULL) {
         file->age++;
-        if (file->age > MAX_FILE_AGE || list_is_empty(&context_root)) {
+        if (file->age > MAX_FILE_AGE || file->age > MIN_FILE_AGE && list_is_empty(&context_root)) {
             ELF_File * next = file->next;
             elf_dispose(file);
             file = next;
@@ -627,6 +628,7 @@ static ELF_File * open_memory_region_file(MemoryRegion * r, int * error) {
         if (r->dev != 0 && file->dev != r->dev) return NULL;
         if (r->ino != 0 && file->ino != r->ino) return NULL;
         file->debug_info_file_name = get_debug_info_file_name(file, error);
+        if (file->debug_info_file_name) trace(LOG_ELF, "Debug info file found %s", file->debug_info_file_name);
     }
     return file;
 }