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

minor fix borrowed from [x]Harbour

Browse Source
This commit is contained in:
Antonio Linares
2002-02-19 09:20:55 +00:00
parent 4622fe0875
commit 0c2baf425c
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -763,6 +763,9 @@ static void ParseCommand( char * sLine, BOOL com_or_xcom, BOOL com_or_tra )
/* Ron Pinkas added 2000-01-24 */
if( ! ISNAME( *sLine ) )
{
if( *sLine == '[' && ipos )
break;
if( IS_2CHAR_OPERATOR( sLine ) )
{
*(cmdname+ipos++) = *sLine++;
@@ -990,7 +993,7 @@ static void ConvertPatterns( char * mpatt, int mlen, char * rpatt, int rlen )
{
ptr += rmlen++;
while( *ptr != '\0' && *ptr != '>' && *(ptr-1) != '\\' )
{
{
if( *ptr != ' ' && *ptr != '\t' && *ptr != '\"' && *ptr != ')' && *ptr != '}' && *ptr != '.' && *ptr != '-' )
{
ifou = -1;
@@ -3964,4 +3967,4 @@ void CloseInclude( void )
if( hb_comp_files.pLast )
hb_comp_iLine = hb_comp_files.pLast->iLine;
hb_comp_files.iFiles--;
}
}