From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 7 Mar 2012 21:27:06 +0000 (-0700)
Subject: svm: Punt old (less interesting now) warnings.
X-Git-Tag: release-9.2.0~277
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7af0eafe3b22a2eb96ccbe636d00d240b8415c66;p=mit-scheme.git

svm: Punt old (less interesting now) warnings.
---

diff --git a/src/compiler/machines/svm/assembler-runtime.scm b/src/compiler/machines/svm/assembler-runtime.scm
index d6ead44ba..53dc8623b 100644
--- a/src/compiler/machines/svm/assembler-runtime.scm
+++ b/src/compiler/machines/svm/assembler-runtime.scm
@@ -262,9 +262,7 @@ USA.
 	  (and (= nbits 32)
 	       (let ((low #x-8000) (high #x7FFF))
 		 (and (<= low offset) (<= offset high)))))
-      (begin
-	(warn "Bit tensioner widened encoding" nbits offset)
-	(signed-integer->bit-string nbits offset))
+      (signed-integer->bit-string nbits offset)
       ;; Does not fit into a smaller number of bytes; no fixing necessary.
       offset))
 
diff --git a/src/compiler/machines/svm/lapgen.scm b/src/compiler/machines/svm/lapgen.scm
index a23a5380e..3e4713a52 100644
--- a/src/compiler/machines/svm/lapgen.scm
+++ b/src/compiler/machines/svm/lapgen.scm
@@ -61,19 +61,16 @@ USA.
 	 (error:bad-range-argument source #f))))
 
 (define (home->register-transfer source target)
-  (warn "Unspilled:" source "->" target)
   (LAP ,@(inst:load (register-type source)
 		    (register-reference target)
 		    (home source))))
 
 (define (register->home-transfer source target)
-  (warn "Spilled:" source "->" target)
   (LAP ,@(inst:store (register-type target)
 		     (register-reference source)
 		     (home target))))
 
 (define (pseudo-register-home register)
-  (warn "Needed home:" register)
   (home register))
 
 (define-integrable (home register)