Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/compiler/sparc64/insts.lisp
    ... ... @@ -1662,7 +1662,7 @@ about function addresses and register values.")
    1662 1662
       (:dependencies (reads :psr))
    
    1663 1663
       (:delay 1)
    
    1664 1664
       (:emitter
    
    1665
    -   (emit-relative-branch-integer segment 0 #b001 cond-or-target target (or cc :icc) (or pred :pt))))
    
    1665
    +   (emit-relative-branch-integer segment 0 #b001 cond-or-target target (or cc :xcc) (or pred :pt))))
    
    1666 1666
     
    
    1667 1667
     #-sparc-v9
    
    1668 1668
     (define-instruction ba (segment cond-or-target &optional target)
    
    ... ... @@ -1690,7 +1690,7 @@ about function addresses and register values.")
    1690 1690
       (:dependencies (reads :psr))
    
    1691 1691
       (:delay 0)
    
    1692 1692
       (:emitter
    
    1693
    -   (emit-relative-branch-integer segment 1 #b001 cond-or-target target (or cc :icc) (or pred :pt))))
    
    1693
    +   (emit-relative-branch-integer segment 1 #b001 cond-or-target target (or cc :xcc) (or pred :pt))))
    
    1694 1694
     
    
    1695 1695
     (eval-when (:compile-toplevel :load-toplevel :execute)
    
    1696 1696
       (defun trap-arg-printer (value stream dstate)