From e3d5dc9cd91cae433d6c81e95a1d41dda0161bdc Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sat, 4 Mar 2023 23:22:31 +0100
Subject: [PATCH] added execute(cmd,last), execute(data,last),
 execute(status,last) for post-mortem inspection of last simulation

---
 src/xschem.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 94b08c7f..c25e97c3 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -253,6 +253,9 @@ proc execute_fileevent {id} {
         uplevel #0 "eval $execute(callback,$id)"
         unset execute(callback,$id)
       } 
+      set execute(cmd,last) $execute(cmd,$id)
+      set execute(data,last) $execute(data,$id)
+      set execute(status,last) $execute(status,$id)
       unset execute(pipe,$id)
       unset execute(data,$id)
       unset execute(status,$id)