From 72cad9bdeee50549eeec2e4334bcdb33f5a41332 Mon Sep 17 00:00:00 2001 From: Horacio Dario Roldan Kasimatis Date: Thu, 8 Aug 2002 03:40:51 +0000 Subject: [PATCH] 2002-08-08 00:40 UTC-0300 Horacio Roldan * source/rdd/dbcmd.c * source/rdd/dbf1.c ! minor change to previous fix in dbCloseArea --- harbour/source/rdd/dbcmd.c | 2 +- harbour/source/rdd/dbf1.c | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c index 93306e06bc..be3566f6aa 100644 --- a/harbour/source/rdd/dbcmd.c +++ b/harbour/source/rdd/dbcmd.c @@ -479,7 +479,7 @@ ERRCODE hb_rddInherit( PRDDFUNCS pTable, PRDDFUNCS pSubTable, PRDDFUNCS pSuperTa void hb_rddReleaseCurrentArea( void ) { HB_TRACE(HB_TR_DEBUG, ("hb_rddReleaseCurrentArea()")); - SELF_FORCEREL( ( AREAP ) s_pCurrArea->pArea ); + // SELF_FORCEREL( ( AREAP ) s_pCurrArea->pArea ); SELF_CLOSE( ( AREAP ) s_pCurrArea->pArea ); SELF_RELEASE( ( AREAP ) s_pCurrArea->pArea ); diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c index 7ea1004213..270125a540 100644 --- a/harbour/source/rdd/dbf1.c +++ b/harbour/source/rdd/dbf1.c @@ -1404,6 +1404,8 @@ ERRCODE hb_dbfSetFieldExtent( DBFAREAP pArea, USHORT uiFieldExtent ) ERRCODE hb_dbfClose( DBFAREAP pArea ) { HB_TRACE(HB_TR_DEBUG, ("hb_dbfClose(%p)", pArea)); + /* Reset parent rel struct */ + pArea->lpdbPendingRel = NULL; SUPER_CLOSE( ( AREAP ) pArea );