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

2001-12-13 15:09 UTC+0100 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* include/hbexprb.c
     + changed lastest version with the one posted by Ron
This commit is contained in:
Maurilio Longo
2001-12-13 14:04:54 +00:00
parent f46e665e15
commit a9ae00d215
2 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2001-12-13 15:09 UTC+0100 Maurilio Longo <maurilio.longo@libero.it>
* include/hbexprb.c
+ changed lastest version with the one posted by Ron
2001-12-13 03:50 UTC+0100 Antonio Linares <alinares@fivetech.com>
* source/vm/maindllp.c
* First VM/RTL functions added

16
harbour/include/hbexprb.c
View File

@@ -441,9 +441,23 @@ static HB_EXPR_FUNC( hb_compExprUseCodeblock )
hb_compWarnMeaningless( pSelf );
break;
case HB_EA_DELETE:
{
HB_EXPR_PTR pExp = pSelf->value.asList.pExprList;
HB_EXPR_PTR pNext;
hb_compExprCBVarDel( ( HB_CBVAR_PTR ) pSelf->value.asList.pIndex );
HB_EXPR_PCODE1( hb_compExprDelete, pSelf->value.asList.pExprList );
/* Delete all expressions of the block.
*/
while( pExp )
{
pNext = pExp->pNext;
HB_EXPR_PCODE1( hb_compExprDelete, pExp );
pExp = pNext;
}
break;
}
}
return pSelf;
}