URL
https://opencores.org/ocsvn/openfpu64/openfpu64/trunk
Subversion Repositories openfpu64
Compare Revisions
- This comparison shows the changes necessary to convert path
/openfpu64
- from Rev 4 to Rev 5
- ↔ Reverse comparison
Rev 4 → Rev 5
/trunk/eis_helpers.vhd
0,0 → 1,76
------------------------------------------------------------------------------- |
-- Title : Helpers |
-- Project : openFPU64 |
------------------------------------------------------------------------------- |
-- File : eis_helpers.vhd |
-- Author : Prof. Dr. Gundolf Kiefer <gundolf.kiefer@hs-augsburg.de> |
-- Company : University of Applied Sciences, Augsburg |
-- Last update: 2010-04-22 |
-- Platform : |
-- Standard : VHDL'87 |
------------------------------------------------------------------------------- |
-- Description: This package contains neat some helper functions that ease |
-- printing out std_logic, std_logic_vector, unsigned and integer |
-- values. This package is especially handy for Testbenches. |
------------------------------------------------------------------------------- |
-- Copyright (c) 2010 |
------------------------------------------------------------------------------- |
-- License : GPL v3 -- see gpl.txt |
------------------------------------------------------------------------------- |
|
library IEEE; |
use IEEE.std_logic_1164.all; |
use IEEE.numeric_std.all; |
|
library STD; |
use STD.textio.all; |
|
|
|
package helpers is |
function to_character (val : in std_logic) return character; |
function to_string (val : in std_logic_vector) return string; |
function to_string (val: in unsigned) return string; |
function to_string (val: in integer) return string; |
end helpers; |
|
|
package body helpers is |
|
-- Testbench helpers... |
function to_character (val : in std_logic) return character is |
begin |
case val is |
when '0' => return '0'; |
when '1' => return '1'; |
when 'U' => return 'u'; |
when 'Z' => return 'z'; |
when others => return 'x'; |
end case; |
end to_character; |
|
function to_string (val : in std_logic_vector) return string is |
variable str: string (1 to val'length); |
alias val_norm : std_logic_vector (1 to val'length) is val; |
variable n: integer; |
begin |
for i in str'range loop |
str(i) := to_character(val_norm(i)); |
end loop; |
return str; |
end to_string; |
|
function to_string (val: in unsigned) return string is |
begin |
return to_string (std_logic_vector (val)); |
end to_string; |
|
function to_string (val: in integer) return string is |
variable retLine: line; |
begin |
write (retLine, val); |
return retLine(1 to retLine'length); |
end to_string; |
|
|
end helpers; |