Skip to content
Snippets Groups Projects
Commit 77cb8a96 authored by ram's avatar ram
Browse files

Don't prefetch symbol in the unbind-to-here loop delay slot, since on the RT,

the word before the base of the binding stack is unreadable.
parent a4d66e7f
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/cell.lisp,v 1.5 1992/01/01 15:06:00 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/cell.lisp,v 1.6 1992/01/15 18:15:06 ram Exp $
;;; ;;;
;;; This file contains the VM definition of various primitive memory access ;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the IBM RT. ;;; VOPs for the IBM RT.
...@@ -264,9 +264,9 @@ ...@@ -264,9 +264,9 @@
(load-symbol-value bsp *binding-stack-pointer*) (load-symbol-value bsp *binding-stack-pointer*)
(inst c where bsp) (inst c where bsp)
(inst bc :eq done) (inst bc :eq done)
(loadw symbol bsp (- vm:binding-symbol-slot vm:binding-size))
(emit-label loop) (emit-label loop)
(loadw symbol bsp (- vm:binding-symbol-slot vm:binding-size))
(inst c symbol 0) (inst c symbol 0)
(inst bc :eq skip) (inst bc :eq skip)
(loadw value bsp (- vm:binding-value-slot vm:binding-size)) (loadw value bsp (- vm:binding-value-slot vm:binding-size))
...@@ -278,8 +278,7 @@ ...@@ -278,8 +278,7 @@
(inst dec bsp (* vm:binding-size vm:word-bytes)) (inst dec bsp (* vm:binding-size vm:word-bytes))
(store-symbol-value bsp *binding-stack-pointer*) (store-symbol-value bsp *binding-stack-pointer*)
(inst c where bsp) (inst c where bsp)
(inst bncx :eq loop) (inst bnc :eq loop)
(loadw symbol bsp (- vm:binding-symbol-slot vm:binding-size))
(emit-label done)))) (emit-label done))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment