VERY Ad-hoc support of literals.

[matthijs/master-project/cλash.git] / Constants.hs

diff --git a/Constants.hs b/Constants.hs
index e8b0840df0903cf27a54b46e49b37acb478389b2..838f9c5cb3567e8f44dc05c0e600c747b4574ab7 100644 (file)
--- a/Constants.hs
+++ b/Constants.hs
@@ -249,6 +249,9 @@ fromSizedWordId = "fromSizedWord"
 toIntegerId :: String
 toIntegerId = "to_integer"
 
+fromIntegerId :: String
+fromIntegerId = "fromInteger"
+
 ------------------
 -- VHDL type marks
 ------------------