diff options
| author | ronny | 2002-08-27 08:32:11 +0000 |
|---|---|---|
| committer | ronny | 2002-08-27 08:32:11 +0000 |
| commit | e72dcd192141f9eaf8942aebf6e88a9611a6b853 (patch) | |
| tree | b10c80d6073b35b8ff65b6a9c65e5fec77020dd1 /backend/backendconvert.icl | |
| parent | remove record fields: ui_convert_module_n and ui_conversion_table (diff) | |
Added FailExpr node
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1193 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend/backendconvert.icl')
| -rw-r--r-- | backend/backendconvert.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index a005f04..a196f12 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1696,6 +1696,8 @@ convertRootExpr aliasDummyId (Case kees=:{case_expr, case_guards}) main_dcl_modu -> abort "backendconvert:defaultCase, case without id" // otherwise = DefaultCaseNone +convertRootExpr _ (FailExpr fail_ident) _ + = beNormalNode (beLiteralSymbol BEFailSymb fail_ident.id_name) beNoArgs convertRootExpr _ expr main_dcl_module_n = convertExpr expr main_dcl_module_n |