diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-01 15:04:36 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-01 15:04:36 +0000 |
| commit | c7e175724668cef6c0010ece74becc8d9c29f8cd (patch) | |
| tree | 9e66484b677f7076fb08364e721cf00700c3c01c | |
| parent | 97ef452fb6575cea5880aa59af35cef11ecabab5 (diff) | |
header.c: message d'erreur mal imprime.
pervasives.mli: MAJ doc.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@619 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | stdlib/header.c | 2 | ||||
| -rw-r--r-- | stdlib/pervasives.mli | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/stdlib/header.c b/stdlib/header.c index 1169a02a1..7ceb931dc 100644 --- a/stdlib/header.c +++ b/stdlib/header.c @@ -19,6 +19,6 @@ int main(argc, argv) char ** argv; { execvp(runtime_name, argv); - write(2, errmsg, sizeof(errmsg)-1); + write(2, errmsg, strlen(errmsg)); return 2; } diff --git a/stdlib/pervasives.mli b/stdlib/pervasives.mli index 88b49ef85..a44d7f5b8 100644 --- a/stdlib/pervasives.mli +++ b/stdlib/pervasives.mli @@ -212,8 +212,7 @@ external (-.) : float -> float -> float = "%subfloat" external ( *. ) : float -> float -> float = "%mulfloat" (* Floating-point multiplication *) external (/.) : float -> float -> float = "%divfloat" - (* Floating-point division. Raise [Division_by_zero] if second - argument is null. *) + (* Floating-point division. *) external ( ** ) : float -> float -> float = "power_float" "pow" "float" (* Exponentiation *) external exp : float -> float = "exp_float" "exp" "float" |