Small cosmetic fix - replace 'if' to 'and'

This commit is contained in:
Nikolay Puzanov 2022-07-12 18:51:40 +03:00
parent 2c8c60429c
commit fa1170eb59
2 changed files with 21 additions and 25 deletions

View File

@ -4,22 +4,20 @@
(let ((top "vpi_log2")) (let ((top "vpi_log2"))
;; compile VPI module in the base directory ;; compile VPI module in the base directory
(if (utest/iverilog-compile-vpi "vpi_log2.c" (and (utest/iverilog-compile-vpi "vpi_log2.c"
#:output-dir (utest/base-path) #:output-dir (utest/base-path)
#:name top #:libs "m") #:name top #:libs "m")
(map (map
(lambda (arg) (lambda (arg)
(utest/tb (utest/tb
((format "log2_~a" arg)) ((format "log2_~a" arg))
(utest/run-simulation-iverilog (utest/run-simulation-iverilog
"vpi_log2.sv" "vpi_log2.sv"
top top
#:parameters `((ARGUMENT ,arg)) #:parameters `((ARGUMENT ,arg))
#:vpimods top #:vpimods top
;; VPI modules search path ;; VPI modules search path
#:vpipaths (utest/base-path)))) #:vpipaths (utest/base-path))))
(iota 20)) (iota 20))))
#f))

View File

@ -8,12 +8,10 @@
(utest/tb (utest/tb
((format "log2_~a" arg)) ((format "log2_~a" arg))
(if (utest/iverilog-compile-vpi "vpi_log2.c" #:name top #:libs "m") (and (utest/iverilog-compile-vpi "vpi_log2.c" #:name top #:libs "m")
(utest/run-simulation-iverilog (utest/run-simulation-iverilog
"vpi_log2.sv" "vpi_log2.sv"
top top
#:parameters `((ARGUMENT ,arg)) #:parameters `((ARGUMENT ,arg))
#:vpimods top) #:vpimods top))))
#f)))
(iota 20))) (iota 20)))