anchor.diff:      Exit(False);
     end;
   
  +  //
     // Ensure we have space for an additional section header
  +  //
  +
     debug_writeln(Format('offset=%x', [DWORD(section) - DWORD(s.Memory)+sizeof(_IMAGE_SECTION_HEADER)]));
     debug_writeln(Format('first=%x', [FirstSection.PointerToRawData]));
     if DWORD(section) - DWORD(s.Memory) + sizeof(_IMAGE_SECTION_HEADER) > FirstSection.PointerToRawData then
  
positive.code: 
    TCVInfoPdb70 = _CV_INFO_PDB70;
    PCVInfoPdb70 = ^TCVInfoPdb70;
  
  procedure debug_writeln(s: string);
  begin
    if AddPdbToPe_Debug then
      writeln('DEBUG: '+s);
  end;
  
  procedure error_writeln(s: string);
  begin
    writeln('ERROR: '+s);
  end;
  
  function AddDebugID(s: TMemoryStream; guid: TGUID; var codeId: string): Boolean;
  var
  
negative.code:     Inc(section);
    end;
  
    error_writeln(Format('unexpected RVA out of bounds: %x', [rva]));
    Result := 0;
  end;
  
  