Subversion Repositories openrisc

// -*- C++ -*-

// Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.

// This library is free software; you can redistribute it and/or

// modify it under the terms of the GNU General Public License as

// published by the Free Software Foundation; either version 3, or (at

// your option) any later version.

// This library is distributed in the hope that it will be useful, but

// WITHOUT ANY WARRANTY; without even the implied warranty of

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

// General Public License for more details.

// You should have received a copy of the GNU General Public License

// along with this library; see the file COPYING3.  If not see

// <http://www.gnu.org/licenses/>.

// Benjamin Kosnik  <bkoz@redhat.com>

#include "testsuite_abi.h"

#include <cstdlib>

#include <sstream>

#include <fstream>

#include <iostream>

#include <vector>

#include <algorithm>

using namespace std;

void

symbol::init(string& data)

{

  const char delim = ':';

  const char version_delim = '@';

  const string::size_type npos = string::npos;

  string::size_type n = 0;

  // Set the type.

  if (data.find("FUNC") == 0)

    type = symbol::function;

  else if (data.find("OBJECT") == 0)

    type = symbol::object;

  n = data.find_first_of(delim);

  if (n != npos)

    data.erase(data.begin(), data.begin() + n + 1);

  // Iff object, get size info.

  if (type == symbol::object)

    {

      n = data.find_first_of(delim);

      if (n != npos)

        {

          string objectsize(data.begin(), data.begin() + n);

          istringstream iss(objectsize);

          int x;

          iss >> x;

          if (!iss.fail())

            size = x;

          data.erase(data.begin(), data.begin() + n + 1);

        }

    }

  // Set the name and raw_name.

  raw_name = string(data.begin(), data.end());

  n = data.find_first_of(version_delim);

  if (n != npos)

    {

      // Found version string.

      name = string(data.begin(), data.begin() + n);

      n = data.find_last_of(version_delim);

      data.erase(data.begin(), data.begin() + n + 1);

      // Set version name.

      version_name = data;

    }

  else

    {

      // No versioning info.

      name = string(data.begin(), data.end());

      version_status = symbol::none;

    }

  // Set the demangled name.

  demangled_name = demangle(name);

}

void

symbol::print() const

{

  const char tab = '\t';

  cout << name << endl;

  if (demangled_name != name)

    cout << demangled_name << endl;

  string vers;

  switch (version_status)

    {

    case none:

      vers = "none";

      break;

    case compatible:

      vers = "compatible";

      break;

    case incompatible:

      vers = "incompatible";

      break;

     case unversioned:

      vers = "unversioned";

      break;

   default:

      vers = "<default>";

    }

  cout << "version status: " << vers << endl;

  if (version_name.size()

      && (version_status == compatible || version_status == incompatible))

    cout << version_name << endl;

  string type_string;

  switch (type)

    {

    case function:

      type_string = "function";

      break;

    case object:

      type_string = "object";

      break;

    case uncategorized:

      type_string = "uncategorized";

      break;

    default:

      type_string = "<default>";

    }

  cout << "type: " << type_string << endl;

  if (type == object)

    cout << "type size: " << size << endl;

  string status_string;

  switch (status)

    {

    case added:

      status_string = "added";

      break;

    case subtracted:

      status_string = "subtracted";

      break;

    case undesignated:

      status_string = "undesignated";

      break;

    default:

      status_string = "<default>";

    }

  cout << "status: " << status_string << endl;

  cout << endl;

}

bool

check_version(symbol& test, bool added)

