diff options
| -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" |