Added sl_to_str().

libraries/base/common/src/vhdl/common_str_pkg.vhd

@@ -46,6 +46,7 @@ PACKAGE common_str_pkg IS
   FUNCTION time_to_str(in_time : TIME) RETURN STRING;
   FUNCTION str_to_time(in_str : STRING) RETURN TIME;
   FUNCTION slv_to_str(slv : STD_LOGIC_VECTOR) RETURN STRING;
+  FUNCTION sl_to_str(sl : STD_LOGIC) RETURN STRING;
   FUNCTION str_to_hex(str : STRING) RETURN STRING;
   FUNCTION slv_to_hex(slv : STD_LOGIC_VECTOR) RETURN STRING;
   FUNCTION hex_to_slv(str : STRING) RETURN STD_LOGIC_VECTOR;
@@ -140,6 +141,11 @@ PACKAGE BODY common_str_pkg IS
      RETURN v_str;
   END;
 
+  FUNCTION sl_to_str(sl : STD_LOGIC) RETURN STRING IS
+  BEGIN
+     RETURN slv_to_str(slv(sl));
+  END;
+
   FUNCTION str_to_hex(str : STRING) RETURN STRING IS
     CONSTANT c_nof_nibbles : NATURAL := ceil_div(str'LENGTH, c_nibble_w);
     VARIABLE v_nibble_arr  : t_str_4_arr(0 TO c_nof_nibbles-1) := (OTHERS=>(OTHERS=>'0'));