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

ChangeLog 19990910-16:00 GMT+2

Browse Source
This commit is contained in:
Ryszard Glab
1999-09-10 14:05:34 +00:00
parent a44e3d51fb
commit 0b3418ae40
3 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
19990910-16:00 GMT+2 Ryszard Glab <rglab@imim.med.pl>
*source/vm/hvm.c
* string alias is now correctly handled
*include/rddapi.h
+ added declaration for hb_rddSelectAorkAreaAlias
19990910-11:10 GMT+1 Victor Szel <info@szelvesz.hu>
* tests/working/rtl_test.prg
+ Enabled some alias tests which fail. (Ryszard, could you take a look

1
harbour/include/rddapi.h
View File

@@ -12,6 +12,7 @@ typedef USHORT ERRCODE;
/* RDD virtual machine integration functions */
extern int hb_rddGetCurrentWorkAreaNumber( void );
extern void hb_rddSelectWorkAreaAlias( char * szAlias );
extern void hb_rddSelectWorkAreaNumber( int iArea );
extern void hb_rddSelectWorkAreaSymbol( PHB_SYMB pSymAlias );
extern void hb_rddGetFieldValue( HB_ITEM_PTR pItem, PHB_SYMB pFieldSymbol );

14
harbour/source/vm/hvm.c
View File

@@ -1985,9 +1985,7 @@ static void hb_vmPopAlias( void )
case IT_STRING:
/* Alias was evaluated from an expression, for example: (cVar)->field
*/
/* TODO: synchronize it with RDD API
hb_SelectWorkAreaAlias( pItem->item.asString.value );
*/
hb_rddSelectWorkAreaAlias( pItem->item.asString.value );
hb_itemClear( pItem );
break;
@@ -2026,9 +2024,7 @@ static void hb_vmPopAliasedField( PHB_SYMB pSym )
case IT_STRING:
/* Alias was evaluated from an expression, for example: (cVar)->field
*/
/* TODO: synchronize it with RDD API
hb_SelectWorkAreaAlias( pAlias->item.asString.value );
*/
hb_rddSelectWorkAreaAlias( pAlias->item.asString.value );
hb_itemClear( pAlias );
break;
@@ -2260,9 +2256,7 @@ static void hb_vmPushAliasedField( PHB_SYMB pSym )
case IT_STRING:
/* Alias was evaluated from an expression, for example: (cVar)->field
*/
/* TODO: synchronize it with RDD API
hb_SelectWorkAreaAlias( pAlias->item.asString.value );
*/
hb_rddSelectWorkAreaAlias( pAlias->item.asString.value );
hb_itemClear( pAlias );
break;
@@ -2706,9 +2700,7 @@ static void hb_vmSwapAlias( void )
case IT_STRING:
/* Alias was evaluated from an expression, for example: (cVar)->field
*/
/* TODO: synchronize it with RDD API
hb_rddSelectWorkAreaAlias( pWorkArea->item.asString.value );
*/
hb_itemClear( pWorkArea );
break;