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
53ff91df
Commit
53ff91df
authored
Apr 10, 2018
by
John van Groningen
Browse files
remove some unused fields and definitions
parent
74ff69b0
Changes
3
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/buildtree.c
View file @
53ff91df
...
...
@@ -26,8 +26,6 @@ SymbolP
UnboxedTailStrictListSymbol
,
UnboxedTailStrictConsSymbol
,
UnboxedTailStrictNilSymbol
;
#endif
char
BasicTypeIds
[]
=
BASIC_TYPE_IDS_STRING
;
IdentP
gArrayIdents
[
NrOfArrayInstances
];
RuleTypes
...
...
@@ -139,11 +137,7 @@ NewTypeVar (IdentP nid)
newnid
=
CompAllocType
(
struct
type_var
);
newnid
->
tv_ident
=
nid
;
newnid
->
tv_refcount
=
0
;
newnid
->
tv_argument_nr
=
0
;
newnid
->
tv_type
=
NIL
;
newnid
->
tv_imp_tv
=
NIL
;
newnid
->
tv_overvar_arity
=
0
;
newnid
->
tv_mark
=
0
;
return
(
newnid
);
...
...
@@ -157,7 +151,6 @@ NewUniVar (IdentP id)
new_uni_var
=
CompAllocType
(
struct
uni_var
);
new_uni_var
->
uv_ident
=
id
;
new_uni_var
->
uv_mark
=
0
;
new_uni_var
->
uv_number
=
0
;
new_uni_var
->
uv_next_uni_var
=
NULL
;
new_uni_var
->
uv_equations
=
NULL
;
...
...
backendC/CleanCompilerSources/buildtree.h
View file @
53ff91df
...
...
@@ -75,9 +75,6 @@ extern TypeArgs ConvertFieldsToTypeArguments (FieldList fields);
extern
char
*
CopyString
(
char
*
to
,
char
*
from
,
int
*
rest_size
);
extern
char
BasicTypeIds
[];
#define ConvertBasicTypeToChar(type_symb) BasicTypeIds [(type_symb) -> symb_kind]
extern
IdentP
DetermineNewSymbolId
(
char
*
prefix
,
TypeNode
inst_type
,
TableKind
table
);
extern
IdentP
gArrayIdents
[];
...
...
backendC/CleanCompilerSources/syntax_tree_types.h
View file @
53ff91df
/*
Version 1.2 17 dec1996
*/
#define BASIC_TYPE_IDS_STRING "ibcrfswpvr"
/* indexed by SymbKind */
#define Type_Variable_Mark (1 << Nr_Of_Basic_Types)
typedef
enum
{
NoUniAttr
,
NotUniqueAttr
,
UniqueAttr
,
ExistsAttr
,
UniqueVariable
,
FirstUniVarNumber
...
...
@@ -37,16 +30,8 @@ typedef struct flat_type
AttributeKind
ft_attribute
;
}
*
FlatType
;
STRUCT
(
symbol_list
,
SymbolList
)
{
struct
symbol_def
*
sl_symbol
;
struct
symbol_list
*
sl_next
;
};
STRUCT
(
type_context
,
TypeContext
)
{
SymbolList
tyco_symbols
;
TypeVar
tyco_variable
;
struct
type_context
*
tyco_next
;
};
...
...
@@ -151,11 +136,7 @@ struct type_var
{
Ident
tv_ident
;
unsigned
short
tv_mark
;
int
tv_refcount
;
int
tv_argument_nr
;
int
tv_overvar_arity
;
TypeVar
tv_imp_tv
;
struct
type_cell
*
tv_type
;
};
#define TestMark(n,f,mask) (((n)->f & (mask)) != 0)
...
...
@@ -163,7 +144,6 @@ struct type_var
typedef
struct
uni_var
{
Ident
uv_ident
;
unsigned
short
uv_mark
;
int
uv_number
;
struct
uni_var
*
uv_next_uni_var
;
UniVarEquations
uv_equations
;
...
...
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