Index: gcc-interface/misc.c
===================================================================
--- gcc-interface/misc.c	(revision 141548)
+++ gcc-interface/misc.c	(working copy)
@@ -603,10 +603,10 @@ gnat_printable_name (tree decl, int verb
   if (verbosity == 2)
     {
       Set_Identifier_Casing (ada_name, (char *) DECL_SOURCE_FILE (decl));
-      ada_name = Name_Buffer;
+      return ggc_strdup (Name_Buffer);
     }
-
-  return (const char *) ada_name;
+  else
+    return ada_name;
 }
 
 /* Expands GNAT-specific GCC tree nodes.  The only ones we support