diff options
| -rw-r--r-- | stdlib/hashtbl.mli | 2 | ||||
| -rw-r--r-- | stdlib/header.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/hashtbl.mli b/stdlib/hashtbl.mli index 999886ad0..e31448b79 100644 --- a/stdlib/hashtbl.mli +++ b/stdlib/hashtbl.mli @@ -54,7 +54,7 @@ val iter : ('a -> 'b -> 'c) -> ('a, 'b) t -> unit discarding all the results. [f] receives the key as first argument, and the associated value as second argument. The order in which the bindings are passed to - [f] is unpredictable. Each binding is presented exactly once + [f] is unspecified. Each binding is presented exactly once to [f]. *) (*** The polymorphic hash primitive *) diff --git a/stdlib/header.c b/stdlib/header.c index de09bd8b6..3a8797002 100644 --- a/stdlib/header.c +++ b/stdlib/header.c @@ -12,13 +12,13 @@ /* $Id$ */ char * runtime_name = "ocamlrun"; -char * errmsg = "Cannot exec ocamlrun.\n"; +char errmsg [] = "Cannot exec ocamlrun.\n"; int main(argc, argv) int argc; char ** argv; { execvp(runtime_name, argv); - write(2, errmsg, strlen(errmsg)); + write(2, errmsg, sizeof(errmsg)-1); return 2; } |