From: Hannu Niemistö <hannu.niemisto@semantum.fi>
Date: Tue, 12 Dec 2017 14:12:31 +0000 (+0200)
Subject: Merge "Added MMap.clone"
X-Git-Tag: v1.43.0~136^2~661
X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=commitdiff_plain;h=b48616484fd2324fc415187d151acbb94deb2493;hp=0070425afb2c54ded4ba8ef9c037001c6dbac72a

Merge "Added MMap.clone"
---

diff --git a/bundles/org.simantics.scl.runtime/scl/MMap.scl b/bundles/org.simantics.scl.runtime/scl/MMap.scl
index 085728c58..0f050ca76 100644
--- a/bundles/org.simantics.scl.runtime/scl/MMap.scl
+++ b/bundles/org.simantics.scl.runtime/scl/MMap.scl
@@ -62,6 +62,9 @@ importJava "gnu.trove.map.hash.THashMap" where
     @JavaName "<init>"
     createC :: Integer -> <Proc> T a b
 
+    @JavaName "<init>"
+    clone :: T a b -> <Proc> T a b
+
 fromEntryList :: [(a,b)] -> <Proc> T a b
 fromEntryList l = do
     result = createC (Prelude.length l)