anchor.diff:  
   type
   
  -  { TUnixProcess }
  +  { TLinuxProcess }
   
  -  TUnixProcess = class(TDbgProcess)
  +  TLinuxProcess = class(TDbgProcess)
     private
       fState  : TDbgState;
       fChild  : TPid;
  
positive.code:   if childid < 0 then begin
      Result := false;
    end else if childid = 0 then begin
      res := ptrace(PTRACE_TRACEME, childid, nil, nil);
      if res < 0 then Exit; // process cannot be traced
      FpExecV(ACmdLine, nil);
    end else
      Result := true;
  end;
  
  function TUnixProcess.StartProcess(const ACmdLine: String): Boolean;
  begin
    Result := ForkAndDebugProcess(ACmdLine, fChild);
    if not Result then Exit;
  end;
  
  procedure TUnixProcess.Terminate;
  begin
  
  end;
  
  function TUnixProcess.WaitNextEvent(var Event: TDbgEvent): Boolean;
  var
    Status : Integer;
  begin
  
negative.code: end;
  
  initialization
    DebugProcessStart := @DebugLinuxProcessStart;
  
  end.
  
  