481a98c112
the fortran part.
37 lines
1.4 KiB
Plaintext
37 lines
1.4 KiB
Plaintext
$OpenBSD: patch-gcc_c-common_c,v 1.1.1.1 2007/03/17 22:35:25 espie Exp $
|
||
--- gcc/c-common.c.orig Fri Mar 9 17:16:35 2007
|
||
+++ gcc/c-common.c Mon Mar 12 11:42:55 2007
|
||
@@ -556,6 +556,7 @@ static tree handle_cleanup_attribute (tr
|
||
static tree handle_warn_unused_result_attribute (tree *, tree, tree, int,
|
||
bool *);
|
||
static tree handle_sentinel_attribute (tree *, tree, tree, int, bool *);
|
||
+static tree handle_bounded_attribute (tree *, tree, tree, int, bool *);
|
||
|
||
static void check_function_nonnull (tree, int, tree *);
|
||
static void check_nonnull_arg (void *, tree, unsigned HOST_WIDE_INT);
|
||
@@ -635,6 +636,8 @@ const struct attribute_spec c_common_att
|
||
handle_deprecated_attribute },
|
||
{ "vector_size", 1, 1, false, true, false,
|
||
handle_vector_size_attribute },
|
||
+ { "bounded", 3, 4, false, true, false,
|
||
+ handle_bounded_attribute },
|
||
{ "visibility", 1, 1, false, false, false,
|
||
handle_visibility_attribute },
|
||
{ "tls_model", 1, 1, true, false, false,
|
||
@@ -6022,6 +6025,15 @@ handle_warn_unused_result_attribute (tre
|
||
}
|
||
|
||
return NULL_TREE;
|
||
+}
|
||
+
|
||
+static tree
|
||
+handle_bounded_attribute (tree *ARG_UNUSED (node), tree ARG_UNUSED (name),
|
||
+ tree ARG_UNUSED (args),
|
||
+ int ARG_UNUSED (flags), bool *no_add_attrs)
|
||
+{
|
||
+ *no_add_attrs = true;
|
||
+ return NULL_TREE;
|
||
}
|
||
|
||
/* Handle a "sentinel" attribute. */
|