anchor.diff:  constructor TMsgOpts.create;
   begin
     fDepHandling := TDepHandling.warning;
  -  fWarn := true;
  +  fWarnings := true;
   end;
   
   procedure TMsgOpts.getOpts(const aList: TStrings);
  
positive.code: var
    idt: string;
  begin
    if fDbg 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');
  end;
  
  procedure TDebugOpts.assign(aValue: TPersistent);
  
negative.code:    *)
    TDebugOpts = class(TOptsGroup)
    private
      fDebug: boolean;
      fDbgD: boolean;
      fDbgC: boolean;
      fGenMap: boolean;
      fDbgIdents: TStringList;
      fDbgLevel: Integer;
      fForceDbgBool: boolean;
      procedure updateForceDbgBool;
      procedure setDebug(const aValue: boolean);
      procedure setDbgD(const aValue: boolean);
      procedure setDbgC(const aValue: boolean);
      procedure setGenMap(const aValue: boolean);
      procedure setDbgLevel(const aValue: Integer);
      procedure setDbgIdents(const aValue: TStringList);
    published
      property debug: boolean read fDebug write setDebug default false;
      property debugIdentifiers: TStringList read fDbgIdents write setDbgIdents;
      property debugLevel: Integer read fDbgLevel write setDbgLevel default 0;
      property codeviewDexts: boolean read fDbgD write setDbgD default false;
      property codeviewCformat: boolean read fDbgC write setDbgC default false;
      property generateMapFile: boolean read fGenMap write setGenMap default false;
    public
      constructor create;
      destructor destroy; override;
  