2007-10-17 Joel Sherrill <joel.sherrill@oarcorp.com>

	* pingpong.adb: Adding new tests as improvements are made to the RTEMS
	port of the GNAT run-time.

2 files changed, 10 insertions, 0 deletions

diff --git a/pingpong/ChangeLog b/pingpong/ChangeLog
index 6a88005..f9bb837 100644
--- a/pingpong/ChangeLog
+++ b/pingpong/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-17	Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* pingpong.adb: Adding new tests as improvements are made to the RTEMS
+	port of the GNAT run-time.
+
 2007-09-27	Joel Sherrill <joel.sherrill@oarcorp.com>
 
 	* ChangeLog, Makefile, README, pingpong.adb: New files.
diff --git a/pingpong/pingpong.adb b/pingpong/pingpong.adb
index 549e2e6..f33814f 100644
--- a/pingpong/pingpong.adb
+++ b/pingpong/pingpong.adb
@@ -25,7 +25,10 @@ procedure PingPong is
       --  Note that a host can have several addresses. Here we get
       --  the first one which is supposed to be the official one.
       --
+      Ada.Text_IO.Put_Line ("PONG: Get_Host_By_Name" & Host_Name);
       Address.Addr := Addresses (Get_Host_By_Name (Host_Name), 1);
+      Ada.Text_IO.Put_Line ("PONG: Back from Get_Host_By_Name");
+
       --
       --  Get a socket address that is an Internet address and a port
       --
@@ -179,7 +182,9 @@ procedure PingPong is
    --
    --  See comments in Ping section for the first steps.
    --
+      Ada.Text_IO.Put_Line ("PING: Get_Host_By_Name" & Host_Name);
       Address.Addr := Addresses (Get_Host_By_Name (Host_Name), 1);
+      Ada.Text_IO.Put_Line ("PING: Back from Get_Host_By_Name");
       Address.Port := 5432;
       Create_Socket (Socket);