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

2002-04-19 19:32 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-04-19 15:29:47 +00:00
parent d1c9ea097f
commit 35665caaa2
2 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -7,6 +7,10 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
! fixed autopen bug on Linux
! fixed recno() while indexing
2002-04-24 00:42 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>
* source/rdd/workarea.c
! fixed bug with set relation to, found by Walter Negro.

28
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -212,20 +212,28 @@ static ULONG* hb_ntxKeysInPage( ULONG ulRecCount, USHORT maxkeys )
for( i=1; i<=iLevel; i++ )
lpArray[i] = 0;
for( i=iLevel; i; i-- )
if( recCount > 0 )
{
koeff = dSum / recCount;
lpArray[i] = (ULONG) ceil( _maxkeys/koeff );
dMul = 1;
for( j=iLevel,dSum=0; j; j-- )
for( i=iLevel; i; i-- )
{
dSum += ( (lpArray[j])? lpArray[j]:maxkeys ) * dMul;
if( j > 1 )
dMul *= (double)(( (lpArray[j])? lpArray[j]:maxkeys )+1);
koeff = dSum / recCount;
lpArray[i] = (ULONG) ceil( _maxkeys/koeff );
dMul = 1;
for( j=iLevel,dSum=0; j; j-- )
{
dSum += ( (lpArray[j])? lpArray[j]:maxkeys ) * dMul;
if( j > 1 )
dMul *= (double)(( (lpArray[j])? lpArray[j]:maxkeys )+1);
}
}
dSum -= recCount;
lpArray[iLevel+1] = (dMul > dSum)? (ULONG)(dMul - dSum):(ULONG)dMul;
}
else
{
lpArray[1] = maxkeys;
lpArray[2] = 0;
}
dSum -= recCount;
lpArray[iLevel+1] = (dMul > dSum)? (ULONG)(dMul - dSum):(ULONG)dMul;
return lpArray;
}