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

Gdbmi-SSH-Debugger: recognize #10 as line-end, even if different from local line-end. Issue #0021834

Browse Source 
git-svn-id: trunk@63748 -
This commit is contained in:
martin 2020-08-15 18:15:15 +00:00
parent 4c43d00d8f
commit 20305fab48
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggergdbmi/sshgdbmidebugger.pas
View File

@ -37,7 +37,7 @@ unit SSHGDBMIDebugger;
interface
uses
Classes, SysUtils,
Classes, SysUtils, Types,
// LCL
Dialogs, Controls, Graphics,
// LazUtils
@ -340,7 +340,15 @@ function TSSHGDBMIDebugger.CreateDebugProcess(const AOptions: String): Boolean;
var
p: TSSHGDBMIDebuggerProperties;
SshOpt: String;
le: TStringDynArray;
begin
if LineEnding <> #10 then begin
SetLength(le, 2);
le[0] := LineEnding;
le[1] := #10;
SetLineEnds(le);
end;
p := TSSHGDBMIDebuggerProperties(GetProperties);
SshOpt := p.FSSHStartupOptions;
if p.FAppendGDBtoSSHopt then begin