anchor.diff:          FragmentHandler.wrapSimple instructionToCall compile inner
   
   
  -    let private glvmBase (mode : VMMode) (compileDelta : Option<PreparedRenderObject> -> PreparedRenderObject -> IAdaptiveCode<Instruction>) () =
  +    let private glvmBase (mode : VMMode) (vmStats : ref<VMStats>) (compileDelta : Option<PreparedRenderObject> -> PreparedRenderObject -> IAdaptiveCode<Instruction>) () =
           GLVM.vmInit()
   
           let prolog = GLVM.vmCreate()
  
positive.code:             compileDelta = compileDelta
              startDefragmentation = fun _ _ _ -> Task.FromResult TimeSpan.Zero
              run = fun() -> 
                  let mutable stats = VMStats()
                  GLVM.vmRun(prolog, mode, &stats)
              memorySize = fun () -> 0L
              alloc = fun code -> 
                  let ptr = GLVM.vmCreate()
  
negative.code:         member x.FrameId = frameId
  
  [<AbstractClass>]
  type AdaptiveProgramRenderTask(objects : aset<IRenderObject>, manager : ResourceManager, fboSignature : IFramebufferSignature, config : BackendConfiguration) as this =
      inherit AbstractRenderTask(
          manager.Context,
          fboSignature, 
  