Commit e787e618 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl

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
parent 624ec5a8
......@@ -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)
{
......
......@@ -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);
......
/*
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"
......
#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);
......@@ -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"
......
......@@ -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"
......
......@@ -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"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment