anchor.diff:    AddPdbToPe_Debug: Boolean = False;
   
   implementation
  +
  +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 RVA2Offset(nt: PImageNtHeaders; rva: DWORD): DWORD;
   var
  
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:     debug_writeln('Number of sections: '+IntToStr(nh.FileHeader.NumberOfSections));
    end;
  
    // Check section list to find address of last section
    section := PImageSectionHeader(PByte(nh) + sizeof(IMAGE_NT_HEADERS));
    LastSection := section;
    FirstSection := section;
  