diff options
| -rw-r--r-- | output/outcoff.c | 100 |
1 files changed, 100 insertions, 0 deletions
diff --git a/output/outcoff.c b/output/outcoff.c index 935b70d..b20f02e 100644 --- a/output/outcoff.c +++ b/output/outcoff.c @@ -535,8 +535,104 @@ static void coff_sect_write (struct Section *sect, sect->len += len; } +typedef struct tagString { + struct tagString *Next; + int len; + char *String; +} STRING; + +#define EXPORT_SECTION_NAME ".drectve" +#define EXPORT_SECTION_FLAGS INFO_FLAGS +/* +#define EXPORT_SECTION_NAME ".text" +#define EXPORT_SECTION_FLAGS TEXT_FLAGS +*/ + +static STRING *Exports = NULL; +static struct Section *directive_sec; +void AddExport(char *name) +{ + STRING *rvp = Exports,*newS; + + newS = (STRING *)nasm_malloc(sizeof(STRING)); + newS->len = strlen(name); + newS->Next = NULL; + newS->String = (char*)nasm_malloc( newS->len + 1 ); + strcpy( newS->String, name ); + if (rvp == NULL) + { + int i; + for (i=0; i<nsects; i++) + + + if (!strcmp( EXPORT_SECTION_NAME, sects[i]->name)) + break; + if( i == nsects ) + directive_sec = sects[coff_make_section( EXPORT_SECTION_NAME, EXPORT_SECTION_FLAGS )]; + else + directive_sec = sects[i]; + Exports = newS; + } + else { + while (rvp->Next) { + if (!strcmp(rvp->String,name)) + return; + rvp = rvp->Next; + } + rvp->Next = newS; + } +} + +void BuildExportTable(void) +{ + STRING *rvp = Exports, *next; + unsigned char buf[256]; + int len; + if (rvp == NULL) return; + while (rvp) { + len = sprintf( (char*)buf, "-export:%s ", rvp->String ); + coff_sect_write( directive_sec, buf, len ); + rvp = rvp->Next; + } + + next = Exports; + while( ( rvp = next ) ) + { + next = rvp->Next; + nasm_free( rvp->String ); + nasm_free( rvp ); + } + Exports = NULL; +} + + static int coff_directives (char *directive, char *value, int pass) { + if (!strcmp(directive, "export")) { + char *q, *name; + + if (pass == 2) + return 1; /* ignore in pass two */ + name = q = value; + while (*q && !isspace(*q)) + q++; + if (isspace(*q)) { + *q++ = '\0'; + while (*q && isspace(*q)) + q++; + } + + if (!*name) { + error(ERR_NONFATAL, "`export' directive requires export name"); + return 1; + } + if(*q) { + error(ERR_NONFATAL, "unrecognised export qualifier `%s'", q); + return 1; + } + AddExport( name ); + return 1; + } return 0; } @@ -545,6 +641,7 @@ static void coff_write (void) long pos, sympos, vsize; int i; + BuildExportTable(); /* fill in the .drectve section with -export's */ /* * Work out how big the file will get. Calculate the start of * the `real' symbols at the same time. @@ -725,6 +822,9 @@ static const char *coff_stdmac[] = { "%define __SECT__ [section .text]", "%macro __NASM_CDecl__ 1", "%endmacro", + "%imacro export 1+.nolist", + "[export %1]", + "%endmacro", NULL }; |