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

upgrading preprocessor files

Browse Source
This commit is contained in:
Alexander S.Kresin
1999-11-01 09:06:41 +00:00
parent 92234af901
commit 60fc7bd675
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19991101-11:53 GMT+3 Alexander Kresin
* source/pp/hbpp.c
* Fixed bug
19991101-10:10 GMT+3 Alexander Kresin
* source/pp/hbpp.c
* Fixed bug, reported by Antonio Linares

4
harbour/source/pp/hbpp.c
View File

@@ -1901,6 +1901,7 @@ int md_strAt(char *szSub, int lSubLen, char *szText, int checkword, int checkPrt
int State = STATE_NORMAL;
long lPos = 0, lSubPos = 0;
int kolPrth = 0;
int lCase = ( *szSub == '\1' )? 0:1;
HB_TRACE(("md_strAt(%s, %d, %s, %d, %d)", szSub, lSubLen, szText, checkword, checkPrth));
@@ -1943,7 +1944,8 @@ int md_strAt(char *szSub, int lSubLen, char *szText, int checkword, int checkPrt
continue;
}
if( toupper(*(szText + lPos)) == toupper(*(szSub + lSubPos)) )
if( ( lCase && toupper(*(szText + lPos)) == toupper(*(szSub + lSubPos)) ) ||
( !lCase && *(szText + lPos) == *(szSub + lSubPos) ) )
{
lSubPos++;
lPos++;