3 void MLton_Syslog_closelog(void) {
7 /* openlog relies on the string being around forever. */
8 void MLton_Syslog_openlog(NullString8_t s
, C_Int_t o
, C_Int_t f
) {
9 const char *s_
= strdup ((const char*)s
);
15 void MLton_Syslog_syslog(C_Int_t p
, NullString8_t s
) {
16 syslog(p
, "%s", (const char*)s
);