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

2010-02-24 12:42 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/src/rtl/filesys.c
    ! fixed typo and casting due to wrong OS2 API documentation
    * use DosQueryCurrentDir() instead of DosQCurDir() macro

    TOFIX: Current HVM cannot be compiled by OS2 Watcom
This commit is contained in:
Przemyslaw Czerpak
2010-02-24 11:42:48 +00:00
parent c9d2435ba8
commit 8f4a16946b
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-02-24 12:42 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/rtl/filesys.c
! fixed typo and casting due to wrong OS2 API documentation
* use DosQueryCurrentDir() instead of DosQCurDir() macro
TOFIX: Current HVM cannot be compiled by OS2 Watcom
2010-02-24 12:22 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/bin/hb-func.sh
* updated new contrib libraries

8
harbour/src/rtl/filesys.c
View File

@@ -239,7 +239,7 @@
#define HB_FS_GETDRIVE(n) do { \
ULONG ulDrive, ulLogical; \
DosQueryCurrentDisk( &ulDrive, &ulLogical ); \
( n ) == ( int ) ulDrive - 1; \
( n ) = ( int ) ulDrive - 1; \
} while( 0 )
#define HB_FS_SETDRIVE(n) do { DosSetDefaultDisk( ( n ) + 1 ); } while( 0 )
@@ -2781,11 +2781,11 @@ HB_ERRCODE hb_fsCurDirBuff( int iDrive, char * pszBuffer, HB_SIZE ulSize )
if( iDrive >= 0 )
{
USHORT uiLen = ( USHORT ) ulSize;
ULONG ulLen = ( ULONG ) ulSize;
hb_vmUnlock();
hb_fsSetIOError( DosQCurDir( ( USHORT ) iDrive, ( PBYTE ) pszBuffer,
&uiLen ) == NO_ERROR, 0 );
hb_fsSetIOError( DosQueryCurrentDir( iDrive, ( PBYTE ) pszBuffer,
&ulLen ) == NO_ERROR, 0 );
hb_vmLock();
}
else