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

2000-06-04 17:35 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* source/pp/ppcore.c
     ! Corrected compiler warning
     ! Corrected @ after ; missing trailing space.
This commit is contained in:
Ron Pinkas
2000-06-05 00:37:14 +00:00
parent 1dbf8d3fcc
commit d19e6ae858
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2000-06-04 17:35 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>
* source/pp/ppcore.c
! Corrected compiler warning
! Corrected @ after ; missing trailing space.
2000-06-04 11:16 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>
* source/pp/ppcomp.c

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

@@ -2132,7 +2132,7 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
char cha, cLast = '\0', symbLast = '\0';
/* Ron Pinkas Begin 2000-06-04 */
static BOOL bNewLine = TRUE;
BOOL bNewLine = TRUE;
/* Ron Pinkas End */
HB_TRACE(HB_TR_DEBUG, ("hb_pp_RdStr(%p, %s, %d, %d, %s, %p, %p)", handl_i, buffer, maxlen, lDropSpaces, sBuffer, lenBuffer, iBuffer));
@@ -2152,9 +2152,6 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
{
if( s_ParseState == STATE_COMMENT && symbLast == ';' )
buffer[readed++] = ';';
/* Ron Pinkas Begin 2000-06-04 */
bNewLine = TRUE;
/* Ron Pinkas End */
break;
}
if( maxlen > 0 )
@@ -2200,8 +2197,10 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
}
else if( !State ) maxlen = readed = 0;
break;
/* Ron Pinkas Begin 2000-06-01 */
case ';':
bNewLine = TRUE;
break;
case '@':
if( bNewLine && sBuffer[ *iBuffer ] != ' ' && sBuffer[ *iBuffer ] != '\t' )
{
@@ -2214,7 +2213,7 @@ int hb_pp_RdStr( FILE * handl_i, char * buffer, int maxlen, BOOL lDropSpaces, ch
}
if( cha != ' ' && cha != ';' ) s_prevchar = cha;
/* Ron Pinkas Begin 2000-06-04 */
if( cha != ' ' && cha != '\t' ) bNewLine = FALSE;
if( cha != ' ' && cha != '\t' && cha != ';' ) bNewLine = FALSE;
/* Ron Pinkas End */
}
if( cha != ' ' && cha != '\t' ) State = 1;