diff options
Diffstat (limited to 'gcc/ada/par-endh.adb')
-rw-r--r-- | gcc/ada/par-endh.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb index 59fa37f..585e9c7 100644 --- a/gcc/ada/par-endh.adb +++ b/gcc/ada/par-endh.adb @@ -302,7 +302,7 @@ package body Endh is -- opening label, with the components all marked as not -- from source, and Is_End_Label set in the identifier -- or operator symbol. The location for all components - -- is the curent token location. + -- is the current token location. -- Case of child unit name @@ -975,7 +975,7 @@ package body Endh is else -- A special check. If we have END; followed by an end of file, -- WITH or SEPARATE, then if we are not at the outer level, then - -- we have a sytax error. Consider the example: + -- we have a syntax error. Consider the example: -- ... -- declare @@ -1128,7 +1128,7 @@ package body Endh is -- First we see how good the current END entry is with respect to -- what we expect. It is considered pretty good if the token is OK, - -- and either the label or the column matches. an END for RECORD is + -- and either the label or the column matches. An END for RECORD is -- always considered to be pretty good in the record case. This is -- because not only does a record disallow a nested structure, but -- also it is unlikely that such nesting could occur by accident. |