Download Xilinx XST User Guide

Chapter 7: XST VHDL Language Support
Debugging Using Write Operation in VHDL Coding Example
--- Print 2 constants to the output file
-library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_arith.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
use STD.TEXTIO.all;
use IEEE.STD_LOGIC_TEXTIO.all;
entity file_support_1 is
generic (data_width: integer:= 4);
port( clk, sel: in std_logic;
din: in std_logic_vector (data_width - 1 downto 0);
dout: out std_logic_vector (data_width - 1 downto 0));
end file_support_1;
architecture Behavioral of file_support_1 is
file results : text is out "test.dat";
constant base_const: std_logic_vector(data_width - 1 downto 0):= conv_std_logic_vector(3,data_width);
constant new_const: std_logic_vector(data_width - 1 downto 0):= base_const + "1000";
begin
process(clk)
variable txtline : LINE;
begin
write(txtline,string’("--------------------"));
writeline(results, txtline);
write(txtline,string’("Base Const: "));
write(txtline,base_const);
writeline(results, txtline);
write(txtline,string’("New Const: "));
write(txtline,new_const);
writeline(results, txtline);
write(txtline,string’("--------------------"));
writeline(results, txtline);
if (clk’event and clk=’1’) then
if (sel = ’1’) then
dout <= new_const;
else
dout <= din;
end if;
end if;
end process;
end Behavioral;
XST User Guide
UG627 (v 11.3) September 16, 2009
www.xilinx.com
369