diff options
| author | johnvg | 2004-02-20 16:43:13 +0000 |
|---|---|---|
| committer | johnvg | 2004-02-20 16:43:13 +0000 |
| commit | 328b4952a184248b8fea1a2e29c1a4c2563c170a (patch) | |
| tree | 37811102e91cff8f1deaf46b33ef88eae5f2def8 /backendC/CleanCompilerSources | |
| parent | change module owner (diff) | |
remove unused code
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1450 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources')
| -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; |