182 lines
5.0 KiB
C
182 lines
5.0 KiB
C
|
/* Routines for C compiler part of GCC for a Symbian OS targeted SH backend.
|
|||
|
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 the type that we should use to determine if DECL is
|
|||
|
imported or exported. */
|
|||
|
|
|||
|
tree
|
|||
|
sh_symbian_associated_type (tree decl)
|
|||
|
{
|
|||
|
tree t = NULL_TREE;
|
|||
|
|
|||
|
/* We can just take the DECL_CONTEXT as normal. */
|
|||
|
if (DECL_CONTEXT (decl) && TYPE_P (DECL_CONTEXT (decl)))
|
|||
|
t = DECL_CONTEXT (decl);
|
|||
|
|
|||
|
return t;
|
|||
|
}
|
|||
|
|
|||
|
/* Return nonzero if DECL is a dllimport'd object. */
|
|||
|
|
|||
|
bool
|
|||
|
sh_symbian_is_dllimported (tree decl)
|
|||
|
{
|
|||
|
tree imp;
|
|||
|
|
|||
|
if ( TREE_CODE (decl) != VAR_DECL
|
|||
|
&& TREE_CODE (decl) != FUNCTION_DECL)
|
|||
|
return false;
|
|||
|
|
|||
|
imp = lookup_attribute ("dllimport", DECL_ATTRIBUTES (decl));
|
|||
|
if (imp)
|
|||
|
return true;
|
|||
|
|
|||
|
/* Class members get the dllimport status of their class. */
|
|||
|
imp = sh_symbian_associated_type (decl);
|
|||
|
if (! imp)
|
|||
|
return false;
|
|||
|
|
|||
|
imp = lookup_attribute ("dllimport", TYPE_ATTRIBUTES (imp));
|
|||
|
if (!imp)
|
|||
|
return false;
|
|||
|
|
|||
|
/* Don't mark defined functions as dllimport. If the definition itself
|
|||
|
was marked with dllimport, then sh_symbian_handle_dll_attribute reports
|
|||
|
an error. This handles the case when the definition overrides an
|
|||
|
earlier declaration. */
|
|||
|
if (TREE_CODE (decl) == FUNCTION_DECL
|
|||
|
&& DECL_INITIAL (decl)
|
|||
|
&& ! DECL_DECLARED_INLINE_P (decl))
|
|||
|
{
|
|||
|
warning (OPT_Wattributes, "function %q+D is defined after prior "
|
|||
|
"declaration as dllimport: attribute ignored",
|
|||
|
decl);
|
|||
|
return false;
|
|||
|
}
|
|||
|
|
|||
|
/* Don't allow definitions of static data members in dllimport
|
|||
|
class. Just ignore the attribute for vtable data. */
|
|||
|
else if (TREE_CODE (decl) == VAR_DECL
|
|||
|
&& TREE_STATIC (decl)
|
|||
|
&& TREE_PUBLIC (decl)
|
|||
|
&& !DECL_EXTERNAL (decl))
|
|||
|
{
|
|||
|
error ("definition of static data member %q+D of dllimport'd class",
|
|||
|
decl);
|
|||
|
return false;
|
|||
|
}
|
|||
|
|
|||
|
return true;
|
|||
|
}
|
|||
|
|
|||
|
/* Handle a "dllimport" or "dllexport" attribute;
|
|||
|
arguments as in struct attribute_spec.handler. */
|
|||
|
|
|||
|
tree
|
|||
|
sh_symbian_handle_dll_attribute (tree *pnode, tree name, tree args,
|
|||
|
int flags, bool *no_add_attrs)
|
|||
|
{
|
|||
|
tree node = *pnode;
|
|||
|
const char *attr = IDENTIFIER_POINTER (name);
|
|||
|
|
|||
|
/* These attributes may apply to structure and union types being
|
|||
|
created, but otherwise should pass to the declaration involved. */
|
|||
|
if (!DECL_P (node))
|
|||
|
{
|
|||
|
if (flags & ((int) ATTR_FLAG_DECL_NEXT
|
|||
|
| (int) ATTR_FLAG_FUNCTION_NEXT
|
|||
|
| (int) ATTR_FLAG_ARRAY_NEXT))
|
|||
|
{
|
|||
|
warning (OPT_Wattributes, "%qs attribute ignored", attr);
|
|||
|
*no_add_attrs = true;
|
|||
|
return tree_cons (name, args, NULL_TREE);
|
|||
|
}
|
|||
|
|
|||
|
if (TREE_CODE (node) != RECORD_TYPE && TREE_CODE (node) != UNION_TYPE)
|
|||
|
{
|
|||
|
warning (OPT_Wattributes, "%qs attribute ignored", attr);
|
|||
|
*no_add_attrs = true;
|
|||
|
}
|
|||
|
|
|||
|
return NULL_TREE;
|
|||
|
}
|
|||
|
|
|||
|
/* Report error on dllimport ambiguities
|
|||
|
seen now before they cause any damage. */
|
|||
|
else if (is_attribute_p ("dllimport", name))
|
|||
|
{
|
|||
|
if (TREE_CODE (node) == VAR_DECL)
|
|||
|
{
|
|||
|
if (DECL_INITIAL (node))
|
|||
|
{
|
|||
|
error ("variable %q+D definition is marked dllimport",
|
|||
|
node);
|
|||
|
*no_add_attrs = true;
|
|||
|
}
|
|||
|
|
|||
|
/* `extern' needn't be specified with dllimport.
|
|||
|
Specify `extern' now and hope for the best. Sigh. */
|
|||
|
DECL_EXTERNAL (node) = 1;
|
|||
|
/* Also, implicitly give dllimport'd variables declared within
|
|||
|
a function global scope, unless declared static. */
|
|||
|
if (current_function_decl != NULL_TREE && ! TREE_STATIC (node))
|
|||
|
TREE_PUBLIC (node) = 1;
|
|||
|
}
|
|||
|
}
|
|||
|
|
|||
|
/* Report error if symbol is not accessible at global scope. */
|
|||
|
if (!TREE_PUBLIC (node)
|
|||
|
&& ( TREE_CODE (node) == VAR_DECL
|
|||
|
|| TREE_CODE (node) == FUNCTION_DECL))
|
|||
|
{
|
|||
|
error ("external linkage required for symbol %q+D because of %qE attribute",
|
|||
|
node, name);
|
|||
|
*no_add_attrs = true;
|
|||
|
}
|
|||
|
|
|||
|
#if SYMBIAN_DEBUG
|
|||
|
print_node_brief (stderr, "mark node", node, 0);
|
|||
|
fprintf (stderr, " as %s\n", attr);
|
|||
|
#endif
|
|||
|
|
|||
|
return NULL_TREE;
|
|||
|
}
|
|||
|
|
|||
|
int
|
|||
|
sh_symbian_import_export_class (tree ctype ATTRIBUTE_UNUSED, int import_export)
|
|||
|
{
|
|||
|
return import_export;
|
|||
|
}
|