mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

10
module/scripts/compile.scm
View file

@ -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:~%~%")