aboutsummaryrefslogtreecommitdiff
path: root/kernel/write_uint63.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-03-01 19:31:50 +0100
committerEmilio Jesus Gallego Arias2019-03-01 19:31:50 +0100
commit1e03d1e666e74b95b9936bfdd6f04d54c607c37f (patch)
tree01fa5d89b158dd019cca34b4b5aab2b7e46a0a6d /kernel/write_uint63.ml
parent74016bb28f1176aa9dce5f897f434729c2c99c93 (diff)
parent8541a43c053d659196992f4e990ec317cd199af8 (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.ml12
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