Commit 3053c692 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl

move SymbDef and module Id definitions from checker_2.c to statesgen.c, sa.c or backend.c

parent 870b8762
......@@ -16,6 +16,7 @@
# include "checker.h" /* scc_dependency_list, ClearOpenDefinitionModules, AddOpenDefinitionModule */
# include "comsupport.h" /* CurrentModule */
# include "buildtree.h" /* TupleSymbol, ApplySymbol */
# include "sa.h" /* StdMiscId,abort_symb_def,undef_symb_def */
# include "backendsupport.h"
# define Clean(ignore)
......@@ -3277,6 +3278,9 @@ static void init_unboxed_list_symbols (void)
}
#endif
char *PreludeId;
SymbDef seq_symb_def;
BackEnd
BEInit (int argc)
{
......
extern char *StdBoolId;
extern SymbDef AndSymbDef,OrSymbDef,abort_symb_def,undef_symb_def;
#if SA_RECOGNIZES_ABORT_AND_UNDEF
extern char *StdMiscId;
#endif
extern char *PreludeId;
extern SymbDef seq_symb_def;
extern SymbDef scc_dependency_list;
SymbDef MakeNewSymbolDefinition (char *module, char *name, int arity, SDefKind kind);
char *ConvertSymbolToString (Symbol symb);
void InitChecker (void);
void GenDependencyList (void);
NodeDefs NewNodeDef (NodeId nid, Node node);
......
......@@ -36,24 +36,13 @@ void GenDependencyList (void)
);
}
char *StdBoolId;
SymbDef AndSymbDef,OrSymbDef;
#if SA_RECOGNIZES_ABORT_AND_UNDEF
char *StdMiscId;
SymbDef abort_symb_def,undef_symb_def;
#endif
char *PreludeId;
SymbDef seq_symb_def;
SymbDef scc_dependency_list;
SymbDef MakeNewSymbolDefinition (char *module, char *name, int arity, SDefKind kind)
{
SymbDef def;
int i,string_length;
char *s,*new_string;
char *new_string;
string_length = strlen (name);
new_string = CompAlloc (string_length+1);
......
......@@ -2173,6 +2173,11 @@ static void InitAlternative (RuleAltS *alt)
}
}
#if SA_RECOGNIZES_ABORT_AND_UNDEF
char *StdMiscId;
SymbDef abort_symb_def,undef_symb_def;
#endif
/* 'StrictUpdates' defines whether a record update is strict */
#define StrictUpdates
......
......@@ -10,3 +10,7 @@ extern int StrictnessAnalysisConvertRules (ImpRuleS *rules);
extern void StrictnessAnalysisForRule (SymbDef sdef);
extern void free_unused_sa_blocks (void);
#if SA_RECOGNIZES_ABORT_AND_UNDEF
extern char *StdMiscId;
extern SymbDef abort_symb_def,undef_symb_def;
#endif
......@@ -2048,6 +2048,9 @@ static Bool OptimizedMemberCallInAStrictContext (Node node,int arg_n,struct stat
return parallel;
}
char *StdBoolId;
SymbDef AndSymbDef,OrSymbDef;
static Bool NodeInAStrictContext (Node node,StateS demanded_state,int local_scope)
{
Bool parallel;
......
......@@ -36,3 +36,5 @@ extern int optimise_strict_tuple_result_functions;
extern PolyList UserDefinedArrayFunctions;
extern SymbDefP special_types[];
extern char *StdBoolId;
extern SymbDef AndSymbDef,OrSymbDef;
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment