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

2009-08-25 19:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbvmpub.h
    ! fixed default size macro used in HB_ITEM_PUT_LONGRAW()

  * harbour/include/hbexprb.c
    * enable ("alias")-> optimization only when -ko harbour compiler
      option is used - it changes RT error.
This commit is contained in:
Przemyslaw Czerpak
2009-08-25 17:56:03 +00:00
parent c257e841d5
commit 6cce7ea4c5
3 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -17,6 +17,14 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-08-25 19:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbvmpub.h
! fixed default size macro used in HB_ITEM_PUT_LONGRAW()
* harbour/include/hbexprb.c
* enable ("alias")-> optimization only when -ko harbour compiler
option is used - it changes RT error.
2009-08-25 18:25 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* config/global.mk
+ Added SVN revision detection and display in log header.

4
harbour/include/hbexprb.c
View File

@@ -2184,7 +2184,7 @@ static HB_EXPR_FUNC( hb_compExprUseAliasVar )
{
pSelf->value.asAlias.pAlias = hb_compExprReduceList(
pSelf->value.asAlias.pAlias, HB_COMP_PARAM );
if( HB_SUPPORT_HARBOUR &&
if( HB_SUPPORT_EXTOPT &&
pSelf->value.asAlias.pAlias->value.asList.pExprList->ExprType == HB_ET_STRING &&
pSelf->value.asAlias.pAlias->value.asList.pExprList->pNext == NULL )
{
@@ -2323,7 +2323,7 @@ static HB_EXPR_FUNC( hb_compExprUseAliasExpr )
case HB_EA_REDUCE:
pSelf->value.asAlias.pAlias = HB_EXPR_USE( pSelf->value.asAlias.pAlias, HB_EA_REDUCE );
pSelf->value.asAlias.pExpList = HB_EXPR_USE( pSelf->value.asAlias.pExpList, HB_EA_REDUCE );
if( HB_SUPPORT_HARBOUR && pSelf->value.asAlias.pAlias->ExprType == HB_ET_STRING )
if( HB_SUPPORT_EXTOPT && pSelf->value.asAlias.pAlias->ExprType == HB_ET_STRING )
pSelf->value.asAlias.pAlias = hb_compExprReduceAliasString(
pSelf->value.asAlias.pAlias,
pSelf->value.asAlias.pAlias, HB_COMP_PARAM );

4
harbour/include/hbvmpub.h
View File

@@ -102,14 +102,14 @@ struct _HB_SYMB;
do { \
(p)->type = HB_IT_INTEGER; \
(p)->item.asInteger.value = ( int ) (v); \
(p)->item.asInteger.length = HB_INT_EXPLENGTH( v ); \
(p)->item.asInteger.length = HB_INT_LENGTH( v ); \
} while( 0 )
# else
# define HB_ITEM_PUT_LONGRAW( p, v ) \
do { \
(p)->type = HB_IT_LONG; \
(p)->item.asLong.value = (v); \
(p)->item.asLong.length = HB_LONG_EXPLENGTH( v ); \
(p)->item.asLong.length = HB_LONG_LENGTH( v ); \
} while( 0 )
# endif