Commit a127ce drv: check only bit 7 of drv status2 register

1 file Authored and Committed by Richard Marko 2 years ago
drv: check only bit 7 of drv status2 register

    
 1 @@ -126,7 +126,8 @@
 2                 (do store lastStatus2 regval
 3                     ls1 <- deref lastStatus1
 4                     ls2 <- deref lastStatus2
 5 -                   when (ls1 /=? 0 .|| ls2 /=? 0) $ do
 6 +                   -- ls2 contains only one interesting bit (bit 7)
 7 +                   when (ls1 /=? 0 .|| (ls2 .& 0x80) /=? 0) $ do
 8                       drvFaultFromRegs ls1 ls2 lastStat
 9                       emit fault_e $ constRef lastStat
10                     )