X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Constants.hs;h=61889af964ed1a8c2c9e72cd0e094548515e56a9;hb=c38002cdfd1ec55ffcd6661d7ac2d6c44d220d87;hp=3a0e088adc7476b06603684c9f97bd1cdf696b74;hpb=8a17f35807fb35ee4d2a4c35c75e1cf99066f94d;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Constants.hs b/Constants.hs
index 3a0e088..61889af 100644
--- a/Constants.hs
+++ b/Constants.hs
@@ -39,6 +39,10 @@ rangeId :: AST.VHDLId
 rangeId = AST.unsafeVHDLBasicId "range"
 
 
+-- | high attribute identifier
+highId :: AST.VHDLId
+highId = AST.unsafeVHDLBasicId "high"
+
 -- | range attribute identifier
 imageId :: AST.VHDLId
 imageId = AST.unsafeVHDLBasicId "image"
@@ -171,4 +175,8 @@ tfvec_indexTM = AST.unsafeVHDLBasicId "tfvec_index"
 
 -- | 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"
\ No newline at end of file