paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 18:08:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: workaround for issue #38766 / fpc generates bad code on aach64

Browse Source 
git-svn-id: trunk@65024 -
This commit is contained in:
martin 2021-04-19 18:05:15 +00:00
parent f9511cf9c4
commit a2f76da804
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditpointclasses.pas
View File

@ -1145,7 +1145,7 @@ end;
procedure TSynEditCaret.DoLinesEdited(Sender: TSynEditStrings; aLinePos,
aBytePos, aCount, aLineBrkCnt: Integer; aText: String);
// Todo: refactor / this is a copy from selection
function AdjustPoint(aPoint: Tpoint): TPoint; inline;
function AdjustPoint(aPoint: Tpoint): TPoint; {$ifndef cpuaarch64}inline;{$endif} // workaround for issue https://bugs.freepascal.org/view.php?id=38766
begin
Result := aPoint;
if aLineBrkCnt < 0 then begin