Commit 191055e0 authored by Nathan Froyd's avatar Nathan Froyd
Browse files

0.9.17.16: 

	Delete dead checked-cell-ref VOP in x86oid backends.
parent dcb73f3e

src/compiler/x86-64/cell.lisp

+0 −10
Original line number Diff line number Diff line
@@ -83,16 +83,6 @@ 
(define-vop (set cell-set)

  (:variant symbol-value-slot other-pointer-lowtag))



;;; Do a cell ref with an error check for being unbound.

;;; XXX stil used? I can't see where -dan

(define-vop (checked-cell-ref)

  (:args (object :scs (descriptor-reg) :target obj-temp))

  (:results (value :scs (descriptor-reg any-reg)))

  (:policy :fast-safe)

  (:vop-var vop)

  (:save-p :compute-only)

  (:temporary (:sc descriptor-reg :from (:argument 0)) obj-temp))



;;; With Symbol-Value, we check that the value isn't the trap object. So

;;; Symbol-Value of NIL is NIL.

#!+sb-thread

src/compiler/x86/cell.lisp

+0 −10
Original line number Diff line number Diff line
@@ -86,16 +86,6 @@ 
(define-vop (set cell-set)

  (:variant symbol-value-slot other-pointer-lowtag))



;;; Do a cell ref with an error check for being unbound.

;;; XXX stil used? I can't see where -dan

(define-vop (checked-cell-ref)

  (:args (object :scs (descriptor-reg) :target obj-temp))

  (:results (value :scs (descriptor-reg any-reg)))

  (:policy :fast-safe)

  (:vop-var vop)

  (:save-p :compute-only)

  (:temporary (:sc descriptor-reg :from (:argument 0)) obj-temp))



;;; With Symbol-Value, we check that the value isn't the trap object. So

;;; Symbol-Value of NIL is NIL.

#!+sb-thread

version.lisp-expr

+1 −1
Original line number Diff line number Diff line
@@ -17,4 +17,4 @@ 
;;; checkins which aren't released. (And occasionally for internal

;;; versions, especially for internal versions off the main CVS

;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)

"0.9.17.15"
 
"0.9.17.16"