anchor.diff:                      lastCallOnStream.[strmId] <-
                           if strmId = strmIdToProcess then 0
                           else lastCallOnStream.[strmId] + 1
  -                //let streamCallHistory = strmIdToProcess :: streamCallHistory
   
                   // generate CUDA call template
                   let cmdCalls = callsForExecItem cmd cache strmIdToProcess
  
positive.code:                 ()
  
          calls |> List.ofSeq
          //generate [] [] streams
  
      /// generates init and dispose calls for CUDA resources
      let generateAllocAndDispose compileEnv memAllocs streamCnt eventObjCnt =
  
negative.code:                         | _ -> ()
              } |> Seq.countBy id |> Map.ofSeq
  
          // convert stream lists to queues
          let streams = streams |> List.map (fun strm -> Queue strm)       
  
          // active events
          let activeEventObjects = Dictionary<EventObjectT, int> ()
          let activeEventCorrelations = Dictionary<int, int> ()
  
          /// the number of total calls since the last call on a particular stream
          let lastCallOnStream = Dictionary<StreamT, int> ()       
          for strmId = 0 to streams.Length - 1 do
              lastCallOnStream.[strmId] <- 0
  
  