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

20000331-06:40 est

Browse Source
This commit is contained in:
Paul Tucker
2000-03-31 11:43:19 +00:00
parent 2a79d00092
commit c9eba27d58
2 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
20000331-06:40 EST Paul Tucker <ptucker@sympatico.ca>
* source/rtl/diskspac.c
* minor code opt.
20000331-04:30 EST Paul Tucker <ptucker@sympatico.ca>
* include/hbvmpub.h
* put the #pragma pack in _MSC_VER gaurds which got missed in the

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

@@ -103,13 +103,14 @@ HB_FUNC( DISKSPACE )
dSpace = ( double ) disk.total_clusters *
( double ) disk.sectors_per_cluster *
( double ) disk.bytes_per_sector;
if( uiType == HB_DISK_USED )
dSpace -= ( double ) disk.avail_clusters *
( double ) disk.sectors_per_cluster *
( double ) disk.bytes_per_sector;
break;
}
if( uiType == HB_DISK_USED )
dSpace -= ( double ) disk.avail_clusters *
( double ) disk.sectors_per_cluster *
( double ) disk.bytes_per_sector;
}
#elif defined(HB_OS_WIN_32)
@@ -242,14 +243,14 @@ HB_FUNC( DISKSPACE )
dSpace = ( double ) dwTotalNumberOfClusters *
( double ) dwSectorsPerCluster *
( double ) dwBytesPerSector;
if( uiType == HB_DISK_USED )
dSpace -= ( double ) dwNumberOfFreeClusters *
( double ) dwSectorsPerCluster *
( double ) dwBytesPerSector;
break;
}
if( uiType == HB_DISK_USED )
dSpace -= ( double ) dwNumberOfFreeClusters *
( double ) dwSectorsPerCluster *
( double ) dwBytesPerSector;
}
}