From 6e1055dabd1087962bc9b19c38f5eacfcce68c73 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Sun, 10 Jul 2016 12:10:18 +0000
Subject: [PATCH] lazreport: fix compilation with fpc 2.6.4

git-svn-id: trunk@52652 -
---
 components/lazreport/source/lr_crossarray.pas | 2 +-
 components/lazreport/source/lr_edit.pas       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/lazreport/source/lr_crossarray.pas b/components/lazreport/source/lr_crossarray.pas
index cffd665f11..48094276b7 100644
--- a/components/lazreport/source/lr_crossarray.pas
+++ b/components/lazreport/source/lr_crossarray.pas
@@ -240,7 +240,7 @@ end;
 
 procedure TExItem.GotoBookmark;
 begin
-  FDataset.Bookmark := FBookmark;
+  FDataset.GotoBookmark(FBookmark);
 end;
 
 function TExItem.IsBookmarkValid: boolean;
diff --git a/components/lazreport/source/lr_edit.pas b/components/lazreport/source/lr_edit.pas
index b9474d50b7..a9af0f404b 100644
--- a/components/lazreport/source/lr_edit.pas
+++ b/components/lazreport/source/lr_edit.pas
@@ -310,7 +310,7 @@ begin
     frInterpretator.PrepareScript(M2.Lines, sl1, sl2);
     if sl2.Count > 0 then
     begin
-      ErrorPosition(Copy(sl2.Text, Length(sErrLine)+1));
+      ErrorPosition(Copy(sl2.Text, Length(sErrLine)+1, Length(sl2.Text)));
       ShowMessage(sl2.Text);
       Result:=false;
     end;