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
6ef5b893
Commit
6ef5b893
authored
May 25, 2018
by
John van Groningen
Browse files
remove some unused definitions and code
parent
cf9af999
Changes
4
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/optimisations.c
View file @
6ef5b893
...
...
@@ -3362,7 +3362,7 @@ static Bool IsObservedDef (NodeDefP def_p)
NodeP
node_p
;
node_p
=
def_p
->
def_node
;
if
(
node_p
==
NULL
||
(
node_p
->
node_annotation
==
StrictAnnot
&&
(
def_p
->
def_mark
&
NODE_DEF_OBSERVE_MASK
))
)
if
(
node_p
==
NULL
)
return
True
;
else
return
False
;
...
...
backendC/CleanCompilerSources/statesgen.c
View file @
6ef5b893
...
...
@@ -3214,9 +3214,6 @@ static void AddStrictLhsNodeIdsToNodeDefs (StrictNodeIdP strict_node_id,NodeDefs
new_def
->
def_next
=*
defs_p
;
*
defs_p
=
new_def
;
defs_p
=&
new_def
->
def_next
;
}
else
if
((
strict_node_id
->
snid_mark
&
STRICT_NODE_ID_OBSERVE_MASK
)
&&
node_id
->
nid_refcount
>
0
&&
node_id
->
nid_node
!=
NULL
){
if
(
node_id
->
nid_node_def
!=
NULL
)
node_id
->
nid_node_def
->
def_mark
|=
NODE_DEF_OBSERVE_MASK
;
}
strict_node_id
=
strict_node_id
->
snid_next
;
...
...
backendC/CleanCompilerSources/syntaxtr.t
View file @
6ef5b893
...
...
@@ -9,12 +9,6 @@
typedef
struct
struct_name
*type_name
##P; \
struct
struct_name
typedef
unsigned
long
BITVECT
;
typedef
enum
{
NoAttr
,
DeferAttr
,
CopyAttr
}
GraphAttributeKind
;
typedef
enum
{
TupleState
,
ArrayState
,
RecordState
,
SimpleState
}
StateType
;
...
...
@@ -315,7 +309,6 @@ STRUCT (strict_node_id,StrictNodeId){
};
#define STRICT_NODE_ID_IDENT_MASK 1
#define STRICT_NODE_ID_OBSERVE_MASK 2
#define snid_node_id snid_val.val_node_id
#define snid_ident snid_val.val_ident
...
...
@@ -459,7 +452,6 @@ STRUCT (node_def,NodeDef){
};
#define NODE_DEF_MARKED 8
#define NODE_DEF_OBSERVE_MASK 16
#define NODE_DEF_SELECT_AND_REMOVE_MASK 32
/* for implementing calls to C or the OS */
...
...
backendC/CleanCompilerSources/typechecker2.h
View file @
6ef5b893
/*
Version 1.0 25/04/1994
Author: Sjaak Smetsers
*/
#undef _TYPESBUG_
...
...
@@ -94,19 +87,9 @@ extern TypeCell NewConstructorTypeCell (SymbDef type_cons, int act_arity, Attrib
#define cDontAddExtraArgument False
extern
TypeCell
NewTemporaryConstructorTypeCell
(
TypeConsRepr
type_cons
,
int
act_arity
,
AttributeCellKind
attrkind
,
Bool
extra_argument
);
extern
BITVECT
DetermineUniPropOfTypeCell
(
SymbDef
cons_def
,
TypeCell
cons_cell
);
extern
BITVECT
DetermineConsVarsOfTypeCons
(
SymbDef
typecons
,
ConsVarList
*
cons_vars
);
extern
BITVECT
DetermineUniPropOfTypeCons
(
SymbDef
typecons
);
extern
BITVECT
DetermineUniPropOfTypeConsVar
(
TypeArgClass
arg_class
[],
int
arity
);
extern
void
CreateAttributeEquationsForConstructorVariables
(
SymbDef
cons_def
,
TypeCell
arg_cells
[]);
extern
BITVECT
DetermineUniVarsOfTypeCons
(
SymbDef
typecons
);
extern
AttributeCellKind
DetermineAttrkindOfTemporaryTypeCell
(
TypeCell
type
);
extern
TypeCell
NewAttributedTypeVariable
(
HeapDescr
hd
,
AttrVarKind
av_kind
);
...
...
Write
Preview
Markdown
is supported
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