Commit 7a0f14e5 by Geoff Keating Committed by Geoffrey Keating

decl2.c (arg_assoc_type): Handle VECTOR_TYPE.

	* decl2.c (arg_assoc_type): Handle VECTOR_TYPE.
	* error.c (dump_type): Handle VECTOR_TYPE like POINTER_TYPE.
	(dump_type_prefix): Print vector-of-int as 'int vector'.
	(dump_type_suffix): Handle VECTOR_TYPE like POINTER_TYPE.
	* tree.c (walk_tree): Handle VECTOR_TYPE.

From-SVN: r37002
parent 3b9ae6f0
2000-10-21 Geoffrey Keating <geoffk@cygnus.com> 2000-10-21 Geoffrey Keating <geoffk@cygnus.com>
* decl2.c (arg_assoc_type): Handle VECTOR_TYPE.
* error.c (dump_type): Handle VECTOR_TYPE like POINTER_TYPE.
(dump_type_prefix): Print vector-of-int as 'int vector'.
(dump_type_suffix): Handle VECTOR_TYPE like POINTER_TYPE.
* tree.c (walk_tree): Handle VECTOR_TYPE.
* decl.c (init_decl_processing): Call MD_INIT_BUILTINS. * decl.c (init_decl_processing): Call MD_INIT_BUILTINS.
2000-10-21 Jason Merrill <jason@redhat.com> 2000-10-21 Jason Merrill <jason@redhat.com>
......
...@@ -4916,6 +4916,7 @@ arg_assoc_type (k, type) ...@@ -4916,6 +4916,7 @@ arg_assoc_type (k, type)
case POINTER_TYPE: case POINTER_TYPE:
case REFERENCE_TYPE: case REFERENCE_TYPE:
case ARRAY_TYPE: case ARRAY_TYPE:
case VECTOR_TYPE:
return arg_assoc_type (k, TREE_TYPE (type)); return arg_assoc_type (k, TREE_TYPE (type));
case UNION_TYPE: case UNION_TYPE:
case ENUMERAL_TYPE: case ENUMERAL_TYPE:
......
...@@ -539,6 +539,7 @@ dump_type (t, flags) ...@@ -539,6 +539,7 @@ dump_type (t, flags)
reduces code size. */ reduces code size. */
case ARRAY_TYPE: case ARRAY_TYPE:
case POINTER_TYPE: case POINTER_TYPE:
case VECTOR_TYPE:
case REFERENCE_TYPE: case REFERENCE_TYPE:
case OFFSET_TYPE: case OFFSET_TYPE:
offset_type: offset_type:
...@@ -697,6 +698,15 @@ dump_type_prefix (t, flags) ...@@ -697,6 +698,15 @@ dump_type_prefix (t, flags)
switch (TREE_CODE (t)) switch (TREE_CODE (t))
{ {
case VECTOR_TYPE:
padding = dump_type_prefix (TREE_TYPE (t), flags);
if (padding != none)
output_add_space (scratch_buffer);
output_add_string (scratch_buffer, "vector");
dump_qualifiers (t, before);
padding = before;
break;
case POINTER_TYPE: case POINTER_TYPE:
case REFERENCE_TYPE: case REFERENCE_TYPE:
{ {
...@@ -803,6 +813,7 @@ dump_type_suffix (t, flags) ...@@ -803,6 +813,7 @@ dump_type_suffix (t, flags)
case POINTER_TYPE: case POINTER_TYPE:
case REFERENCE_TYPE: case REFERENCE_TYPE:
case OFFSET_TYPE: case OFFSET_TYPE:
case VECTOR_TYPE:
if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE) if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
print_right_paren (scratch_buffer); print_right_paren (scratch_buffer);
dump_type_suffix (TREE_TYPE (t), flags); dump_type_suffix (TREE_TYPE (t), flags);
......
...@@ -1351,6 +1351,7 @@ walk_tree (tp, func, data, htab) ...@@ -1351,6 +1351,7 @@ walk_tree (tp, func, data, htab)
case POINTER_TYPE: case POINTER_TYPE:
case REFERENCE_TYPE: case REFERENCE_TYPE:
case VECTOR_TYPE:
WALK_SUBTREE (TREE_TYPE (*tp)); WALK_SUBTREE (TREE_TYPE (*tp));
break; break;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment