Skip to content
Snippets Groups Projects
Commit 096be61e authored by François Bobot's avatar François Bobot
Browse files

Remove default limit

parent 18712fa5
No related branches found
No related tags found
No related merge requests found
...@@ -240,13 +240,13 @@ let state = ...@@ -240,13 +240,13 @@ let state =
let doc = "Stop the program after a time lapse of $(docv). let doc = "Stop the program after a time lapse of $(docv).
Accepts usual suffixes for durations : s,m,h,d. Accepts usual suffixes for durations : s,m,h,d.
Without suffix, default to a time in seconds." in Without suffix, default to a time in seconds." in
Arg.(value & opt c_time 300. & info ["t"; "time"] ~docv:"TIME" ~doc ~docs) Arg.(value & opt c_time infinity & info ["t"; "time"] ~docv:"TIME" ~doc ~docs)
in in
let size = let size =
let doc = "Stop the program if it tries and use more the $(docv) memory space. " ^ let doc = "Stop the program if it tries and use more the $(docv) memory space. " ^
"Accepts usual suffixes for sizes : k,M,G,T. " ^ "Accepts usual suffixes for sizes : k,M,G,T. " ^
"Without suffix, default to a size in octet." in "Without suffix, default to a size in octet." in
Arg.(value & opt c_size 1_000_000_000. & info ["s"; "size"] ~docv:"SIZE" ~doc ~docs) Arg.(value & opt c_size infinity & info ["s"; "size"] ~docv:"SIZE" ~doc ~docs)
in in
let in_lang = let in_lang =
let doc = Format.asprintf let doc = Format.asprintf
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment