* Make debugserver configurable

git-svn-id: trunk@38178 -

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