From c05e8e067aabf54240a84d24a0b0e53744260907 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Mon, 27 Nov 2023 08:37:04 +0100
Subject: [PATCH] [debug] record the last cfg

---
 src/cmp/cmpbackend-cxx/cmpc-util.lsp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/cmp/cmpbackend-cxx/cmpc-util.lsp b/src/cmp/cmpbackend-cxx/cmpc-util.lsp
index 05cc87123..e1ba357e1 100644
--- a/src/cmp/cmpbackend-cxx/cmpc-util.lsp
+++ b/src/cmp/cmpbackend-cxx/cmpc-util.lsp
@@ -21,6 +21,7 @@
     #-complex-float nil)
 
 (defvar *bir*)
+(defvar *last-bir*)                     ;debug
 
 ;;; Compiled code uses the following kinds of variables:
 ;;; 1. Vi, declared explicitely, either unboxed or not (*lcl*, next-lcl)
@@ -156,6 +157,7 @@
           (*unwind-exit* '(LEAVE))
           (*destination* *exit*)
           (*bir* (make-bir)))
+     (setf *last-bir* *bir*)
      (bir-embark *bir*)
      ,@body
      (bir-finish *bir*)))