diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-02-10 00:00:02 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-02-10 00:00:02 +0000 |
| commit | 33fe2fd043a65b7bfb1a45edbdd55f67bbc39922 (patch) | |
| tree | e52b42512da19e3b75820469b77c682c9f70b934 /packages/fcl-process | |
| parent | 88540e65266e34c4a8aed0cb041badb3721d30ba (diff) | |
| download | fpc-33fe2fd043a65b7bfb1a45edbdd55f67bbc39922.tar.gz | |
* Make debugserver configurable
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38178 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-process')
| -rw-r--r-- | packages/fcl-process/src/dbugintf.pp | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/packages/fcl-process/src/dbugintf.pp b/packages/fcl-process/src/dbugintf.pp index f66728f659..68784d60e9 100644 --- a/packages/fcl-process/src/dbugintf.pp +++ b/packages/fcl-process/src/dbugintf.pp @@ -44,7 +44,8 @@ Function InitDebugClient : Boolean; Const SendError : String = ''; - + DefaultDebugServer = 'dbugsrv'; + ResourceString SProcessID = 'Process %s'; SEntering = '> Entering '; @@ -52,6 +53,9 @@ ResourceString SSeparator = '>-=-=-=-=-=-=-=-=-=-=-=-=-=-=-<'; SServerStartFailed = 'Failed to start debugserver. (%s)'; +Var + DebugServerExe : String = DefaultDebugServer; + implementation Uses @@ -208,11 +212,17 @@ end; function StartDebugServer : Integer; +Var + Cmd : string; + begin + Cmd:=DebugServerExe; + if Cmd='' then + Cmd:=DefaultDebugServer; With TProcess.Create(Nil) do begin Try - CommandLine:='dbugsrv'; + CommandLine:=Cmd; Execute; Result:=ProcessID; Except On E: Exception do |