diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 3f39a43..7f7f6af 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1902,7 +1902,7 @@ build_simple_component_ref (tree record_variable, tree component, { tree new_field; - /* First loop thru normal components. */ + /* First loop through normal components. */ for (new_field = TYPE_FIELDS (record_type); new_field; new_field = DECL_CHAIN (new_field)) @@ -1910,7 +1910,7 @@ build_simple_component_ref (tree record_variable, tree component, break; /* Next, see if we're looking for an inherited component in an extension. - If so, look thru the extension directly, but not if the type contains + If so, look through the extension directly, but not if the type contains a placeholder, as it might be needed for a later substitution. */ if (!new_field && TREE_CODE (record_variable) == VIEW_CONVERT_EXPR @@ -1926,7 +1926,7 @@ build_simple_component_ref (tree record_variable, tree component, return ref; } - /* Next, loop thru DECL_INTERNAL_P components if we haven't found the + /* Next, loop through DECL_INTERNAL_P components if we haven't found the component in the first search. Doing this search in two steps is required to avoid hidden homonymous fields in the _Parent field. */ if (!new_field) |