Andreas Klebinger pushed to branch wip/andreask/linker_fix at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • rts/Linker.c
    ... ... @@ -1441,7 +1441,11 @@ preloadObjectFile (pathchar *path)
    1441 1441
        /* FIXME (AP): =mapped= parameter unconditionally set to true */
    
    1442 1442
        oc = mkOc(STATIC_OBJECT, path, image, fileSize, true, NULL, misalignment);
    
    1443 1443
     
    
    1444
    -   verifyAndInitOc(oc);
    
    1444
    +   if (!verifyAndInitOc(oc)) {
    
    1445
    +       freeObjectCode(oc);
    
    1446
    +       debugBelch("loadObj: Failed to verify oc.\n");
    
    1447
    +       return NULL;
    
    1448
    +   };
    
    1445 1449
        return oc;
    
    1446 1450
     }
    
    1447 1451