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

2008-09-29 22:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/hvm.c
    ! restored some item type settings I wrongly removed few days ago
This commit is contained in:
Przemyslaw Czerpak
2008-09-29 20:56:23 +00:00
parent 9de9b0d5d9
commit 0ef0ce6b1c
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

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

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

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