Project

General

Profile

Download (3.08 KB) Statistics
| Branch: | Tag: | Revision:
1 d93979b7 Arnaud Dieumegard
2
-- Copyright (C) 1996 Morgan Kaufmann Publishers, Inc
3
4
-- This file is part of VESTs (Vhdl tESTs).
5
6
-- VESTs is free software; you can redistribute it and/or modify it
7
-- under the terms of the GNU General Public License as published by the
8
-- Free Software Foundation; either version 2 of the License, or (at
9
-- your option) any later version. 
10
11
-- VESTs is distributed in the hope that it will be useful, but WITHOUT
12
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13
-- FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14
-- for more details. 
15
16
-- You should have received a copy of the GNU General Public License
17
-- along with VESTs; if not, write to the Free Software Foundation,
18
-- Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
19
20
-- ---------------------------------------------------------------------
21
--
22
-- $Id: ch_13_fg_13_01.vhd,v 1.2 2001-10-26 16:29:35 paw Exp $
23
-- $Revision: 1.2 $
24
--
25
-- ---------------------------------------------------------------------
26
27
entity edge_triggered_Dff is
28
  generic ( Tprop, Tsetup, Thold : delay_length );
29
  port ( clk : in bit;  clr : in bit; d : in bit;
30
  q : out bit );
31
end entity edge_triggered_Dff;
32
33
34
architecture basic of edge_triggered_Dff is
35
begin
36
37
  state_change : process (clk, clr) is
38
  begin
39
    if clr = '1' then
40
      q <= '0' after Tprop;
41
    elsif clk'event and clk = '1' then
42
      q <= d after Tprop;
43
    end if;
44
  end process state_change;
45
46
end architecture basic;
47
48
49
architecture hi_fanout of edge_triggered_Dff is
50
begin
51
52
  state_change : process (clk, clr) is
53
  begin
54
    if clr = '1' then
55
      q <= '0' after Tprop;
56
    elsif clk'event and clk = '1' then
57
      q <= d after Tprop;
58
    end if;
59
  end process state_change;
60
61
end architecture hi_fanout;
62
63
64
-- code from book
65
66
entity reg4 is
67
  port ( clk, clr : in bit;  d : in bit_vector(0 to 3);
68
  q : out bit_vector(0 to 3) );
69
end entity reg4;
70
71
--------------------------------------------------
72
73
architecture struct of reg4 is
74
75
  component flipflop is
76
                       generic ( Tprop, Tsetup, Thold : delay_length );
77
                     port ( clk : in bit;  clr : in bit;  d : in bit;
78
                     q : out bit );
79
  end component flipflop;
80
81
begin
82
83
  bit0 : component flipflop
84
    generic map ( Tprop => 2 ns, Tsetup => 2 ns, Thold => 1 ns )
85
    port map ( clk => clk, clr => clr, d => d(0), q => q(0) );
86
87
  bit1 : component flipflop
88
    generic map ( Tprop => 2 ns, Tsetup => 2 ns, Thold => 1 ns )
89
    port map ( clk => clk, clr => clr, d => d(1), q => q(1) );
90
91
  bit2 : component flipflop
92
    generic map ( Tprop => 2 ns, Tsetup => 2 ns, Thold => 1 ns )
93
    port map ( clk => clk, clr => clr, d => d(2), q => q(2) );
94
95
  bit3 : component flipflop
96
    generic map ( Tprop => 2 ns, Tsetup => 2 ns, Thold => 1 ns )
97
    port map ( clk => clk, clr => clr, d => d(3), q => q(3) );
98
99
end architecture struct;
100
101
-- end code from book
102
103
104
105
configuration fg_13_01 of reg4 is
106
107
  for struct
108
109
    -- code from book (in text)
110
111
    for bit0, bit1 : flipflop
112
      use entity work.edge_triggered_Dff(basic);
113
    end for;
114
115
    -- end code from book
116
117
  end for;
118
119
end configuration fg_13_01;