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

2010-07-07 19:02 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/pp/ppcore.c
    ! Extended one variable type to HB_ISIZ from int after
      latest PP modifications. Shown by msvc64.
This commit is contained in:
Viktor Szakats
2010-07-07 17:03:33 +00:00
parent c863e84065
commit d01a607625
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-07-07 19:02 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/pp/ppcore.c
! Extended one variable type to HB_ISIZ from int after
latest PP modifications. Shown by msvc64.
2010-07-07 18:53 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* src/vm/macro.c
! Added missing renames from prev session.

11
harbour/src/pp/ppcore.c
View File

@@ -1510,21 +1510,22 @@ static void hb_pp_getLine( PHB_PP_STATE pState )
static int hb_pp_tokenStr( PHB_PP_TOKEN pToken, PHB_MEM_BUFFER pBuffer,
HB_BOOL fSpaces, HB_BOOL fQuote, HB_USHORT ltype )
{
int iLines = 0, iSpace = fSpaces ? pToken->spaces : 0;
int iLines = 0;
HB_ISIZ nSpace = fSpaces ? pToken->spaces : 0;
/* This is workaround for stringify token list and later decoding by FLEX
which breaks Clipper compatible code */
if( iSpace == 0 && fQuote && ltype &&
if( nSpace == 0 && fQuote && ltype &&
ltype >= HB_PP_TOKEN_ASSIGN && ltype != HB_PP_TOKEN_EQ &&
HB_PP_TOKEN_TYPE( pToken->type ) >= HB_PP_TOKEN_ASSIGN &&
HB_PP_TOKEN_TYPE( pToken->type ) != HB_PP_TOKEN_EQ )
iSpace = 1;
nSpace = 1;
if( iSpace > 0 )
if( nSpace > 0 )
{
do
hb_membufAddCh( pBuffer, ' ' );
while( --iSpace );
while( --nSpace );
}
if( HB_PP_TOKEN_TYPE( pToken->type ) == HB_PP_TOKEN_STRING )