From bf85c63c83f115f44268908c025a6b5f00b5720b Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Wed, 17 Oct 2007 20:55:02 +0000 Subject: 2007-10-17 Joel Sherrill * pingpong.adb: Adding new tests as improvements are made to the RTEMS port of the GNAT run-time. --- pingpong/ChangeLog | 5 +++++ pingpong/pingpong.adb | 5 +++++ 2 files changed, 10 insertions(+) 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 + + * pingpong.adb: Adding new tests as improvements are made to the RTEMS + port of the GNAT run-time. + 2007-09-27 Joel Sherrill * 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); -- cgit v1.2.3