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

2008-09-22 20:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rdd/dbfntx/dbfntx1.c
  * harbour/source/rdd/dbfcdx/dbfcdx1.c
    * do not allow to close production index by ordBagClear() when
      strict FP compatibility is set for production index or when
      _SET_AUTOPEN is enabled. It compatible behavior to ordListClear()
      function
This commit is contained in:
Przemyslaw Czerpak
2008-09-22 18:55:21 +00:00
parent afb1c7cd2d
commit 700a0c4805
3 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-09-22 20:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rdd/dbfntx/dbfntx1.c
* harbour/source/rdd/dbfcdx/dbfcdx1.c
* do not allow to close production index by ordBagClear() when
strict FP compatibility is set for production index or when
_SET_AUTOPEN is enabled. It compatible behavior to ordListClear()
function
2008-09-22 20:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/classes.c
* harbour/source/rdd/workarea.c

7
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -7294,7 +7294,12 @@ static ERRCODE hb_cdxOrderListDelete( CDXAREAP pArea, LPDBORDERINFO pOrderInfo )
hb_cdxCreateFName( pArea, hb_itemGetCPtr( pOrderInfo->atomBagName ), &fProd,
szFileName, szTagName );
pIndex = hb_cdxFindBag( pArea, szFileName );
if( fProd && ( CDXAREA_DATA( pArea )->fStrictStruct ?
pArea->fHasTags : hb_setGetAutOpen() ) )
pIndex = NULL;
else
pIndex = hb_cdxFindBag( pArea, szFileName );
if( pIndex )
{

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

@@ -7381,7 +7381,9 @@ static ERRCODE ntxOrderListDelete( NTXAREAP pArea, LPDBORDERINFO pOrderInfo )
szFileName, szTagName );
pIndex = hb_ntxFindBag( pArea, szFileName );
if( pIndex )
if( pIndex && !( pIndex->Production && NTXAREA_DATA( pArea )->fStruct &&
( NTXAREA_DATA( pArea )->fStrictStruct ?
pArea->fHasTags : hb_setGetAutOpen() ) ) )
{
pIndexPtr = &pArea->lpIndexes;
while( *pIndexPtr )