From 7a7c3eef98f0b68ea8795adb8cbe8e1d04e0c000 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 6 Oct 2005 10:17:21 +0000
Subject: generate .a directive for constructors

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1546 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/codegen1.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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);
 				
-- 
cgit v1.2.3