fixed infinite loop in VBNetExpressionFinder

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/branches/vbnet@6063 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/Libraries/NRefactory/Test/Lexer/VBNet/LexerContextTests.cs

@@ -419,6 +419,8 @@ exit Global
 			
 			Console.WriteLine(p.Output);
 			
+			Assert.IsEmpty(p.Errors);
+			
 			Assert.AreEqual(expectedOutput, p.Output);
 		}
 	}

src/Main/ICSharpCode.SharpDevelop.Dom/Project/Src/VBNet/VBNetExpressionFinder.cs

@@ -61,7 +61,13 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
 			do {
 				t = lexer.NextToken();
 				p.InformToken(t);
-			} while (t.Location <= targetPosition);
+			} while (t.Location < targetPosition);
+			
+			// HACK simulate <= but avoid endless loop at file end.
+			if (t.Location == targetPosition) {
+				t = lexer.NextToken();
+				p.InformToken(t);
+			}
 			
 			Block block = p.CurrentBlock;