sigs = map varBndr valargs
signature = Maybe.fromMaybe
(error $ "Using function '" ++ (bndrToString (head sigs)) ++ "' without signature? This should not happen!")
(Map.lookup (head sigs) signatures)
arg_names = map (mkVHDLExtId . bndrToString) (tail sigs)
dst_name = mkVHDLExtId (bndrToString bndr)
sigs = map varBndr valargs
signature = Maybe.fromMaybe
(error $ "Using function '" ++ (bndrToString (head sigs)) ++ "' without signature? This should not happen!")
(Map.lookup (head sigs) signatures)
arg_names = map (mkVHDLExtId . bndrToString) (tail sigs)
dst_name = mkVHDLExtId (bndrToString bndr)
in return [AST.CSGSm genSm]
else
error $ "VHDL.mkConcSm Incorrect number of arguments to builtin function: " ++ pprString f ++ " Args: " ++ pprString valargs
in return [AST.CSGSm genSm]
else
error $ "VHDL.mkConcSm Incorrect number of arguments to builtin function: " ++ pprString f ++ " Args: " ++ pprString valargs