remove RecordNode, IdentNode, ApplyNode and ScopeNode

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1710 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

1 files changed, 0 insertions, 42 deletions

diff --git a/backendC/CleanCompilerSources/dbprint.c b/backendC/CleanCompilerSources/dbprint.c
index 960563d..7d405e2 100644
--- a/backendC/CleanCompilerSources/dbprint.c
+++ b/backendC/CleanCompilerSources/dbprint.c
@@ -351,32 +351,6 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file)
 			FPrintF (file, " i_%lx<%d>",(long) node_id,node_id->nid_refcount);
 		break;
 	}
-	case RecordNode:
-		if (brackets && node -> node_arguments)
-			FPutC ('(', file);
-		PrintSymbol (node->node_symbol, file);
-		if (node -> node_arguments){
-			FPutC (' ', file);
-			PrintArguments (node -> node_arguments,' ', True,n_leading_spaces,file);
-			if (brackets)
-				FPutC (')', file);
-		}
-		break;
-	case IdentNode:
-		if (brackets && node -> node_arguments)
-			FPutC ('(', file);
-
-		FPutC ('\"',file);
-		FPutS (node->node_ident->ident_name, file);
-		FPutC ('\"',file);
-
-		if (node -> node_arguments){
-			FPutC (' ', file);
-			PrintArguments (node -> node_arguments,' ', True,n_leading_spaces,file);
-			if (brackets)
-				FPutC (')', file);
-		}
-		break;
 	case UpdateNode:
 	{	Args field = node -> node_arguments;
 
@@ -402,14 +376,6 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file)
 		PrintArgument (node->node_arguments,False,n_leading_spaces,file);
 		break;
 	}
-	case ApplyNode:
-	{
-		FPutS ("Apply ",file);
-		PrintRuleNode (node->node_node, False,n_leading_spaces,file);
-		FPutC (' ',file);
-		PrintArgument (node->node_arguments,False,n_leading_spaces,file);
-		break;
-	}
 	case SwitchNode:
 		FPutS ("Switch ",file);
 		DPrintNodeId (node->node_node_id,file);
@@ -554,14 +520,6 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file)
 		FPutS (") = ",file);
 		PrintRuleNode (node->node_node,True,n_leading_spaces,file);
 		break;
-	case ScopeNode:
-		FPutS ("ScopeNode ",file);
-		PrintRuleNode (node->node_node,True,n_leading_spaces,file);
-		if (node->node_arguments!=NULL){
-			FPutS (" ScopeNodeArguments ",file);
-			PrintArguments (node->node_arguments,' ',True,n_leading_spaces,file);
-		}
-		break;
 	case FillUniqueNode:
 		FPutS ("FillUniqueNode ",file);
 		DPrintNodeId (node->node_node->node_arguments->arg_node->node_node_id,file);