From 0d3468277f1f99d995c1aa99be1d35f742b558ab Mon Sep 17 00:00:00 2001 From: Nikolay Puzanov Date: Fri, 8 Jul 2022 22:10:39 +0300 Subject: [PATCH] Allow to specify string parameters and defines --- utest.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/utest.scm b/utest.scm index 790635d..4ef91ac 100755 --- a/utest.scm +++ b/utest.scm @@ -441,6 +441,11 @@ (parameters '()) ; -P=X (other '())) + (define (string-or-num-param x) + (if (number? x) + (format "~a" x) + (format "'\"~a\"'" x))) + (let ((opts (cons iverilog-executable @@ -463,11 +468,11 @@ (if (or (not top) (list? top)) (car x) (format "~a.~a" top (car x))) - (cadr x))) + (string-or-num-param (cadr x)))) parameters) (map (lambda (x) (if (list? x) - (format "-D~a=~a" (car x) (cadr x)) + (format "-D~a=~a" (car x) (string-or-num-param (cadr x))) (format "-D~a" x))) defines) other