Put the Builders in the VHDLSession.

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

diff --git a/GlobalNameTable.hs b/GlobalNameTable.hs
index 429b9660d7e38434657635f1e97208e2452938c2..45eed895d89970629dd15c8bf0f8a4a58cecf6ff 100644 (file)
--- a/GlobalNameTable.hs
+++ b/GlobalNameTable.hs
@@ -29,6 +29,7 @@ globalNameTable = mkGlobalNameTable
   , ("map"            , (2, Right $ genMapCall                            ) )
   , ("empty"          , (0, Left $ genExprFCall emptyId                   ) )
   , ("singleton"      , (1, Left $ genExprFCall singletonId               ) )
+  , ("copy"           , (2, Left $ genExprFCall copyId                    ) )
   , ("hwxor"          , (2, Left $ genExprOp2 AST.Xor                     ) )
   , ("hwand"          , (2, Left $ genExprOp2 AST.And                     ) )
   , ("hwor"           , (2, Left $ genExprOp2 AST.Or                      ) )