[master] Add init for map node type so as to fix memory errors in ins…

…ert.
tomhrr · Apr 16, 2024 · 81ea629 · 81ea629
1 parent c7dce17
commit 81ea629
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/modules/map.dt b/modules/map.dt
@@ -177,6 +177,12 @@ must also implement `LessThanComparable`.
       (struct extern ((first  (uq Tk))
                       (second (uq Tv)))))
 
+    (def init
+      (fn extern bool ((val (ref (uq pairtypenode))))
+        (memset (cast val (p void)) 0 (sizeof (uq pairtypenode)))
+        (init (:@ val first))
+        (init (:@ val second))))
+
     (def setf-move-init
       (fn extern bool ((dst (p (uq pairtypenode)))
                        (src (rv-ref (uq pairtypenode))))