|
|
@@ -1,33 +0,0 @@ |
|
|
|
|
|
|
|
|
|
|
|
LIBRARY ieee;
|
|
|
|
USE ieee.std_logic_1164.ALL;
|
|
|
|
|
|
|
|
|
|
|
|
PACKAGE utils IS
|
|
|
|
PROCEDURE horloge ( SIGNAL h: OUT std_logic; th, tb : time);
|
|
|
|
PROCEDURE horloge_retard ( SIGNAL h : OUT std_logic; periode : time ;
|
|
|
|
retard : time);
|
|
|
|
END utils;
|
|
|
|
---------------------------------------------------
|
|
|
|
PACKAGE BODY utils IS
|
|
|
|
PROCEDURE horloge ( SIGNAL h : OUT std_logic; th, tb : time) IS
|
|
|
|
BEGIN
|
|
|
|
LOOP
|
|
|
|
h <= '0', '1' AFTER tb;
|
|
|
|
WAIT FOR tb + th ;
|
|
|
|
END LOOP;
|
|
|
|
END;
|
|
|
|
|
|
|
|
PROCEDURE horloge_retard ( SIGNAL h : OUT std_logic; periode : time ;
|
|
|
|
retard : time) IS
|
|
|
|
BEGIN
|
|
|
|
h <= '0';
|
|
|
|
WAIT FOR retard;
|
|
|
|
LOOP
|
|
|
|
h <= '1' , '0' AFTER periode/2 ;
|
|
|
|
WAIT FOR periode;
|
|
|
|
END LOOP;
|
|
|
|
END;
|
|
|
|
END utils;
|