anchor.diff:    inherited;
   end;
   
  -procedure TOutputOpts.depPatch;
  -begin
  -  // patch deprecated fields
  -  if fNoBounds then setBoundsCheck(offAlways)
  -  else setBoundsCheck(onAlways);
  -  fNoBounds := false;
  -end;
  -
   procedure TOutputOpts.getOpts(const aList: TStrings);
   var
     opt: string;
  
positive.code:     fUt := src.fUt;
      fVerIds.Assign(src.fVerIds);
      fInline := src.fInline;
      fNoBounds := src.fNoBounds;
      fBoundsCheck:= src.fBoundsCheck;
      fOptimz := src.fOptimz;
      fGenStack := src.fGenStack;
  
negative.code:     fVerIds: TStringList;
      fInline: boolean;
      fBoundsCheck: TBoundCheckKind;
      fOptimz: boolean;
      fGenStack: boolean;
      fMain: boolean;
      fRelease: boolean;
      fAllInst: boolean;
      fStackStomp: boolean;
      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 setOptims(const aValue: boolean);
      procedure setGenStack(const aValue: boolean);
      procedure setMain(const aValue: boolean);
  