Skip to content
Snippets Groups Projects
Commit 259d1c4d authored by rtoy's avatar rtoy
Browse files

Remove the blrl instruction macro and replace it with the real

instruction so that the disassembler prints it as "BLRL" instead of
"BCLRL :BO-U, 0"
parent 119ca0c7
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/insts.lisp,v 1.14 2005/09/29 02:45:05 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/insts.lisp,v 1.15 2005/09/29 03:10:14 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1473,6 +1473,7 @@ about function addresses and register values.") ...@@ -1473,6 +1473,7 @@ about function addresses and register values.")
(:emitter (:emitter
(emit-x-form-inst segment 19 (valid-bo-encoding bo) (valid-bi-encoding bi) 0 528 1))) (emit-x-form-inst segment 19 (valid-bo-encoding bo) (valid-bi-encoding bi) 0 528 1)))
;; Really a bcctr inst
(define-instruction bctr (segment) (define-instruction bctr (segment)
(:printer xl-bo-bi ((op 19) (xo 528) (bo #.(valid-bo-encoding :bo-u)) (bi 0) (lk 0)) '(:name)) (:printer xl-bo-bi ((op 19) (xo 528) (bo #.(valid-bo-encoding :bo-u)) (bi 0) (lk 0)) '(:name))
(:attributes branch) (:attributes branch)
...@@ -1481,6 +1482,15 @@ about function addresses and register values.") ...@@ -1481,6 +1482,15 @@ about function addresses and register values.")
(:emitter (:emitter
(emit-x-form-inst segment 19 #.(valid-bo-encoding :bo-u) 0 0 528 0))) (emit-x-form-inst segment 19 #.(valid-bo-encoding :bo-u) 0 0 528 0)))
;; Really a bclrl inst
(define-instruction blrl (segment)
(:printer xl-bo-bi ((op 19) (xo 16) (bo #.(valid-bo-encoding :bo-u)) (bi 0) (lk 1)) '(:name))
(:attributes branch)
(:delay 1)
(:dependencies (reads :ccr) (reads :ctr))
(:emitter
(emit-x-form-inst segment 19 #.(valid-bo-encoding :bo-u) 0 0 16 1)))
(define-instruction bctrl (segment) (define-instruction bctrl (segment)
(:printer xl-bo-bi ((op 19) (xo 528) (bo #.(valid-bo-encoding :bo-u)) (bi 0) (lk 1)) '(:name)) (:printer xl-bo-bi ((op 19) (xo 528) (bo #.(valid-bo-encoding :bo-u)) (bi 0) (lk 1)) '(:name))
(:attributes branch) (:attributes branch)
...@@ -2240,10 +2250,6 @@ about function addresses and register values.") ...@@ -2240,10 +2250,6 @@ about function addresses and register values.")
|# |#
(define-instruction-macro blrl ()
`(inst bclrl :bo-u 0))
;;; Some more macros ;;; Some more macros
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment