diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 09:35:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 09:35:45 +0000 |
| commit | 4c255c08696c30645d109f6dc2c8dd0ea6483ec4 (patch) | |
| tree | 5cab2bb05255ab0b1bfa15428a1ebaaa86c6f50a /gcc/ada/g-socthi-vxworks.adb | |
| parent | 5b76e9f344761b6249f6cc142aefc8fb568ed758 (diff) | |
| download | gcc-4c255c08696c30645d109f6dc2c8dd0ea6483ec4.tar.gz | |
2009-07-13 Emmanuel Briot <briot@adacore.com>
* prj-env.adb (Create_Config_Pragmas_File): Iterate on sources rather
than units.
2009-07-13 Thomas Quinot <quinot@adacore.com>
* sem_ch3.adb (Process_Full_View): Propagate Has_Specified_Stream_{Read,
Write,Input,Output} from private view to full view.
* sem_type.adb, sem_type.ads: Minor reformatting
2009-07-13 Nicolas Setton <setton@adacore.com>
* exp_dbug.ads: Add documentation note on the utility of
DW_AT_GNAT_encoding for IDEs.
2009-07-13 Robert Dewar <dewar@adacore.com>
* g-socthi-vxworks.adb: Minor reformatting
* gnatcmd.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149561 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socthi-vxworks.adb')
| -rw-r--r-- | gcc/ada/g-socthi-vxworks.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/g-socthi-vxworks.adb b/gcc/ada/g-socthi-vxworks.adb index 8a90056312b..96d0cfca7a3 100644 --- a/gcc/ada/g-socthi-vxworks.adb +++ b/gcc/ada/g-socthi-vxworks.adb @@ -369,12 +369,15 @@ package body GNAT.Sockets.Thin is begin loop if To = Null_Address then + -- In violation of the standard sockets API, VxWorks does not -- support sendto(2) calls on connected sockets with a null -- destination address, so use send(2) instead in that case. Res := Syscall_Send (S, Msg, Len, Flags); + -- Normal case where destination address is non-null + else Res := Syscall_Sendto (S, Msg, Len, Flags, To, Tolen); end if; |