mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

[debug] record the last cfg

Browse source
This commit is contained in:
Daniel Kochmański 2023-11-27 08:37:04 +01:00
parent e96cb0ca18
commit c05e8e067a
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpbackend-cxx/cmpc-util.lsp
View file

@ -21,6 +21,7 @@
#-complex-float nil) #-complex-float nil)
(defvar *bir*) (defvar *bir*)
(defvar *last-bir*) ;debug
;;; Compiled code uses the following kinds of variables: ;;; Compiled code uses the following kinds of variables:
;;; 1. Vi, declared explicitely, either unboxed or not (*lcl*, next-lcl) ;;; 1. Vi, declared explicitely, either unboxed or not (*lcl*, next-lcl)
@ -156,6 +157,7 @@
(*unwind-exit* '(LEAVE)) (*unwind-exit* '(LEAVE))
(*destination* *exit*) (*destination* *exit*)
(*bir* (make-bir))) (*bir* (make-bir)))
(setf *last-bir* *bir*)
(bir-embark *bir*) (bir-embark *bir*)
,@body ,@body
(bir-finish *bir*))) (bir-finish *bir*)))