Ben Gamari pushed to branch wip/bump-win32-tarballs at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • rts/linker/PEi386.c
    ... ... @@ -2251,6 +2251,13 @@ ocResolve_PEi386 ( ObjectCode* oc )
    2251 2251
                        *(uint64_t *)pP = S + A;
    
    2252 2252
                        break;
    
    2253 2253
                    }
    
    2254
    +           case 11: /* IMAGE_REL_AMD64_SECREL (PE constant 11) */
    
    2255
    +              {
    
    2256
    +                  uint64_t offset = S - (uint64_t) section.start;
    
    2257
    +                  CHECK((uint32_t) offset == offset);
    
    2258
    +                   *(uint32_t *)pP = offset + A;
    
    2259
    +                  break;
    
    2260
    +              }
    
    2254 2261
                 case 2: /* R_X86_64_32 (ELF constant 10) - IMAGE_REL_AMD64_ADDR32 (PE constant 2) */
    
    2255 2262
                 case 3: /* IMAGE_REL_AMD64_ADDR32NB (PE constant 3) */
    
    2256 2263
                 case 17: /* R_X86_64_32S ELF constant, no PE mapping. See note [ELF constant in PE file] */