Skip to content
Snippets Groups Projects
Commit 87a17f9a authored by wlott's avatar wlott
Browse files

Changed the make-closure vop to take the length as an info argument because

it is always known at compile time.  Changed the set vop to not have a result
because we don't want it.
parent 754174ad
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.44 1992/07/14 17:51:16 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.45 1992/12/13 15:12:24 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -201,8 +201,7 @@ ...@@ -201,8 +201,7 @@
nil)))) nil))))
(cond (closure (cond (closure
(let ((this-env (node-environment node))) (let ((this-env (node-environment node)))
(vop make-closure node block (emit-constant (length closure)) (vop make-closure node block entry (length closure) res)
entry res)
(loop for what in closure and n from 0 do (loop for what in closure and n from 0 do
(unless (and (lambda-var-p what) (unless (and (lambda-var-p what)
(null (leaf-refs what))) (null (leaf-refs what)))
...@@ -242,8 +241,7 @@ ...@@ -242,8 +241,7 @@
(ecase (global-var-kind leaf) (ecase (global-var-kind leaf)
((:special :global) ((:special :global)
(assert (symbolp (leaf-name leaf))) (assert (symbolp (leaf-name leaf)))
(vop set node block (emit-constant (leaf-name leaf)) val (vop set node block (emit-constant (leaf-name leaf)) val)))))
(make-normal-tn (backend-any-primitive-type *backend*)))))))
(when locs (when locs
(emit-move node block val (first locs)) (emit-move node block val (first locs))
......
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