[commit: testsuite] master: Properly provide leading underscore when necessary. (29b0521)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/29b0521cd9be39b4026103d184d1fec14ef3bc22/testsuite

>---------------------------------------------------------------

commit 29b0521cd9be39b4026103d184d1fec14ef3bc22
Author: Edward Z. Yang <ezyang at mit.edu>
Date:   Fri Sep 13 20:52:57 2013 -0700

    Properly provide leading underscore when necessary.
    
    Signed-off-by: Edward Z. Yang <ezyang at mit.edu>


>---------------------------------------------------------------

29b0521cd9be39b4026103d184d1fec14ef3bc22
 tests/rts/linker_unload.c |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/rts/linker_unload.c b/tests/rts/linker_unload.c
index 47fee9b..859dd4d 100644
--- a/tests/rts/linker_unload.c
+++ b/tests/rts/linker_unload.c
@@ -44,7 +44,11 @@ int main (int argc, char *argv[])
             errorBelch("resolveObjs failed");
             exit(1);
         }
+#if LEADING_UNDERSCORE
+        f = lookupSymbol("_f");
+#else
         f = lookupSymbol("f");
+#endif
         if (!f) {
             errorBelch("lookupSymbol failed");
             exit(1);