diff options
| author | ronny | 2001-07-12 12:31:27 +0000 |
|---|---|---|
| committer | ronny | 2001-07-12 12:31:27 +0000 |
| commit | 5cc1b032fb9249875559d81fccaa5bc4a142e3da (patch) | |
| tree | 79936d497fd18bce075824e2827a4f2d0f0bd1fa | |
| parent | This commit was generated by cvs2svn to compensate for changes in r534, (diff) | |
removed MW comments
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@539 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backend/backendconvert.icl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 4cccf9b..7ef7ff4 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1411,7 +1411,6 @@ defineLhsNodeDef freeVar pattern nodeDefs varHeap (beNodeDef variable_sequence_number (convertPattern pattern varHeap)) (return nodeDefs) be -// MW0 collectNodeDefs :: Ident Expression -> [Bind Expression FreeVar] collectNodeDefs :: Ident Expression -> [LetBind] collectNodeDefs aliasDummyId (Let {let_strict_binds, let_lazy_binds}) = filterStrictAlias let_strict_binds let_lazy_binds @@ -1437,21 +1436,17 @@ convertRhsNodeDefs :: Ident Expression Int VarHeap -> BEMonad BENodeDefP convertRhsNodeDefs aliasDummyId expr main_dcl_module_n varHeap = convertNodeDefs (collectNodeDefs aliasDummyId expr) varHeap where -// MW0 convertNodeDefs :: [Bind Expression FreeVar] VarHeap -> BEMonad BENodeDefP convertNodeDefs :: [LetBind] VarHeap -> BEMonad BENodeDefP convertNodeDefs binds varHeap = sfoldr (beNodeDefs o flip convertNodeDef varHeap) beNoNodeDefs binds where -// MW0 convertNodeDef :: !(Bind Expression FreeVar) VarHeap -> BEMonad BENodeDefP convertNodeDef :: !LetBind VarHeap -> BEMonad BENodeDefP -// MW0 convertNodeDef {bind_src=expr, bind_dst=freeVar} varHeap convertNodeDef {lb_src=expr, lb_dst=freeVar} varHeap = \be0 -> let (variable_sequence_number,be) = getVariableSequenceNumber freeVar.fv_info_ptr varHeap be0 in beNodeDef variable_sequence_number (convertExpr expr main_dcl_module_n varHeap) be collectStrictNodeIds :: Expression -> [FreeVar] collectStrictNodeIds (Let {let_strict_binds, let_expr}) -// MW0 = [bind_dst \\ {bind_dst} <- let_strict_binds] = [lb_dst \\ {lb_dst} <- let_strict_binds] collectStrictNodeIds _ = [] |