-- Bona Fide D-latch
--
ENTITY D_Latch IS
PORT (
Enable_I : IN std_ulogic;
D : IN std_ulogic;
Q : OUT std_ulogic
);
END ENTITY D_Latch;
ARCHITECTURE D_Latch_arch OF D_Latch IS
BEGIN
D_latch : PROCESS (Enable_I, D)
BEGIN
IF Enable_I = '1' THEN
Q <= D;
END IF;
END PROCESS D_latch;
END ARCHITECTURE D_Latch_arch;