From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Oct 2018 23:38:25 +0000 (-0700)
Subject: Fix C compiler warning of assigning register to itself.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~196
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=df3a8bffbc0d789d464125319527f45bedc3c54e;p=mit-scheme.git

Fix C compiler warning of assigning register to itself.
---

diff --git a/src/compiler/machines/C/lapgen.scm b/src/compiler/machines/C/lapgen.scm
index b4aac929a..83b989da1 100644
--- a/src/compiler/machines/C/lapgen.scm
+++ b/src/compiler/machines/C/lapgen.scm
@@ -176,7 +176,7 @@ USA.
 		   (if (eq? type* 'DOUBLE)
 		       reg
 		       (reg-select reg type)))))
-    
+
     (cond ((register-is-machine-register? reg)
 	   (if (not (compatible/C*register? type (register-type reg)))
 	       (error "standard-target!: Incompatible type register" reg type))
@@ -220,7 +220,12 @@ USA.
     permanent-register-list)))
 
 (define (standard-move-to-target! src tgt)
-  (let ((src-type (register-type src)))
+  (let ((src-type (register-type src))
+	(assign
+	 (lambda (tgt src)
+	   (if (equal? tgt src)
+	       (lap)
+	       (lap ,(c:= tgt src))))))
     (cond ((not (eq? (register-type tgt) src-type))
 	   (comp-internal-error "Incompatible registers"
 				'STANDARD-MOVE-TO-TARGET!
@@ -228,11 +233,11 @@ USA.
 	  ((register-is-machine-register? tgt)
 	   (let ((src (standard-source! src
 					(machine-register-type-symbol tgt))))
-	     (LAP ,(c:= (machine-register-name tgt) src))))
+	     (assign (machine-register-name tgt) src)))
 	  ((register-is-machine-register? src)
 	   (let ((tgt (standard-target! tgt
 					(machine-register-type-symbol src))))
-	     (LAP ,(c:= tgt (machine-register-name src)))))
+	     (assign tgt (machine-register-name src))))
 	  (else
 	   (let ((reg-type
 		  (case src-type
@@ -242,8 +247,8 @@ USA.
 		     (comp-internal-error "Unknown RTL register type"
 					  'STANDARD-MOVE-TO-TARGET!
 					  src-type)))))
-	     (LAP ,(c:= (find-register! tgt reg-type)
-			(find-register! src reg-type))))))))
+	     (assign (find-register! tgt reg-type)
+		     (find-register! src reg-type)))))))
 
 ;;;; Communicate with "cout.scm"
 
@@ -510,7 +515,7 @@ USA.
 (define (define-label! label)
   (set! labels
 	(cons (vector label #f
-		      (generate-new-label-symbol "LABEL_")    
+		      (generate-new-label-symbol "LABEL_")
 		      #f #f #f #f)
 	      labels))
   unspecific)