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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-09-05 07:01:12 +00:00
parent c4f11705ed
commit 62a76f1c80
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990905-02:47 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/filesys.c
* casts on access() and in HB_FILE
19990904-23:35 EDT David G. Holm <dholm@jsd-llc.com>
* include/hbver.h
* Bumped revision from "a" to "b".

6
harbour/source/rtl/filesys.c
View File

@@ -1054,7 +1054,7 @@ BOOL hb_fsFile ( BYTE * pFilename )
/* TODO: Check if F_OK is defined in all compilers */
#ifdef OS_UNIX_COMPATIBLE
is_file = ( access( pFilename, F_OK ) == 0 );
is_file = ( access( (const char *)pFilename, F_OK ) == 0 );
#else
@@ -1070,7 +1070,7 @@ BOOL hb_fsFile ( BYTE * pFilename )
#else
is_file = ( access( pFilename, 0 ) == 0 );
is_file = ( access( (const char *)pFilename, 0 ) == 0 );
#endif
@@ -1085,7 +1085,7 @@ HARBOUR HB_FILE( void )
{
if( ISCHAR( 1 ) )
{
hb_retl( hb_fsFile( hb_parc( 1 ) ) );
hb_retl( hb_fsFile( (BYTE *)hb_parc( 1 ) ) );
}
else
hb_retl( FALSE );