Subversion Repositories openrisc_me

/* Routines for GCC for a Symbian OS targeted SH backend, shared by

   both the C and C++ compilers.

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

   Contributed by RedHat.

   Most of this code is stolen from i386/winnt.c.

   This file is part of GCC.

   GCC 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.

   GCC 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 GCC; see the file COPYING3.  If not see

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

#include "config.h"

#include "system.h"

#include "coretypes.h"

#include "tm.h"

#include "rtl.h"

#include "output.h"

#include "flags.h"

#include "tree.h"

#include "expr.h"

#include "tm_p.h"

#include "toplev.h"

#include "sh-symbian.h"

/* Return nonzero if SYMBOL is marked as being dllexport'd.  */

bool

sh_symbian_is_dllexported_name (const char *symbol)

{

  return strncmp (DLL_EXPORT_PREFIX, symbol,

                  strlen (DLL_EXPORT_PREFIX)) == 0;

}

/* Return nonzero if SYMBOL is marked as being dllimport'd.  */

static bool

sh_symbian_is_dllimported_name (const char *symbol)

{

  return strncmp (DLL_IMPORT_PREFIX, symbol,

                  strlen (DLL_IMPORT_PREFIX)) == 0;

}

/* Return nonzero if DECL is a dllexport'd object.  */

bool

sh_symbian_is_dllexported (tree decl)

{

  tree exp;

  if (   TREE_CODE (decl) != VAR_DECL

      && TREE_CODE (decl) != FUNCTION_DECL)

    return false;

  exp = lookup_attribute ("dllexport", DECL_ATTRIBUTES (decl));

  /* Class members get the dllexport status of their class.  */

  if (exp == NULL)

    {

      tree class = sh_symbian_associated_type (decl);

      if (class)

        exp = lookup_attribute ("dllexport", TYPE_ATTRIBUTES (class));

    }

#if SYMBIAN_DEBUG

  if (exp)

    {

      print_node_brief (stderr, "dllexport:", decl, 0);

      fprintf (stderr, "\n");

    }

  else

#if SYMBIAN_DEBUG < 2

    if (TREE_CODE (decl) != FUNCTION_DECL)

#endif

    {

      print_node_brief (stderr, "no dllexport:", decl, 0);

      fprintf (stderr, "\n");

    }

#endif

  return exp ? true : false;

}

/* Mark a DECL as being dllimport'd.  */

static void

sh_symbian_mark_dllimport (tree decl)

{

  const char *oldname;

  char *newname;

  tree idp;

  rtx rtlname;

  rtx newrtl;

  rtlname = XEXP (DECL_RTL (decl), 0);

  if (MEM_P (rtlname))

    rtlname = XEXP (rtlname, 0);

  gcc_assert (GET_CODE (rtlname) == SYMBOL_REF);

  oldname = XSTR (rtlname, 0);

  if (sh_symbian_is_dllexported_name (oldname))

    {

      error ("%qE declared as both exported to and imported from a DLL",

             DECL_NAME (decl));

    }

  else if (sh_symbian_is_dllimported_name (oldname))

    {

      /* Already done, but do a sanity check to prevent assembler errors.  */

      if (!DECL_EXTERNAL (decl) || !TREE_PUBLIC (decl))

        error ("failure in redeclaration of %q+D: dllimport'd symbol lacks external linkage",

               decl);

    }

  else

    {

      newname = (char *) alloca (strlen (DLL_IMPORT_PREFIX) + strlen (oldname) + 1);

      sprintf (newname, "%s%s", DLL_IMPORT_PREFIX, oldname);

      /* We pass newname through get_identifier to ensure it has a unique

         address.  RTL processing can sometimes peek inside the symbol ref

         and compare the string's addresses to see if two symbols are

         identical.  */

      idp = get_identifier (newname);

      newrtl = gen_rtx_SYMBOL_REF (Pmode, IDENTIFIER_POINTER (idp));

      XEXP (DECL_RTL (decl), 0) = newrtl;

    }

}

/* Mark a DECL as being dllexport'd.

   Note that we override the previous setting (e.g.: dllimport).  */

static void

sh_symbian_mark_dllexport (tree decl)

