From 60fc7bd675471f0296ef733c3dde2b7f99df7527 Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Mon, 1 Nov 1999 09:06:41 +0000
Subject: [PATCH] upgrading preprocessor files

---
 harbour/ChangeLog        | 4 ++++
 harbour/source/pp/hbpp.c | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 83f86ba38a..1289d3c50f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/source/pp/hbpp.c b/harbour/source/pp/hbpp.c
index 09179230c1..a871f0d859 100644
--- a/harbour/source/pp/hbpp.c
+++ b/harbour/source/pp/hbpp.c
@@ -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++;