From 1975927b4fee6969258166c1045d24e4a7c66cba Mon Sep 17 00:00:00 2001
From: Christian Luksch <luksch@vrvis.at>
Date: Tue, 24 Sep 2024 15:36:08 +0200
Subject: [PATCH] LayoutManager: using struct tuple in 'cnts' dict

---
 src/Aardvark.SceneGraph/Pools/ManagedPool.fs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Aardvark.SceneGraph/Pools/ManagedPool.fs b/src/Aardvark.SceneGraph/Pools/ManagedPool.fs
index e08fd325..121113fa 100644
--- a/src/Aardvark.SceneGraph/Pools/ManagedPool.fs
+++ b/src/Aardvark.SceneGraph/Pools/ManagedPool.fs
@@ -66,12 +66,12 @@ module AdaptiveGeometry =
 type private LayoutManager<'a>() =
     let manager = MemoryManager.createNop()
     let store = Dict<'a, managedptr>()
-    let cnts = Dict<managedptr, 'a * ref<int>>()
+    let cnts = Dict<managedptr, struct('a * ref<int>)>()
 
     member x.Alloc(key : 'a, size : int) =
         match store.TryGetValue key with
         | (true, v) ->
-            let _,r = cnts.[v]
+            let struct(_,r) = cnts.[v]
             Interlocked.Increment &r.contents |> ignore
             v
         | _ ->
@@ -85,7 +85,7 @@ type private LayoutManager<'a>() =
     member x.TryAlloc(key : 'a, size : int) =
         match store.TryGetValue key with
         | (true, v) ->
-            let _,r = cnts.[v]
+            let struct(_,r) = cnts.[v]
             Interlocked.Increment &r.contents |> ignore
             false, v
         | _ ->