sem_aggr.adb, [...]: Fix typos.
2015-10-20 Arnaud Charlet <charlet@adacore.com> * sem_aggr.adb, mlib-prj.adb, prep.adb, eval_fat.adb, rtsfind.adb, freeze.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnatlink.adb, par-ch6.adb, exp_tss.adb, exp_ch4.adb, s-shasto.adb, exp_fixd.adb, sem_ch6.adb, clean.adb, sem_ch8.adb, sem_eval.adb, sem_ch9.adb: Fix typos. From-SVN: r229074
This commit is contained in:
parent
d5c1a5f179
commit
1b1d88b1ac
|
@ -1,3 +1,11 @@
|
||||||
|
2015-10-20 Arnaud Charlet <charlet@adacore.com>
|
||||||
|
|
||||||
|
* sem_aggr.adb, mlib-prj.adb, prep.adb, eval_fat.adb, rtsfind.adb,
|
||||||
|
freeze.adb, sem_util.adb, sem_res.adb, sem_attr.adb, gnatlink.adb,
|
||||||
|
par-ch6.adb, exp_tss.adb, exp_ch4.adb, s-shasto.adb, exp_fixd.adb,
|
||||||
|
sem_ch6.adb, clean.adb, sem_ch8.adb, sem_eval.adb, sem_ch9.adb: Fix
|
||||||
|
typos.
|
||||||
|
|
||||||
2015-10-20 Ed Schonberg <schonberg@adacore.com>
|
2015-10-20 Ed Schonberg <schonberg@adacore.com>
|
||||||
|
|
||||||
* sem_ch11.adb (Analyze_Handled_Statements): If the scope is a
|
* sem_ch11.adb (Analyze_Handled_Statements): If the scope is a
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2013, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2001-2014, AdaCore --
|
-- Copyright (C) 2001-2015, AdaCore --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 1992-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2002-2013, Free Software Foundation, Inc. --
|
-- Copyright (C) 2002-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -6,7 +6,7 @@
|
||||||
-- --
|
-- --
|
||||||
-- B o d y --
|
-- B o d y --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 1998-2014, Free Software Foundation, Inc. --
|
-- Copyright (C) 1998-2015, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||||
|
|
|
@ -1193,7 +1193,7 @@ package body Sem_Ch9 is
|
||||||
Tasking_Used := True;
|
Tasking_Used := True;
|
||||||
|
|
||||||
-- Entry_Name is initialized to Any_Id. It should get reset to the
|
-- Entry_Name is initialized to Any_Id. It should get reset to the
|
||||||
-- matching entry entity. An error is signalled if it is not reset
|
-- matching entry entity. An error is signalled if it is not reset.
|
||||||
|
|
||||||
Entry_Name := Any_Id;
|
Entry_Name := Any_Id;
|
||||||
|
|
||||||
|
@ -1311,7 +1311,7 @@ package body Sem_Ch9 is
|
||||||
-- The entity for the protected subprogram corresponding to the entry
|
-- The entity for the protected subprogram corresponding to the entry
|
||||||
-- has been created. We retain the name of this entity in the entry
|
-- has been created. We retain the name of this entity in the entry
|
||||||
-- body, for use when the corresponding subprogram body is created.
|
-- body, for use when the corresponding subprogram body is created.
|
||||||
-- Note that entry bodies have no corresponding_spec, and there is no
|
-- Note that entry bodies have no Corresponding_Spec, and there is no
|
||||||
-- easy link back in the tree between the entry body and the entity for
|
-- easy link back in the tree between the entry body and the entity for
|
||||||
-- the entry itself, which is why we must propagate some attributes
|
-- the entry itself, which is why we must propagate some attributes
|
||||||
-- explicitly from spec to body.
|
-- explicitly from spec to body.
|
||||||
|
@ -1738,7 +1738,7 @@ package body Sem_Ch9 is
|
||||||
-- are no language-defined aspects that apply to a protected body, it is
|
-- are no language-defined aspects that apply to a protected body, it is
|
||||||
-- not worth changing the whole expansion to accomodate implementation-
|
-- not worth changing the whole expansion to accomodate implementation-
|
||||||
-- defined aspects. Plus we cannot possibly known the semantics of such
|
-- defined aspects. Plus we cannot possibly known the semantics of such
|
||||||
-- future implementation defined aspects in order to plan ahead.
|
-- future implementation-defined aspects in order to plan ahead.
|
||||||
|
|
||||||
if Has_Aspects (N) then
|
if Has_Aspects (N) then
|
||||||
Error_Msg_N
|
Error_Msg_N
|
||||||
|
|
Loading…
Reference in New Issue