From 6098b1027c895dbba128b7ac40b608dcbdbbd8c6 Mon Sep 17 00:00:00 2001
From: Ryszard Glab <rglab@imid.med.pl>
Date: Fri, 30 Jan 2004 14:32:19 +0000
Subject: [PATCH] 2004-01-30 15:30 UTC+0100 Ryszard Glab <rglab@imid.med.pl>   
 * source/pp/ppcore.c       * fixed compilation of &(exp) in normal stringify 
      markers (this fixes INDEX ON bug reported by Jorge)

---
 harbour/ChangeLog          | 5 +++++
 harbour/source/pp/ppcore.c | 5 +++++
 2 files changed, 10 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0a17c51c0b..bc9ad46cfa 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2004-01-30 15:30 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
+   * source/pp/ppcore.c
+      * fixed compilation of &(exp) in normal stringify 
+      markers (this fixes INDEX ON bug reported by Jorge)
+
 2004-01-30 10:40 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
    * source/rtl/teditor.prg
       * the current line is still visible after the window resizing
diff --git a/harbour/source/pp/ppcore.c b/harbour/source/pp/ppcore.c
index 7276097e30..60a8a49010 100644
--- a/harbour/source/pp/ppcore.c
+++ b/harbour/source/pp/ppcore.c
@@ -2779,6 +2779,11 @@ static BOOL ScanMacro( char * expreal, int lenitem, int * pNewLen )
 			lennew = lenitem-1;
 			break;
 		}
+		else if( expreal[ i ] == '(' )
+		{
+			/* &(var)  => "(var)" */
+			break;
+		}
 	} while( i++ < lenitem );
 
 	if( bSmartMacro )