Skip to content
Snippets Groups Projects
Commit 1edc342b authored by ram's avatar ram
Browse files

Changed LET-CONVERT to call MERGE-CLEANUPS-AND-LETS after INSERT-LET-BODY so

that it gets the correct cleanup computed by NODE-ENDS-BLOCK.
parent 8b367c9d
No related branches found
No related tags found
No related merge requests found
......@@ -538,6 +538,9 @@
;;; and its lets to lets for the call's home function and move any cleanups and
;;; calls to the home function. We merge the calls for Fun with the calls for
;;; the home function, removing Fun in the process. We also merge the Entries.
;;; This must run after INSERT-LET-BODY, since the call to NODE-ENDS-BLOCK
;;; figures out the actual cleanup current at the let call (and sets the
;;; start/end cleanups accordingly.)
;;;
(defun merge-cleanups-and-lets (fun call)
(declare (type clambda fun) (type basic-combination call))
......@@ -641,8 +644,8 @@
;;;
(defun let-convert (fun call)
(declare (type clambda fun) (type basic-combination call))
(merge-cleanups-and-lets fun call)
(insert-let-body fun call)
(merge-cleanups-and-lets fun call)
(move-return-uses fun call)
(dolist (arg (basic-combination-args call))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment