New TN cost computation: directly take depth into account

[sbcl.git] / src / compiler / hppa / type-vops.lisp

diff --git a/src/compiler/hppa/type-vops.lisp b/src/compiler/hppa/type-vops.lisp
index 03144c8..7953a33 100644 (file)
--- a/src/compiler/hppa/type-vops.lisp
+++ b/src/compiler/hppa/type-vops.lisp
@@ -167,7 +167,7 @@
       ;; Get the second digit.
       (loadw temp value (1+ bignum-digits-offset) other-pointer-lowtag)
       ;; All zeros, its an (unsigned-byte 32).
-      ; Dont nullify comb here, because we cant guarantee target is forward
+      ;; Dont nullify comb here, because we cant guarantee target is forward
       (inst comb (if not-p := :<>) temp zero-tn not-target)
       (inst nop)
       (inst b target)