{

  // Construct list of compatible versions.

  typedef std::vector<std::string> compat_list;

  static compat_list known_versions;

  if (known_versions.empty())

    {

      // NB: First version here must be the default version for this

      // version of DT_SONAME.

      known_versions.push_back("GLIBCXX_3.4");

      known_versions.push_back("GLIBCXX_3.4.1");

      known_versions.push_back("GLIBCXX_3.4.2");

      known_versions.push_back("GLIBCXX_3.4.3");

      known_versions.push_back("GLIBCXX_3.4.4");

      known_versions.push_back("GLIBCXX_3.4.5");

      known_versions.push_back("GLIBCXX_3.4.6");

      known_versions.push_back("GLIBCXX_3.4.7");

      known_versions.push_back("GLIBCXX_3.4.8");

      known_versions.push_back("GLIBCXX_3.4.9");

      known_versions.push_back("GLIBCXX_3.4.10");

      known_versions.push_back("GLIBCXX_3.4.11");

      known_versions.push_back("GLIBCXX_3.4.12");

      known_versions.push_back("GLIBCXX_3.4.13");

      known_versions.push_back("GLIBCXX_3.4.14");

      known_versions.push_back("GLIBCXX_LDBL_3.4");

      known_versions.push_back("GLIBCXX_LDBL_3.4.7");

      known_versions.push_back("GLIBCXX_LDBL_3.4.10");

      known_versions.push_back("CXXABI_1.3");

      known_versions.push_back("CXXABI_1.3.1");

      known_versions.push_back("CXXABI_1.3.2");

      known_versions.push_back("CXXABI_1.3.3");

      known_versions.push_back("CXXABI_1.3.4");

      known_versions.push_back("CXXABI_LDBL_1.3");

    }

  compat_list::iterator begin = known_versions.begin();

  compat_list::iterator end = known_versions.end();

  // Check for compatible version.

  if (test.version_name.size())

    {

      compat_list::iterator it1 = find(begin, end, test.version_name);

      compat_list::iterator it2 = find(begin, end, test.name);

      if (it1 != end)

        test.version_status = symbol::compatible;

      else

        test.version_status = symbol::incompatible;

      // Check that added symbols aren't added in the base version.

      if (added && test.version_name == known_versions[0])

        test.version_status = symbol::incompatible;

      // Check that long double compatibility symbols demangled as

      // __float128 are put into some _LDBL_ version name.

      if (added && test.demangled_name.find("__float128") != std::string::npos)

        {

          // Has to be in _LDBL_ version name.

          if (test.version_name.find("_LDBL_") == std::string::npos)

            test.version_status = symbol::incompatible;

        }

      // Check for weak label.

      if (it1 == end && it2 == end)

        test.version_status = symbol::incompatible;

      // Check that 

      // GLIBCXX_3.4

      // GLIBCXX_3.4.5

      // version as compatible

      // XXX

    }

  else

    {

      if (added)

        {

          // New version labels are ok. The rest are not.

          compat_list::iterator it2 = find(begin, end, test.name);

          if (it2 != end)

            test.version_status = symbol::compatible;

          else

            test.version_status = symbol::incompatible;

        }

    }

  return test.version_status == symbol::compatible;

}

bool

check_compatible(symbol& lhs, symbol& rhs, bool verbose)

{

  bool ret = true;

  const char tab = '\t';

  // Check to see if symbol_objects are compatible.

  if (lhs.type != rhs.type)

    {

      ret = false;

      if (verbose)

        cout << tab << "incompatible types" << endl;

    }

  if (lhs.name != rhs.name)

    {

      ret = false;

      if (verbose)

        cout << tab << "incompatible names" << endl;

    }

  if (lhs.size != rhs.size)

    {

      ret = false;

      if (verbose)

        {

          cout << tab << "incompatible sizes" << endl;

          cout << tab << lhs.size << endl;

          cout << tab << rhs.size << endl;

        }

    }

  if (lhs.version_name != rhs.version_name

      && !check_version(lhs) && !check_version(rhs))

    {

      ret = false;

      if (verbose)

        {

          cout << tab << "incompatible versions" << endl;

          cout << tab << lhs.version_name << endl;

          cout << tab << rhs.version_name << endl;

        }

    }

  if (verbose)

    cout << endl;

  return ret;

}

inline bool

has_symbol(const string& name, const symbols& s) throw()

{ return s.find(name) != s.end(); }

const symbol&

get_symbol(const string& name, const symbols& s)

{

  symbols::const_iterator i = s.find(name);

  if (i != s.end())

    {

      return i->second;

    }

  else

    {

      ostringstream os;

      os << "get_symbol failed for symbol " << name;

      __throw_logic_error(os.str().c_str());

    }

}

void

examine_symbol(const char* name, const char* file)

{

  try

    {

      symbols s = create_symbols(file);

      const symbol& sym = get_symbol(name, s);

      sym.print();

    }

  catch(...)

    { __throw_exception_again; }

}

int

compare_symbols(const char* baseline_file, const char* test_file,

                bool verbose)

