anchor.diff:  end;
   
   initialization
  +  DebugProcessStart := @DebugLinuxProcessStart;
   
   end.
   
  
positive.code:     procedure Terminate; override;
    end;
  
  function DebugUnixProcessStart(const ACmdLine: String): TDbgProcess;
  
  implementation
  
  function DebugUnixProcessStart(const ACmdLine: String): TDbgProcess;
  var
    dbg : TUnixProcess;
  begin
    dbg := TUnixProcess.Create;
    dbg.StartProcess(ACmdLine);
    Result := dbg;
  end;
  
  { TUnixProcess }
  
  function TUnixProcess.GetProcessState: TDbgState;
  begin
    Result := fState;
  end;
  
negative.code: 
  type
  
    { TLinuxProcess }
  
    TLinuxProcess = class(TDbgProcess)
    private
      fState  : TDbgState;
      fChild  : TPid;
  