anchor.diff:      property targetKind: TTargetSystem read fTrgKind write setTrgKind default auto;
       property binaryKind: TBinaryKind read fBinKind write setBinKind default executable;
       property inlining: boolean read fInline write setInline default false;
  -    property noBoundsCheck: boolean read fNoBounds write setNoBounds;
  +    property noBoundsCheck: boolean read fNoBounds write setNoBounds stored false default false;
       property boundsCheck: TBoundCheckKind read fBoundsCheck write setBoundsCheck default safeOnly;
       property optimizations: boolean read fOptimz write setOptims default false;
       property generateStackFrame: boolean read fGenStack write setGenStack default false;
  
positive.code: begin
    if fBoundsCheck = aValue then exit;
    fBoundsCheck := aValue;
    depPatch;
  end;
  
  procedure TOutputOpts.setNoBounds(const aValue: boolean);
  begin
    if fNoBounds = aValue then exit;
    fNoBounds := aValue;
    doChanged;
  end;
  
  
negative.code: procedure TOutputOpts.depPatch;
  begin
    // patch deprecated fields
    if fNoBounds then setBoundsCheck(offAlways)
    else setBoundsCheck(onAlways);
    fNoBounds := false;
  end;
  
  procedure TOutputOpts.getOpts(const aList: TStrings);
  