ex_p2_20_package.vhd

来自「This is the course for VHDL programming」· VHDL 代码 · 共 20 行

package UTILITY is
   type FUZZY_TEMP is(CHILL, COLD, NORMAL, WARM, HOT);
   type FT_ARRAY is array(0 to 49) of FUZZY_TEMP;
   shared variable FT : FT_ARRAY;
   constant PI:real := 3.1415926;
   Subtype INT is integer range 5 to 15;
end package UTILITY;
use work.UTILITY.all;
entity TEST_UTILITY is end TEST_UTILITY;
architecture A of TEST_UTILITY is
    signal i:INT:=6;
    signal r:real;
begin
    r <= PI + real(i);
    process
    begin
       FT(0) := COLD;
       wait;
   end process;
end A;