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

* source/rtl/hbinet.c

Browse Source 
! Fixed return value of HB_INETGETSNDBUFSIZE
This commit is contained in:
Miguel Angel Marchuet Frutos
2008-09-05 12:01:56 +00:00
parent 5400e3d4ba
commit 4d67360c09
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/contrib/hbbmcdx/bmdbfcdx.c
View File

@@ -4040,7 +4040,8 @@ static BOOL hb_cdxPageReadPrevKey( LPCDXPAGE pPage )
break;
}
}
while( !hb_cdxCheckRecordScope( pPage->TagParent->pIndex->pArea,
while( ( pPage->TagParent->OptFlags & CDX_TYPE_STRUCTURE ) == 0 &&
!hb_cdxCheckRecordScope( pPage->TagParent->pIndex->pArea,
hb_cdxPageGetKeyRec( pPage, pPage->iCurKey ) ) );
if( pPage->iCurKey != 0 )
hb_cdxSetCurKey( pPage );
@@ -4083,7 +4084,8 @@ static BOOL hb_cdxPageReadNextKey( LPCDXPAGE pPage )
break;
}
}
while( !hb_cdxCheckRecordScope( pPage->TagParent->pIndex->pArea,
while( ( pPage->TagParent->OptFlags & CDX_TYPE_STRUCTURE ) == 0 &&
!hb_cdxCheckRecordScope( pPage->TagParent->pIndex->pArea,
hb_cdxPageGetKeyRec( pPage, pPage->iCurKey ) ) );
if( pPage->iCurKey != 0 )
hb_cdxSetCurKey( pPage );

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

@@ -214,9 +214,9 @@
#endif
#if (__POCC__ >= 500) && defined( HB_OS_WIN_64 )
/* TOFIX: Bad workaround for the '__WSAFDIsSet unresolved' problem
in Pelles C 5.00.13 AMD64 mode, to make final executables
link at all. Some hbinet.c features (or the whole module)
/* TOFIX: Bad workaround for the '__WSAFDIsSet unresolved' problem
in Pelles C 5.00.13 AMD64 mode, to make final executables
link at all. Some hbinet.c features (or the whole module)
won't properly work though. [vszakats] */
#undef FD_ISSET
#define FD_ISSET( s, f ) ( 0 )
@@ -808,6 +808,7 @@ HB_FUNC( HB_INETGETSNDBUFSIZE )
#else
getsockopt( Socket->com, SOL_SOCKET, SO_SNDBUF, ( void * ) &value, &len );
#endif
hb_retni( value );
}
}