Ticket #4901: 4901.dpatch

1 patch for repository darcs.haskell.org:/srv/darcs/ghc:

Fri Apr  1 14:11:20 BST 2011  Max Bolingbroke <batterseapower@hotmail.com>
  * Do not trust the BSD archive-supplied symbol length. Fixes #4901

New patches:

[Do not trust the BSD archive-supplied symbol length. Fixes #4901
Max Bolingbroke <batterseapower@hotmail.com>**20110401131120
 Ignore-this: 3a7aed46b05219ea8a66044c7120c12
] hunk ./rts/Linker.c 1775
                          path);
                 }
                 fileName[thisFileNameSize] = 0;
+
+                // In theory, the file name size we get from the large-filename field
+                // should be exactly as long as the actual filename. However, in practice
+                // we often see archives that only use some of the allocated space for
+                // the filename.
+                //
+                // It is important that we get the right size here, because we use it below
+                // to index into the filename and determine if it is an object file (#4901).
+                thisFileNameSize = strlen(fileName);
             }
             else {
                 barf("loadArchive: BSD-variant filename size not found while reading filename from `%s'", path);

Context:

[TAG git migration
Ian Lynagh <igloo@earth.li>**20110331134846
 Ignore-this: 5572f46dda57e62defcb124c3a80069a
] 
Patch bundle hash:
19a3fd47185e9be9974cf22c2f388330f8229118