diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp index edd626b0a7361d3c80e9c7b0168b9b27d94c7906..2e5f0339b20b4b1ff53850876dda17ad7760719a 100644 --- a/compiler/sparc/insts.lisp +++ b/compiler/sparc/insts.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.20 1999/06/22 14:30:50 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.21 1999/08/13 15:57:25 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -252,7 +252,7 @@ (disassem:define-instruction-format (format-binary-fpop 32 - :default-printer '(:name :tab rd ", " rs1 ", " rs2)) + :default-printer '(:name :tab rs1 ", " rs2 ", " rd)) (op :field (byte 2 30)) (rd :field (byte 5 25) :type 'fp-reg) (op3 :field (byte 6 19)) @@ -262,7 +262,7 @@ ;;; Floating point load/save instructions encoding. (disassem:define-instruction-format - (format-unary-fpop 32 :default-printer '(:name :tab rd ", " rs2)) + (format-unary-fpop 32 :default-printer '(:name :tab rs2 ", " rd)) (op :field (byte 2 30)) (rd :field (byte 5 25) :type 'fp-reg) (op3 :field (byte 6 19)) @@ -283,7 +283,7 @@ ;;; Double and long float instruction format of the sparc v9. (disassem:define-instruction-format (format-binary-ext-fpop 32 - :default-printer '(:name :tab rd ", " rs1 ", " rs2)) + :default-printer '(:name :tab rs1 ", " rs2 ", " rd)) (op :field (byte 2 30)) (rd :field (byte 5 25) :type 'fp-ext-reg) (op3 :field (byte 6 19)) @@ -293,7 +293,7 @@ ;;; Double and long floating point load/save instructions encoding. (disassem:define-instruction-format - (format-unary-ext-fpop 32 :default-printer '(:name :tab rd ", " rs2)) + (format-unary-ext-fpop 32 :default-printer '(:name :tab rs2 ", " rd)) (op :field (byte 2 30)) (rd :field (byte 5 25) :type 'fp-ext-reg) (op3 :field (byte 6 19))