From 50d1943f36ebb9cef5985eb5b0b396db689d8b9d Mon Sep 17 00:00:00 2001
From: Eric Kooistra <kooistra@astron.nl>
Date: Fri, 14 Jan 2022 16:47:17 +0100
Subject: [PATCH] Support print enable variant option in print_str().
---
libraries/base/common/src/vhdl/common_str_pkg.vhd | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/libraries/base/common/src/vhdl/common_str_pkg.vhd b/libraries/base/common/src/vhdl/common_str_pkg.vhd
index cda0f3672e..c6adcaad93 100644
--- a/libraries/base/common/src/vhdl/common_str_pkg.vhd
+++ b/libraries/base/common/src/vhdl/common_str_pkg.vhd
@@ -57,6 +57,7 @@ PACKAGE common_str_pkg IS
FUNCTION real_to_str(re: REAL; width : INTEGER; digits : INTEGER) RETURN STRING;
PROCEDURE print_str(str : STRING);
+ PROCEDURE print_str(str: STRING; enable: BOOLEAN);
FUNCTION str_to_ascii_integer_arr(s: STRING) RETURN t_integer_arr;
FUNCTION str_to_ascii_slv_8_arr( s: STRING) RETURN t_slv_8_arr;
@@ -262,13 +263,21 @@ PACKAGE BODY common_str_pkg IS
END;
PROCEDURE print_str(str: STRING) IS
- VARIABLE v_line: LINE;
+ VARIABLE v_line: LINE;
BEGIN
write(v_line, str);
writeline(output, v_line);
deallocate(v_line);
END;
+ PROCEDURE print_str(str: STRING; enable: BOOLEAN) IS
+ VARIABLE v_line: LINE;
+ BEGIN
+ IF enable THEN
+ print_str(str);
+ END IF;
+ END;
+
FUNCTION str_to_ascii_integer_arr(s: STRING) RETURN t_integer_arr IS
VARIABLE r: t_integer_arr(0 TO s'RIGHT-1);
BEGIN
--
GitLab