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

2002-09-19 00:35 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/dbcmd.c
        ! fix gpf in pack, reported by Jorge Mason.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2002-09-19 03:46:45 +00:00
parent 38586f2005
commit 73330fe5b0
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/source/rdd/dbcmd.c
View File

@@ -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 );