From e659acb706f7f097be7882d2feaecba2b9e91544 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Fri, 6 Feb 2009 12:23:25 +0100 Subject: [PATCH] Add a BindMap argument to flattenExpr. --- Flatten.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Flatten.hs b/Flatten.hs index ee70446..0ee9595 100644 --- a/Flatten.hs +++ b/Flatten.hs @@ -108,15 +108,17 @@ flattenFunction hsfunc bind@(NonRec var expr) = FlatFunction args res apps conds where init_state = ([], [], 0) - (fres, end_state) = State.runState (flattenExpr expr) init_state + (fres, end_state) = State.runState (flattenExpr [] expr) init_state (args, res) = fres (apps, conds, _) = end_state flattenExpr :: - CoreExpr + BindMap + -> CoreExpr -> FlattenState ([SignalDefMap], SignalUseMap) -flattenExpr _ = do + +flattenExpr _ _ = do return ([], Tuple []) -- 2.30.2