mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2024-11-21 03:14:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

This is Jim's outcoff patch.

Browse Source
This commit is contained in:
H. Peter Anvin 2002-06-07 20:42:22 +00:00
parent 0fde2f574e
commit 059647580c
1 changed files with 100 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
output/outcoff.c
View File

@ -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
};