summaryrefslogtreecommitdiff
path: root/gcc/ada/exp_pakd.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/exp_pakd.ads')
-rw-r--r--gcc/ada/exp_pakd.ads4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_pakd.ads b/gcc/ada/exp_pakd.ads
index df5ceb0c5f5..690ec21373b 100644
--- a/gcc/ada/exp_pakd.ads
+++ b/gcc/ada/exp_pakd.ads
@@ -218,7 +218,7 @@ package Exp_Pakd is
-- Note: although this routine is included in the expander package for
-- packed types, it is actually called unconditionally from Freeze,
-- whether or not expansion (and code generation) is enabled. We do this
- -- since we want gigi to be able to properly compute type charactersitics
+ -- since we want gigi to be able to properly compute type characteristics
-- (for the Data Decomposition Annex of ASIS, and possible other future
-- uses) even if code generation is not active. Strictly this means that
-- this procedure is not part of the expander, but it seems appropriate
@@ -263,7 +263,7 @@ package Exp_Pakd is
function Involves_Packed_Array_Reference (N : Node_Id) return Boolean;
-- N is the node for a name. This function returns true if the name
-- involves a packed array reference. A node involves a packed array
- -- reference if it is itself an indexed compoment referring to a bit-
+ -- reference if it is itself an indexed component referring to a bit-
-- packed array, or it is a selected component whose prefix involves
-- a packed array reference.