diff options
Diffstat (limited to 'gcc/ada/contracts.adb')
| -rw-r--r-- | gcc/ada/contracts.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/contracts.adb b/gcc/ada/contracts.adb index 8eb5d8e..ebaecc0 100644 --- a/gcc/ada/contracts.adb +++ b/gcc/ada/contracts.adb @@ -58,7 +58,7 @@ package body Contracts is -- Analyze_Previous_Constracts. Analyze the contracts of all constructs in -- the list L. If Freeze_Nod is set, then the analysis stops when the node -- is reached. Freeze_Id is the entity of some related context which caused - -- freezing upto node Freeze_Nod. + -- freezing up to node Freeze_Nod. procedure Expand_Subprogram_Contract (Body_Id : Entity_Id); -- Expand the contracts of a subprogram body and its correspoding spec (if @@ -1120,7 +1120,7 @@ package body Contracts is Par := Parent (Par); end loop; - -- Analyze the contracts of all eligible construct upto the body which + -- Analyze the contracts of all eligible construct up to the body which -- caused the "freezing". if Is_List_Member (Body_Decl) then |