{

  const char *oldname;

  char *newname;

  rtx rtlname;

  tree idp;

  rtlname = XEXP (DECL_RTL (decl), 0);

  if (MEM_P (rtlname))

    rtlname = XEXP (rtlname, 0);

  gcc_assert (GET_CODE (rtlname) == SYMBOL_REF);

  oldname = XSTR (rtlname, 0);

  if (sh_symbian_is_dllimported_name (oldname))

    {

     /* Remove DLL_IMPORT_PREFIX.

        Note - we do not issue a warning here.  In Symbian's environment it

        is legitimate for a prototype to be marked as dllimport and the

        corresponding definition to be marked as dllexport.  The prototypes

        are in headers used everywhere and the definition is in a translation

        unit which has included the header in order to ensure argument

        correctness.  */

      oldname += strlen (DLL_IMPORT_PREFIX);

      DECL_DLLIMPORT_P (decl) = 0;

    }

  else if (sh_symbian_is_dllexported_name (oldname))

    return; /* Already done.  */

  newname = (char *) alloca (strlen (DLL_EXPORT_PREFIX) + strlen (oldname) + 1);

  sprintf (newname, "%s%s", DLL_EXPORT_PREFIX, oldname);

  /* We pass newname through get_identifier to ensure it has a unique

     address.  RTL processing can sometimes peek inside the symbol ref

     and compare the string's addresses to see if two symbols are

     identical.  */

  idp = get_identifier (newname);

  XEXP (DECL_RTL (decl), 0) =

    gen_rtx_SYMBOL_REF (Pmode, IDENTIFIER_POINTER (idp));

}

void

sh_symbian_encode_section_info (tree decl, rtx rtl, int first)

{

  default_encode_section_info (decl, rtl, first);

  /* Mark the decl so we can tell from the rtl whether

     the object is dllexport'd or dllimport'd.  */

  if (sh_symbian_is_dllexported (decl))

    sh_symbian_mark_dllexport (decl);

  else if (sh_symbian_is_dllimported (decl))

    sh_symbian_mark_dllimport (decl);

  /* It might be that DECL has already been marked as dllimport, but a

     subsequent definition nullified that.  The attribute is gone but

     DECL_RTL still has (DLL_IMPORT_PREFIX) prefixed. We need to remove

     that. Ditto for the DECL_DLLIMPORT_P flag.  */

  else if (  (TREE_CODE (decl) == FUNCTION_DECL

           || TREE_CODE (decl) == VAR_DECL)

           && DECL_RTL (decl) != NULL_RTX

           && MEM_P (DECL_RTL (decl))

           && MEM_P (XEXP (DECL_RTL (decl), 0))

           && GET_CODE (XEXP (XEXP (DECL_RTL (decl), 0), 0)) == SYMBOL_REF

           && sh_symbian_is_dllimported_name (XSTR (XEXP (XEXP (DECL_RTL (decl), 0), 0), 0)))

    {

      const char * oldname = XSTR (XEXP (XEXP (DECL_RTL (decl), 0), 0), 0);

      /* Remove DLL_IMPORT_PREFIX.  */

      tree idp = get_identifier (oldname + strlen (DLL_IMPORT_PREFIX));

      rtx newrtl = gen_rtx_SYMBOL_REF (Pmode, IDENTIFIER_POINTER (idp));

      warning (0, "%s %q+D %s after being referenced with dllimport linkage",

               TREE_CODE (decl) == VAR_DECL ? "variable" : "function",

               decl, (DECL_INITIAL (decl) || !DECL_EXTERNAL (decl))

               ? "defined locally" : "redeclared without dllimport attribute");

      XEXP (DECL_RTL (decl), 0) = newrtl;

      DECL_DLLIMPORT_P (decl) = 0;

    }

}

/* Return the length of a function name prefix

    that starts with the character 'c'.  */

static int

sh_symbian_get_strip_length (int c)

{

  /* XXX Assumes strlen (DLL_EXPORT_PREFIX) == strlen (DLL_IMPORT_PREFIX).  */

  return (c == SH_SYMBIAN_FLAG_CHAR[0]) ? strlen (DLL_EXPORT_PREFIX) : 0;

}

/* Return a pointer to a function's name with any

   and all prefix encodings stripped from it.  */

const char *

sh_symbian_strip_name_encoding (const char *name)

{

  int skip;

  while ((skip = sh_symbian_get_strip_length (*name)))

    name += skip;

  return name;

}