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

2008-07-03 08:48 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* contrib/hbtpathy/tpos2.c
     ! Blind fix for three OS/2 warnings. David please test.
This commit is contained in:
Viktor Szakats
2008-07-03 06:50:00 +00:00
parent e849a2463b
commit 23d360c752
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-07-03 08:48 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/hbtpathy/tpos2.c
! Blind fix for three OS/2 warnings. David please test.
2008-07-02 23:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/gtwvt/gtwvt.c
! Removed unused variable.

7
harbour/contrib/hbtpathy/tpos2.c
View File

@@ -69,7 +69,6 @@
HB_FUNC( P_INITPORTSPEED )
{
APIRET rc;
LINECONTROL lctl;
DCBINFO dcb;
USHORT Baud = ( USHORT ) hb_parnl( 2 );
@@ -154,13 +153,15 @@ HB_FUNC( P_WRITEPORT )
ULONG nWritten = 0;
APIRET rc = DosWrite( ( HFILE ) hb_parnl( 1 ), hb_parcx( 2 ), hb_parclen( 2 ), &nWritten );
hb_retnl( rc == NO_ERROR ? nWritten : -1 ); /* Put GetLastError() on error, or better a second byref param? */
hb_retnl( rc == NO_ERROR ? ( long ) nWritten : -1 ); /* Put GetLastError() on error, or better a second byref param? */
}
HB_FUNC( P_OUTFREE )
{
APIRET rc;
RXQUEUE rxqueue = { 0 };
RXQUEUE rxqueue;
memset( &rxqueue, 0, sizeof( rxqueue ) );
if( ( rc = DosDevIOCtl( ( HFILE ) hb_parnl( 1 ), IOCTL_ASYNC, ASYNC_GETOUTQUECOUNT,
NULL, 0L, NULL, &rxqueue, sizeof(RXQUEUE), NULL ) ) == NO_ERROR )