Syslog.notice "daemon started: version=%s uid=%d home=%s"
Config.package_version euid home;
- (* If there is a jobs.cmo file, load it. *)
+ (* If there is a jobs.cmo/jobs.cmxs file, load it. *)
let () =
- let file = sprintf "%s/jobs.cmo" jobsdir in
+ let suffix = if not Dynlink.is_native then "cmo" else "cmxs" in
+ let file = sprintf "%s/jobs.%s" jobsdir suffix in
if Sys.file_exists file then
- try Daemon.reload_file () with Failure _ -> () in
+ try Daemon.reload_files () with Failure _ -> () in
(* Go into main loop. *)
Daemon.main_loop ()