*** empty log message ***

1999-08-04 18:42:48 +00:00
parent 8688f2a8ca
commit 70a082a7a7
2 changed files with 5 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990804-14:30 EDT Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/filesys.c
+     * added a cast (reported by Matteo)
+
 19990804-20:30 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rtl/achoice.prg
     + Uses __COLORINDEX()
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -791,7 +791,7 @@ HARBOUR HB_FREADSTR( void )

 HARBOUR HB_CURDIR( void )
 {
-   hb_retc( hb_fsCurDir( ( ISCHAR( 1 ) && hb_parclen( 1 ) ) ? (USHORT)( toupper( *hb_parc( 1 ) ) - 'A' + 1 ) : 0 ) );
+   hb_retc( (char *)hb_fsCurDir( ( ISCHAR( 1 ) && hb_parclen( 1 ) ) ? (USHORT)( toupper( *hb_parc( 1 ) ) - 'A' + 1 ) : 0 ) );
 }

 HARBOUR HB_BIN2I( void )