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

2007-07-03 15:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbcompat.ch
    * removed bit translation rules starting with comma (,)

  * harbour/source/rtl/hbhex.c
  * harbour/source/rdd/delim1.c
  * harbour/source/rdd/dbf1.c
  * harbour/source/rdd/sdf1.c
    ! fixed casting
This commit is contained in:
Przemyslaw Czerpak
2007-07-03 13:30:25 +00:00
parent b7a2da9dac
commit 4cc3de83be
6 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -8,6 +8,16 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-07-03 15:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbcompat.ch
* removed bit translation rules starting with comma (,)
* harbour/source/rtl/hbhex.c
* harbour/source/rdd/delim1.c
* harbour/source/rdd/dbf1.c
* harbour/source/rdd/sdf1.c
! fixed casting
2007-07-02 18:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/macro/macro.yyc
* harbour/source/macro/macro.y

9
harbour/include/hbcompat.ch
View File

@@ -150,15 +150,6 @@
#translate ( <exp1> & <exp2> => ( HB_BITAND( <exp1>, <exp2> )
#translate ( <exp1> ^^ <exp2> => ( HB_BITXOR( <exp1>, <exp2> )
#translate , <exp1> IN <exp2> => , <exp1> $ <exp2>
#translate , <exp1> HAS <exp2> => , HB_REGEXHAS( <exp2>, <exp1> )
#translate , <exp1> LIKE <exp2> => , HB_REGEXLIKE( <exp2>, <exp1> )
#translate , <exp1> \<\< <exp2> => , HB_BITSHIFT( <exp1>, <exp2> )
#translate , <exp1> >> <exp2> => , HB_BITSHIFT( <exp1>, -<exp2> )
#translate , <exp1> | <exp2> => , HB_BITOR( <exp1>, <exp2> )
#translate , <exp1> & <exp2> => , HB_BITAND( <exp1>, <exp2> )
#translate , <exp1> ^^ <exp2> => , HB_BITXOR( <exp1>, <exp2> )
#xtranslate HB_BITOR( [<expN>,] <exp2> | <exp3> ) => HB_BITOR( [<expN>,] <exp2>, <exp3> )
#xtranslate HB_BITAND( [<expN>,] <exp2> & <exp3> ) => HB_BITAND( [<expN>,] <exp2>, <exp3> )
#xtranslate HB_BITXOR( [<expN>,] <exp2> ^^ <exp3> ) => HB_BITXOR( [<expN>,] <exp2>, <exp3> )

2
harbour/source/rdd/dbf1.c
View File

@@ -1470,7 +1470,7 @@ static ERRCODE hb_dbfGetValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
}
else
{
hb_itemPutDS( pItem, pArea->pRecord + pArea->pFieldOffset[ uiIndex ] );
hb_itemPutDS( pItem, ( char * ) pArea->pRecord + pArea->pFieldOffset[ uiIndex ] );
}
break;

2
harbour/source/rdd/delim1.c
View File

@@ -589,7 +589,7 @@ static ERRCODE hb_delimGetValue( DELIMAREAP pArea, USHORT uiIndex, PHB_ITEM pIte
break;
case HB_IT_DATE:
hb_itemPutDS( pItem, pArea->pRecord + pArea->pFieldOffset[ uiIndex ] );
hb_itemPutDS( pItem, ( char * ) pArea->pRecord + pArea->pFieldOffset[ uiIndex ] );
break;
case HB_IT_LONG:

2
harbour/source/rdd/sdf1.c
View File

@@ -414,7 +414,7 @@ static ERRCODE hb_sdfGetValue( SDFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
break;
case HB_IT_DATE:
hb_itemPutDS( pItem, pArea->pRecord + pArea->pFieldOffset[ uiIndex ] );
hb_itemPutDS( pItem, ( char * ) pArea->pRecord + pArea->pFieldOffset[ uiIndex ] );
break;
case HB_IT_LONG:

2
harbour/source/rtl/hbhex.c
View File

@@ -122,7 +122,7 @@ HB_FUNC( HB_NUMTOHEX )
ret[ --iLen ] = iDigit + ( iDigit < 10 ? '0' : 'A' - 10 );
ulNum >>= 4;
}
while( fDefaultLen ? ulNum : iLen );
while( fDefaultLen ? ulNum != 0 : iLen != 0 );
hb_retc( &ret[ iLen ] );
}