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

Commits:

1 changed file:

Changes:

  • rts/linker/LoadArchive.c
    ... ... @@ -275,6 +275,13 @@ lookupGNUArchiveIndex(int gnuFileIndexSize, char **fileName_,
    275 275
                         "loadArchive(fileName)");
    
    276 276
             }
    
    277 277
             memcpy(fileName, gnuFileIndex + n, FileNameSize);
    
    278
    +
    
    279
    +
    
    280
    +       /* llvm-ar terminates string table entries with `/\n`. */
    
    281
    +       if (fileName[FileNameSize-1] == '/') {
    
    282
    +           FileNameSize--;
    
    283
    +       }
    
    284
    +
    
    278 285
             fileName[FileNameSize] = '\0';
    
    279 286
             *thisFileNameSize = FileNameSize;
    
    280 287
         }