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

2016-01-19 12:58 UTC+0100 Maurilio Longo (maurilio.longo@libero.it)

Browse Source 
! tests/longfile.prg
      ! use hb_fSize() instead of FileSize()
This commit is contained in:
maurilio
2016-01-19 12:58:43 +01:00
parent 548bf2da5e
commit 83a19daafb
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog.txt
View File

@@ -10,6 +10,11 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2016-01-19 12:58 UTC+0100 Maurilio Longo (maurilio.longo@libero.it)
! tests/longfile.prg
! use hb_fSize() instead of FileSize()
2016-01-19 11:47 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/compiler/cmdcheck.c
! fixed parsing some parameters taken from environment and

4
tests/longfile.prg
View File

@@ -24,8 +24,8 @@ function main()
long->FIELD1 := PadL( nRec, 30, Space( 1 ) )
next
? "File size is : " + Transform( FileSize( cFileName + ".dbf" ), "@ZE ###,###,###,###" )
? "Index size is: " + Transform( FileSize( cFileName + IndexExt() ), "@ZE ###,###,###,###" )
? "File size is : " + Transform( hb_fSize( cFileName + ".dbf" ), "@ZE ###,###,###,###" )
? "Index size is: " + Transform( hb_fSize( cFileName + IndexExt() ), "@ZE ###,###,###,###" )
? "Testing index..."
for nRec := 1 to nTotalRecs / 10