2001-06-21 10:40 UTC-0800 Ron Pinkas <ron@profit-master.com>

* contrib/dot/pp.prg ! Changed MatchRule() to set sNextAnchor (for NextExp()) ONLY for NON optional Anchor.
2001-06-21 17:35:51 +00:00
parent e45efc7a41
commit 9ffdc74852
2 changed files with 7 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-21 10:40 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * contrib/dot/pp.prg
+     ! Changed MatchRule() to set sNextAnchor (for NextExp()) ONLY for NON optional Anchor.
+
 2001-06-21 09:50 UTC-0800 Ron Pinkas <ron@profit-master.com>
   * contrib/dot/pp.prg
     + Added explicit support for Extended expression match marker, in NextExp()
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -3342,8 +3342,10 @@ STATIC FUNCTION MatchRule( sKey, sLine, aRules, aResults, bStatement, bUpper )

         ENDIF

-         IF nMatch < nMatches
+         IF nMatch < nMatches .AND. aRules[Counter][2][nMatch + 1][2] == 0 // Non Optional ONLY!
            sNextAnchor := aRules[Counter][2][nMatch + 1][3]
+         ELSE
+            sNextAnchor := NIL
         ENDIF

         IF bDbgMatch