diff --git a/harbour/ChangeLog b/harbour/ChangeLog index af5af7f250..c2b4303fe0 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-09-29 22:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/vm/hvm.c + ! restored some item type settings I wrongly removed few days ago + 2008-09-29 18:49 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/config/os2/gcc.cf * harbour/make_gnu_os2.cmd diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 5ce3156012..38e11981d9 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -3253,6 +3253,7 @@ static void hb_vmInc( PHB_ITEM pItem ) { if( pItem->item.asInteger.value < HB_INT_MAX ) { + pItem->type = HB_IT_INTEGER; pItem->item.asInteger.value++; pItem->item.asInteger.length = HB_INT_EXPLENGTH( pItem->item.asInteger.value ); } @@ -3272,6 +3273,7 @@ static void hb_vmInc( PHB_ITEM pItem ) } else if( pItem->item.asLong.value < HB_LONG_MAX ) { + pItem->type = HB_IT_LONG; pItem->item.asLong.value++; pItem->item.asLong.length = HB_LONG_EXPLENGTH( pItem->item.asLong.value ); } @@ -3285,11 +3287,13 @@ static void hb_vmInc( PHB_ITEM pItem ) } else if( HB_IS_DOUBLE( pItem ) ) { + pItem->type = HB_IT_DOUBLE; pItem->item.asDouble.value++; pItem->item.asDouble.length = HB_DBL_LENGTH( pItem->item.asDouble.value ); } else if( HB_IS_DATE( pItem ) ) { + pItem->type = HB_IT_DATE; pItem->item.asDate.value++; } else if( ! hb_objOperatorCall( HB_OO_OP_INC, pItem, pItem, NULL, NULL ) ) @@ -3314,6 +3318,7 @@ static void hb_vmDec( PHB_ITEM pItem ) { if( pItem->item.asInteger.value > HB_INT_MIN ) { + pItem->type = HB_IT_INTEGER; pItem->item.asInteger.value--; pItem->item.asInteger.length = HB_INT_EXPLENGTH( pItem->item.asInteger.value ); } @@ -3333,6 +3338,7 @@ static void hb_vmDec( PHB_ITEM pItem ) } else if( pItem->item.asLong.value > HB_LONG_MIN ) { + pItem->type = HB_IT_LONG; pItem->item.asLong.value--; pItem->item.asLong.length = HB_LONG_EXPLENGTH( pItem->item.asLong.value ); } @@ -3346,11 +3352,13 @@ static void hb_vmDec( PHB_ITEM pItem ) } else if( HB_IS_DOUBLE( pItem ) ) { + pItem->type = HB_IT_DOUBLE; pItem->item.asDouble.value--; pItem->item.asDouble.length = HB_DBL_LENGTH( pItem->item.asDouble.value ); } else if( HB_IS_DATE( pItem ) ) { + pItem->type = HB_IT_DATE; pItem->item.asDate.value--; } else if( ! hb_objOperatorCall( HB_OO_OP_DEC, pItem, pItem, NULL, NULL ) )