| Index: gcc/gcc/fortran/trans-types.h
|
| diff --git a/gcc/gcc/fortran/trans-types.h b/gcc/gcc/fortran/trans-types.h
|
| index 1eadbc0e75b592c9c161f981e67eead3e4b691ec..87feea3dfaff4c21ac36779e35eab841a3cb0f2c 100644
|
| --- a/gcc/gcc/fortran/trans-types.h
|
| +++ b/gcc/gcc/fortran/trans-types.h
|
| @@ -29,6 +29,7 @@ extern GTY(()) tree gfc_array_range_type;
|
| extern GTY(()) tree gfc_character1_type_node;
|
| extern GTY(()) tree ppvoid_type_node;
|
| extern GTY(()) tree pvoid_type_node;
|
| +extern GTY(()) tree prvoid_type_node;
|
| extern GTY(()) tree pchar_type_node;
|
|
|
| /* This is the type used to hold the lengths of character variables.
|
| @@ -72,8 +73,8 @@ tree gfc_build_uint_type (int);
|
|
|
| tree gfc_get_element_type (tree);
|
| tree gfc_get_array_type_bounds (tree, int, tree *, tree *, int,
|
| - enum gfc_array_kind);
|
| -tree gfc_get_nodesc_array_type (tree, gfc_array_spec *, gfc_packed);
|
| + enum gfc_array_kind, bool);
|
| +tree gfc_get_nodesc_array_type (tree, gfc_array_spec *, gfc_packed, bool);
|
|
|
| /* Add a field of given name and type to a UNION_TYPE or RECORD_TYPE. */
|
| tree gfc_add_field_to_struct (tree *, tree, tree, tree);
|
| @@ -90,4 +91,6 @@ int gfc_is_nodesc_array (gfc_symbol *);
|
| /* Return the DTYPE for an array. */
|
| tree gfc_get_dtype (tree);
|
|
|
| +tree gfc_get_ppc_type (gfc_component *);
|
| +
|
| #endif
|
|
|