diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-15 15:01:57 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-15 15:01:57 +0000 |
| commit | 86a58d7f49baf072530d96dd6b48a0b4f6bca911 (patch) | |
| tree | 28780414aa6eae96bfb134b18a3bee72b9b7ff88 /gcc/ada/checks.adb | |
| parent | b828b315689edb38104fd4e0d938b8736f871194 (diff) | |
| download | gcc-86a58d7f49baf072530d96dd6b48a0b4f6bca911.tar.gz | |
2008-09-15 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r140370
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@140372 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 12c5b64a9fc..92b66f32f76 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -502,7 +502,7 @@ package body Checks is Type_Level := Make_Integer_Literal (Loc, Type_Access_Level (Typ)); - -- Raise Program_Error if the accessibility level of the the access + -- Raise Program_Error if the accessibility level of the access -- parameter is deeper than the level of the target access type. Insert_Action (Insert_Node, @@ -1096,7 +1096,7 @@ package body Checks is Apply_Discriminant_Check (N, Typ); end if; - -- Apply the the 2005 Null_Excluding check. Note that we do not apply + -- Apply the 2005 Null_Excluding check. Note that we do not apply -- this check if the constraint node is illegal, as shown by having -- an error posted. This additional guard prevents cascaded errors -- and compiler aborts on illegal programs involving Ada 2005 checks. |