diff options
Diffstat (limited to 'backendC/CleanCompilerSources')
| -rw-r--r-- | backendC/CleanCompilerSources/backend.c | 6 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/backend.h | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/backend.c b/backendC/CleanCompilerSources/backend.c index 13d21f6..63b0da5 100644 --- a/backendC/CleanCompilerSources/backend.c +++ b/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) { diff --git a/backendC/CleanCompilerSources/backend.h b/backendC/CleanCompilerSources/backend.h index dc344c7..a778659 100644 --- a/backendC/CleanCompilerSources/backend.h +++ b/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)) |