diff options
author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-31 19:28:19 +0000 |
---|---|---|
committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-31 19:28:19 +0000 |
commit | 27f486599a19a5923b58ad522668b34b5c4d956f (patch) | |
tree | fface9c358993512af2d42d8da781b1ceb75942a /gcc/ada/par-ch9.adb | |
parent | 7866ca04c49ac3c8913b7d17b8aa6b8b71653050 (diff) | |
download | gcc-27f486599a19a5923b58ad522668b34b5c4d956f.tar.gz |
gcc/ada/
* g-table.adb, g-tasloc.adb, g-traceb.ads,
g-trasym.adb, g-utf_32.adb, gen-soccon.c, gigi.h, gmem.c,
gnatbind.adb, gnatchop.adb, gnatcmd.adb,
gnatcmd.ads, gnatdll.adb, gnatfind.adb,
gnatlink.adb, gnatmem.adb, gprep.adb,
i-cstrea-vms.adb, i-cstrin.adb, i-pacdec.ads,
i-vxwork.ads, impunit.adb, init.c, initialize.c, inline.adb,
layout.adb, lib-writ.adb, lib-writ.ads, lib-xref.adb,
lib-xref.ads, lib.adb, link.c, live.ads,
make.adb, makegpr.adb, makeutl.adb, math_lib.adb,
mdll-utl.adb, mdll.ads, memroot.adb, memroot.ads,
misc.c, mlib-prj.adb, mlib-tgt-hpux.adb,
mlib-tgt-linux.adb, mlib-tgt-tru64.adb, mlib-tgt.ads,
namet.adb, namet.h, nlists.adb, nlists.ads,
nlists.h, opt.ads, osint-b.ads, osint-c.adb,
osint-c.ads, osint.adb, osint.ads, output.ads,
par-ch10.adb, par-ch12.adb, par-ch2.adb, par-ch3.adb,
par-ch4.adb, par-ch5.adb, par-ch6.adb, par-ch9.adb,
par-endh.adb, par-labl.adb, par-prag.adb,
par-sync.adb, par-tchk.adb, par-util.adb,
par.adb, prep.adb, prep.ads, prepcomp.adb, prj-attr.ads,
prj-dect.adb, prj-env.adb, prj-ext.adb, prj-nmsc.adb,
prj-nmsc.ads, prj-pp.adb, prj-proc.adb,
prj-strt.ads, prj-tree.ads, prj.adb, prj.ads: Fix comment typos.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133770 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch9.adb')
-rw-r--r-- | gcc/ada/par-ch9.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb index 241b2db54ef..6a24776e488 100644 --- a/gcc/ada/par-ch9.adb +++ b/gcc/ada/par-ch9.adb @@ -847,7 +847,8 @@ package body Ch9 is Restore_Scan_State (Scan_State); -- to Id Set_Parameter_Specifications (Decl_Node, P_Formal_Part); - -- Else if Id wi no comma or colon, must be discrete subtype defn + -- Else if Id without comma or colon, must be discrete subtype + -- defn else Restore_Scan_State (Scan_State); -- to Id @@ -1358,7 +1359,7 @@ package body Ch9 is Ecall_Node := P_Name; -- ?? The following two clauses exactly parallel code in ch5 - -- and should be commoned sometime + -- and should be combined sometime if Nkind (Ecall_Node) = N_Indexed_Component then declare @@ -1477,7 +1478,7 @@ package body Ch9 is End_Statements; - -- Here we have a selective accept or an an asynchronous select (first + -- Here we have a selective accept or an asynchronous select (first -- token after SELECT is other than a designator token). else @@ -1668,7 +1669,7 @@ package body Ch9 is -- Note: the reason that we accept THEN ABORT as a terminator for -- the sequence of statements is for error recovery which allows - -- for misuse of an accept statement as a triggering statememt. + -- for misuse of an accept statement as a triggering statement. Set_Statements (Accept_Alt_Node, P_Sequence_Of_Statements (SS_Eltm_Ortm_Tatm)); @@ -1696,7 +1697,7 @@ package body Ch9 is -- Note: the reason that we accept THEN ABORT as a terminator for -- the sequence of statements is for error recovery which allows - -- for misuse of an accept statement as a triggering statememt. + -- for misuse of an accept statement as a triggering statement. Set_Statements (Delay_Alt_Node, P_Sequence_Of_Statements (SS_Eltm_Ortm_Tatm)); |