remove unused functions NewTypeNode and NewIntNode, remove includes of empty...

remove unused functions NewTypeNode and NewIntNode, remove includes of empty header files comparser.h and typeconv.h

backendC/CleanCompilerSources/buildtree.c

@@ -124,32 +124,6 @@ NewNodeIdNode (NodeIdP node_id)
 	return (node);
 } /* NewNodeIdNode */
 
-TypeNode
-NewTypeNode (Annotation annot, AttributeKind attr, SymbolP symb, TypeArgs args, int arity)
-{
-	TypeNode node;
-	
-	node = CompAllocType (struct type_node);
-
-	node->type_node_annotation	= annot;
-	node->type_node_attribute	= attr;
-	node->type_node_is_var		= False;
-	node->type_node_arguments	= args;
-	node->type_node_symbol		= symb;
-	node->type_node_arity		= arity;
-
-	if (arity > MaxNodeArity)
-		StaticErrorMessage_s_Ss ("<type node>", symb, " Too many arguments (> 32)");
-#if 0
-	node->type_node_state.state_arity		= 1;
-	node->type_node_state.state_kind		= OnA;
-	node->type_node_state.state_object		= UnknownObj;
-	node->type_node_state.state_type		= SimpleState;
-	node->type_node_state.state_mark		= 0;
-#endif
-	return (node);
-} /* NewTypeNode */
-
 NodeP
 NewSelectorNode (SymbolP symb, Args args, int arity)
 {
@@ -274,28 +248,6 @@ NewSymbol (SymbKind symbolKind)
 	return (symbol);
 } /* NewSymbol */	
 
-NodeP
-NewIntNode (int value)
-{
-	char	buffer [10], *valueString;
-	SymbolP	symbol;
-	NodeP	node;
-	int		length;
-
-	sprintf (buffer, "%d", value);
-	length	= strlen (buffer);
-
-	valueString	= (char *) CompAlloc (length+1);
-	strcpy (valueString, buffer);
-
-	symbol	= NewSymbol (int_denot);
-	symbol->symb_int = valueString;	
-
-	node	= NewNormalNode (symbol, NIL, 0);
-
-	return (node);
-} /* NewIntNode */
-
 SymbolP
 NewTupleTypeSymbol (int arity)
 {

backendC/CleanCompilerSources/buildtree.h

@@ -14,13 +14,10 @@ extern NodeP NewNodeByKind (NodeKind nodeKind, SymbolP symb, Args args, int arit
 # define	NewFalse()			NewNormalNode (FalseSymbol, NIL, 0)
 # define	NewTrue()			NewNormalNode (TrueSymbol, NIL, 0)
 
-extern	NodeP NewIntNode (int value);
-
 extern NodeIdP NewNodeId (void);
 extern StrictNodeIdP NewStrictNodeId (NodeIdP node_id, StrictNodeIdP next);
 extern NodeDefs NewNodeDefinition (NodeIdP nid, NodeP node);
 extern SymbolP NewSymbol (SymbKind symbolKind);
-extern TypeNode NewTypeNode (Annotation annot, AttributeKind attr, SymbolP symb, TypeArgs args, int arity);
 extern TypeArgs NewTypeArgument (TypeNode pattern);
 
 extern NodeP NewSelectNode (SymbolP selectSymbol, NodeIdP selectId, int arity);

backendC/CleanCompilerSources/checker_2.c

-/*
-	Authors:	Sjaak Smetsers & John van Groningen
-	Version:	1.2
-*/
 
 #include "compiledefines.h"
 #include "types.t"
@@ -10,7 +6,6 @@
 #include "comsupport.h"
 #include "sizes.h"
 #include "buildtree.h"
-#include "comparser.h"
 #include "statesgen.h"
 #include "codegen_types.h"
 #include "codegen1.h"

backendC/CleanCompilerSources/checksupport.h

 
-#define cTypeDelimiter	';'	/* also in optimisations.c */
-#define cTypeFirstArg	'<'
-#define cTypeLastArg	'>'
-
 extern char *ConvertSymbolKindToString (SymbKind skind);
 
 extern void PrintSymbolOfIdent (char *name,unsigned line_nr,File file);

backendC/CleanCompilerSources/codegen.c

@@ -15,7 +15,6 @@
 #include "settings.h"
 #include "sa.h"
 #include "statesgen.h"
-#include "typeconv.h"
 #include "codegen_types.h"
 #include "codegen1.h"
 #include "codegen2.h"

backendC/CleanCompilerSources/comsupport.c

@@ -23,7 +23,6 @@
 #include "syntaxtr.t"
 #include "comsupport.h"
 #include "buildtree.h"
-#include "comparser.h"
 #include "checker.h"
 #include "statesgen.h"
 #include "codegen_types.h"

backendC/CleanCompilerSources/sa.c

@@ -44,7 +44,6 @@
 #ifdef _DB_TEST_
 # include "saprint.h"
 #endif
-#include "typeconv.h"
 #include "statesgen.h"
 #ifdef TRANSFORM_PATTERNS_BEFORE_STRICTNESS_ANALYSIS
 #include "codegen_types.h"