anchor.diff:  var
     idt: string;
   begin
  -  if fDbg then aList.Add('-debug');
  +  if fDebug then aList.Add('-debug');
     if fDbgLevel <> 0 then
       aList.Add('-debug=' + intToStr(fDbgLevel));
     for idt in fDbgIdents do
       aList.Add('-debug=' + idt);
     if fDbgD then aList.Add('-g');
     if fDbgC then aList.Add('-gc');
  -  if fMap then aList.Add('-map');
  +  if fGenMap then aList.Add('-map');
   end;
   
   procedure TDebugOpts.assign(aValue: TPersistent);
  
positive.code:   if (aValue is TPathsOpts) then
    begin
      src := TPathsOpts(aValue);
      fExtraSrcs.Assign(src.fExtraSrcs);
      fImpMod.Assign(src.fImpMod);
      fImpStr.Assign(src.fImpStr);
      fFName := patchPlateformPath(src.fFname);
      fObjDir := patchPlateformPath(src.fObjDir);
      fExcl.Assign(src.fExcl);
    end
    else inherited;
  end;
  
negative.code: constructor TMsgOpts.create;
  begin
    fDepHandling := TDepHandling.warning;
    fWarnings := true;
  end;
  
  procedure TMsgOpts.getOpts(const aList: TStrings);
  