diff options
| author | johnvg | 2005-10-06 10:17:21 +0000 |
|---|---|---|
| committer | johnvg | 2005-10-06 10:17:21 +0000 |
| commit | 7a7c3eef98f0b68ea8795adb8cbe8e1d04e0c000 (patch) | |
| tree | f27d3467b4e16203035807839dc6fe94cc9f58c3 | |
| parent | add alternative for TArrow in bindInstances to prevent compiler crash for: (diff) | |
generate .a directive for constructors
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1546 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/codegen1.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index 26977f2..3d61a09 100644 --- a/backendC/CleanCompilerSources/codegen1.c +++ b/backendC/CleanCompilerSources/codegen1.c @@ -838,7 +838,12 @@ static void GenerateConstructorDescriptorAndFunction (ConstructorList constructo if (DoTimeProfiling) GenPL(); - + +#ifdef NEW_APPLY + if (arity>=2) + GenApplyEntryDirective (arity,&ealab); +#endif + GenOAStackLayout (2); GenLabelDefinition (&CurrentAltLabel); |