anchor.diff:  procedure TDebugOpts.updateForceDbgBool;
   begin
     fForceDbgBool := (fDbgLevel > 0) or (fDbgIdents.Count > 0);
  -  if fForceDbgBool then setDbg(true);
  -end;
  -
  -procedure TDebugOpts.setDbg(const aValue: boolean);
  +  if fForceDbgBool then setDebug(true);
  +end;
  +
  +procedure TDebugOpts.setDebug(const aValue: boolean);
   begin
     if fForceDbgBool then
     begin
  -    fDbg := true;
  +    fDebug := true;
       exit;
     end;
  -  if fDbg = aValue then exit;
  -  fDbg := aValue;
  +  if fDebug = aValue then exit;
  +  fDebug := aValue;
     doChanged;
   end;
   
  
positive.code:    *)
    TDebugOpts = class(TOptsGroup)
    private
      fDbg: boolean;
      fDbgD: boolean;
      fDbgC: boolean;
      fMap: boolean;
      fDbgIdents: TStringList;
      fDbgLevel: Integer;
      fForceDbgBool: boolean;
      procedure updateForceDbgBool;
      procedure setDbg(const aValue: boolean);
      procedure setDbgD(const aValue: boolean);
      procedure setDbgC(const aValue: boolean);
      procedure setMap(const aValue: boolean);
      procedure setDbgLevel(const aValue: Integer);
      procedure setDbgIdents(const aValue: TStringList);
    published
      property debug: boolean read fDbg write setDbg 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 fMap write setMap default false;
    public
      constructor create;
      destructor destroy; override;
  
negative.code:   private
      fTrgKind: TTargetSystem;
      fBinKind: TBinaryKind;
      fUnittest: boolean;
      fVerIds: TStringList;
      fInline: boolean;
      fBoundsCheck: TBoundCheckKind;
      fOptimz: boolean;
      fGenStack: boolean;
      fAddMain: boolean;
      fRelease: boolean;
      fAllInst: boolean;
      fStackStomp: boolean;
      procedure setAllInst(const aValue: boolean);
      procedure setUnittest(const aValue: boolean);
      procedure setTrgKind(const aValue: TTargetSystem);
      procedure setBinKind(const aValue: TBinaryKind);
      procedure setInline(const aValue: boolean);
      procedure setBoundsCheck(const aValue: TBoundCheckKind);
      procedure setOptims(const aValue: boolean);
      procedure setGenStack(const aValue: boolean);
      procedure setAddMain(const aValue: boolean);
      procedure setRelease(const aValue: boolean);
      procedure setVerIds(const aValue: TStringList);
      procedure setStackStomp(const aValue: boolean);
  