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

2009-07-31 12:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* source/rtl/hbinet.c
    % Minor internal type cleanup.
This commit is contained in:
Viktor Szakats
2009-07-31 10:33:58 +00:00
parent c7da271ebe
commit 81dcbfa6ec
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-07-31 12:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/hbinet.c
% Minor internal type cleanup.
2009-07-31 12:29 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/hbinet.c
% Cleaned old error description handling logic. Now the error

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

@@ -878,7 +878,7 @@ HB_FUNC( HB_INETDATAREADY )
}
static void s_inetSendInternal( int iMode )
static void s_inetSendInternal( BOOL lAll )
{
PHB_SOCKET_STRUCT socket = HB_PARSOCKET( 1 );
PHB_ITEM pBuffer = hb_param( 2, HB_IT_STRING );
@@ -910,7 +910,7 @@ static void s_inetSendInternal( int iMode )
if( iLen > 0 )
{
iSent += iLen;
if( iMode == 0 )
if( ! lAll )
break;
}
else
@@ -929,12 +929,12 @@ static void s_inetSendInternal( int iMode )
HB_FUNC( HB_INETSEND )
{
s_inetSendInternal( 0 );
s_inetSendInternal( FALSE );
}
HB_FUNC( HB_INETSENDALL )
{
s_inetSendInternal( 1 );
s_inetSendInternal( TRUE );
}