clash-ghc 0.2.1 → 0.2.2

raw patch · 4 files changed

+8/−9 lines, 4 files

Files

• clash-ghc.cabal +5/−2
• primitives/clash.sized.signed.json +1/−1
• primitives/clash.sized.unsigned.json +1/−1
• src-ghc/CLaSH/GHC/GHC2Core.hs +1/−5

@@ -1,5 +1,5 @@ Name:                 clash-ghc-Version:              0.2.1+Version:              0.2.2 Synopsis:             CAES Language for Synchronous Hardware Description:   CλaSH (pronounced ‘clash’) is a functional hardware description language that@@ -12,13 +12,16 @@   This package provides:   .   * CλaSH Compiler binary using GHC/Haskell as a frontend+  .+  .+  Prelude library: http://hackage.haskell.org/package/clash-prelude Homepage:             http://christiaanb.github.io/clash2 bug-reports:          http://github.com/christiaanb/clash2/issues License:              OtherLicense License-file:         LICENSE Author:               Christiaan Baaij Maintainer:           Christiaan Baaij <christiaan.baaij@gmail.com>-Copyright:            Copyright (c) 2012-2014 University of Twente+Copyright:            Copyright © 2012-2014 University of Twente Category:             Hardware Build-type:           Simple 

@@ -123,7 +123,7 @@     { "name"      : "CLaSH.Sized.Signed.bitS"     , "templateD" : "~SYM[0]_bitS : block-  signal ~SYM[1] : ~TYP[1];+  signal ~SYM[1] : ~TYP[1] := ~DEFAULT[1]; begin   ~SYM[1] <= ~ARG[1];   process(~SYM[1])

@@ -92,7 +92,7 @@     { "name"      : "CLaSH.Sized.Unsigned.bitU"     , "templateD"  : "~SYM[0]_bitU : block-  signal ~SYM[1] : ~TYP[1];+  signal ~SYM[1] : ~TYP[1] := ~DEFAULT[1]; begin   ~SYM[1] <= ~ARG[1];   process(~SYM[1])

@@ -305,7 +305,7 @@     mkDc dcTy repTys   where     mkDc dcTy repTys = do-      nm   <- coreToName dataConName getUnique nameString dc+      nm   <- coreToName dataConName getUnique qualfiedNameString dc       uTvs <- mapM coreToVar (dataConUnivTyVars dc)       eTvs <- mapM coreToVar (dataConExTyVars dc)       return $ C.MkData@@ -370,10 +370,6 @@ coreToName toName toUnique toString v = do   ns <- toString (toName v)   return (Unbound.makeName ns (toInteger . getKey . toUnique $ v))--nameString :: Name-           -> State GHC2CoreState String-nameString n = makeCached n nameMap (return (occNameString $ nameOccName n))  qualfiedNameString :: Name                    -> State GHC2CoreState String