diff options
| -rw-r--r-- | backendC/CleanCompilerSources/tcsupport_2.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/backendC/CleanCompilerSources/tcsupport_2.c b/backendC/CleanCompilerSources/tcsupport_2.c index 6c514e9..713c5b9 100644 --- a/backendC/CleanCompilerSources/tcsupport_2.c +++ b/backendC/CleanCompilerSources/tcsupport_2.c @@ -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; |