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

2000-09-20 10:40 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2000-09-20 06:37:02 +00:00
parent d645d71997
commit f2e7aa6ee4
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-09-20 10:40 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/pp/ppcore.c
* fixed bug, reported by J. Lefebvre
2000-09-19 10:40 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/pp/ppcore.c
! Corrected JFL previous change, which commented a fix that solved problem with code like "@&Row,...".

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

@@ -1608,7 +1608,9 @@ static int WorkMarkers( char ** ptrmp, char ** ptri, char * ptro, int * lenres,
else if( *(exppatt+2) == '1' ) /* ---- list match marker */
{
if( !lenreal ) lenreal = getExpReal( expreal, ptri, TRUE, maxlenreal, FALSE );
SearnRep( exppatt,expreal,lenreal,ptro,lenres);
if( lenreal )
SearnRep( exppatt,expreal,lenreal,ptro,lenres);
else return 0;
}
else /* ---- regular match marker */
{
@@ -1618,7 +1620,9 @@ static int WorkMarkers( char ** ptrmp, char ** ptri, char * ptro, int * lenres,
/*
printf("Len: %i Pat: %s Exp: %s\n", lenreal, exppatt, expreal );
*/
SearnRep( exppatt,expreal,lenreal,ptro,lenres);
if( lenreal )
SearnRep( exppatt,expreal,lenreal,ptro,lenres);
else return 0;
}
return 1;
}