Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add naked function attribute support. #7

Open
wants to merge 1 commit into
base: epiphany-gcc-5
Choose a base branch
from
Open

Add naked function attribute support. #7

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
42 changes: 41 additions & 1 deletion gcc/config/epiphany/epiphany.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -105,7 +105,10 @@ static tree epiphany_handle_forwarder_attribute (tree *, tree, tree, int,
static bool epiphany_pass_by_reference (cumulative_args_t, machine_mode,
const_tree, bool);
static rtx_insn *frame_insn (rtx);


static tree epiphany_handle_naked_attribute (tree *, tree, tree, int, bool *);
bool epiphany_is_naked_p (void);

/* defines for the initialization of the GCC target structure. */
#define TARGET_ATTRIBUTE_TABLE epiphany_attribute_table

Expand Down Expand Up @@ -489,9 +492,27 @@ static const struct attribute_spec epiphany_attribute_table[] =
{ "long_call", 0, 0, false, true, true, NULL, false },
{ "short_call", 0, 0, false, true, true, NULL, false },
{ "disinterrupt", 0, 0, false, true, true, NULL, true },
{ "naked", 0, 0, true, false, false, epiphany_handle_naked_attribute, false },
{ NULL, 0, 0, false, false, false, NULL, false }
};

/* Handle a "naked" attribute; arguments as in
struct attribute_spec.handler. */

static tree
epiphany_handle_naked_attribute (tree * node, tree name, tree args ATTRIBUTE_UNUSED,
int flags ATTRIBUTE_UNUSED, bool * no_add_attrs)
{
if (TREE_CODE (*node) != FUNCTION_DECL)
{
warning (OPT_Wattributes, "%qE attribute only applies to functions",
name);
*no_add_attrs = true;
}

return NULL_TREE;
}

/* Handle an "interrupt" attribute; arguments as in
struct attribute_spec.handler. */
static tree
Expand Down Expand Up @@ -1149,6 +1170,10 @@ epiphany_compute_frame_size (int size /* # of var. bytes allocated. */)
first_slot_size = UNITS_PER_WORD;
current_frame_info.frame_offset_known = false;

if(epiphany_is_naked_p()){
return 0;
}

/* See if this is an interrupt handler. Call used registers must be saved
for them too. */
fn_type = epiphany_compute_function_type (current_function_decl);
Expand Down Expand Up @@ -1883,6 +1908,10 @@ epiphany_expand_prologue (void)
enum epiphany_function_type fn_type;
rtx addr, mem, off, reg;

if(epiphany_is_naked_p()){
return;
}

if (!current_frame_info.initialized)
epiphany_compute_frame_size (get_frame_size ());

Expand Down Expand Up @@ -2024,6 +2053,10 @@ epiphany_expand_epilogue (int sibcall_p)
rtx mem, addr, reg, off;
HOST_WIDE_INT restore_offset;

if(epiphany_is_naked_p()){
return;
}

fn_type = epiphany_compute_function_type( current_function_decl);
interrupt_p = EPIPHANY_INTERRUPT_P (fn_type);

Expand Down Expand Up @@ -3229,3 +3262,10 @@ epiphany_need_fp (void)
}

struct gcc_target targetm = TARGET_INITIALIZER;

bool
epiphany_is_naked_p (void)
{
return lookup_attribute ("naked", DECL_ATTRIBUTES (current_function_decl)) != NULL_TREE;
}