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