From c0a0489235644d52bd4f747e282dd3d64e9fbb5e Mon Sep 17 00:00:00 2001
From: macpgmr <macpgmr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 8 Jan 2011 17:14:45 +0000
Subject: [PATCH] Fix so package compiles with latest FPC 2.5.1.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1431 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/thtmlport/package/htmlsubs.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/thtmlport/package/htmlsubs.pas b/components/thtmlport/package/htmlsubs.pas
index c702cda73..32909f3a0 100755
--- a/components/thtmlport/package/htmlsubs.pas
+++ b/components/thtmlport/package/htmlsubs.pas
@@ -10888,7 +10888,11 @@ with LR do
       begin
       StartBI := StartB[I];
       EndBI := EndB[I];
+{$IFNDEF FPC}
       LineStart := StartCurs + Start-Buff;  {offset from Section start to Line start}
+{$ELSE}
+      LineStart := StartCurs + PtrUInt(Start)-PtrUInt(Buff);  {offset from Section start to Line start}
+{$ENDIF}
       if (EndBI > LineStart) and (StartBI < LineStart +Ln) then
         begin        {it's in this line}
         if not Assigned(BorderList) then