From e92b3e3e760790b6562c4f1dd0c06ad009b1e275 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 1 Feb 2017 00:27:45 -0700 Subject: [PATCH] Suppress 100+ useless pass 1 warnings about missing externs files. --- src/compiler/machines/C/decls.scm | 14 ++++++++++---- src/compiler/machines/i386/decls.scm | 14 ++++++++++---- src/compiler/machines/svm/decls.scm | 14 ++++++++++---- src/compiler/machines/x86-64/decls.scm | 14 ++++++++++---- 4 files changed, 40 insertions(+), 16 deletions(-) diff --git a/src/compiler/machines/C/decls.scm b/src/compiler/machines/C/decls.scm index 37ca2c6f8..5b291b1ee 100644 --- a/src/compiler/machines/C/decls.scm +++ b/src/compiler/machines/C/decls.scm @@ -249,10 +249,16 @@ USA. (write-notification-line (lambda (port) (write-string "Begin pass 1:" port))) - (for-each (lambda (node) - (if (not (source-node/modification-time node)) - (source-node/syntax! node))) - source-nodes/by-rank) + (bind-condition-handler (list condition-type:simple-warning) + (lambda (condition) + (if (string=? (access-condition condition 'MESSAGE) + "Missing externs file:") + (muffle-warning))) + (lambda () + (for-each (lambda (node) + (if (not (source-node/modification-time node)) + (source-node/syntax! node))) + source-nodes/by-rank))) (if (there-exists? source-nodes/by-rank (lambda (node) (and (not (source-node/modification-time node)) diff --git a/src/compiler/machines/i386/decls.scm b/src/compiler/machines/i386/decls.scm index 9b55e4370..f1e9eaebc 100644 --- a/src/compiler/machines/i386/decls.scm +++ b/src/compiler/machines/i386/decls.scm @@ -249,10 +249,16 @@ USA. (write-notification-line (lambda (port) (write-string "Begin pass 1:" port))) - (for-each (lambda (node) - (if (not (source-node/modification-time node)) - (source-node/syntax! node))) - source-nodes/by-rank) + (bind-condition-handler (list condition-type:simple-warning) + (lambda (condition) + (if (string=? (access-condition condition 'MESSAGE) + "Missing externs file:") + (muffle-warning))) + (lambda () + (for-each (lambda (node) + (if (not (source-node/modification-time node)) + (source-node/syntax! node))) + source-nodes/by-rank))) (if (there-exists? source-nodes/by-rank (lambda (node) (and (not (source-node/modification-time node)) diff --git a/src/compiler/machines/svm/decls.scm b/src/compiler/machines/svm/decls.scm index 7e58fe10d..4c89bb3a9 100644 --- a/src/compiler/machines/svm/decls.scm +++ b/src/compiler/machines/svm/decls.scm @@ -255,10 +255,16 @@ USA. (write-notification-line (lambda (port) (write-string "Begin pass 1:" port))) - (for-each (lambda (node) - (if (not (source-node/modification-time node)) - (source-node/syntax! node))) - source-nodes/by-rank) + (bind-condition-handler (list condition-type:simple-warning) + (lambda (condition) + (if (string=? (access-condition condition 'MESSAGE) + "Missing externs file:") + (muffle-warning))) + (lambda () + (for-each (lambda (node) + (if (not (source-node/modification-time node)) + (source-node/syntax! node))) + source-nodes/by-rank))) (if (there-exists? source-nodes/by-rank (lambda (node) (and (not (source-node/modification-time node)) diff --git a/src/compiler/machines/x86-64/decls.scm b/src/compiler/machines/x86-64/decls.scm index 795cbf80d..6924a256b 100644 --- a/src/compiler/machines/x86-64/decls.scm +++ b/src/compiler/machines/x86-64/decls.scm @@ -249,10 +249,16 @@ USA. (write-notification-line (lambda (port) (write-string "Begin pass 1:" port))) - (for-each (lambda (node) - (if (not (source-node/modification-time node)) - (source-node/syntax! node))) - source-nodes/by-rank) + (bind-condition-handler (list condition-type:simple-warning) + (lambda (condition) + (if (string=? (access-condition condition 'MESSAGE) + "Missing externs file:") + (muffle-warning))) + (lambda () + (for-each (lambda (node) + (if (not (source-node/modification-time node)) + (source-node/syntax! node))) + source-nodes/by-rank))) (if (there-exists? source-nodes/by-rank (lambda (node) (and (not (source-node/modification-time node)) -- 2.25.1