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 /frontend | |
| 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 'frontend')
| -rw-r--r-- | frontend/syntax.dcl | 6 | ||||
| -rw-r--r-- | frontend/syntax.icl | 7 |
2 files changed, 0 insertions, 13 deletions
diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl index 9d53b45..01be501 100644 --- a/frontend/syntax.dcl +++ b/frontend/syntax.dcl @@ -546,14 +546,8 @@ FI_IsUnboxedListOfRecordsConsOrNil :== 8 /* macro expansion transforms a CheckedBody into a TransformedBody */ | TransformedBody !TransformedBody | Expanding ![FreeVar] // the parameters of the newly generated function - | BackendBody ![BackendBody] | GeneratedBody // the body will be generated automatically - for generics | NoBody - -:: BackendBody = - { bb_args :: ![FunctionPattern] - , bb_rhs :: !Expression - } :: FunDef = { fun_ident :: !Ident diff --git a/frontend/syntax.icl b/frontend/syntax.icl index a32a191..00dc5aa 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -525,10 +525,6 @@ where instance <<< ParsedBody where (<<<) file {pb_args,pb_rhs} = file <<< pb_args <<< " = " <<< pb_rhs - -instance <<< BackendBody -where - (<<<) file {bb_args,bb_rhs} = file <<< bb_args <<< " = " <<< bb_rhs instance <<< FunctionPattern where @@ -570,8 +566,6 @@ where // <<< '[' <<< fi_free_vars <<< "] [" <<< fi_local_vars <<< ']' <<< tb_args <<< '[' <<< fi_calls <<< ']' <<< "\n\t= " <<< tb_rhs <<< '\n' // <<< '.' <<< fi_def_level <<< ' ' <<< '[' <<< fi_free_vars <<< ']' <<< tb_args <<< " = " <<< tb_rhs - (<<<) file {fun_ident,fun_body=BackendBody body,fun_type=Yes type} = file // <<< type <<< '\n' - <<< fun_ident <<< '.' <<< body <<< '\n' (<<<) file {fun_ident,fun_body=NoBody,fun_type=Yes type} = file // <<< type <<< '\n' <<< fun_ident <<< '.' <<< "Array function\n" @@ -582,7 +576,6 @@ where (<<<) file (ParsedBody bodies) = file <<< bodies (<<<) file (CheckedBody {cb_args,cb_rhs}) = file <<< "C " <<< cb_args <<< " = " <<< cb_rhs <<< '\n' (<<<) file (TransformedBody {tb_args,tb_rhs}) = file <<< "T " <<< tb_args <<< " = " <<< tb_rhs <<< '\n' - (<<<) file (BackendBody body) = file <<< body <<< '\n' (<<<) file (Expanding vars) = file <<< "E " <<< vars (<<<) file GeneratedBody = file <<< "Generic function\n" (<<<) file NoBody = file <<< "Array function\n" |