paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 17:20:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Fix wrong index for linefeed detection, issue #0037167 / fix for r63132 #69cd1abf4a

Browse Source 
git-svn-id: trunk@63279 -
This commit is contained in:
martin 2020-06-02 14:23:35 +00:00
parent 73408cac48
commit a6dade4123
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/pseudoterminaldlg.pp
View File

@ -757,7 +757,7 @@ begin
(* "interesting" behavior once the amount of text causes it to start scrolling *) (* "interesting" behavior once the amount of text causes it to start scrolling *)
(* so having an intermediate that can be inspected might be useful. *) (* so having an intermediate that can be inspected might be useful. *)
TextEndsInEOL := (AText <> '') and (AText[Length(AText)-1] in [#10]); TextEndsInEOL := (AText <> '') and (AText[Length(AText)] in [#10]);
buffer := TStringList.Create; buffer := TStringList.Create;
try try
buffer.Text := AText; (* Decides what line breaks it wants to swallow *) buffer.Text := AText; (* Decides what line breaks it wants to swallow *)