paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

debugger: fixed compilation with fpc 2.3.1. as suggested by Marc (bug #10970)

Browse Source 
git-svn-id: trunk@14459 -
This commit is contained in:
vincents 2008-03-07 15:07:30 +00:00
parent ed75bbfbc2
commit ae6fd378b3
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
debugger/cmdlinedebugger.pp
View File

@ -372,6 +372,8 @@ begin
end; end;
procedure TCmdLineDebugger.SendCmdLn(const ACommand: String); overload; procedure TCmdLineDebugger.SendCmdLn(const ACommand: String); overload;
var
LE: string[2];
begin begin
//writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"'); //writeln('TCmdLineDebugger.SendCmdLn "',ACommand,'"');
if DebugProcessRunning if DebugProcessRunning
@ -379,11 +381,10 @@ begin
DoDbgOutput('<' + ACommand + '>'); DoDbgOutput('<' + ACommand + '>');
if ACommand <> '' if ACommand <> ''
then FDbgProcess.Input.Write(ACommand[1], Length(ACommand)); then FDbgProcess.Input.Write(ACommand[1], Length(ACommand));
{$ifdef MSWindows} // store LineEnding in local variable, so the same statement can be used
// for windows and *nix (1 or 2 character line ending)
LE := LineEnding;
FDbgProcess.Input.Write(LineEnding[1], Length(LineEnding)); FDbgProcess.Input.Write(LineEnding[1], Length(LineEnding));
{$else}
FDbgProcess.Input.Write(LineEnding, Length(LineEnding));
{$endif}
end end
else begin else begin
DebugLn('[TCmdLineDebugger.SendCmdLn] Unable to send <', ACommand, '>. No process running.'); DebugLn('[TCmdLineDebugger.SendCmdLn] Unable to send <', ACommand, '>. No process running.');