Skip to content

Commit

Permalink
Review comments (to squash)
Browse files Browse the repository at this point in the history
  • Loading branch information
dra27 committed Dec 31, 2020
1 parent d2c2f53 commit 8926f99
Show file tree
Hide file tree
Showing 2 changed files with 16 additions and 14 deletions.
2 changes: 1 addition & 1 deletion Changes
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@ Working version
(David Allsopp, review by ???)

- #10101: Add -help/--help option to ocamlrun.
(David Allsopp, review by ???)
(David Allsopp, review by Xavier Leroy)

### Code generation and optimizations:

Expand Down
28 changes: 15 additions & 13 deletions runtime/startup_byt.c
Original file line number Diff line number Diff line change
Expand Up @@ -275,19 +275,21 @@ static char_os * read_section_to_os(int fd, struct exec_trailer *trail,

static void do_print_help(void)
{
puts("Usage: ocamlrun [<options>] [--] <executable> [<command-line>]\n"
"Options are:\n"
" -b Set runtime parameter b (detailed exception backtraces)\n"
" -I <dir> Add <dir> to the list of DLL search directories\n"
" -m Print the magic number of <executable> and exit\n"
" -M Print the magic number expected by this runtime and exit\n"
" -p Print the names of the primitives known to this runtime\n"
" -t Increments the trace level in debug mode by 1\n"
" -v Set runtime parameter v=61 (GC event information)\n"
" -version Print version string and exit\n"
" -vnum Print short version number and exit\n"
" -help Display this list of options\n"
" --help Display this list of options");
printf("%s\n",
"Usage: ocamlrun [<options>] [--] <executable> [<command-line>]\n"
"Options are:\n"
" -b Set runtime parameter b (detailed exception backtraces)\n"
" -I <dir> Add <dir> to the list of DLL search directories\n"
" -m Print the magic number of <executable> and exit\n"
" -M Print the magic number expected by this runtime and exit\n"
" -p Print the names of the primitives known to this runtime\n"
" -t Trace the execution of the bytecode interpreter (specify multiple\n"
" times to increase verbosity)\n"
" -v Set runtime parameter v=61 (GC event information)\n"
" -version Print version string and exit\n"
" -vnum Print short version number and exit\n"
" -help Display this list of options\n"
" --help Display this list of options\n");
}

/* Parse options on the command line */
Expand Down

0 comments on commit 8926f99

Please sign in to comment.