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

Moveed 'hb_min' check

Browse Source
This commit is contained in:
Paul Tucker
2000-03-23 22:44:39 +00:00
parent bd088b7b12
commit 803ec1fb66
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -67,13 +67,13 @@ HB_FUNC( DISKSPACE )
USHORT uiType = ISNUM( 2 ) ? hb_parni( 2 ) : HB_DISK_AVAIL;
double dSpace = 0.0;
uiType = HB_MIN( uiType, HB_DISK_TOTAL );
#if defined(HB_OS_DOS) || defined(__WATCOMC__)
struct diskfree_t disk;
unsigned uiResult;
uiType = HB_MIN( uiType, HB_DISK_TOTAL );
while( ( uiResult = _dos_getdiskfree( uiDrive, &disk ) ) != 0 )
{
USHORT uiAction = hb_errRT_BASE_Ext1( EG_OPEN, 2018, NULL, NULL, 0, EF_CANDEFAULT );
@@ -114,6 +114,8 @@ HB_FUNC( DISKSPACE )
#elif defined(HB_OS_WIN_32)
uiType = HB_MIN( uiType, HB_DISK_TOTAL );
while( 1 )
{