5efef8b19c
- made builds less verbose on Mac by removing `-cpp` - made type constructors for most instances of `(UInt (TLog n))` - addressed cases where types built upon `(UInt (TLog n))` may have a max value of `n`, which necessitates changing the type to ` (UInt (TLog (TAdd 1 n)))` - compiler wouldn't fully evaluate types unless mkBus was instantiated
47 lines
1.2 KiB
Haskell
47 lines
1.2 KiB
Haskell
package ClkDivider(
|
|
mkClkDivider,
|
|
MkClkDivType,
|
|
ClkDivider(..)
|
|
) where
|
|
|
|
interface (ClkDivider :: # -> *) hi =
|
|
{
|
|
reset :: Action
|
|
;isAdvancing :: Bool
|
|
;isHalfCycle :: Bool
|
|
}
|
|
|
|
type MkClkDivType maxCycles = (UInt (TLog (TAdd 1 maxCycles)))
|
|
|
|
mkClkDivider :: Handle -> Module (ClkDivider hi)
|
|
mkClkDivider fileHandle = do
|
|
counter <- mkReg(0 :: MkClkDivType hi)
|
|
let hi_value :: (MkClkDivType hi) = (fromInteger $ valueOf hi)
|
|
let half_hi_value :: (MkClkDivType hi) = (fromInteger $ valueOf (TDiv hi 2))
|
|
|
|
let val :: Real = (fromInteger $ valueOf hi)
|
|
let msg = "Clock Div Period : " + (realToString val) + "\n"
|
|
|
|
hPutStr fileHandle msg
|
|
hPutStr fileHandle genModuleName
|
|
|
|
addRules $
|
|
rules
|
|
{-# ASSERT fire when enabled #-}
|
|
{-# ASSERT no implicit conditions #-}
|
|
"tick" : when True ==> action
|
|
$display (counter)
|
|
counter := if (counter == hi_value)
|
|
then 0
|
|
else counter + 1
|
|
|
|
return $
|
|
interface ClkDivider
|
|
reset :: Action
|
|
reset = do
|
|
counter := 0
|
|
|
|
isAdvancing :: Bool
|
|
isAdvancing = (counter == hi_value)
|
|
isHalfCycle = (counter == half_hi_value)
|