Changeset 7965

Timestamp:

Dec 29, 2007, 3:22:45 AM (13 years ago)

Author:

gb

Message:

ppc64 vinsns: :jump vinsn attribute now means "pc-relative jump" only.

File:

• branches/working-0711/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp (modified) (2 diffs)

branches/working-0711/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp

@@ -3721 +3721 @@
 
 (defmacro define-ppc64-subprim-jump-vinsn ((name &rest other-attrs) spno)
-  `(define-ppc64-vinsn (,name :jump :jumpLR ,@other-attrs) (() ())
+  `(define-ppc64-vinsn (,name :jumpLR ,@other-attrs) (() ())
     (ba ,spno)))
 
@@ -3850 +3850 @@
 ;;; really known, it should probably be inlined (stack-cleanup, value
 ;;; transfer & jump ...)
-(define-ppc64-vinsn (throw :jump :jump-unknown) (()
+(define-ppc64-vinsn (throw :jump-unknown) (()
                                                  ())
   (bla .SPthrow))