From e72dcd192141f9eaf8942aebf6e88a9611a6b853 Mon Sep 17 00:00:00 2001
From: ronny
Date: Tue, 27 Aug 2002 08:32:11 +0000
Subject: Added FailExpr node

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1193 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backend/backendconvert.icl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'backend')

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
 
-- 
cgit v1.2.3