anchor.diff:    Windows, SysUtils, DbgTypes, dbgConsts, winTools32;
   
   type
  -  PContext32 = ^TContext;
  +  TFloatingSaveArea = packed record
  +    ControlWord   : Cardinal;
  +    StatusWord    : Cardinal;
  +    TagWord       : Cardinal;
  +    ErrorOffset   : Cardinal;
  +    ErrorSelector : Cardinal;
  +    DataOffset    : Cardinal;
  +    DataSelector  : Cardinal;
  +    RegisterArea  : array[0..79] of Byte;
  +    Cr0NpxState   : Cardinal;
  +  end;
  +  PFloatingSaveArea = ^TFloatingSaveArea;
  +
     TContext32 = record
     { The flags values within this flag control the contents of
       a CONTEXT record.
  
positive.code: function DoReadThreadRegs32(ThreadHandle: THandle; Regs: TDbgDataList): Boolean;
  function DoWriteThreadRegs32(ThreadHandle: THandle; Regs: TDbgDataList): Boolean;
  
  function SetThread32SingleStep(ThreadHandle: THandle): Boolean;
  
  function SuspendProcess(AProcID: LongWord): Boolean;
  function ResumeProcess(AProcID: LongWord): Boolean;
  
  implementation
  
  const
    CONTEXT32_ALL = //todo:  {CONTEXT_FLOATING_POINT or} 
                  CONTEXT_DEBUG_REGISTERS or 
                  CONTEXT_SEGMENTS or CONTEXT_INTEGER or CONTEXT_CONTROL;
                  
  function DoReadThreadRegs32(ThreadHandle: THandle; Regs: TDbgDataList): Boolean;
  var
  
negative.code:   CloseHandle(Snap);
  end;
  
  initialization
  
  
  end.
  
  