fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-06-30 14:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* include/hbextern.ch
     + New inet functions added.

   * source/rtl/hbinet.c
     ! Blind fix for Linux compile error.
This commit is contained in:
Viktor Szakats
2008-06-30 12:48:06 +00:00
parent a44891c2e7
commit 666179e324
3 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-06-30 14:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* include/hbextern.ch
+ New inet functions added.
* source/rtl/hbinet.c
! Blind fix for Linux compile error.
2008-06-30 13:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbmysql/make_b32.bat
* contrib/hbmysql/make_vc.bat

5
harbour/include/hbextern.ch
View File

@@ -1146,6 +1146,11 @@ EXTERNAL HB_INETDGRAMSEND
EXTERNAL HB_INETDGRAMRECV
EXTERNAL HB_INETCRLF
EXTERNAL HB_INETISSOCKET
EXTERNAL HB_INETGETSNDBUFSIZE
EXTERNAL HB_INETGETRCVBUFSIZE
EXTERNAL HB_INETSETSNDBUFSIZE
EXTERNAL HB_INETSETRCVBUFSIZE
#endif /* __PLATFORM__DOS */
EXTERNAL HB_ZLIBVERSION

4
harbour/source/rtl/hbinet.c
View File

@@ -472,10 +472,10 @@ static int hb_socketConnect( HB_SOCKET_STRUCT *Socket )
int value;
socklen_t len = sizeof(value);
if ( getsockopt( Socket->com, SOL_SOCKET, SO_SNDBUF, (char *) &value, &len ) != SOCKET_ERROR )
if( getsockopt( Socket->com, SOL_SOCKET, SO_SNDBUF, (char *) &value, &len ) == 0 )
{
Socket->iSndBufSize = value;
if (getsockopt( Socket->com, SOL_SOCKET, SO_RCVBUF, (char *) &value, &len ) != SOCKET_ERROR )
if( getsockopt( Socket->com, SOL_SOCKET, SO_RCVBUF, (char *) &value, &len ) == 0 )
{
Socket->iRcvBufSize = value;
}