diff options
| author | nyamatongwe <unknown> | 2009-06-09 08:28:55 +0000 |
|---|---|---|
| committer | nyamatongwe <unknown> | 2009-06-09 08:28:55 +0000 |
| commit | 54994422193c01b596a10f9e195e57e35298dfe4 (patch) | |
| tree | 0dcff9051a1936fa4eac1382c0c8375dda940a6d /src/LexPascal.cxx | |
| parent | 84d7ef180e0cdbe2f1653733138b27143dee3e32 (diff) | |
| download | scintilla-mirror-54994422193c01b596a10f9e195e57e35298dfe4.tar.gz | |
Fix for bug #2802863, Pascal lexer hanging on file that starts with 'interface'
after whitespace.
Diffstat (limited to 'src/LexPascal.cxx')
| -rw-r--r-- | src/LexPascal.cxx | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/LexPascal.cxx b/src/LexPascal.cxx index 371043d94..3dcf35ad5 100644 --- a/src/LexPascal.cxx +++ b/src/LexPascal.cxx @@ -414,7 +414,7 @@ static unsigned int SkipWhiteSpace(unsigned int currentPos, unsigned int endPos, } static void ClassifyPascalWordFoldPoint(int &levelCurrent, int &lineFoldStateCurrent, - unsigned int startPos, unsigned int endPos, + int startPos, unsigned int endPos, unsigned int lastStart, unsigned int currentPos, Accessor &styler) { char s[100]; GetRangeLowered(lastStart, currentPos, styler, s, sizeof(s)); @@ -471,7 +471,7 @@ static void ClassifyPascalWordFoldPoint(int &levelCurrent, int &lineFoldStateCur } else if (strcmp(s, "interface") == 0) { // "interface" keyword requires special handling... bool ignoreKeyword = true; - unsigned int j = lastStart - 1; + int j = lastStart - 1; char ch = styler.SafeGetCharAt(j); while ((j >= startPos) && (IsASpaceOrTab(ch) || ch == '\r' || ch == '\n' || IsStreamCommentStyle(styler.StyleAt(j)))) { |