Support print enable variant option in print_str().

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;
@@ -269,6 +270,14 @@ PACKAGE BODY common_str_pkg IS
     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