diff options
| author | Vincent Laporte | 2019-02-22 08:34:32 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-03-01 13:50:08 +0000 |
| commit | 9e858cae7d40459142409e793133eb939a0ffc47 (patch) | |
| tree | f00bd00788dbd0ff15ecfacf15f0b822ed4dfb35 /kernel/write_uint63.ml | |
| parent | f37c4445228f5aba5137f397755ebc8cb8c0c482 (diff) | |
write_uint63.ml: add header
Diffstat (limited to 'kernel/write_uint63.ml')
| -rw-r--r-- | kernel/write_uint63.ml | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/kernel/write_uint63.ml b/kernel/write_uint63.ml index 0fcaf4f10a..beb59ce205 100644 --- a/kernel/write_uint63.ml +++ b/kernel/write_uint63.ml @@ -1,10 +1,18 @@ -(** Equivalent of rm -f *) +(************************************************************************) +(* * The Coq Proof Assistant / The Coq Development Team *) +(* v * INRIA, CNRS and contributors - Copyright 1999-2018 *) +(* <O___,, * (see CREDITS file for the list of authors) *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(* * (see LICENSE file for the text of the license) *) +(************************************************************************) +(** Equivalent of rm -f *) let safe_remove f = try Unix.chmod f 0o644; Sys.remove f with _ -> () (** * Generate an implementation of 63-bit arithmetic *) - let ml_file_copy input output = safe_remove output; let i = open_in input in |