* gcc-interface/misc.c (gnat_printable_name): Always return a copy
in GC memory.
From-SVN: r141638
+2008-11-06 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gcc-interface/misc.c (gnat_printable_name): Always return a copy
+ in GC memory.
+
2008-11-06 Eric Botcazou <ebotcazou@adacore.com>
PR ada/19419
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