diff options
author | Andy Wingo <wingo@pobox.com> | 2020-05-08 16:32:40 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-05-08 16:35:04 +0200 |
commit | e9c0f3071dedb0f6b39757e920cdc182435c8725 (patch) | |
tree | 4b1117f8ab107fa274ee9c1ff01fabdaf0aee67e /module/scripts/compile.scm | |
parent | 220934c49d2629ebf826cc377541694334f44e7e (diff) | |
download | guile-e9c0f3071dedb0f6b39757e920cdc182435c8725.tar.gz |
Warning and optimization levels always small integers
* module/language/tree-il/analyze.scm (make-analyzer): Expect an int for
optimization level.
* module/scripts/compile.scm (%options, show-warning-help): No more
-Wnone / Wall; use -W0 or -W9 instead.
* module/system/base/compile.scm (level-validator): Validate small int.
(compute-analyzer, add-default-optimizations): Likewise.
* test-suite/tests/optargs.test (without-compiler-warnings):
* test-suite/tests/tree-il.test (call-with-warnings): Parameterize level
to 0, not #f.
* bootstrap/Makefile.am (GUILE_WARNINGS): Use -W0, not -Wnone.
Diffstat (limited to 'module/scripts/compile.scm')
-rw-r--r-- | module/scripts/compile.scm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm index ea6377b48..7b6daea85 100644 --- a/module/scripts/compile.scm +++ b/module/scripts/compile.scm @@ -87,12 +87,6 @@ ("help" (show-warning-help) (exit 0)) - ("all" - (alist-cons 'warning-level #t - (alist-delete 'warning-level result))) - ("none" - (alist-cons 'warning-level #f - (alist-delete 'warning-level result))) ((? string->number) (let ((n (string->number arg))) (unless (and (exact-integer? n) (<= 0 n)) @@ -176,8 +170,8 @@ There is NO WARRANTY, to the extent permitted by law.~%")) (warning-type-description wt))) %warning-types) (format #t "~%") - (format #t "You may also specify warning levels as `-Wnone', `-W0`, `-W1',~%") - (format #t "`-W2', `-W3', or `-Wall`. The default is `-W1'.~%")) + (format #t "You may also specify warning levels as `-W0`, `-W1',~%") + (format #t "`-W2', or `-W3'. The default is `-W1'.~%")) (define (show-optimization-help) (format #t "The available optimizations are:~%~%") |