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

2010-03-12 15:59 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/filesys.c
    ! Fixed non-UNICODE code after recent get/set drive changes.
    % Minor opt.
This commit is contained in:
Viktor Szakats
2010-03-12 15:00:19 +00:00
parent 08886857bc
commit 301c5487dc
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-03-12 15:59 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/filesys.c
! Fixed non-UNICODE code after recent get/set drive changes.
% Minor opt.
2010-03-12 14:07 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbnf/fttext.c
+ Added FT_FWRITELN().

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

@@ -323,12 +323,11 @@ static int fs_win_get_drive( void )
#if defined( UNICODE )
{
TCHAR lpBuffer[ HB_PATH_MAX ];
HB_SIZE ulSize = HB_SIZEOFARRAY( lpBuffer );
hb_fsSetIOError( ( GetCurrentDirectory( ulSize, lpBuffer ) != 0 ), 0 );
hb_wctombget( szBuffer, lpBuffer, ulSize );
hb_fsSetIOError( ( GetCurrentDirectory( HB_SIZEOFARRAY( lpBuffer ), lpBuffer ) != 0 ), 0 );
hb_wctombget( szBuffer, lpBuffer, HB_SIZEOFARRAY( lpBuffer ) );
}
#else
hb_fsSetIOError( ( GetCurrentDirectory( ulSize, szBuffer ) != 0 ), 0 );
hb_fsSetIOError( ( GetCurrentDirectory( HB_SIZEOFARRAY( szBuffer ), szBuffer ) != 0 ), 0 );
#endif
pFilepath = hb_fsFNameSplit( szBuffer );