Improve performance by only calling OpamStubs.getPathToSystem once

Co-authored-by: David Allsopp <david.allsopp@metastack.com>
ocaml · Mar 4, 2024 · 032e409 · 032e409
1 parent c10789f
commit 032e409
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/master_changes.md b/master_changes.md
@@ -111,6 +111,7 @@ users)
   * Ensure that the system critical error dialog is disabled when opam starts [#5828 @dra27]
   * Fix loading git location at init [#5843 @rjbou]
   * Remove use of deprecated function SHGetFolderPath and use SHGetKnownFolderPath instead [#5862 @kit-ty-kate]
+  * Improve performance by only calling OpamStubs.getPathToSystem once [#5862 @dra27]
 
 ## Test
 

diff --git a/src/core/opamStd.ml b/src/core/opamStd.ml
@@ -1005,8 +1005,9 @@ module OpamSys = struct
         Hashtbl.add memo arg r;
         r
 
-  let system () =
-    OpamStubs.getPathToSystem ()
+  let system =
+    let system = Lazy.from_fun OpamStubs.getPathToSystem in
+    fun () -> Lazy.force system
 
   type os =
     | Darwin