From 994ac134fa3a2d738647c7667c768f0a3a1b7fc5 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Fri, 24 Oct 2003 07:52:43 +0000 Subject: [PATCH] 2003-10-24 11:50 UTC+0300 Alexander Kresin --- harbour/ChangeLog | 6 ++++++ harbour/source/rdd/dbfntx/dbfntx1.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index bcba1fe9fa..3719570f55 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-10-24 11:50 UTC+0300 Alexander Kresin + * source/rdd/dbfntx/dbfntx1.c + ! Minor fix for calculating the maximum keys number in index page. + Some 3rd party engines ( Crystal Reports ) had problems opening + ntx'es, created by Harbour. + 2003-10-23 15:40 UTC+0100 Ryszard Glab * source/compiler/harbour.l * fixed codeblock scanning - this should cure random GPFs diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c index 028fac1a24..8fffae4b95 100644 --- a/harbour/source/rdd/dbfntx/dbfntx1.c +++ b/harbour/source/rdd/dbfntx/dbfntx1.c @@ -2710,7 +2710,7 @@ static LPTAGINFO hb_ntxTagNew( LPNTXINDEX PIF, char * ITN, BOOL fTagName, char * pTag->KeyType = bKeyType; pTag->KeyLength = uiKeyLen; pTag->KeyDec = uiKeyDec; - pTag->MaxKeys = (NTXBLOCKSIZE-6)/(uiKeyLen+10) - 1; + pTag->MaxKeys = (NTXBLOCKSIZE-3)/(uiKeyLen+10) - 1; if( pTag->MaxKeys%2 && pTag->MaxKeys>2 ) pTag->MaxKeys--; pTag->CurKeyInfo = hb_ntxKeyNew( NULL,pTag->KeyLength );