Commit ab17e2b1 authored by Nathan Froyd's avatar Nathan Froyd
Browse files

0.9.12.25: 

	Micro-optimization of BOUNDP for x86 and x86-64 (#-sb-thread only).
parent 750b2f3d

src/compiler/x86-64/cell.lisp

+3 −3
Original line number Diff line number Diff line
@@ -203,10 +203,10 @@ 
  (:args (object :scs (descriptor-reg)))

  (:conditional)

  (:info target not-p)

  (:temporary (:sc descriptor-reg :from (:argument 0)) value)

  (:generator 9

    (loadw value object symbol-value-slot other-pointer-lowtag)

    (inst cmp value unbound-marker-widetag)

    (inst cmp (make-ea-for-object-slot object symbol-value-slot

                                       other-pointer-lowtag)

          unbound-marker-widetag)

    (inst jmp (if not-p :e :ne) target)))

src/compiler/x86/cell.lisp

+3 −3
Original line number Diff line number Diff line
@@ -206,10 +206,10 @@ 
  (:args (object :scs (descriptor-reg)))

  (:conditional)

  (:info target not-p)

  (:temporary (:sc descriptor-reg :from (:argument 0)) value)

  (:generator 9

    (loadw value object symbol-value-slot other-pointer-lowtag)

    (inst cmp value unbound-marker-widetag)

    (inst cmp (make-ea-for-object-slot object symbol-value-slot

                                       other-pointer-lowtag)

          unbound-marker-widetag)

    (inst jmp (if not-p :e :ne) target)))

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.12.24"
 
"0.9.12.25"