anchor.diff:              else freeIndex <- dec freeIndex
               correlations.Remove entityId |> ignore<bool>
               correlationsBack.Remove index |> ignore<bool>
  -            comp.Disjunction index componentsJunctioned ecs
  +            comp.Disjunction index junctions ecs
               if  components.Length < freeList.Count * 2 && // freeList is always empty if unordered
                   components.Length > Constants.Ecs.ArrayReserve then
                   this.Compact ecs
  
positive.code:                 let arr = Array.zeroCreate length
                  components.Array.CopyTo (arr, 0)
                  components.Array <- arr
                  Unchecked.defaultof<'c>.ResizeJunctions length componentsJunctioned ecs
  
              // allocate component
              let index = freeIndex in freeIndex <- inc freeIndex
              let mutable comp = comp.Junction index componentsJunctioned ecs
              comp.RefCount <- inc comp.RefCount
              correlations.Add (entityId, index)
              correlationsBack.Add (index, entityId)
  
negative.code:     new (ecs) = SystemCorrelated (typeof<'c>.Name, ecs)
  
      member this.Components with get () = components
      member this.Junctions with get () = junctions
  
      override this.ComponentsCount with get () = freeIndex - freeList.Count
      override this.SizeOfComponent with get () = failwithnie ()
  