diff options
| author | Ralf Wildenhues <Ralf.Wildenhues@gmx.de> | 2008-04-13 18:03:09 +0000 |
|---|---|---|
| committer | Ralf Wildenhues <rwild@gcc.gnu.org> | 2008-04-13 18:03:09 +0000 |
| commit | 3354f96dac09a7c57641fd19083f3aefe0790a35 (patch) | |
| tree | a0f7f9ee4024602fc581b4936e4483304cea1097 /gcc/ada/utils.c | |
| parent | f3d57416230c94a56d89bb6119c47d46f68bc4e6 (diff) | |
| download | gcc-3354f96dac09a7c57641fd19083f3aefe0790a35.zip gcc-3354f96dac09a7c57641fd19083f3aefe0790a35.tar.gz gcc-3354f96dac09a7c57641fd19083f3aefe0790a35.tar.bz2 | |
sfn_scan.adb, [...]: Fix comment typos.
gcc/ada/
* sfn_scan.adb, sfn_scan.ads, sinfo.ads,
sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput.ads,
snames.ads, sprint.adb, stand.ads, stringt.ads,
styleg.adb, styleg.ads, stylesw.adb, stylesw.ads,
switch.ads, sysdep.c, table.adb, table.ads,
targparm.ads, tb-gcc.c, tbuild.ads, tracebak.c,
trans.c, tree_io.adb, treepr.adb, types.adb, types.ads,
uintp.adb, uintp.ads, utils.c, utils2.c, validsw.ads,
vms_conv.adb, vms_conv.ads, vms_data.ads, widechar.adb,
widechar.ads, xeinfo.adb, xgnatugn.adb, xr_tabls.adb,
xr_tabls.ads, xref_lib.adb, xref_lib.ads, xsinfo.adb:
Fix comment typos.
From-SVN: r134243
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 01aa752..96a8558 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1469,7 +1469,7 @@ create_var_decl_1 (tree var_name, tree asm_name, tree type, tree var_init, var_name, type); /* If this is external, throw away any initializations (they will be done - elsewhere) unless this is a a constant for which we would like to remain + elsewhere) unless this is a constant for which we would like to remain able to get the initializer. If we are defining a global here, leave a constant initialization and save any variable elaborations for the elaboration routine. If we are just annotating types, throw away the @@ -2082,7 +2082,7 @@ gnat_genericize_r (tree *stmt_p, int *walk_subtrees, void *data) return NULL; } - /* Otherwise, no need to walk the the same tree twice. */ + /* Otherwise, no need to walk the same tree twice. */ if (pointer_set_contains (p_set, stmt)) { *walk_subtrees = 0; @@ -2214,7 +2214,7 @@ end_subprog_body (tree body) if (type_annotate_only) return; - /* Perform the required pre-gimplfication transformations on the tree. */ + /* Perform the required pre-gimplification transformations on the tree. */ gnat_genericize (fndecl); /* We do different things for nested and non-nested functions. @@ -3231,7 +3231,7 @@ update_pointer_to (tree old_type, tree new_type) qualifiers than the new_type ones, for instance in some cases of pointers to private record type elaboration (see the comments around the call to this routine from gnat_to_gnu_entity/E_Access_Type). We have to merge the - qualifiers in thoses cases too, to avoid accidentally discarding the + qualifiers in those cases too, to avoid accidentally discarding the initial set, and will often end up with old_type == new_type then. */ new_type = build_qualified_type (new_type, TYPE_QUALS (old_type) |