diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-11-18 22:10:55 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-11-18 22:10:55 +0000 |
| commit | 82d69d247c7de8387b92936086abdc3d441c8628 (patch) | |
| tree | 227f7db7e785f1c3affa2028bc2484e0771d54f4 /src/pipelining/SPDebug.ml | |
| parent | fea7ee4d30aa7597ff5b8e2a2954ed452a1a7a57 (diff) | |
| download | vericert-82d69d247c7de8387b92936086abdc3d441c8628.tar.gz vericert-82d69d247c7de8387b92936086abdc3d441c8628.zip | |
Rename pipelining
Diffstat (limited to 'src/pipelining/SPDebug.ml')
| -rw-r--r-- | src/pipelining/SPDebug.ml | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/src/pipelining/SPDebug.ml b/src/pipelining/SPDebug.ml new file mode 100644 index 0000000..34d1c0c --- /dev/null +++ b/src/pipelining/SPDebug.ml @@ -0,0 +1,21 @@ +(***********************************************************************) +(* *) +(* Compcert Extensions *) +(* *) +(* Jean-Baptiste Tristan *) +(* *) +(* All rights reserved. This file is distributed under the terms *) +(* described in file ../../LICENSE. *) +(* *) +(***********************************************************************) + + +open Unix + +let tm = localtime (time ());; +let name = "debug/" ^ (string_of_int tm.tm_year) ^ "-" ^(string_of_int tm.tm_mon) ^ "-" ^(string_of_int tm.tm_mday) ^ + "-" ^(string_of_int tm.tm_hour) ^"-" ^(string_of_int tm.tm_min) ^ "-" ^(string_of_int tm.tm_sec) ^ "/";; +mkdir name 0o777;; +Printf.printf "Debug informations: %s \n" name ;; +let dc = open_out (name ^ "debug.log");; +let () = at_exit(fun () -> close_out dc);; |