diff options
| author | Emilio Jesus Gallego Arias | 2019-03-01 19:31:50 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-03-01 19:31:50 +0100 |
| commit | 1e03d1e666e74b95b9936bfdd6f04d54c607c37f (patch) | |
| tree | 01fa5d89b158dd019cca34b4b5aab2b7e46a0a6d /kernel/write_uint63.ml | |
| parent | 74016bb28f1176aa9dce5f897f434729c2c99c93 (diff) | |
| parent | 8541a43c053d659196992f4e990ec317cd199af8 (diff) | |
Merge PR #9624: [Kernel] Simpler generation of opcode files
Ack-by: SkySkimmer
Reviewed-by: Zimmi48
Reviewed-by: ejgallego
Ack-by: gares
Reviewed-by: ppedrot
Ack-by: rgrinberg
Ack-by: vbgl
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 |
