mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2025-12-05 18:30:24 -08:00
[debug] record the last cfg
This commit is contained in:
parent
e96cb0ca18
commit
c05e8e067a
1 changed files with 2 additions and 0 deletions
|
|
@ -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*)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue