add BEStartFunction

backendC/CleanCompilerSources/backend.c

@@ -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)
 {

backendC/CleanCompilerSources/backend.h

@@ -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))
 

backendC/backend.link

@@ -96,6 +96,7 @@
 /EXPORT: BETypeVar
 /EXPORT: BEDeclareType
 /EXPORT: BEDeclareFunction
+/EXPORT: BEStartFunction
 /EXPORT: BECodeAlt
 /EXPORT: BEString
 /EXPORT: BEStrings