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
Pulled genZipWithCall into VHDLSession monad
[matthijs/master-project/cλash.git]
/
Constants.hs
diff --git
a/Constants.hs
b/Constants.hs
index 3a0e088adc7476b06603684c9f97bd1cdf696b74..cf77025771f11cc7ce5730eb49192ec5a33f71bc 100644
(file)
--- a/
Constants.hs
+++ b/
Constants.hs
@@
-39,6
+39,10
@@
rangeId :: AST.VHDLId
rangeId = AST.unsafeVHDLBasicId "range"
rangeId = AST.unsafeVHDLBasicId "range"
+-- | high attribute identifier
+highId :: AST.VHDLId
+highId = AST.unsafeVHDLBasicId "high"
+
-- | range attribute identifier
imageId :: AST.VHDLId
imageId = AST.unsafeVHDLBasicId "image"
-- | range attribute identifier
imageId :: AST.VHDLId
imageId = AST.unsafeVHDLBasicId "image"
@@
-157,6
+161,10
@@
copyId = AST.unsafeVHDLBasicId "copy"
-- VHDL type marks
------------------
-- VHDL type marks
------------------
+-- | The Bit type mark
+bitTM :: AST.TypeMark
+bitTM = AST.unsafeVHDLBasicId "Bit"
+
-- | Stardard logic type mark
std_logicTM :: AST.TypeMark
std_logicTM = AST.unsafeVHDLBasicId "std_logic"
-- | Stardard logic type mark
std_logicTM :: AST.TypeMark
std_logicTM = AST.unsafeVHDLBasicId "std_logic"
@@
-171,4
+179,8
@@
tfvec_indexTM = AST.unsafeVHDLBasicId "tfvec_index"
-- | natural AST. TypeMark
naturalTM :: AST.TypeMark
-- | natural AST. TypeMark
naturalTM :: AST.TypeMark
-naturalTM = AST.unsafeVHDLBasicId "natural"
\ No newline at end of file
+naturalTM = AST.unsafeVHDLBasicId "natural"
+
+-- | integer TypeMark
+integerTM :: AST.TypeMark
+integerTM = AST.unsafeVHDLBasicId "integer"