From 767bde57d84af82f3e34e57aff2e9901b3c2425b Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 11 Dec 2003 14:59:33 +0000
Subject: remove BackendBody

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1427 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/syntax.dcl | 6 ------
 frontend/syntax.icl | 7 -------
 2 files changed, 13 deletions(-)

(limited to 'frontend')

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