diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 14:51:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-14 14:51:24 +0200 |
| commit | 001c7783c467b58d6107b6cf5e4d9b101c4d80dc (patch) | |
| tree | 572b42099456bca62d54cc5fb472058475deca85 /gcc/ada/g-socket.adb | |
| parent | ee81cbe97718536484b0b623ff875d4a3fabbce0 (diff) | |
| download | gcc-001c7783c467b58d6107b6cf5e4d9b101c4d80dc.zip gcc-001c7783c467b58d6107b6cf5e4d9b101c4d80dc.tar.gz gcc-001c7783c467b58d6107b6cf5e4d9b101c4d80dc.tar.bz2 | |
[multiple changes]
2010-06-14 Ed Schonberg <schonberg@adacore.com>
* sem_util (Is_VMS_Operator): New predicate to determine whether an
operator is an intrinsic operator declared in the DEC system extension.
* sem_res.adb (Resolve_Logical_Op): operation is legal on signed types
if the operator is a VMS intrinsic.
* sem_eval.adb (Eval_Logical_Op): Operation is legal and be
constant-folded if the operands are signed and the operator is a VMS
intrinsic.
2010-06-14 Robert Dewar <dewar@adacore.com>
* g-socket.adb, gnatcmd.adb: Minor reformatting
From-SVN: r160734
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 0122c5a..a364cb2 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -900,6 +900,7 @@ package body GNAT.Sockets is begin Netdb_Lock; + if C_Gethostbyaddr (HA'Address, HA'Size / 8, SOSC.AF_INET, Res'Access, Buf'Address, Buflen, Err'Access) /= 0 then @@ -935,6 +936,7 @@ package body GNAT.Sockets is begin Netdb_Lock; + if C_Gethostbyname (HN, Res'Access, Buf'Address, Buflen, Err'Access) /= 0 then @@ -986,6 +988,7 @@ package body GNAT.Sockets is begin Netdb_Lock; + if C_Getservbyname (SN, SP, Res'Access, Buf'Address, Buflen) /= 0 then Netdb_Unlock; raise Service_Error with "Service not found"; @@ -1015,6 +1018,7 @@ package body GNAT.Sockets is begin Netdb_Lock; + if C_Getservbyport (C.int (Short_To_Network (C.unsigned_short (Port))), SP, Res'Access, Buf'Address, Buflen) /= 0 |