X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fnlx.lisp;h=c6c81f4e7bce7f154df08f13ae94cce7dcfac205;hb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;hp=b5dd83a47bf85621083ac8a15a99a135379997cc;hpb=0d74ed478e7f3af5d3292153726373763631aa8e;p=sbcl.git

diff --git a/src/compiler/hppa/nlx.lisp b/src/compiler/hppa/nlx.lisp
index b5dd83a..c6c81f4 100644
--- a/src/compiler/hppa/nlx.lisp
+++ b/src/compiler/hppa/nlx.lisp
@@ -135,8 +135,8 @@
 
 
 (define-vop (nlx-entry)
-  (:args (sp) ; Note: we can't list an sc-restriction, 'cause any load vops
-              ; would be inserted before the LRA.
+  (:args (sp) ;; Note: we can't list an sc-restriction, 'cause any load vops
+              ;; would be inserted before the LRA.
          (start)
          (count))
   (:results (values :more t))
@@ -179,8 +179,7 @@
                          (move null-tn tn))
                        (control-stack
                          (store-stack-tn tn null-tn)))))
-                 (inst b defaulting-done)
-                 (inst nop)))))) ; FIX remove me or tell why I'm needed
+                 (inst b defaulting-done :nullify t))))))
     (load-stack-tn csp-tn sp)))
 
 
@@ -211,8 +210,7 @@
       (sc-case new-start
         (any-reg (move dst new-start))
         (control-stack (store-stack-tn new-start dst)))
-      (inst comb := num zero-tn done)
-      (inst nop) ; fix-lav remove nop
+      (inst comb := num zero-tn done :nullify t)
       (sc-case new-count
         (any-reg (move num new-count))
         (control-stack (store-stack-tn new-count num)))