diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 64d9ded6a48..61b0f924d5c 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2017-04-25  Gary Dismukes  <dismukes@adacore.com>
+
+	* exp_util.adb, exp_util.ads, types.ads: Minor reformatting.
+
 2017-04-25  Bob Duff  <duff@adacore.com>
 
 	* err_vars.ads, fmap.adb, fmap.ads, comperr.adb, fname-sf.adb,
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 414e9d77a55..a775600adff 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -5198,7 +5198,7 @@ package body Exp_Util is
       U_Typ : constant Entity_Id := Unique_Entity (Typ);
 
       function Search_Primitive_Calls (N : Node_Id) return Traverse_Result;
-      --  Search for non-dispatching calls to primitive functions of type Typ
+      --  Search for nondispatching calls to primitive functions of type Typ
 
       ----------------------------
       -- Search_Primitive_Calls --
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads
index 532cca73693..4dc921add69 100644
--- a/gcc/ada/exp_util.ads
+++ b/gcc/ada/exp_util.ads
@@ -559,7 +559,7 @@ package Exp_Util is
    function Expression_Contains_Primitives_Calls_Of
      (Expr : Node_Id;
       Typ  : Entity_Id) return Boolean;
-   --  Return True if the expression Expr contains a non-dispatching call to a
+   --  Return True if the expression Expr contains a nondispatching call to a
    --  function which is a primitive of the tagged type Typ.
 
    function Finalize_Address (Typ : Entity_Id) return Entity_Id;
diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads
index 6180541f183..1ae0f9b3e90 100644
--- a/gcc/ada/types.ads
+++ b/gcc/ada/types.ads
@@ -220,7 +220,7 @@ package Types is
    --  Do not call this elsewhere.
 
    function "=" (X, Y : Source_Buffer_Ptr) return Boolean is abstract;
-   --  Make "=" abstract, to make sure noone calls it. Note that this makes
+   --  Make "=" abstract, to make sure no one calls it. Note that this makes
    --  "/=" abstract as well. Calls to "=" on Source_Buffer_Ptr are always
    --  wrong, because two different arrays allocated at two different addresses
    --  can have the same virtual origin.