From 7af0eafe3b22a2eb96ccbe636d00d240b8415c66 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 7 Mar 2012 14:27:06 -0700 Subject: [PATCH] svm: Punt old (less interesting now) warnings. --- src/compiler/machines/svm/assembler-runtime.scm | 4 +--- src/compiler/machines/svm/lapgen.scm | 3 --- 2 files changed, 1 insertion(+), 6 deletions(-) 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) -- 2.25.1