Commit af3ab750 authored by John van Groningen's avatar John van Groningen
Browse files

add BEStartFunction

parent 6af73849
......@@ -2504,6 +2504,12 @@ DeclareFunctionC (char *name, int arity, int functionIndex, unsigned int ancesto
}
} /* DeclareFunctionC */
void BEStartFunction (int functionIndex)
{
gBEState.be_icl.beicl_module->im_start
= gBEState.be_modules[main_dcl_module_n].bem_functions[functionIndex].symb_def;
}
void
BEDeclareFunction (CleanString name, int arity, int functionIndex, int ancestor)
{
......
......@@ -473,6 +473,9 @@ Clean (BEDeclareType:: Int Int String BackEnd -> BackEnd)
void BEDeclareFunction (CleanString name, int arity, int functionIndex, int ancestor);
Clean (BEDeclareFunction :: String Int Int Int BackEnd -> BackEnd)
void BEStartFunction (int functionIndex);
Clean (BEDeclareFunction :: Int BackEnd -> BackEnd)
BERuleAltP BECodeAlt (int line, BENodeDefP lhsDefs, BENodeP lhs, BECodeBlockP codeBlock);
Clean (BECodeAlt:: Int BENodeDefP BENodeP BECodeBlockP BackEnd -> (BERuleAltP, BackEnd))
......
......@@ -96,6 +96,7 @@
/EXPORT: BETypeVar
/EXPORT: BEDeclareType
/EXPORT: BEDeclareFunction
/EXPORT: BEStartFunction
/EXPORT: BECodeAlt
/EXPORT: BEString
/EXPORT: BEStrings
......
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