projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
State newtype has been moved to CLasH.HardwareTypes
[matthijs/master-project/cλash.git]
/
Alu.hs
diff --git
a/Alu.hs
b/Alu.hs
index 0db8e7b6935517bc8ab264393cd40aaeab0538be..1c60c0414886cbb975d18fb994a286beb46e1c24 100644
(file)
--- a/
Alu.hs
+++ b/
Alu.hs
@@
-1,9
+1,6
@@
-module Alu where
-import Bits
+module Alu where
import qualified Sim
import qualified Sim
-import Data.SizedWord
-import Types
-import Types.Data.Num
+import CLasH.HardwareTypes hiding (fst,snd)
import CLasH.Translator.Annotations
import qualified Prelude as P
import CLasH.Translator.Annotations
import qualified Prelude as P
@@
-15,8
+12,6
@@
mainIO = Sim.simulateIO exec initial_state
dontcare = Low
dontcare = Low
-newtype State s = State s deriving (P.Show)
-
program = [
-- (addr, we, op)
(High, Low, High), -- z = r1 and t (0) ; t = r1 (1)
program = [
-- (addr, we, op)
(High, Low, High), -- z = r1 and t (0) ; t = r1 (1)