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

Minor correction

Browse Source
This commit is contained in:
Ron Pinkas
2000-10-20 06:39:30 +00:00
parent 538fee3ae7
commit 24ee8f1d78
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/contrib/dot/pp.prg
View File

@@ -1516,7 +1516,9 @@ FUNCTION MatchRule( sKey, sLine, aRules, aResults, bStatement, bUpper )
? "Removed repeatble: " + aTail( aMarkers[ aMP[1] - 1000 ] )
WAIT
ENDIF
aSize( aMarkers[ aMP[1] - 1000 ], Len( aMarkers[ aMP[1] - 1000 ] ) - 1 )
IF ValType( aMarkers[ aMP[1] - 1000 ] ) == 'A'
aSize( aMarkers[ aMP[1] - 1000 ], Len( aMarkers[ aMP[1] - 1000 ] ) - 1 )
ENDIF
ENDIF
IF aMP[2] > 0
EXIT