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

2010-10-13 21:52 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/src/rtl/gtstd/gtstd.c
    * code cleanup to make some compilers happy
This commit is contained in:
Mindaugas Kavaliauskas
2010-10-13 18:53:49 +00:00
parent 43fc5b7abf
commit 34fbea1e35
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-10-13 21:52 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/src/rtl/gtstd/gtstd.c
* code cleanup to make some compilers happy
2010-10-13 19:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* package/winuni/RELNOTES
* pgsql version.

3
harbour/src/rtl/gtstd/gtstd.c
View File

@@ -399,10 +399,7 @@ static int hb_gt_std_ReadKey( PHB_GT pGT, int iEventMask )
{
HB_BYTE bChar;
if( hb_fsRead( pGTSTD->hStdin, &bChar, 1 ) == 1 )
{
ch = pGTSTD->keyTransTbl[ bChar ];
exit;
}
}
else /* Remove from the input queue */
ReadConsoleInput( ( HANDLE ) hb_fsGetOsHandle( pGTSTD->hStdin ), &ir, 1, &dwEvents );