anchor.diff:    end;
   end;
   
  -
  -procedure PrintI386Regs(list: TDbgDataList);
  -
  +procedure TRegistersView.PrintI386Regs(list: TDbgDataList);
  +
  +  { find the register value and format it as result }
     function StrHex(const regname: String): string;
     begin
       Result := IntToHex(list[regname].UInt32, 8);
  
positive.code: 
  type
  
    { TViewMemCommand }
  
    TViewMemCommand = class(TCommand)
      procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
      function ResetParamsCache: Boolean; override;
      function ShortHelp: String; override;
    end;
  
    { TRegistersView }
  
    TRegistersView = class(TCommand)
      procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
      function ShortHelp: String; override;
    end;
  
    { TStackView }
    TStackView  = class(TCommand)
      procedure Execute(CmdParams: TStrings; Env: TCommandEnvironment); override;
      function ShortHelp: String; override;
    end;
  
  procedure PrintI386Regs(list: TDbgDataList);
    
  implementation
  
  
  var
    LastReadOfs : TDbgPtr = 0;
  
  function BufToStr(const buf: array of byte; index, Count: Integer): string;
  var
    i : Integer;
    j : Integer;
  
negative.code:     for details about redistributing fpDebug.
  
      Description:
        This unit defines some memory related commands.
  }
  unit cmdmemview;
  
  {$mode objfpc}{$H+}
  
  interface
  
  