diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index 875728d368bb6464d04476260229fc74f9a9f544..bec195201eb6d9c1f2d4e882dd3387478b4ef588 100644 --- a/compiler/mips/cell.lisp +++ b/compiler/mips/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.63 1992/12/16 14:01:12 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.64 1992/12/16 14:11:52 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -137,7 +137,7 @@ (inst xor type function-header-type) (inst beq type zero-tn normal-fn) (inst addu lip function - (- (ash function-header-code-offset word-shift) + (- (ash function-code-offset word-shift) function-pointer-type)) (inst li lip (make-fixup "closure_tramp" :foreign)) (emit-label normal-fn) @@ -185,7 +185,7 @@ (:generator 0 (loadw symbol bsp-tn (- binding-symbol-slot binding-size)) (loadw value bsp-tn (- binding-value-slot binding-size)) - (#+gengc storew-and-remember-slot #-gengc + (#+gengc storew-and-remember-slot #-gengc storew value symbol symbol-value-slot other-pointer-type) (storew zero-tn bsp-tn (- binding-symbol-slot binding-size)) (inst addu bsp-tn bsp-tn (* -2 word-bytes)))) @@ -206,7 +206,7 @@ (loadw symbol bsp-tn (- binding-symbol-slot binding-size)) (inst beq symbol zero-tn skip) (loadw value bsp-tn (- binding-value-slot binding-size)) - (#+gengc storew-and-remember-slot #-gengc + (#+gengc storew-and-remember-slot #-gengc storew value symbol symbol-value-slot other-pointer-type) (storew zero-tn bsp-tn (- binding-symbol-slot binding-size))