1074 |
"MLNet Multi-Network p2p client version " ^ Autoconf.current_version |
"MLNet Multi-Network p2p client version " ^ Autoconf.current_version |
1075 |
^ (if Autoconf.scm_version <> "" then "\nSCM version info: " ^ Autoconf.scm_version else "") |
^ (if Autoconf.scm_version <> "" then "\nSCM version info: " ^ Autoconf.scm_version else "") |
1076 |
^ "\nNetworks: " ^ !networks_string |
^ "\nNetworks: " ^ !networks_string |
1077 |
^ "\nOcaml version: " ^ Autoconf.ocaml_version |
^ "\nOcaml version: " ^ Sys.ocaml_version |
1078 |
|
^ (let uname = Unix32.uname () in |
1079 |
|
if uname <> "" then Printf.sprintf "\nSystem info: %s" uname else "") |
1080 |
^ "\nBuild on: " ^ Autoconf.build_system |
^ "\nBuild on: " ^ Autoconf.build_system |
1081 |
^ (if Autoconf.glibc_version <> "" then " with glibc " ^ Autoconf.glibc_version else "") |
^ (if Autoconf.glibc_version <> "" then " with glibc " ^ Autoconf.glibc_version else "") |
1082 |
^ (let real_glibc_version = MlUnix.glibc_version_num () in |
^ (let real_glibc_version = MlUnix.glibc_version_num () in |