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
cf9af999
Commit
cf9af999
authored
May 25, 2018
by
John van Groningen
Browse files
remove unused definitiona in checker.h
parent
83c183e4
Changes
3
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/checker.h
View file @
cf9af999
#define BIT(n) ((BITVECT) 1 << n)
#define ALLBITSCLEAR ((BITVECT) 0)
#define ALLBITSSET (~ALLBITSCLEAR)
#define BITTEST(v,n) (((BITVECT) v >> n) & ((BITVECT) 1))
#define TCONS_BIT_NR 31
extern
Ident
AnnotatedId
,
ListId
,
TupleId
,
ConsId
,
NilId
,
ApplyId
,
SelectId
,
IfId
,
FailId
,
StdBoolId
,
AndId
,
OrId
,
StdArrayId
,
ArrayFunctionIds
[],
ArrayId
,
StrictArrayId
,
UnboxedArrayId
,
ArrayClassId
;
#if STRICT_LISTS
...
...
@@ -18,27 +12,16 @@ extern Ident StdMiscId,abort_id,undef_id;
#endif
extern
Ident
PreludeId
,
seq_id
,
system_seq_id
;
extern
Symbol
StartSymbol
,
UnboxedArrayClassSymbols
[],
UnboxedArrayFunctionSymbols
[];
extern
SymbDef
scc_dependency_list
,
ArrayFunctionDefs
[],
StdArrayAbortDef
;
extern
char
*
CurrentDefModule
;
extern
int
rule_count
;
extern
SymbDef
*
scc_dependency_list_p
;
extern
Symbol
StartSymbol
;
extern
SymbDef
scc_dependency_list
;
SymbDef
BuildNewSymbolDefinition
(
Ident
sid
,
int
arity
,
SDefKind
kind
,
unsigned
line_nr
);
SymbDef
MakeNewSymbolDefinition
(
char
*
module
,
Ident
name
,
int
arity
,
SDefKind
kind
);
SymbDef
NewSymbolDefinition
(
Symbol
symb
,
int
arity
,
Bool
maybedefined
,
unsigned
line_nr
);
char
*
ConvertSymbolToString
(
Symbol
symb
);
ImpMod
ParseAndCheckImplementationModule
(
char
*
name
);
void
ReadInlineCode
(
void
);
void
InitChecker
(
void
);
void
GenDependencyList
(
void
);
NodeDefs
NewNodeDef
(
NodeId
nid
,
Node
node
);
void
GenerateApplyNodesForFullyCurriedApplication
(
Node
node
,
Node
function_node
);
void
DetermineRuleComponent
(
ImpRules
rule
,
SymbDef
sdef
);
NodeP
DetermineGraphRulesComponent
(
NodeP
node
,
unsigned
*
ancest
);
NodeP
RemoveAliasNodeIdInDetermineComponent
(
NodeP
node
);
#ifdef CLEAN2
void
ClearOpenDefinitionModules
(
void
);
...
...
backendC/CleanCompilerSources/checker_2.c
View file @
cf9af999
...
...
@@ -114,7 +114,6 @@ Symbol StartSymbol;
SymbDef
ArrayFunctionDefs
[
NoArrayFun
],
StdArrayAbortDef
;
SymbDef
scc_dependency_list
;
SymbDef
*
scc_dependency_list_p
;
SymbDef
MakeNewSymbolDefinition
(
char
*
module
,
Ident
name
,
int
arity
,
SDefKind
kind
)
{
...
...
backendC/CleanCompilerSources/instructions.c
View file @
cf9af999
...
...
@@ -1455,8 +1455,6 @@ static void GenArrayReplace (Label elemdesc, int asize, int bsize)
GenLabel
(
elemdesc
);
FPrintF
(
OutFile
,
" %d %d"
,
asize
,
bsize
);
}
extern
Symbol
UnboxedArrayFunctionSymbols
[];
static
Label
ApplyLabel
;
static
StateS
ApplyState
;
...
...
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