Fixed ugly bug in Matcher

This commit is contained in:
Dmitry Boulytchev 2020-08-25 23:21:39 +03:00
parent ac853957ae
commit cc9f3d0ed9
2 changed files with 3 additions and 3 deletions

View file

@ -1 +1 @@
let version = "Version 1.00, cbd715339, Sun Aug 23 00:18:53 2020 +0300" let version = "Version 1.00, ac853957a, Tue Aug 25 16:09:43 2020 +0300"

View file

@ -34,8 +34,8 @@ fun createMatcher (buf, pos, line, col) {
-- Moves the position pointer on given number of characters. -- Moves the position pointer on given number of characters.
fun shift (n) { fun shift (n) {
local i, l = line, c = col; local i, l = line, c = col;
for i := pos, i < n, i := i+1 do for i := pos, i < pos+n, i := i+1 do
case buf [i] of case buf [i] of
'\n' -> l := l + 1; c := 1 '\n' -> l := l + 1; c := 1
| '\t' -> c := c + 8 | '\t' -> c := c + 8