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

See ChangeLog entry 19990712-19:15 EDT David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
1999-07-13 00:32:54 +00:00
parent 64ddb66a33
commit acfddf7bcb
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990712-19:15 EDT David G. Holm <dholm@jsd-llc.com>
* source/rtl/files.c
! hb_fsCreate now creates files that are read-write instead of write-only
! hb_fsRead now returns 0 instead of 65536U after a read() error
19990712-22:00 Eddie Runia <eddie@runia.com>
* source/rtl/classes.c
Some more test data left in

9
harbour/source/rtl/files.c
View File

@@ -55,7 +55,7 @@
#endif
#ifndef O_BINARY
#define O_BINARY 0 /* O_BINARY not defined on Linux */
#define O_BINARY 0 /* O_BINARY not defined on Linux */
#endif
#ifndef S_IEXEC
@@ -211,8 +211,8 @@ static void convert_create_flags( int flags, int *result_flags, unsigned *result
{
/* by default FC_NORMAL is set */
*result_flags = O_BINARY | O_CREAT | O_TRUNC | O_WRONLY;
*result_pmode = S_IWUSR;
*result_flags = O_BINARY | O_CREAT | O_TRUNC | O_RDWR;
*result_pmode = S_IRWXU;
if( flags & FC_READONLY )
*result_pmode = S_IRUSR;
@@ -284,6 +284,7 @@ USHORT hb_fsRead ( FHANDLE handle, BYTEP buff, USHORT count )
errno = 0;
bytes = read(handle,buff,count);
last_error = errno;
if( bytes == 65535U ) bytes = 0;
#else
bytes = 0;
last_error = FS_ERROR;
@@ -445,7 +446,7 @@ BYTEP hb_fsCurDir ( USHORT uiDrive )
last_error = FS_ERROR;
#endif
#if defined(_MSC_VER)
BYTEP dmm = (BYTEP)cwd_buff;
BYTEP dmm = (BYTEP)cwd_buff;
#endif
return (BYTEP)cwd_buff;
}