From: Romain Geissler Date: Thu, 11 Aug 2011 15:57:38 +0000 (+0000) Subject: plugin.def: Add event for finish_decl. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4309e92c980377d6f2c2ba2bb224f254b3cda49f;p=gcc.git plugin.def: Add event for finish_decl. 2011-08-11 Romain Geissler Brian Hackett gcc/ChangeLog: * plugin.def: Add event for finish_decl. * plugin.c (register_callback, invoke_plugin_callbacks): Same. * c-decl.c (finish_decl): Invoke callbacks on above event. * doc/plugins.texi: Document above event. gcc/cp/ChangeLog: * decl.c (cp_finish_decl): Invoke callbacks on finish_decl event. gcc/testsuite/ChangeLog: * g++.dg/plugin/decl_plugin.c: New. * g++.dg/plugin/decl-plugin-test.C: New. * g++.dg/plugin/plugin.exp: Add above testcase. Co-Authored-By: Brian Hackett From-SVN: r177674 --- diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c2c62bc5f21..803e9c7481d 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,11 @@ +2011-08-11 Romain Geissler + Brian Hackett + + * plugin.def: Add event for finish_decl. + * plugin.c (register_callback, invoke_plugin_callbacks): Same. + * c-decl.c (finish_decl): Invoke callbacks on above event. + * doc/plugins.texi: Document above event. + 2011-08-11 Richard Guenther * tree-ssa-sccvn.c (vn_reference_lookup_3): Avoid redundant diff --git a/gcc/c-decl.c b/gcc/c-decl.c index 33d2615bc22..927beb0a33d 100644 --- a/gcc/c-decl.c +++ b/gcc/c-decl.c @@ -4466,6 +4466,8 @@ finish_decl (tree decl, location_t init_loc, tree init, && C_TYPE_FIELDS_READONLY (type)) diagnose_uninitialized_cst_member (decl, type); } + + invoke_plugin_callbacks (PLUGIN_FINISH_DECL, decl); } /* Given a parsed parameter declaration, decode it into a PARM_DECL. diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog index be846ce52a3..f5989f4bc98 100644 --- a/gcc/cp/ChangeLog +++ b/gcc/cp/ChangeLog @@ -1,3 +1,8 @@ +2011-08-11 Romain Geissler + Brian Hackett + + * decl.c (cp_finish_decl): Invoke callbacks on finish_decl event. + 2011-08-10 Richard Guenther * call.c (build_over_call): Call memcpy unconditionally. diff --git a/gcc/cp/decl.c b/gcc/cp/decl.c index 265ca982680..1db074809c8 100644 --- a/gcc/cp/decl.c +++ b/gcc/cp/decl.c @@ -6311,6 +6311,8 @@ cp_finish_decl (tree decl, tree init, bool init_const_expr_p, if (was_readonly) TREE_READONLY (decl) = 1; + + invoke_plugin_callbacks (PLUGIN_FINISH_DECL, decl); } /* Returns a declaration for a VAR_DECL as if: diff --git a/gcc/doc/plugins.texi b/gcc/doc/plugins.texi index faee13e3918..398ebf0c536 100644 --- a/gcc/doc/plugins.texi +++ b/gcc/doc/plugins.texi @@ -151,6 +151,7 @@ enum plugin_event @{ PLUGIN_PASS_MANAGER_SETUP, /* To hook into pass manager. */ PLUGIN_FINISH_TYPE, /* After finishing parsing a type. */ + PLUGIN_FINISH_DECL, /* After finishing parsing a declaration. */ PLUGIN_FINISH_UNIT, /* Useful for summary processing. */ PLUGIN_PRE_GENERICIZE, /* Allows to see low level AST in C and C++ frontends. */ PLUGIN_FINISH, /* Called before GCC exits. */ diff --git a/gcc/plugin.c b/gcc/plugin.c index c93daed055d..3906bffc68b 100644 --- a/gcc/plugin.c +++ b/gcc/plugin.c @@ -420,6 +420,7 @@ register_callback (const char *plugin_name, } /* Fall through. */ case PLUGIN_FINISH_TYPE: + case PLUGIN_FINISH_DECL: case PLUGIN_START_UNIT: case PLUGIN_FINISH_UNIT: case PLUGIN_PRE_GENERICIZE: @@ -496,6 +497,7 @@ invoke_plugin_callbacks_full (int event, void *gcc_data) gcc_assert (event < event_last); /* Fall through. */ case PLUGIN_FINISH_TYPE: + case PLUGIN_FINISH_DECL: case PLUGIN_START_UNIT: case PLUGIN_FINISH_UNIT: case PLUGIN_PRE_GENERICIZE: diff --git a/gcc/plugin.def b/gcc/plugin.def index 4a40c2cf79e..0c9c8bc76f5 100644 --- a/gcc/plugin.def +++ b/gcc/plugin.def @@ -24,6 +24,9 @@ DEFEVENT (PLUGIN_PASS_MANAGER_SETUP) /* After finishing parsing a type. */ DEFEVENT (PLUGIN_FINISH_TYPE) +/* After finishing parsing a declaration. */ +DEFEVENT (PLUGIN_FINISH_DECL) + /* Useful for summary processing. */ DEFEVENT (PLUGIN_FINISH_UNIT) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8c1dcfd7b4f..a18bf7e9def 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2011-08-11 Romain Geissler + Brian Hackett + + * g++.dg/plugin/decl_plugin.c: New. + * g++.dg/plugin/decl-plugin-test.C: New. + * g++.dg/plugin/plugin.exp: Add above testcase. + 2011-08-11 Richard Guenther * g++.dg/tree-ssa/pr41186.C: Un-XFAIL. diff --git a/gcc/testsuite/g++.dg/plugin/decl-plugin-test.C b/gcc/testsuite/g++.dg/plugin/decl-plugin-test.C new file mode 100644 index 00000000000..08a2ff2aa5d --- /dev/null +++ b/gcc/testsuite/g++.dg/plugin/decl-plugin-test.C @@ -0,0 +1,30 @@ +extern int global; // { dg-warning "Decl Global global" } +int global_array[] = { 1, 2, 3 }; // { dg-warning "Decl Global global_array" } + +int takes_args(int arg1, int arg2) +{ + int local = arg1 + arg2 + global; // { dg-warning "Decl Local local" } + return local + 1; +} + +int global = 12; // { dg-warning "Decl Global global" } + +struct test_str { + int field; // { dg-warning "Decl Field field" } +}; + +class test_class { + int class_field1; // { dg-warning "Decl Field class_field1" } + int class_field2; // { dg-warning "Decl Field class_field2" } + + test_class() // { dg-warning "Decl Function test_class" } + : class_field1(0), class_field2(0) + {} + + void swap_fields(int bias) // { dg-warning "Decl Function swap_fields" } + { + int temp = class_field1 + bias; // { dg-warning "Decl Local temp" } + class_field1 = class_field2 - bias; + class_field2 = temp; + } +}; diff --git a/gcc/testsuite/g++.dg/plugin/decl_plugin.c b/gcc/testsuite/g++.dg/plugin/decl_plugin.c new file mode 100644 index 00000000000..879b09accf3 --- /dev/null +++ b/gcc/testsuite/g++.dg/plugin/decl_plugin.c @@ -0,0 +1,51 @@ +/* A plugin example that shows which declarations are caught by FINISH_DECL */ + +#include "gcc-plugin.h" +#include +#include "config.h" +#include "system.h" +#include "coretypes.h" +#include "tree.h" +#include "tree-pass.h" +#include "intl.h" + +int plugin_is_GPL_compatible; + +/* Callback function to invoke after GCC finishes a declaration. */ + +void plugin_finish_decl (void *event_data, void *data) +{ + tree decl = (tree) event_data; + + const char *kind = NULL; + switch (TREE_CODE(decl)) { + case FUNCTION_DECL: + kind = "Function"; break; + case PARM_DECL: + kind = "Parameter"; break; + case VAR_DECL: + if (DECL_FILE_SCOPE_P(decl)) + kind = "Global"; + else + kind = "Local"; + break; + case FIELD_DECL: + kind = "Field"; break; + default: + kind = "Unknown"; + } + + warning (0, G_("Decl %s %s"), + kind, IDENTIFIER_POINTER (DECL_NAME (decl))); +} + +int +plugin_init (struct plugin_name_args *plugin_info, + struct plugin_gcc_version *version) +{ + const char *plugin_name = plugin_info->base_name; + + register_callback (plugin_name, PLUGIN_FINISH_DECL, + plugin_finish_decl, NULL); + return 0; +} diff --git a/gcc/testsuite/g++.dg/plugin/plugin.exp b/gcc/testsuite/g++.dg/plugin/plugin.exp index 72de92dfd42..fb962dfdead 100644 --- a/gcc/testsuite/g++.dg/plugin/plugin.exp +++ b/gcc/testsuite/g++.dg/plugin/plugin.exp @@ -51,7 +51,8 @@ set plugin_test_list [list \ { pragma_plugin.c pragma_plugin-test-1.C } \ { selfassign.c self-assign-test-1.C self-assign-test-2.C self-assign-test-3.C } \ { dumb_plugin.c dumb-plugin-test-1.C } \ - { header_plugin.c header-plugin-test.C } ] + { header_plugin.c header-plugin-test.C } \ + { decl_plugin.c decl-plugin-test.C } ] foreach plugin_test $plugin_test_list { # Replace each source file with its full-path name