Fix GHC ticket 2615 (linker scripts in .so files)

[Simon Peyton-Jones]

Howard

Thank you for rolling up your sleeves.  I know nothing of linker scripts, and I'm sure Simon or Ian or Duncan will review your patch before committing it.   But, regardless, thank you!

Simon

| -----Original Message-----
| From: cvs-ghc-bounces at haskell.org [mailto:cvs-ghc-bounces at haskell.org] On Behalf Of
| Howard B. Golden
| Sent: 01 December 2009 06:49
| To: cvs-ghc at haskell.org
| Subject: Fix GHC ticket 2615 (linker scripts in .so files)
| 
| Mon Nov 30 22:12:34 PST 2009  howard_b_golden at yahoo.com
|   * Fix GHC ticket 2615 (linker scripts in .so files)
|   This patch only applies to systems that use ELF format files.
|   The patch modifies the addDLL function so that it recognizes
|   "invalid ELF header" errors. If these occur, the file that was opened
|   is scanned for a linker script GROUP ( ... ) directive. If found,
|   the first file inside the GROUP ( ... ) will be sent to dlopen.
|   Any errors reported by dlopen then will be reported  to the caller.
| 
| New patches:
| 
| [Fix GHC ticket 2615 (linker scripts in .so files)
| howard_b_golden at yahoo.com**20091201061234
|  Ignore-this: 473d783b8019f375c737a4e6b0627710
|  This patch only applies to systems that use ELF format files.
|  The patch modifies the addDLL function so that it recognizes
|  "invalid ELF header" errors. If these occur, the file that was opened
|  is scanned for a linker script GROUP ( ... ) directive. If found,
|  the first file inside the GROUP ( ... ) will be sent to dlopen.
|  Any errors reported by dlopen then will be reported  to the caller.
| ] {
| hunk ./rts/Linker.c 9
|   *
|   * ---------------------------------------------------------------------------*/
| 
| +#define MIN(a,b) (((a) < (b)) ? (a) : (b))