mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

Warning and optimization levels always small integers

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2020-05-08 16:32:40 +02:00
parent 220934c49d
commit e9c0f3071d
6 changed files with 13 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/optargs.test
View file

@ -48,7 +48,7 @@
;;;
(define-syntax-rule (without-compiler-warnings exp ...)
(parameterize ((default-warning-level #f)) exp ...))
(parameterize ((default-warning-level 0)) exp ...))
(without-compiler-warnings
(with-test-prefix/c&e "let-keywords"

2
test-suite/tests/tree-il.test
View file

@ -242,7 +242,7 @@
(define (call-with-warnings thunk)
(let ((port (open-output-string)))
;; Disable any warnings added by default.
(parameterize ((default-warning-level #f))
(parameterize ((default-warning-level 0))
(with-fluids ((*current-warning-port* port)
(*current-warning-prefix* ""))
(thunk)))