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

2001-04-25 17:51 GMT-3 Horacio Roldan <horacioroldan@usa.net>

Browse Source 
*source/rdd/workarea.c
     * patched GPF using valResult.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-04-25 20:55:14 +00:00
parent 92ff7c522f
commit 7b95e190a5
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-04-25 17:51 GMT-3 Horacio Roldan <horacioroldan@usa.net>
*source/rdd/workarea.c
* patched GPF using valResult.
2001-04-25 20:08 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/vm/debug.c
! __VMPARLLIST( <nProcLevel> ) enhanced to accept a nProcLevel.

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

@@ -968,6 +968,9 @@ ERRCODE hb_waCompile( AREAP pArea, BYTE * pExpr )
pMacro = hb_macroCompile( ( char * ) pExpr );
if( pMacro )
{
if( ! pArea->valResult )
pArea->valResult = hb_itemNew( NULL );
pArea->valResult = hb_itemPutPtr( pArea->valResult, ( void * ) pMacro );
return SUCCESS;
}
@@ -1002,6 +1005,9 @@ ERRCODE hb_waEvalBlock( AREAP pArea, PHB_ITEM pBlock )
{
HB_TRACE(HB_TR_DEBUG, ("hb_waEvalBlock(%p, %p)", pArea, pBlock));
if( ! pArea->valResult )
pArea->valResult = hb_itemNew( NULL );
hb_itemCopy( pArea->valResult, hb_vmEvalBlock( pBlock ) );
return SUCCESS;
}
}