aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2006-11-16 12:35:41 +0000
committerjohnvg2006-11-16 12:35:41 +0000
commita9ae35a7dd38f38af3e6be9342aff0129de3f5b5 (patch)
tree86a13d68c0a9eb6b372b767c32d7ff09ad5ca00d /backendC/CleanCompilerSources/instructions.c
parentadd make script for 64 bit linux (diff)
rename ea entry for record to eu, to prevent conflict with ea
entry for constructor with the same name as the record git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1626 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index 5987c76..b1a07f1 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -91,6 +91,7 @@ static void ConvertOptionsToString (char *optstring)
#define L_PREFIX "l"
#define EA_PREFIX "ea"
+#define EU_PREFIX "eu"
#define S_PREFIX "s"
#define R_PREFIX "r"
@@ -2564,6 +2565,14 @@ void GenExportEaEntry (SymbDef sdef)
}
}
+void GenExportEuEntry (SymbDef sdef)
+{
+ if (sdef->sdef_calledwithrootnode){
+ put_directive_ (Dexport);
+ FPrintF (OutFile,"e_%s_" EU_PREFIX "%s",CurrentModule,sdef->sdef_ident->ident_name);
+ }
+}
+
void GenDAStackLayout (int asize)
{
if (DoStackLayout){