From 5fea5647e7f40c0f5cb99eccd7ab65319a9aa571 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 13 Oct 2023 16:18:49 -0400
Subject: image,Gpu: Fix cache, for the most part (was double-freeing)

---
 virtual-programs/display/image.folk | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'virtual-programs/display')

diff --git a/virtual-programs/display/image.folk b/virtual-programs/display/image.folk
index 91e571b9..28c66a3b 100644
--- a/virtual-programs/display/image.folk
+++ b/virtual-programs/display/image.folk
@@ -73,12 +73,14 @@ On process "display" {
                         lappend numEvicted $im
                     }
                 }
+                foreach im $numEvicted { dict unset cache $im }
                 # Evict old.
                 dict for {im v} $cache {
                     if {$numToEvict - [llength $numEvicted] == 0} {
                         break
                     }
-                    Gpu::ImageManager::freeGpuImage $im
+                    lassign $v gim
+                    Gpu::ImageManager::freeGpuImage $gim
                     lappend numEvicted $im
                 }
                 foreach im $numEvicted { dict unset cache $im }
-- 
cgit v1.2.3