From 85d7146401249aa756c2e304c7d700198a6be18f Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 21 Feb 2000 22:24:50 +0000 Subject: [PATCH] From Raymond Toy: o Correct the register dependencies for the conditonal move instructions. o Have the disassembler print "MOV" for the move instruction to be consistent with the V9 manual and to prevent confusion with the conditional move instructions. --- compiler/sparc/insts.lisp | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp index 110670d6f..d85a2fbb6 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.25 2000/02/17 14:30:07 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.26 2000/02/21 22:24:50 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1524,7 +1524,8 @@ (define-instruction move (segment dst src1) (:declare (type tn dst src1)) (:printer format-3-reg ((op #b10) (op3 #b000010) (rs1 0)) - '(:name :tab rs2 ", " rd)) + '(:name :tab rs2 ", " rd) + :print-name 'mov) (:attributes flushable) (:dependencies (reads src1) (writes dst)) (:delay 0) @@ -1692,6 +1693,7 @@ (reads :psr) (reads :fsr)) (reads src) + (reads dst) (writes dst)) (:emitter (let ((op #b10) @@ -1760,6 +1762,7 @@ (reads :psr) (reads :fsr)) (reads src) + (reads dst) (writes dst)) (:emitter (multiple-value-bind (opf_cc2 opf_cc01) @@ -1806,6 +1809,7 @@ (reads :psr) (reads src2) (reads src1) + (reads dst) (writes dst)) (:emitter (etypecase src2 @@ -1847,6 +1851,7 @@ (:dependencies (reads src2) (reads src1) + (reads dst) (writes dst)) (:emitter (emit-format-3-fpop2 -- GitLab