diff options
Diffstat (limited to 'pingpong/pingpong.adb')
-rw-r--r-- | pingpong/pingpong.adb | 5 |
1 files changed, 5 insertions, 0 deletions
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); |