From 94b8194f85abba228b13bfa0d49f0bfadf1d5574 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Fri, 8 Aug 2014 17:15:25 +0200
Subject: [PATCH] position was not found if source file length was even.

---
 src/ce_messages.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 5b2ab065..e9b760f9 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -488,10 +488,9 @@ begin
   result.x := 0;
   result.y := 0;
   ident := '';
-  i := 0;
+  i := 1;
   while (true) do
   begin
-    inc(i);
     if i > length(aMessage) then exit;
     if aMessage[i] = '.' then
     begin
@@ -513,7 +512,7 @@ begin
           end;
           if aMessage[i] = ')' then
           begin
-            result.y := strToInt(ident);
+            result.y := strToIntDef(ident, -1);
             exit;
           end;
         end;