Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[feature] gc: Bsl export some gc function for bench

  • Loading branch information...
commit bf6baa666041e5163e09c7eac25a485ebaf3bf61 1 parent 1f4ad42
@BourgerieQuentin BourgerieQuentin authored Thomas Refis committed
Showing with 9 additions and 1 deletion.
  1. +9 −1 opabsl/mlbsl/bslGc.ml
View
10 opabsl/mlbsl/bslGc.ml
@@ -17,7 +17,7 @@
*)
(*
@author Rudy Sicard
-
+
**)
open Gc
@@ -28,6 +28,14 @@ let minor_collections () = (Gc.stat()).minor_collections
##register major_collections : -> int
let major_collections () = (Gc.stat()).major_collections
+##register live_words : -> int
+let live_words () = (Gc.stat()).live_words
+
##register compactions : -> int
let compactions () = (Gc.stat()).compactions
+##register collect : -> void
+let collect () = Gc.full_major ()
+
+##register compact : -> void
+let compact () = Gc.compact ()
Please sign in to comment.
Something went wrong with that request. Please try again.