From 6672d99f1d4bfca2586e56c20baed418c43916d3 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Fri, 13 Aug 1999 15:57:25 +0000 Subject: [PATCH] Make floating-point operations (and all store instructions) follow the same assembly format of the destination being last, from Raymond Toy. Note that the destination is first in most instruction definitions. --- compiler/sparc/insts.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp index edd626b0a..2e5f0339b 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)) -- GitLab