diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c50487b537751b6bee715275b9fc87304061ec8f..d8fa823ba68ab55bbf84dcfcc27966f05cf23c81 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-15 Robert Dewar <dewar@adacore.com>
+
+ * g-htable.ads, s-htable.ads: Minor reformatting
+
2009-07-15 Robert Dewar <dewar@adacore.com>
* switch-c.adb, sem_ch10.adb, sem_warn.adb, sem_warn.ads: Implement
diff --git a/gcc/ada/g-htable.ads b/gcc/ada/g-htable.ads
index a158d09f618e1e5a2fc89e09ad9aaa3f1f1be322..e747637a5902d0d7642776d1435e5d041cf3b6e8 100644
--- a/gcc/ada/g-htable.ads
+++ b/gcc/ada/g-htable.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1995-2008, AdaCore --
+-- Copyright (C) 1995-2009, AdaCore --
-- --
-- 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- --
@@ -103,7 +103,7 @@ package GNAT.HTable is
-- function Get_First return Element;
-- -- Returns No_Element if the HTable is empty, otherwise returns one
- -- -- non specified element. There is no guarantee that 2 calls to
+ -- -- non specified element. There is no guarantee that two calls to
-- -- this function will return the same element.
-- function Get_Next return Element;
@@ -188,7 +188,7 @@ package GNAT.HTable is
-- function Get_First return Elmt_Ptr;
-- -- Returns Null_Ptr if the HTable is empty, otherwise returns one
- -- -- non specified element. There is no guarantee that 2 calls to
+ -- -- non specified element. There is no guarantee that two calls to
-- -- this function will return the same element.
-- function Get_Next return Elmt_Ptr;
diff --git a/gcc/ada/s-htable.ads b/gcc/ada/s-htable.ads
index bc416abd730ee85c38b36a1599cb1861315ecd96..fc97cf40940de912894c436380c3682abd709348 100644
--- a/gcc/ada/s-htable.ads
+++ b/gcc/ada/s-htable.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1995-2008, AdaCore --
+-- Copyright (C) 1995-2009, AdaCore --
-- --
-- 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- --
@@ -88,7 +88,7 @@ package System.HTable is
function Get_First return Element;
-- Returns No_Element if the HTable is empty, otherwise returns one
- -- non specified element. There is no guarantee that 2 calls to this
+ -- non specified element. There is no guarantee that two calls to this
-- function will return the same element.
function Get_Next return Element;
@@ -175,7 +175,7 @@ package System.HTable is
function Get_First return Elmt_Ptr;
-- Returns Null_Ptr if the HTable is empty, otherwise returns one
- -- non specified element. There is no guarantee that 2 calls to this
+ -- non specified element. There is no guarantee that two calls to this
-- function will return the same element.
function Get_Next return Elmt_Ptr;