-- Copyright © 1993 by  McGraw-Hill, Inc. and Zainalabedin Navabi

-- FIGURE 7.9 




-- ENTITY DECLERATION OF D-FLIPFLOP :

ENTITY d_flipflop IS
  GENERIC (delay1 : TIME := 4 NS; delay2 : TIME := 5 NS);
  PORT (d, c : IN BIT; q, qb : OUT BIT);
END d_flipflop;
--



-- THE ASSIGNING ARCHITECTURE FOR D-FLIPFLOP :

ARCHITECTURE guarding OF d_flipflop IS
BEGIN
  ff: BLOCK ( c = '1' AND NOT c'STABLE )
  BEGIN
    q <= GUARDED d AFTER delay1;
    qb <= GUARDED NOT d AFTER delay2;
  END BLOCK ff;
END guarding;
--