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

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

diff --git a/dhwk/source/pci/config_10h.vhd b/dhwk/source/pci/config_10h.vhd
index ad55b17a5df52eab67a306793540f67235a8c9d5..4660c6ff4953f50c8883e9fa3131a9faf3da229c 100644 (file)
--- a/dhwk/source/pci/config_10h.vhd
+++ b/dhwk/source/pci/config_10h.vhd
@@ -38,7 +38,7 @@ begin
         if PCI_RSTn = '0' then
                 CONF_BAS_ADDR_REG(31 downto 4) <= (others =>'0');
 
-        elsif (PCI_CLOCK'event and PCI_CLOCK = '1') then
+        elsif (rising_edge(PCI_CLOCK)) then
 
                 if CONF_WR_10H = '1'and CBE_REGn(3) = '0' then
                         CONF_BAS_ADDR_REG(31 downto 24) <= AD_REG(31 downto 24);