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

Oops, left some code in tail-call-variable that really needed to be done

inline.
parent 7819c395
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.20 1990/10/16 17:15:36 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.21 1990/10/16 20:24:46 wlott Exp $
;;; ;;;
;;; ;;;
(in-package "C") (in-package "C")
...@@ -154,12 +154,6 @@ ...@@ -154,12 +154,6 @@
(inst addu dst dst vm:word-bytes) (inst addu dst dst vm:word-bytes)
DONE DONE
;; Clear the number stack if anything is there.
(let ((cur-nfp (current-nfp-tn vop)))
(when cur-nfp
(inst addu nsp-tn cur-nfp
(bytes-needed-for-non-descriptor-stack-frame))))
;; We are done. Do the jump. ;; We are done. Do the jump.
(loadw temp lexenv vm:closure-function-slot vm:function-pointer-type) (loadw temp lexenv vm:closure-function-slot vm:function-pointer-type)
(lisp-jump temp lip)) (lisp-jump temp lip))
......
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