read getting closer to being done
This commit is contained in:
parent
1f9bd2f015
commit
7265728932
4 changed files with 78 additions and 52 deletions
|
@ -11,8 +11,6 @@ module BusTypes(
|
|||
|
||||
import Clash.Prelude
|
||||
|
||||
import Peripherals.Ram(Ram, RamLine)
|
||||
import Machine(Peripherals(..))
|
||||
import Types(Addr,
|
||||
Byte, HalfWord, FullWord, DoubleWord, QuadWord)
|
||||
|
||||
|
@ -24,7 +22,7 @@ data BusError
|
|||
data TransactionSize
|
||||
= SizeByte
|
||||
| SizeHalfWord
|
||||
| SizeWord
|
||||
| SizeFullWord
|
||||
| SizeDoubleWord
|
||||
| SizeQuadWord
|
||||
deriving (Generic, Show, Eq, NFDataX)
|
||||
|
@ -40,7 +38,7 @@ data BusResponse a
|
|||
data BusVal
|
||||
= BusByte Byte
|
||||
| BusHalfWord HalfWord
|
||||
| BusWord FullWord
|
||||
| BusFullWord FullWord
|
||||
| BusDoubleWord DoubleWord
|
||||
| BusQuadWord QuadWord
|
||||
deriving (Generic, Show, Eq, NFDataX)
|
||||
|
|
Reference in a new issue