Commit c878d814 authored by John van Groningen's avatar John van Groningen
Browse files

remove unused code

parent 2af4f677
......@@ -16,12 +16,8 @@
#include "sizes.h"
#include "checker.h"
#include "checksupport.h"
#include "tctypes.t"
#include "typechecker.h"
#include "typechecker2.h"
#include "typeconv.h"
#include "tcsupport.h"
#include "overloading.h"
#include "scanner.h"
#include "comparser.h"
#include "buildtree.h"
......@@ -58,26 +54,8 @@ BITVECT DetermineConsVarsOfTypeCons (SymbDef typecons, ConsVarList * cons_vars)
} /* DetermineConsVarsOfTypeCons */
TypeCell SkipIndirectionChain (TypeCell type)
{
MemoryCheck (type);
for (; type -> tc_kind == Indirection; type = type -> contents_indirect)
MemoryCheck (type);
return type;
} /* SkipIndirectionChain */
#define SubstitutedType(typeargs) ((typeargs)[-1])
TypeCell SkipTypeSynIndirection (TypeCell type)
{
if (type -> tc_kind == ConstructorType && type -> tc_expanded)
{ type = SubstitutedType (type -> contents_tc_args);
SkipIndirections (type);
}
return type;
} /* SkipTypeSynIndirection */
void PrintNodeSymbol (Node node, int arg_nr, File file)
{
Symbol rootsymb;
......
Supports Markdown
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