From eb5a5bfb56699ac9e30324c65d46c428bf73a885 Mon Sep 17 00:00:00 2001 From: Thiemo Seufer Date: Sat, 1 Sep 2007 19:39:04 +0000 Subject: [PATCH] 1.0.9.23: Delete conditional INST NOP optimization. Using it is apparently too complicated for cold init. --- src/compiler/mips/type-vops.lisp | 5 ++--- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/compiler/mips/type-vops.lisp b/src/compiler/mips/type-vops.lisp index e003314..eb0c5f6 100644 --- a/src/compiler/mips/type-vops.lisp +++ b/src/compiler/mips/type-vops.lisp @@ -37,15 +37,14 @@ (inst beq temp zero-tn target)) (inst nop))) -(defun %test-lowtag (value target not-p lowtag &key skip-nop temp) +(defun %test-lowtag (value target not-p lowtag &key temp) (assemble () (inst and temp value lowtag-mask) (inst xor temp lowtag) (if not-p (inst bne temp zero-tn target) (inst beq temp zero-tn target)) - (unless skip-nop - (inst nop)))) + (inst nop))) (defun %test-headers (value target not-p function-p headers &key (drop-through (gen-label)) temp) diff --git a/version.lisp-expr b/version.lisp-expr index 485c50d..d46708d 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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".) -"1.0.9.22" +"1.0.9.23" -- 1.7.10.4