Move semaphore cleanup into a unique_ptr destructor

Author: bunjj

src/aotcompile.cpp

@@ -1648,8 +1648,25 @@ void jl_dump_native_impl(void *native_code,
         has_veccall = !!dataM.getModuleFlag("julia.mv.veccall");
     });
 
+    auto cleanup = [](sem_t* s) {
+        #if defined(_OS_LINUX_) || defined(_OS_DARWIN_)
+        if (s != SEM_FAILED) {
+            sem_post(s);
+            sem_close(s);
+        }
+        #endif
+    };
+
     #if defined(_OS_LINUX_) || defined(_OS_DARWIN_)
-    sem_t *sem = sem_open("/jl_aotcompile_sem", O_CREAT, 0644, 3);
+    sem_t *sem = SEM_FAILED;
+    const char *sem_name = getenv("RAI_CC_SEM_NAME");
+    if (sem_name != NULL) {
+        sem = sem_open(sem_name, O_CREAT, 0644, 4);
+    } else {
+        // Use default name for debugging purposes
+        sem = sem_open("/jl_aotcompile_sem", O_CREAT, 0644, 4);
+    }
+    std::unique_ptr<sem_t, decltype(cleanup)> sem_guard(sem, cleanup);
     if (sem == SEM_FAILED) {
         jl_printf(JL_STDERR, "Failed to create semaphore: %s\n", strerror(errno));
     } else {
@@ -1780,12 +1797,6 @@ void jl_dump_native_impl(void *native_code,
     WRITE_ARCHIVE(obj_fname, obj, "", ".o");
     WRITE_ARCHIVE(asm_fname, asm_, "", ".s");
 
-    #if defined(_OS_LINUX_) || defined(_OS_DARWIN_)
-    if (sem != SEM_FAILED) {
-        sem_post(sem);
-        sem_close(sem);
-    }
-    #endif
 }
 
 void addTargetPasses(legacy::PassManagerBase *PM, const Triple &triple, TargetIRAnalysis analysis)