Added real_to_str().

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

@@ -43,6 +43,7 @@ PACKAGE common_str_pkg IS
   Function hex_nibble_to_slv(c: character) return std_logic_vector;
 
   FUNCTION int_to_str(int: INTEGER) RETURN STRING;
+  FUNCTION real_to_str(re: REAL; width : INTEGER; digits : INTEGER) RETURN STRING;
 
   PROCEDURE print_str(str : STRING);
 
@@ -212,6 +213,16 @@ PACKAGE BODY common_str_pkg IS
     RETURN v_str;        
   END;
 
+  FUNCTION real_to_str(re: REAL; width : INTEGER; digits : INTEGER) RETURN STRING IS
+    VARIABLE v_line: LINE;
+    VARIABLE v_str: STRING(1 TO width):= (OTHERS => ' ');
+  BEGIN 
+    STD.TEXTIO.WRITE(v_line, re, right, width, digits);
+    v_str(v_line.ALL'RANGE) := v_line.ALL;
+    deallocate(v_line);
+    RETURN v_str;        
+  END;
+
   PROCEDURE print_str(str: STRING) IS
   VARIABLE v_line: LINE;
   BEGIN