From 73330fe5b0307e7fe1c0d02b670fc65a5b7ed11b Mon Sep 17 00:00:00 2001 From: Horacio Dario Roldan Kasimatis Date: Thu, 19 Sep 2002 03:46:45 +0000 Subject: [PATCH] 2002-09-19 00:35 UTC-0300 Horacio Roldan * source/rdd/dbcmd.c ! fix gpf in pack, reported by Jorge Mason. --- harbour/source/rdd/dbcmd.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c index be3566f6aa..3bf85e08b2 100644 --- a/harbour/source/rdd/dbcmd.c +++ b/harbour/source/rdd/dbcmd.c @@ -479,7 +479,6 @@ 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_CLOSE( ( AREAP ) s_pCurrArea->pArea ); SELF_RELEASE( ( AREAP ) s_pCurrArea->pArea ); @@ -1634,7 +1633,12 @@ HB_FUNC( __DBPACK ) hb_arraySet( ( ( AREAP ) s_pCurrArea->pArea )->valResult, 2, pEvery ); } else - hb_itemClear( ( ( AREAP ) s_pCurrArea->pArea )->valResult ); + { + if ( ( ( AREAP ) s_pCurrArea->pArea )->valResult ) + hb_itemClear( ( ( AREAP ) s_pCurrArea->pArea )->valResult ); + else + ( ( AREAP ) s_pCurrArea->pArea )->valResult = hb_itemNew( NULL ); + } SELF_PACK( ( AREAP ) s_pCurrArea->pArea ); if( pBlock ) hb_itemClear( ( ( AREAP ) s_pCurrArea->pArea )->valResult );