anchor.diff:  begin
     if fBoundsCheck = aValue then exit;
     fBoundsCheck := aValue;
  -  doChanged;
  -end;
  -
  -procedure TOutputOpts.setNoBounds(const aValue: boolean);
  -begin
  -  if fNoBounds = aValue then exit;
  -  fNoBounds := aValue;
  -  depPatch;
     doChanged;
   end;
   
  
positive.code:     fVerIds: TStringList;
      fInline: boolean;
      fBoundsCheck: TBoundCheckKind;
      fNoBounds: boolean;
      fOptimz: boolean;
      fGenStack: boolean;
      fMain: boolean;
      fRelease: boolean;
      fAllInst: boolean;
      fStackStomp: boolean;
      procedure depPatch;
      procedure setAllInst(const aValue: boolean);
      procedure setUt(const aValue: boolean);
      procedure setTrgKind(const aValue: TTargetSystem);
      procedure setBinKind(const aValue: TBinaryKind);
      procedure setInline(const aValue: boolean);
      procedure setBoundsCheck(const aValue: TBoundCheckKind);
      procedure setNoBounds(const aValue: boolean);
      procedure setOptims(const aValue: boolean);
      procedure setGenStack(const aValue: boolean);
      procedure setMain(const aValue: boolean);
  
negative.code: 
  
    (*****************************************************************************
     * Describes the different deprecation handling.
     *)
    TDepHandling = (silent, warning, error);
  
  