demangle.c

   1 /*
   2  * This file is part of ltrace.
   3  * Copyright (C) 2012,2013 Petr Machata, Red Hat Inc.
   4  * Copyright (C) 1998,1999,2003,2004,2008,2009 Juan Cespedes
   5  * Copyright (C) 2006 Ian Wienand
   6  *
   7  * This program is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License as
   9  * published by the Free Software Foundation; either version 2 of the
  10  * License, or (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with this program; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
  20  * 02110-1301 USA
  21  */
  22
  23 #include "config.h"
  24
  25 #include <string.h>
  26 #include <stdlib.h>
  27 #include <stdio.h>
  28
  29 #include "demangle.h"
  30 #include "dict.h"
  31 #include "debug.h"
  32
  33 #ifdef USE_DEMANGLE
  34
  35 /*****************************************************************************/
  36
  37 static struct dict *name_cache = NULL;
  38
  39 const char *
  40 my_demangle(const char *function_name) {
  41 #ifdef USE_CXA_DEMANGLE
  42         extern char *__cxa_demangle(const char *, char *, size_t *, int *);
  43 #endif
  44
  45         debug(DEBUG_FUNCTION, "my_demangle(name=%s)", function_name);
  46
  47         if (name_cache == NULL) {
  48                 name_cache = malloc(sizeof(*name_cache));
  49                 if (name_cache != NULL)
  50                         DICT_INIT(name_cache, char *, const char *,
  51                                   dict_hash_string, dict_eq_string, NULL);
  52         }
  53
  54         const char *tmp = NULL;
  55         if (name_cache != NULL
  56             && DICT_FIND_VAL(name_cache, &function_name, &tmp) == 0)
  57                 return tmp;
  58
  59 #ifdef HAVE_LIBIBERTY
  60         tmp = cplus_demangle(function_name,
  61                                          DMGL_ANSI | DMGL_PARAMS);
  62 #elif defined USE_CXA_DEMANGLE
  63         int status = 0;
  64         tmp = __cxa_demangle(function_name, NULL, NULL, &status);
  65 #endif
  66         if (name_cache == NULL || tmp == NULL) {
  67         fail:
  68                 if (tmp == NULL)
  69                         return function_name;
  70                 return tmp;
  71         }
  72
  73         const char *fn_copy = strdup(function_name);
  74         if (fn_copy == NULL)
  75                 goto fail;
  76
  77         if (DICT_INSERT(name_cache, &fn_copy, &tmp) < 0) {
  78                 free((char *)fn_copy);
  79                 goto fail;
  80         }
  81
  82         return tmp;
  83 }
  84
  85 #endif