perl -p -i -e "s/PCI_CLOCK'event and PCI_CLOCK = '1'/rising_edge(PCI_CLOCK)/" *.vhd

[raggedstone] / dhwk / source / pci / cont_fsm.vhd

diff --git a/dhwk/source/pci/cont_fsm.vhd b/dhwk/source/pci/cont_fsm.vhd
index 4600784de3573369f390fa805c8b82ccd4f803f9..7ebd4c0ca2bf72c6aeefe8ee11c87c2da6898403 100644 (file)
--- a/dhwk/source/pci/cont_fsm.vhd
+++ b/dhwk/source/pci/cont_fsm.vhd
@@ -88,7 +88,7 @@ begin
         begin
                 if PCI_RSTn = '0' then CONTROL_STATE <= ST_IDLE;
 
-        elsif (PCI_CLOCK'event and PCI_CLOCK = '1') then
+        elsif (rising_edge(PCI_CLOCK)) then
 
                 case CONTROL_STATE is
                 when ST_IDLE =>