Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
c878d814
Commit
c878d814
authored
Feb 20, 2004
by
John van Groningen
Browse files
remove unused code
parent
2af4f677
Changes
1
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/tcsupport_2.c
View file @
c878d814
...
...
@@ -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
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment