diff options
| author | johnvg | 2003-12-11 14:59:33 +0000 |
|---|---|---|
| committer | johnvg | 2003-12-11 14:59:33 +0000 |
| commit | 767bde57d84af82f3e34e57aff2e9901b3c2425b (patch) | |
| tree | 2c0430fd707d4259ada40306d64c476c8a5eff4c /backend/backendconvert.icl | |
| parent | bug fix: use a new ptr in expanded dynamic (diff) | |
remove BackendBody
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1427 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backendconvert.icl')
| -rw-r--r-- | backend/backendconvert.icl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 41ac150..f3efdd6 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -29,10 +29,6 @@ sfoldr op r l s foldr [] = r foldr [a:x] = op a (foldr x) -// fix spelling, this will be removed when cases are implemented in the back end -:: BackEndBody :== BackendBody -BackEndBody x :== BackendBody x - :: BEMonad a :== *BackEndState -> *(!a,!*BackEndState) :: BackEnder :== *BackEndState -> *BackEndState @@ -617,12 +613,6 @@ instance declareVars TransformedBody where = declareVars tb_args dvInput o` declareVars tb_rhs dvInput -instance declareVars BackendBody where - declareVars :: BackendBody !DeclVarsInput -> BackEnder - declareVars {bb_args, bb_rhs} dvInput - = declareVars bb_args dvInput - o` declareVars bb_rhs dvInput - instance declareVars Case where declareVars {case_expr, case_guards, case_default} dvInput = declareVars case_guards dvInput @@ -1440,17 +1430,6 @@ isCodeBlock expr = False convertFunctionBody :: Int Int Ident FunctionBody Int -> BEMonad BERuleAltP -convertFunctionBody functionIndex lineNumber aliasDummyId (BackEndBody bodies) main_dcl_module_n - = convertBackEndBodies functionIndex lineNumber bodies main_dcl_module_n -where - convertBackEndBodies :: Int Int [BackEndBody] Int -> BEMonad BERuleAltP - convertBackEndBodies functionIndex lineNumber bodies main_dcl_module_n - = sfoldr (beRuleAlts o convertBackEndBody functionIndex lineNumber aliasDummyId main_dcl_module_n) beNoRuleAlts bodies - where - convertBackEndBody :: Int Int Ident Int BackEndBody -> BEMonad BERuleAltP - convertBackEndBody functionIndex lineNumber aliasDummyId main_dcl_module_n body - = declareVars body aliasDummyId - o` convertBody False functionIndex lineNumber aliasDummyId body.bb_args body.bb_rhs main_dcl_module_n convertFunctionBody functionIndex lineNumber aliasDummyId (TransformedBody body) main_dcl_module_n = convertTransformedBody functionIndex lineNumber aliasDummyId body main_dcl_module_n |