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 d6ead44baab93c6d7fc95954dad68b14dbe1c3fc..53dc8623b876ec1f9902ee54fd05f03821ffbee0 100644 (file)
--- 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 a23a5380e172c8bb331e3e9bfc6351fb776f3a81..3e4713a5232b6567f57f6ff8bc7d7f2d48e63a40 100644 (file)
--- 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)