tlink.c (scan_linker_output): Skip the initial underscore in a mangled name if approp...

        Fri Sep  3 09:14:32 1999  Marc Espie <espie@tetto.liafa.jussieu.fr>
        * tlink.c (scan_linker_output): Skip the initial underscore in
        a mangled name if appropriate.

From-SVN: r29915

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 27006485a78e0c0d33a82855e1e79c6a2ed84702..ad31a5ecec698ba03efc1e19f560de2fd4c0cf9c 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,9 @@
 Mon Oct 11 23:35:19 1999  Jeffrey A Law  (law@cygnus.com)
 
+       Fri Sep  3 09:14:32 1999  Marc Espie <espie@tetto.liafa.jussieu.fr>
+       * tlink.c (scan_linker_output): Skip the initial underscore in
+       a mangled name if appropriate.
+
        Fri Aug 27 19:19:43 CEST 1999   Marc Espie <espie@cvs.openbsd.org>
        * config/openbsd.h (SET_ASM_OP): Define.
 

diff --git a/gcc/tlink.c b/gcc/tlink.c
index 9f058c9b2848bd50f8af7af50798b0dc9aa598f9..882c1ab2a75ee2565c7e45917489c4fb2692af63 100644 (file)
--- a/gcc/tlink.c
+++ b/gcc/tlink.c
@@ -654,7 +654,11 @@ scan_linker_output (fname)
              if (dem)
                sym = symbol_hash_lookup (dem->mangled, false);
              else
-               sym = symbol_hash_lookup (p, false);
+               {
+                 if (*p == '_' && prepends_underscore)
+                   ++p;
+                 sym = symbol_hash_lookup (p, false);
+               }
            }
        }