From: Matthijs Kooijman Date: Fri, 5 Mar 2010 16:29:02 +0000 (+0100) Subject: Remove getBinding and use getGlobalBind instead. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=729463aa72a83323564e39a608a68d02412af2c1;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git Remove getBinding and use getGlobalBind instead. --- diff --git "a/c\316\273ash/CLasH/Normalize.hs" "b/c\316\273ash/CLasH/Normalize.hs" index 538b60d..5690589 100644 --- "a/c\316\273ash/CLasH/Normalize.hs" +++ "b/c\316\273ash/CLasH/Normalize.hs" @@ -738,7 +738,7 @@ getNormalized bndr = Utils.makeCached bndr tsNormalized $ -- a different error if this happens down in the recursion. error $ "\nNormalize.normalizeBind: Function " ++ show bndr ++ " is polymorphic, can't normalize" else do - expr <- getBinding bndr + Just expr <- getGlobalBind bndr normalizeExpr (show bndr) expr -- | Normalize an expression @@ -755,17 +755,6 @@ normalizeExpr what expr = do trace ("\n" ++ what ++ " after normalization:\n\n" ++ showSDoc ( ppr expr')) $ return () return expr' --- | Get the value that is bound to the given binder at top level. Fails when --- there is no such binding. -getBinding :: - CoreBndr -- ^ The binder to get the expression for - -> TranslatorSession CoreExpr -- ^ The value bound to the binder - -getBinding bndr = Utils.makeCached bndr tsBindings $ - -- If the binding isn't in the "cache" (bindings map), then we can't create - -- it out of thin air, so return an error. - error $ "Normalize.getBinding: Unknown function requested: " ++ show bndr - -- | Split a normalized expression into the argument binders, top level -- bindings and the result binder. splitNormalized ::