diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-11-06 11:42:52 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-11-06 11:42:52 +0000 |
| commit | baf6e6a838df2137989ae6301150b1c0ddd0b87c (patch) | |
| tree | a140f3bc6dd3431c44bd0c87dd182582b4e8f31d /gcc/ada/gcc-interface/misc.c | |
| parent | 8b659f794a1613b10333fa6826c0ed41d802ce8b (diff) | |
| download | gcc-baf6e6a838df2137989ae6301150b1c0ddd0b87c.zip gcc-baf6e6a838df2137989ae6301150b1c0ddd0b87c.tar.gz gcc-baf6e6a838df2137989ae6301150b1c0ddd0b87c.tar.bz2 | |
misc.c (gnat_printable_name): Always return a copy in GC memory.
* gcc-interface/misc.c (gnat_printable_name): Always return a copy
in GC memory.
From-SVN: r141638
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 7c7dc02..3026e90 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -603,10 +603,10 @@ gnat_printable_name (tree decl, int verbosity) 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 |