summaryrefslogtreecommitdiff
path: root/gcc/ada/s-fishfl.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/s-fishfl.ads')
-rw-r--r--gcc/ada/s-fishfl.ads4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-fishfl.ads b/gcc/ada/s-fishfl.ads
index 7308618f1ad..0b0839fc998 100644
--- a/gcc/ada/s-fishfl.ads
+++ b/gcc/ada/s-fishfl.ads
@@ -32,7 +32,7 @@
------------------------------------------------------------------------------
-- This package contains an instantiation of the floating-point attribute
--- runtime routines for IEEE short float. This is used on VMS targest where
+-- runtime routines for IEEE short float. This is used on VMS targets where
-- we can't just use Float, since this may have been mapped to Vax_Float
-- using a Float_Representation configuration pragma.
@@ -44,7 +44,7 @@ package System.Fat_IEEE_Short_Float is
type Fat_IEEE_Short is digits 6;
pragma Float_Representation (IEEE_Float, Fat_IEEE_Short);
- -- Note the only entity from this package that is acccessed by Rtsfind
+ -- Note the only entity from this package that is accessed by Rtsfind
-- is the name of the package instantiation. Entities within this package
-- (i.e. the individual floating-point attribute routines) are accessed
-- by name using selected notation.