output/outcoff.c

   1 /* outcoff.c    output routines for the Netwide Assembler to produce
   2  *              COFF object files (for DJGPP and Win32)
   3  *
   4  * The Netwide Assembler is copyright (C) 1996 Simon Tatham and
   5  * Julian Hall. All rights reserved. The software is
   6  * redistributable under the license given in the file "LICENSE"
   7  * distributed in the NASM archive.
   8  */
   9
  10 #include "compiler.h"
  11
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <ctype.h>
  16 #include <time.h>
  17 #include <inttypes.h>
  18
  19 #include "nasm.h"
  20 #include "nasmlib.h"
  21 #include "saa.h"
  22 #include "raa.h"
  23 #include "outform.h"
  24 #include "outlib.h"
  25
  26 #if defined(OF_COFF) || defined(OF_WIN32) || defined(OF_WIN64)
  27
  28 /*
  29  * Notes on COFF:
  30  *
  31  * (0) When I say `standard COFF' below, I mean `COFF as output and
  32  * used by DJGPP'. I assume DJGPP gets it right.
  33  *
  34  * (1) Win32 appears to interpret the term `relative relocation'
  35  * differently from standard COFF. Standard COFF understands a
  36  * relative relocation to mean that during relocation you add the
  37  * address of the symbol you're referencing, and subtract the base
  38  * address of the section you're in. Win32 COFF, by contrast, seems
  39  * to add the address of the symbol and then subtract the address
  40  * of THE BYTE AFTER THE RELOCATED DWORD. Hence the two formats are
  41  * subtly incompatible.
  42  *
  43  * (2) Win32 doesn't bother putting any flags in the header flags
  44  * field (at offset 0x12 into the file).
  45  *
  46  * (3) Win32 uses some extra flags into the section header table:
  47  * it defines flags 0x80000000 (writable), 0x40000000 (readable)
  48  * and 0x20000000 (executable), and uses them in the expected
  49  * combinations. It also defines 0x00100000 through 0x00700000 for
  50  * section alignments of 1 through 64 bytes.
  51  *
  52  * (4) Both standard COFF and Win32 COFF seem to use the DWORD
  53  * field directly after the section name in the section header
  54  * table for something strange: they store what the address of the
  55  * section start point _would_ be, if you laid all the sections end
  56  * to end starting at zero. Dunno why. Microsoft's documentation
  57  * lists this field as "Virtual Size of Section", which doesn't
  58  * seem to fit at all. In fact, Win32 even includes non-linked
  59  * sections such as .drectve in this calculation.
  60  *
  61  * Newer versions of MASM seem to have changed this to be zero, and
  62  * that apparently matches the COFF spec, so go with that.
  63  *
  64  * (5) Standard COFF does something very strange to common
  65  * variables: the relocation point for a common variable is as far
  66  * _before_ the variable as its size stretches out _after_ it. So
  67  * we must fix up common variable references. Win32 seems to be
  68  * sensible on this one.
  69  */
  70
  71 /* Flag which version of COFF we are currently outputting. */
  72 static bool win32, win64;
  73
  74 static int32_t imagebase_sect;
  75 #define WRT_IMAGEBASE "..imagebase"
  76
  77 struct Reloc {
  78     struct Reloc *next;
  79     int32_t address;            /* relative to _start_ of section */
  80     int32_t symbol;             /* symbol number */
  81     enum {
  82         SECT_SYMBOLS,
  83         ABS_SYMBOL,
  84         REAL_SYMBOLS
  85     } symbase;                  /* relocation for symbol number :) */
  86     int16_t type;
  87 };
  88
  89 /* possible values for Reloc->type */
  90 #define IMAGE_REL_AMD64_ADDR64          0x0001
  91 #define IMAGE_REL_AMD64_ADDR32          0x0002
  92 #define IMAGE_REL_AMD64_ADDR32NB        0x0003
  93 #define IMAGE_REL_AMD64_REL32           0x0004
  94 #define IMAGE_REL_I386_DIR32            0x0006
  95 #define IMAGE_REL_I386_DIR32NB          0x0007
  96 #define IMAGE_REL_I386_REL32            0x0014
  97
  98 struct Symbol {
  99     char name[9];
 100     int32_t strpos;             /* string table position of name */
 101     int32_t value;              /* address, or COMMON variable size */
 102     int section;                /* section number where it's defined
 103                                  * - in COFF codes, not NASM codes */
 104     bool is_global;              /* is it a global symbol or not? */
 105     int16_t type;               /* 0 - notype, 0x20 - function */
 106     int32_t namlen;             /* full name length */
 107 };
 108
 109 static FILE *coffp;
 110 static efunc error;
 111 static char coff_infile[FILENAME_MAX];
 112
 113 struct Section {
 114     struct SAA *data;
 115     uint32_t len;
 116     int nrelocs;
 117     int32_t index;
 118     struct Reloc *head, **tail;
 119     uint32_t flags;        /* section flags */
 120     char name[9];
 121     int32_t pos, relpos;
 122 };
 123
 124 #define TEXT_FLAGS ((win32 | win64) ? 0x60500020L : 0x20L)
 125 #define DATA_FLAGS ((win32 | win64) ? 0xC0300040L : 0x40L)
 126 #define BSS_FLAGS ((win32 | win64) ? 0xC0300080L : 0x80L)
 127 #define INFO_FLAGS 0x00100A00L
 128 #define RDATA_FLAGS ((win32 | win64) ? 0x40400040L : 0x40L)
 129
 130 #define SECT_DELTA 32
 131 static struct Section **sects;
 132 static int nsects, sectlen;
 133
 134 static struct SAA *syms;
 135 static uint32_t nsyms;
 136
 137 static int32_t def_seg;
 138
 139 static int initsym;
 140
 141 static struct RAA *bsym, *symval;
 142
 143 static struct SAA *strs;
 144 static uint32_t strslen;
 145
 146 static void coff_gen_init(FILE *, efunc);
 147 static void coff_sect_write(struct Section *, const uint8_t *,
 148                             uint32_t);
 149 static void coff_write(void);
 150 static void coff_section_header(char *, int32_t, int32_t, int32_t, int32_t, int, int32_t);
 151 static void coff_write_relocs(struct Section *);
 152 static void coff_write_symbols(void);
 153
 154 static void coff_win32_init(FILE * fp, efunc errfunc,
 155                             ldfunc ldef, evalfunc eval)
 156 {
 157     win32 = true; win64 = false;
 158     (void)ldef;                 /* placate optimizers */
 159     (void)eval;
 160     coff_gen_init(fp, errfunc);
 161 }
 162
 163 static void coff_win64_init(FILE * fp, efunc errfunc,
 164                             ldfunc ldef, evalfunc eval)
 165 {
 166     extern struct ofmt of_win64;
 167
 168     maxbits = 64;
 169     win32 = false; win64 = true;
 170     (void)ldef;                 /* placate optimizers */
 171     (void)eval;
 172     coff_gen_init(fp, errfunc);
 173     imagebase_sect = seg_alloc()+1;
 174     ldef(WRT_IMAGEBASE,imagebase_sect,0,NULL,false,false,&of_win64,errfunc);
 175 }
 176
 177 static void coff_std_init(FILE * fp, efunc errfunc, ldfunc ldef,
 178                           evalfunc eval)
 179 {
 180     win32 = win64 = false;
 181     (void)ldef;                 /* placate optimizers */
 182     (void)eval;
 183     coff_gen_init(fp, errfunc);
 184 }
 185
 186 static void coff_gen_init(FILE * fp, efunc errfunc)
 187 {
 188
 189     coffp = fp;
 190     error = errfunc;
 191     sects = NULL;
 192     nsects = sectlen = 0;
 193     syms = saa_init(sizeof(struct Symbol));
 194     nsyms = 0;
 195     bsym = raa_init();
 196     symval = raa_init();
 197     strs = saa_init(1);
 198     strslen = 0;
 199     def_seg = seg_alloc();
 200 }
 201
 202 static void coff_cleanup(int debuginfo)
 203 {
 204     struct Reloc *r;
 205     int i;
 206
 207     (void)debuginfo;
 208
 209     coff_write();
 210     fclose(coffp);
 211     for (i = 0; i < nsects; i++) {
 212         if (sects[i]->data)
 213             saa_free(sects[i]->data);
 214         while (sects[i]->head) {
 215             r = sects[i]->head;
 216             sects[i]->head = sects[i]->head->next;
 217             nasm_free(r);
 218         }
 219         nasm_free(sects[i]);
 220     }
 221     nasm_free(sects);
 222     saa_free(syms);
 223     raa_free(bsym);
 224     raa_free(symval);
 225     saa_free(strs);
 226 }
 227
 228 static int coff_make_section(char *name, uint32_t flags)
 229 {
 230     struct Section *s;
 231
 232     s = nasm_malloc(sizeof(*s));
 233
 234     if (flags != BSS_FLAGS)
 235         s->data = saa_init(1);
 236     else
 237         s->data = NULL;
 238     s->head = NULL;
 239     s->tail = &s->head;
 240     s->len = 0;
 241     s->nrelocs = 0;
 242     if (!strcmp(name, ".text"))
 243         s->index = def_seg;
 244     else
 245         s->index = seg_alloc();
 246     strncpy(s->name, name, 8);
 247     s->name[8] = '\0';
 248     s->flags = flags;
 249
 250     if (nsects >= sectlen) {
 251         sectlen += SECT_DELTA;
 252         sects = nasm_realloc(sects, sectlen * sizeof(*sects));
 253     }
 254     sects[nsects++] = s;
 255
 256     return nsects - 1;
 257 }
 258
 259 static int32_t coff_section_names(char *name, int pass, int *bits)
 260 {
 261     char *p;
 262     uint32_t flags, align_and = ~0L, align_or = 0L;
 263     int i;
 264
 265     /*
 266      * Set default bits.
 267      */
 268     if (!name) {
 269         if(win64)
 270             *bits = 64;
 271         else
 272             *bits = 32;
 273     }
 274
 275     if (!name)
 276         return def_seg;
 277
 278     p = name;
 279     while (*p && !nasm_isspace(*p))
 280         p++;
 281     if (*p)
 282         *p++ = '\0';
 283     if (strlen(name) > 8) {
 284         error(ERR_WARNING, "COFF section names limited to 8 characters:"
 285               " truncating");
 286         name[8] = '\0';
 287     }
 288     flags = 0;
 289
 290     while (*p && nasm_isspace(*p))
 291         p++;
 292     while (*p) {
 293         char *q = p;
 294         while (*p && !nasm_isspace(*p))
 295             p++;
 296         if (*p)
 297             *p++ = '\0';
 298         while (*p && nasm_isspace(*p))
 299             p++;
 300
 301         if (!nasm_stricmp(q, "code") || !nasm_stricmp(q, "text")) {
 302             flags = TEXT_FLAGS;
 303         } else if (!nasm_stricmp(q, "data")) {
 304             flags = DATA_FLAGS;
 305         } else if (!nasm_stricmp(q, "rdata")) {
 306             if (win32 | win64)
 307                 flags = RDATA_FLAGS;
 308             else {
 309                 flags = DATA_FLAGS;     /* gotta do something */
 310                 error(ERR_NONFATAL, "standard COFF does not support"
 311                       " read-only data sections");
 312             }
 313         } else if (!nasm_stricmp(q, "bss")) {
 314             flags = BSS_FLAGS;
 315         } else if (!nasm_stricmp(q, "info")) {
 316             if (win32 | win64)
 317                 flags = INFO_FLAGS;
 318             else {
 319                 flags = DATA_FLAGS;     /* gotta do something */
 320                 error(ERR_NONFATAL, "standard COFF does not support"
 321                       " informational sections");
 322             }
 323         } else if (!nasm_strnicmp(q, "align=", 6)) {
 324             if (!(win32 | win64))
 325                 error(ERR_NONFATAL, "standard COFF does not support"
 326                       " section alignment specification");
 327             else {
 328                 if (q[6 + strspn(q + 6, "0123456789")])
 329                     error(ERR_NONFATAL,
 330                           "argument to `align' is not numeric");
 331                 else {
 332                     unsigned int align = atoi(q + 6);
 333                     if (!align || ((align - 1) & align))
 334                         error(ERR_NONFATAL, "argument to `align' is not a"
 335                               " power of two");
 336                     else if (align > 64)
 337                         error(ERR_NONFATAL, "Win32 cannot align sections"
 338                               " to better than 64-byte boundaries");
 339                     else {
 340                         align_and = ~0x00F00000L;
 341                         align_or = (align == 1 ? 0x00100000L :
 342                                     align == 2 ? 0x00200000L :
 343                                     align == 4 ? 0x00300000L :
 344                                     align == 8 ? 0x00400000L :
 345                                     align == 16 ? 0x00500000L :
 346                                     align ==
 347                                     32 ? 0x00600000L : 0x00700000L);
 348                     }
 349                 }
 350             }
 351         }
 352     }
 353
 354     for (i = 0; i < nsects; i++)
 355         if (!strcmp(name, sects[i]->name))
 356             break;
 357     if (i == nsects) {
 358         if (!flags) {
 359             if (!strcmp(name, ".data"))
 360                 flags = DATA_FLAGS;
 361             else if (!strcmp(name, ".rdata"))
 362                 flags = RDATA_FLAGS;
 363             else if (!strcmp(name, ".bss"))
 364                 flags = BSS_FLAGS;
 365             else if (win64 && !strcmp(name, ".pdata"))
 366                 flags = 0x40300040; /* rdata align=4 */
 367             else if (win64 && !strcmp(name, ".xdata"))
 368                 flags = 0x40400040; /* rdate align=8 */
 369             else
 370                 flags = TEXT_FLAGS;
 371         }
 372         i = coff_make_section(name, flags);
 373         if (flags)
 374             sects[i]->flags = flags;
 375         sects[i]->flags &= align_and;
 376         sects[i]->flags |= align_or;
 377     } else if (pass == 1) {
 378         if (flags)
 379             error(ERR_WARNING, "section attributes ignored on"
 380                   " redeclaration of section `%s'", name);
 381     }
 382
 383     return sects[i]->index;
 384 }
 385
 386 static void coff_deflabel(char *name, int32_t segment, int64_t offset,
 387                           int is_global, char *special)
 388 {
 389     int pos = strslen + 4;
 390     struct Symbol *sym;
 391
 392     if (special)
 393         error(ERR_NONFATAL, "binary format does not support any"
 394               " special symbol types");
 395
 396     if (name[0] == '.' && name[1] == '.' && name[2] != '@') {
 397         if (strcmp(name,WRT_IMAGEBASE))
 398             error(ERR_NONFATAL, "unrecognized special symbol `%s'", name);
 399         return;
 400     }
 401
 402     if (strlen(name) > 8) {
 403         size_t nlen = strlen(name)+1;
 404         saa_wbytes(strs, name, nlen);
 405         strslen += nlen;
 406     } else
 407         pos = -1;
 408
 409     sym = saa_wstruct(syms);
 410
 411     sym->strpos = pos;
 412     sym->namlen = strlen(name);
 413     if (pos == -1)
 414         strcpy(sym->name, name);
 415     sym->is_global = !!is_global;
 416     sym->type = 0;              /* Default to T_NULL (no type) */
 417     if (segment == NO_SEG)
 418         sym->section = -1;      /* absolute symbol */
 419     else {
 420         int i;
 421         sym->section = 0;
 422         for (i = 0; i < nsects; i++)
 423             if (segment == sects[i]->index) {
 424                 sym->section = i + 1;
 425                 break;
 426             }
 427         if (!sym->section)
 428             sym->is_global = true;
 429     }
 430     if (is_global == 2)
 431         sym->value = offset;
 432     else
 433         sym->value = (sym->section == 0 ? 0 : offset);
 434
 435     /*
 436      * define the references from external-symbol segment numbers
 437      * to these symbol records.
 438      */
 439     if (sym->section == 0) {
 440         bsym = raa_write(bsym, segment, nsyms);
 441     }
 442
 443     if (segment != NO_SEG)
 444         symval = raa_write(symval, segment, sym->section ? 0 : sym->value);
 445
 446     nsyms++;
 447 }
 448
 449 static int32_t coff_add_reloc(struct Section *sect, int32_t segment,
 450                                 int16_t type)
 451 {
 452     struct Reloc *r;
 453
 454     r = *sect->tail = nasm_malloc(sizeof(struct Reloc));
 455     sect->tail = &r->next;
 456     r->next = NULL;
 457
 458     r->address = sect->len;
 459     if (segment == NO_SEG)
 460         r->symbol = 0, r->symbase = ABS_SYMBOL;
 461     else {
 462         int i;
 463         r->symbase = REAL_SYMBOLS;
 464         for (i = 0; i < nsects; i++)
 465             if (segment == sects[i]->index) {
 466                 r->symbol = i * 2;
 467                 r->symbase = SECT_SYMBOLS;
 468                 break;
 469             }
 470         if (r->symbase == REAL_SYMBOLS)
 471             r->symbol = raa_read(bsym, segment);
 472     }
 473     r->type = type;
 474
 475     sect->nrelocs++;
 476
 477     /*
 478      * Return the fixup for standard COFF common variables.
 479      */
 480     if (r->symbase == REAL_SYMBOLS && !(win32 | win64))
 481         return raa_read(symval, segment);
 482     else
 483         return 0;
 484 }
 485
 486 static void coff_out(int32_t segto, const void *data,
 487                      enum out_type type, uint64_t size,
 488                      int32_t segment, int32_t wrt)
 489 {
 490     struct Section *s;
 491     uint8_t mydata[8], *p;
 492     int i;
 493
 494     if (wrt != NO_SEG && !win64) {
 495         wrt = NO_SEG;           /* continue to do _something_ */
 496         error(ERR_NONFATAL, "WRT not supported by COFF output formats");
 497     }
 498
 499     /*
 500      * handle absolute-assembly (structure definitions)
 501      */
 502     if (segto == NO_SEG) {
 503         if (type != OUT_RESERVE)
 504             error(ERR_NONFATAL, "attempt to assemble code in [ABSOLUTE]"
 505                   " space");
 506         return;
 507     }
 508
 509     s = NULL;
 510     for (i = 0; i < nsects; i++)
 511         if (segto == sects[i]->index) {
 512             s = sects[i];
 513             break;
 514         }
 515     if (!s) {
 516         int tempint;            /* ignored */
 517         if (segto != coff_section_names(".text", 2, &tempint))
 518             error(ERR_PANIC, "strange segment conditions in COFF driver");
 519         else
 520             s = sects[nsects - 1];
 521     }
 522
 523     /* magically default to 'wrt ..imagebase' in .pdata and .xdata */
 524     if (win64 && wrt == NO_SEG &&
 525         (!strcmp(s->name,".pdata") || !strcmp(s->name,".xdata")))
 526         wrt = imagebase_sect;
 527
 528     if (!s->data && type != OUT_RESERVE) {
 529         error(ERR_WARNING, "attempt to initialize memory in"
 530               " BSS section `%s': ignored", s->name);
 531         s->len += realsize(type, size);
 532         return;
 533     }
 534
 535     if (type == OUT_RESERVE) {
 536         if (s->data) {
 537             error(ERR_WARNING, "uninitialised space declared in"
 538                   " non-BSS section `%s': zeroing", s->name);
 539             coff_sect_write(s, NULL, size);
 540         } else
 541             s->len += size;
 542     } else if (type == OUT_RAWDATA) {
 543         if (segment != NO_SEG)
 544             error(ERR_PANIC, "OUT_RAWDATA with other than NO_SEG");
 545         coff_sect_write(s, data, size);
 546     } else if (type == OUT_ADDRESS) {
 547         if (!(win64)) {
 548             if (size != 4 && (segment != NO_SEG || wrt != NO_SEG))
 549                 error(ERR_NONFATAL, "COFF format does not support non-32-bit"
 550                       " relocations");
 551             else {
 552                 int32_t fix = 0;
 553                 if (segment != NO_SEG || wrt != NO_SEG) {
 554                     if (wrt != NO_SEG) {
 555                         error(ERR_NONFATAL, "COFF format does not support"
 556                               " WRT types");
 557                     } else if (segment % 2) {
 558                         error(ERR_NONFATAL, "COFF format does not support"
 559                               " segment base references");
 560                     } else
 561                         fix = coff_add_reloc(s, segment, IMAGE_REL_I386_DIR32);
 562                 }
 563                 p = mydata;
 564                 WRITELONG(p, *(int64_t *)data + fix);
 565                 coff_sect_write(s, mydata, size);
 566             }
 567         } else {
 568             int32_t fix = 0;
 569             p = mydata;
 570             if (size == 8) {
 571                 if (wrt == imagebase_sect) {
 572                     error(ERR_NONFATAL, "operand size mismatch: 'wrt "
 573                         WRT_IMAGEBASE "' is a 32-bit operand");
 574                 }
 575                 fix = coff_add_reloc(s, segment, IMAGE_REL_AMD64_ADDR64);
 576                 WRITEDLONG(p, *(int64_t *)data + fix);
 577                 coff_sect_write(s, mydata, size);
 578             } else {
 579                 fix = coff_add_reloc(s, segment,
 580                         wrt == imagebase_sect ? IMAGE_REL_AMD64_ADDR32NB:
 581                                                 IMAGE_REL_AMD64_ADDR32);
 582                 WRITELONG(p, *(int64_t *)data + fix);
 583                 coff_sect_write(s, mydata, size);
 584             }
 585         }
 586     } else if (type == OUT_REL2ADR) {
 587         error(ERR_NONFATAL, "COFF format does not support 16-bit"
 588               " relocations");
 589     } else if (type == OUT_REL4ADR) {
 590         if (segment == segto && !(win64))  /* Acceptable for RIP-relative */
 591             error(ERR_PANIC, "intra-segment OUT_REL4ADR");
 592         else if (segment == NO_SEG && win32)
 593             error(ERR_NONFATAL, "Win32 COFF does not correctly support"
 594                   " relative references to absolute addresses");
 595         else {
 596             int32_t fix = 0;
 597             if (segment != NO_SEG && segment % 2) {
 598                 error(ERR_NONFATAL, "COFF format does not support"
 599                       " segment base references");
 600             } else
 601                 fix = coff_add_reloc(s, segment,
 602                         win64 ? IMAGE_REL_AMD64_REL32 : IMAGE_REL_I386_REL32);
 603             p = mydata;
 604             if (win32 | win64) {
 605                 WRITELONG(p, *(int64_t *)data + 4 - size + fix);
 606             } else {
 607                 WRITELONG(p, *(int64_t *)data - (size + s->len) + fix);
 608             }
 609             coff_sect_write(s, mydata, 4L);
 610         }
 611
 612     }
 613 }
 614
 615 static void coff_sect_write(struct Section *sect,
 616                             const uint8_t *data, uint32_t len)
 617 {
 618     saa_wbytes(sect->data, data, len);
 619     sect->len += len;
 620 }
 621
 622 typedef struct tagString {
 623     struct tagString *Next;
 624     int len;
 625     char *String;
 626 } STRING;
 627
 628 #define EXPORT_SECTION_NAME ".drectve"
 629 #define EXPORT_SECTION_FLAGS INFO_FLAGS
 630 /*
 631 #define EXPORT_SECTION_NAME ".text"
 632 #define EXPORT_SECTION_FLAGS TEXT_FLAGS
 633 */
 634
 635 static STRING *Exports = NULL;
 636 static struct Section *directive_sec;
 637 void AddExport(char *name)
 638 {
 639     STRING *rvp = Exports, *newS;
 640
 641     newS = (STRING *) nasm_malloc(sizeof(STRING));
 642     newS->len = strlen(name);
 643     newS->Next = NULL;
 644     newS->String = (char *)nasm_malloc(newS->len + 1);
 645     strcpy(newS->String, name);
 646     if (rvp == NULL) {
 647         int i;
 648         for (i = 0; i < nsects; i++)
 649
 650             if (!strcmp(EXPORT_SECTION_NAME, sects[i]->name))
 651                 break;
 652         if (i == nsects)
 653             directive_sec =
 654                 sects[coff_make_section
 655                       (EXPORT_SECTION_NAME, EXPORT_SECTION_FLAGS)];
 656         else
 657             directive_sec = sects[i];
 658         Exports = newS;
 659     } else {
 660         while (rvp->Next) {
 661             if (!strcmp(rvp->String, name))
 662                 return;
 663             rvp = rvp->Next;
 664         }
 665         rvp->Next = newS;
 666     }
 667 }
 668
 669 void BuildExportTable(void)
 670 {
 671     STRING *rvp = Exports, *next;
 672     uint8_t buf[256];
 673     int len;
 674     if (rvp == NULL)
 675         return;
 676     while (rvp) {
 677         len = sprintf((char *)buf, "-export:%s ", rvp->String);
 678         coff_sect_write(directive_sec, buf, len);
 679         rvp = rvp->Next;
 680     }
 681
 682     next = Exports;
 683     while ((rvp = next)) {
 684         next = rvp->Next;
 685         nasm_free(rvp->String);
 686         nasm_free(rvp);
 687     }
 688     Exports = NULL;
 689 }
 690
 691 static int coff_directives(char *directive, char *value, int pass)
 692 {
 693     if (!strcmp(directive, "export")) {
 694         char *q, *name;
 695
 696         if (pass == 2)
 697             return 1;           /* ignore in pass two */
 698         name = q = value;
 699         while (*q && !nasm_isspace(*q))
 700             q++;
 701         if (nasm_isspace(*q)) {
 702             *q++ = '\0';
 703             while (*q && nasm_isspace(*q))
 704                 q++;
 705         }
 706
 707         if (!*name) {
 708             error(ERR_NONFATAL, "`export' directive requires export name");
 709             return 1;
 710         }
 711         if (*q) {
 712             error(ERR_NONFATAL, "unrecognized export qualifier `%s'", q);
 713             return 1;
 714         }
 715         AddExport(name);
 716         return 1;
 717     } else if (win32 && !strcmp(directive,"safeseh")) {
 718         static int sxseg=-1;
 719         int i;
 720         if (sxseg==-1)
 721         {   for (i = 0; i < nsects; i++)
 722                 if (!strcmp(".sxdata",sects[i]->name))
 723                     break;
 724             if (i == nsects)
 725                 sxseg = coff_make_section(".sxdata",0x200);
 726             else
 727                 sxseg = i;
 728         }
 729         if (pass==2) {
 730             uint32_t n;
 731             saa_rewind(syms);
 732             for (n = 0; n < nsyms; n++) {
 733                 struct Symbol *sym = saa_rstruct(syms);
 734                 bool equals;
 735
 736                 /* sym->strpos is biased by 4, because symbol
 737                  * table is prefixed with table length */
 738                 if (sym->strpos >=4) {
 739                     char *name = nasm_malloc(sym->namlen+1);
 740                     saa_fread(strs, sym->strpos-4, name, sym->namlen);
 741                     name[sym->namlen] = '\0';
 742                     equals = !strcmp(value,name);
 743                     nasm_free(name);
 744                 }
 745                 else
 746                     equals = !strcmp(value,sym->name);
 747
 748                 if (equals) {
 749                     /* this value arithmetics effectively reflects
 750                      * initsym in coff_write(): 2 for file, 1 for
 751                      * .absolute and two per each section */
 752                     unsigned char value[4],*p=value;
 753                     WRITELONG(p,n + 2 + 1 + nsects*2);
 754                     coff_sect_write(sects[sxseg],value,4);
 755                     sym->type = 0x20;
 756                     break;
 757                 }
 758             }
 759             if (n == nsyms) {
 760                 error(ERR_NONFATAL,
 761                       "`safeseh' directive requires valid symbol");
 762             }
 763         }
 764         return 1;
 765     }
 766     return 0;
 767 }
 768
 769 static void coff_write(void)
 770 {
 771     int32_t pos, sympos, vsize;
 772     int i;
 773
 774     BuildExportTable();         /* fill in the .drectve section with -export's */
 775
 776     if (win32) {
 777         /* add default value for @feat.00, this allows to 'link /safeseh' */
 778         uint32_t n;
 779
 780         saa_rewind(syms);
 781         for (n = 0; n < nsyms; n++) {
 782             struct Symbol *sym = saa_rstruct(syms);
 783             if (sym->strpos == -1 && !strcmp("@feat.00",sym->name))
 784                 break;
 785         }
 786         if (n == nsyms)
 787             coff_deflabel("@feat.00",NO_SEG,1,0,NULL);
 788     }
 789
 790     /*
 791      * Work out how big the file will get. Calculate the start of
 792      * the `real' symbols at the same time.
 793      */
 794     pos = 0x14 + 0x28 * nsects;
 795     initsym = 3;                /* two for the file, one absolute */
 796     for (i = 0; i < nsects; i++) {
 797         if (sects[i]->data) {
 798             sects[i]->pos = pos;
 799             pos += sects[i]->len;
 800             sects[i]->relpos = pos;
 801             pos += 10 * sects[i]->nrelocs;
 802         } else
 803             sects[i]->pos = sects[i]->relpos = 0L;
 804         initsym += 2;           /* two for each section */
 805     }
 806     sympos = pos;
 807
 808     /*
 809      * Output the COFF header.
 810      */
 811     if (win64)
 812         fwriteint16_t(0x8664, coffp);  /* MACHINE_x86-64 */
 813     else
 814         fwriteint16_t(0x014C, coffp);  /* MACHINE_i386 */
 815     fwriteint16_t(nsects, coffp); /* number of sections */
 816     fwriteint32_t(time(NULL), coffp);      /* time stamp */
 817     fwriteint32_t(sympos, coffp);
 818     fwriteint32_t(nsyms + initsym, coffp);
 819     fwriteint16_t(0, coffp);      /* no optional header */
 820     /* Flags: 32-bit, no line numbers. Win32 doesn't even bother with them. */
 821     fwriteint16_t((win32 | win64) ? 0 : 0x104, coffp);
 822
 823     /*
 824      * Output the section headers.
 825      */
 826     vsize = 0L;
 827     for (i = 0; i < nsects; i++) {
 828         coff_section_header(sects[i]->name, vsize, sects[i]->len,
 829                             sects[i]->pos, sects[i]->relpos,
 830                             sects[i]->nrelocs, sects[i]->flags);
 831         vsize += sects[i]->len;
 832     }
 833
 834     /*
 835      * Output the sections and their relocations.
 836      */
 837     for (i = 0; i < nsects; i++)
 838         if (sects[i]->data) {
 839             saa_fpwrite(sects[i]->data, coffp);
 840             coff_write_relocs(sects[i]);
 841         }
 842
 843     /*
 844      * Output the symbol and string tables.
 845      */
 846     coff_write_symbols();
 847     fwriteint32_t(strslen + 4, coffp);     /* length includes length count */
 848     saa_fpwrite(strs, coffp);
 849 }
 850
 851 static void coff_section_header(char *name, int32_t vsize,
 852                                 int32_t datalen, int32_t datapos,
 853                                 int32_t relpos, int nrelocs, int32_t flags)
 854 {
 855     char padname[8];
 856
 857     (void)vsize;
 858
 859     memset(padname, 0, 8);
 860     strncpy(padname, name, 8);
 861     fwrite(padname, 8, 1, coffp);
 862     fwriteint32_t(0, coffp);    /* Virtual size field - set to 0 or vsize */
 863     fwriteint32_t(0L, coffp);      /* RVA/offset - we ignore */
 864     fwriteint32_t(datalen, coffp);
 865     fwriteint32_t(datapos, coffp);
 866     fwriteint32_t(relpos, coffp);
 867     fwriteint32_t(0L, coffp);      /* no line numbers - we don't do 'em */
 868     fwriteint16_t(nrelocs, coffp);
 869     fwriteint16_t(0, coffp);      /* again, no line numbers */
 870     fwriteint32_t(flags, coffp);
 871 }
 872
 873 static void coff_write_relocs(struct Section *s)
 874 {
 875     struct Reloc *r;
 876
 877     for (r = s->head; r; r = r->next) {
 878         fwriteint32_t(r->address, coffp);
 879         fwriteint32_t(r->symbol + (r->symbase == REAL_SYMBOLS ? initsym :
 880                                 r->symbase == ABS_SYMBOL ? initsym - 1 :
 881                                 r->symbase == SECT_SYMBOLS ? 2 : 0),
 882                    coffp);
 883         fwriteint16_t(r->type, coffp);
 884     }
 885 }
 886
 887 static void coff_symbol(char *name, int32_t strpos, int32_t value,
 888                         int section, int type, int storageclass, int aux)
 889 {
 890     char padname[8];
 891
 892     if (name) {
 893         memset(padname, 0, 8);
 894         strncpy(padname, name, 8);
 895         fwrite(padname, 8, 1, coffp);
 896     } else {
 897         fwriteint32_t(0, coffp);
 898         fwriteint32_t(strpos, coffp);
 899     }
 900     fwriteint32_t(value, coffp);
 901     fwriteint16_t(section, coffp);
 902     fwriteint16_t(type, coffp);
 903     fputc(storageclass, coffp);
 904     fputc(aux, coffp);
 905 }
 906
 907 static void coff_write_symbols(void)
 908 {
 909     char filename[18];
 910     uint32_t i;
 911
 912     /*
 913      * The `.file' record, and the file name auxiliary record.
 914      */
 915     coff_symbol(".file", 0L, 0L, -2, 0, 0x67, 1);
 916     memset(filename, 0, 18);
 917     strncpy(filename, coff_infile, 18);
 918     fwrite(filename, 18, 1, coffp);
 919
 920     /*
 921      * The section records, with their auxiliaries.
 922      */
 923     memset(filename, 0, 18);    /* useful zeroed buffer */
 924
 925     for (i = 0; i < (uint32_t) nsects; i++) {
 926         coff_symbol(sects[i]->name, 0L, 0L, i + 1, 0, 3, 1);
 927         fwriteint32_t(sects[i]->len, coffp);
 928         fwriteint16_t(sects[i]->nrelocs, coffp);
 929         fwrite(filename, 12, 1, coffp);
 930     }
 931
 932     /*
 933      * The absolute symbol, for relative-to-absolute relocations.
 934      */
 935     coff_symbol(".absolut", 0L, 0L, -1, 0, 3, 0);
 936
 937     /*
 938      * The real symbols.
 939      */
 940     saa_rewind(syms);
 941     for (i = 0; i < nsyms; i++) {
 942         struct Symbol *sym = saa_rstruct(syms);
 943         coff_symbol(sym->strpos == -1 ? sym->name : NULL,
 944                     sym->strpos, sym->value, sym->section,
 945                     sym->type, sym->is_global ? 2 : 3, 0);
 946     }
 947 }
 948
 949 static int32_t coff_segbase(int32_t segment)
 950 {
 951     return segment;
 952 }
 953
 954 static void coff_std_filename(char *inname, char *outname, efunc error)
 955 {
 956     strcpy(coff_infile, inname);
 957     standard_extension(inname, outname, ".o", error);
 958 }
 959
 960 static void coff_win32_filename(char *inname, char *outname, efunc error)
 961 {
 962     strcpy(coff_infile, inname);
 963     standard_extension(inname, outname, ".obj", error);
 964 }
 965
 966 extern macros_t coff_stdmac[];
 967
 968 static int coff_set_info(enum geninfo type, char **val)
 969 {
 970     (void)type;
 971     (void)val;
 972     return 0;
 973 }
 974 #endif                          /* defined(OF_COFF) || defined(OF_WIN32) */
 975
 976 #ifdef OF_COFF
 977
 978 struct ofmt of_coff = {
 979     "COFF (i386) object files (e.g. DJGPP for DOS)",
 980     "coff",
 981     NULL,
 982     null_debug_arr,
 983     &null_debug_form,
 984     coff_stdmac,
 985     coff_std_init,
 986     coff_set_info,
 987     coff_out,
 988     coff_deflabel,
 989     coff_section_names,
 990     coff_segbase,
 991     coff_directives,
 992     coff_std_filename,
 993     coff_cleanup
 994 };
 995
 996 #endif
 997
 998 #ifdef OF_WIN32
 999
1000 struct ofmt of_win32 = {
1001     "Microsoft Win32 (i386) object files",
1002     "win32",
1003     NULL,
1004     null_debug_arr,
1005     &null_debug_form,
1006     coff_stdmac,
1007     coff_win32_init,
1008     coff_set_info,
1009     coff_out,
1010     coff_deflabel,
1011     coff_section_names,
1012     coff_segbase,
1013     coff_directives,
1014     coff_win32_filename,
1015     coff_cleanup
1016 };
1017
1018 #endif
1019
1020 #ifdef OF_WIN64
1021
1022 struct ofmt of_win64 = {
1023     "Microsoft Win64 (x86-64) object files",
1024     "win64",
1025     NULL,
1026     null_debug_arr,
1027     &null_debug_form,
1028     coff_stdmac,
1029     coff_win64_init,
1030     coff_set_info,
1031     coff_out,
1032     coff_deflabel,
1033     coff_section_names,
1034     coff_segbase,
1035     coff_directives,
1036     coff_win32_filename,
1037     coff_cleanup
1038 };
1039
1040 #endif