Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Represent eventlog_startup_pid as long int

master
Antonin Décimo 2020-07-17 19:35:54 +02:00
parent d2d2e0c197
commit 873b31496b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
runtime/caml/domain_state.tbl
View File

@ -76,7 +76,7 @@ DOMAIN_STATE(intnat, stat_heap_chunks)
/* See gc_ctrl.c */
DOMAIN_STATE(uintnat, eventlog_startup_timestamp)
DOMAIN_STATE(uint32_t, eventlog_startup_pid)
DOMAIN_STATE(long, eventlog_startup_pid)
DOMAIN_STATE(uintnat, eventlog_paused)
DOMAIN_STATE(uintnat, eventlog_enabled)
DOMAIN_STATE(FILE*, eventlog_out)

4
runtime/eventlog.c
View File

@ -139,12 +139,12 @@ static void setup_eventlog_file()
eventlog_filename = caml_secure_getenv(T("OCAML_EVENTLOG_PREFIX"));
if (eventlog_filename) {
int ret = snprintf_os(output_file, OUTPUT_FILE_LEN, T("%s.%d.eventlog"),
int ret = snprintf_os(output_file, OUTPUT_FILE_LEN, T("%s.%ld.eventlog"),
eventlog_filename, Caml_state->eventlog_startup_pid);
if (ret > OUTPUT_FILE_LEN)
caml_fatal_error("eventlog: specified OCAML_EVENTLOG_PREFIX is too long");
} else {
snprintf_os(output_file, OUTPUT_FILE_LEN, T("caml-%d.eventlog"),
snprintf_os(output_file, OUTPUT_FILE_LEN, T("caml-%ld.eventlog"),
Caml_state->eventlog_startup_pid);
}