{

  // Input both lists of symbols into container.

  symbols baseline = create_symbols(baseline_file);

  symbols test = create_symbols(test_file);

  //  Sanity check results.

  if (!baseline.size() || !test.size())

    {

      cerr << "Problems parsing the list of exported symbols." << endl;

      exit(2);

    }

  // Check to see if any long double compatibility symbols are produced.

  bool ld_version_found(false);

  symbols::iterator li(test.begin());

  while (!ld_version_found && li != test.end())

    {

      if (li->second.version_name.find("_LDBL_") != std::string::npos)

        ld_version_found = true;

      ++li;

    }

  // Sort out names.

  // Assuming all baseline names and test names are both unique w/ no

  // duplicates.

  //

  // The names added to missing_names are baseline names not found in

  // test names 

  // -> symbols that have been deleted.

  //

  // The names added to added_names are test names not in

  // baseline names

  // -> symbols that have been added.

  typedef std::vector<std::string> symbol_names;

  symbol_names shared_names;

  symbol_names missing_names;

  symbol_names added_names;

  for (li = test.begin(); li != test.end(); ++li)

    added_names.push_back(li->first);

  for (symbols::iterator i = baseline.begin(); i != baseline.end(); ++i)

    {

      string name(i->first);

      symbol_names::iterator end = added_names.end();

      symbol_names::iterator it = find(added_names.begin(), end, name);

      if (it != end)

        {

          // Found.

          shared_names.push_back(name);

          added_names.erase(it);

        }

       else

        {

          // Iff no test long double compatibility symbols at all and the symbol

          // missing is a baseline long double compatibility symbol, skip.

          string version_name(i->second.version_name);

          bool base_ld(version_name.find("_LDBL_") != std::string::npos);

          if (!base_ld || base_ld && ld_version_found)

            missing_names.push_back(name);

        }

    }

  // Fill out list of incompatible symbols.

  typedef pair<symbol, symbol> symbol_pair;

  vector<symbol_pair> incompatible;

  // Check missing names for compatibility.

  for (size_t j = 0; j < missing_names.size(); ++j)

    {

      symbol& sbase = baseline[missing_names[j]];

      sbase.status = symbol::subtracted;

      incompatible.push_back(symbol_pair(sbase, sbase));

    }

  // Check shared names for compatibility.

  const symbol_names::size_type shared_size = shared_names.size();

  for (size_t k = 0; k < shared_size; ++k)

    {

      symbol& sbase = baseline[shared_names[k]];

      symbol& stest = test[shared_names[k]];

      stest.status = symbol::existing;

      if (!check_compatible(sbase, stest))

        incompatible.push_back(symbol_pair(sbase, stest));

    }

  // Check added names for compatibility.

  const symbol_names::size_type added_size = added_names.size();

  for (size_t l = 0; l < added_size; ++l)

    {

      symbol& stest = test[added_names[l]];

      stest.status = symbol::added;

      if (!check_version(stest, true))

        incompatible.push_back(symbol_pair(stest, stest));

    }

  // Report results.

  if (verbose && added_names.size())

    {

      cout << endl << added_names.size() << " added symbols " << endl;

      for (size_t j = 0; j < added_names.size() ; ++j)

        {

          cout << j << endl;

          test[added_names[j]].print();

        }

    }

  if (verbose && missing_names.size())

    {

      cout << endl << missing_names.size() << " missing symbols " << endl;

      for (size_t j = 0; j < missing_names.size() ; ++j)

        {

          cout << j << endl;

          baseline[missing_names[j]].print();

        }

    }

  if (verbose && incompatible.size())

    {

      cout << endl << incompatible.size() << " incompatible symbols " << endl;

      for (size_t j = 0; j < incompatible.size() ; ++j)

        {

          // First, print index.

          cout << j << endl;

          // Second, report name.

          symbol& sbase = incompatible[j].first;

          symbol& stest = incompatible[j].second;

          stest.print();

          // Second, report reason or reasons incompatible.

          check_compatible(sbase, stest, true);

        }

    }

  cout << "\n\t\t=== libstdc++-v3 check-abi Summary ===" << endl;

  cout << endl;

  cout << "# of added symbols:\t\t " << added_names.size() << endl;

  cout << "# of missing symbols:\t\t " << missing_names.size() << endl;

  cout << "# of incompatible symbols:\t " << incompatible.size() << endl;

  cout << endl;

  cout << "using: " << baseline_file << endl;

  return !(missing_names.size() || incompatible.size());

}

symbols

create_symbols(const char* file)

{

  symbols s;

  ifstream ifs(file);

  if (ifs.is_open())

    {

      // Organize file data into an associated container (symbols) of symbol

      // objects mapped to mangled names without versioning

      // information.

      const string empty;

      string line = empty;

      while (getline(ifs, line).good())

        {

          symbol tmp;

          tmp.init(line);

          s[tmp.name] = tmp;

          line = empty;

        }

    }

  else

    {

      ostringstream os;

      os << "create_symbols failed for file " << file;

      __throw_runtime_error(os.str().c_str());

    }

  return s;

}

const char*

demangle(const std::string& mangled)

{

  const char* name;

  if (mangled[0] != '_' || mangled[1] != 'Z')

    {

      // This is not a mangled symbol, thus has "C" linkage.

      name = mangled.c_str();

    }

  else

    {

      // Use __cxa_demangle to demangle.

      int status = 0;

      name = abi::__cxa_demangle(mangled.c_str(), 0, 0, &status);

      if (!name)

        {

          switch (status)

            {

            case 0:

              name = "error code = 0: success";

              break;

            case -1:

              name = "error code = -1: memory allocation failure";

              break;

            case -2:

              name = "error code = -2: invalid mangled name";

              break;

            case -3:

              name = "error code = -3: invalid arguments";

              break;

            default:

              name = "error code unknown - who knows what happened";

            }

        }

    }

  return name;

}