Magic

lib/picos_aux.mpmcq/picos_aux_mpmcq.ml

@@ -31,7 +31,7 @@ let rec pop_exn t backoff =
   if head.counter + 1 = next.counter then
     if Atomic.compare_and_set t.head head next then begin
       let value = next.value in
-      next.value <- Obj.magic ();
+      (Obj.magic next : int node).value <- Obj.magic ();
       value
     end
     else pop_exn t (Backoff.once backoff)