paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix so package compiles with latest FPC 2.5.1.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1431 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr 2011-01-08 17:14:45 +00:00
parent 7196a34234
commit c0a0489235
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/thtmlport/package/htmlsubs.pas
View File

@ -10888,7 +10888,11 @@ with LR do
begin begin
StartBI := StartB[I]; StartBI := StartB[I];
EndBI := EndB[I]; EndBI := EndB[I];
{$IFNDEF FPC}
LineStart := StartCurs + Start-Buff; {offset from Section start to Line start} 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 if (EndBI > LineStart) and (StartBI < LineStart +Ln) then
begin {it's in this line} begin {it's in this line}
if not Assigned(BorderList) then if not Assigned(BorderList) then