From 1f4b4375936a53bdf9597e90559f95a70900f7c5 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 23 Nov 2023 00:28:09 +0100
Subject: [PATCH] proc waves: set semaphore only for external viewers run in
 foreground

---
 src/xschem.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index ccbc0249..91ea66ba 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1950,7 +1950,6 @@ proc waves {{type {}}} {
       set fg {execute}
     }
 
-    if {$fg eq {execute_wait}} {xschem set semaphore [expr {[xschem get semaphore] +1}]}
     if {$type ne {external} } {
       load_raw $type
     } else {
@@ -1963,11 +1962,12 @@ proc waves {{type {}}} {
 
       if {$fg eq {execute_wait}} {
         if {$id >= 0} {
+          xschem set semaphore [expr {[xschem get semaphore] +1}]
           vwait execute(pipe,$id)
+          xschem set semaphore [expr {[xschem get semaphore] -1}]
         }
       }
     }
-    if {$fg eq {execute_wait}} {xschem set semaphore [expr {[xschem get semaphore] -1}]}
   }
 }
 # ============================================================