URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
| Rev 304 |
Rev 384 |
-- { dg-do run { target { ! "*-*-solaris2*" } } }
|
-- { dg-do run { target { ! "*-*-solaris2*" } } }
|
|
|
with GNAT.Sockets; use GNAT.Sockets;
|
with GNAT.Sockets; use GNAT.Sockets;
|
procedure socket1 is
|
procedure socket1 is
|
X : Character;
|
X : Character;
|
begin
|
begin
|
X := 'x';
|
X := 'x';
|
GNAT.Sockets.Initialize;
|
GNAT.Sockets.Initialize;
|
declare
|
declare
|
H : Host_Entry_Type := Get_Host_By_Address (Inet_Addr ("127.0.0.1"));
|
H : Host_Entry_Type := Get_Host_By_Address (Inet_Addr ("127.0.0.1"));
|
begin
|
begin
|
null;
|
null;
|
end;
|
end;
|
end socket1;
|
end socket1;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
