We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 45dc697 commit bb56f26Copy full SHA for bb56f26
ocaml/runtime/misc.c
@@ -84,6 +84,9 @@ void caml_gc_log (char *msg, ...)
84
char fmtbuf[GC_LOG_LENGTH];
85
va_list args;
86
va_start (args, msg);
87
+ if (caml_verb_gc & 0x1000) {
88
+ caml_print_timestamp(stderr, caml_verb_gc & 0x2000);
89
+ }
90
snprintf(fmtbuf, GC_LOG_LENGTH, "[%02d] %s\n",
91
(Caml_state_opt != NULL) ? Caml_state_opt->id : -1, msg);
92
vfprintf(stderr, fmtbuf, args);
0 commit comments