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

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

diff --git a/dhwk/source/pci/interrupt.vhd b/dhwk/source/pci/interrupt.vhd
index 1266a9ed9fd076998a8e9cbbb08218a0a0005796..5d3b4734d46ee8ae8b2c5051579371c97ffae3eb 100644 (file)
--- a/dhwk/source/pci/interrupt.vhd
+++ b/dhwk/source/pci/interrupt.vhd
@@ -120,8 +120,8 @@ begin
                 end if;
         end process;
 
-        SIG_PROPAGATE_INT <=
-        (REG(0) AND INT_MASKE(0))
+        SIG_PROPAGATE_INT <= (not TAST_SETn)
+        OR (REG(0) AND INT_MASKE(0))
         OR (REG(1) AND INT_MASKE(1))
         OR (REG(2) AND INT_MASKE(2))
         OR (REG(3) AND INT_MASKE(3))