diff options
| author | johnvg | 2006-11-16 12:35:41 +0000 |
|---|---|---|
| committer | johnvg | 2006-11-16 12:35:41 +0000 |
| commit | a9ae35a7dd38f38af3e6be9342aff0129de3f5b5 (patch) | |
| tree | 86a13d68c0a9eb6b372b767c32d7ff09ad5ca00d /backendC/CleanCompilerSources/instructions.c | |
| parent | add 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.c | 9 |
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){ |