From b98d99404663b038aff3fa73eb1e5149c0715e6b Mon Sep 17 00:00:00 2001 From: Damien Doligez Date: Thu, 5 Sep 1996 17:35:43 +0000 Subject: [PATCH] =?UTF-8?q?hashtbl.mli:=20chang=C3=A9=20"unpredictable"=20?= =?UTF-8?q?en=20"unspecified"=20header.c:=20supprim=C3=A9=20l'appel=20?= =?UTF-8?q?=C3=A0=20strlen=20(qui=20planterait=20sur=20big=20endian=2064?= =?UTF-8?q?=20bits)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@958 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/hashtbl.mli | 2 +- 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; }