Changeset bf85c63 in ada-examples


Ignore:
Timestamp:
Oct 17, 2007, 8:55:02 PM (12 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
ada-examples-4-10-branch, ada-examples-4-9-branch, master
Children:
2059da6
Parents:
b7253bf
Message:

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

  • pingpong.adb: Adding new tests as improvements are made to the RTEMS port of the GNAT run-time.
Location:
pingpong
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • pingpong/ChangeLog

    rb7253bf rbf85c63  
     12007-10-17      Joel Sherrill <joel.sherrill@oarcorp.com>
     2
     3        * pingpong.adb: Adding new tests as improvements are made to the RTEMS
     4        port of the GNAT run-time.
     5
    162007-09-27      Joel Sherrill <joel.sherrill@oarcorp.com>
    27
  • pingpong/pingpong.adb

    rb7253bf rbf85c63  
    2626      --  the first one which is supposed to be the official one.
    2727      --
     28      Ada.Text_IO.Put_Line ("PONG: Get_Host_By_Name" & Host_Name);
    2829      Address.Addr := Addresses (Get_Host_By_Name (Host_Name), 1);
     30      Ada.Text_IO.Put_Line ("PONG: Back from Get_Host_By_Name");
     31
    2932      --
    3033      --  Get a socket address that is an Internet address and a port
     
    180183   --  See comments in Ping section for the first steps.
    181184   --
     185      Ada.Text_IO.Put_Line ("PING: Get_Host_By_Name" & Host_Name);
    182186      Address.Addr := Addresses (Get_Host_By_Name (Host_Name), 1);
     187      Ada.Text_IO.Put_Line ("PING: Back from Get_Host_By_Name");
    183188      Address.Port := 5432;
    184189      Create_Socket (Socket);
Note: See TracChangeset for help on using the changeset viewer.