diff options
author | Yann Herklotz <git@yannherklotz.com> | 2020-12-17 10:02:23 +0000 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2020-12-17 10:02:23 +0000 |
commit | 51e3a17d2e65b095861c243807f4e8d76c60ea0e (patch) | |
tree | e4870fc714b872835d3e04d10954cb4f74d42cac /src/SoftwarePipelining/SPDebug.ml | |
parent | 4f67aaa8ba8b2b51716896d9be896af385652bc9 (diff) | |
download | vericert-kvx-51e3a17d2e65b095861c243807f4e8d76c60ea0e.tar.gz vericert-kvx-51e3a17d2e65b095861c243807f4e8d76c60ea0e.zip |
Add Software pipelining stage by tristan et al.
Diffstat (limited to 'src/SoftwarePipelining/SPDebug.ml')
-rw-r--r-- | src/SoftwarePipelining/SPDebug.ml | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/SoftwarePipelining/SPDebug.ml b/src/SoftwarePipelining/SPDebug.ml new file mode 100644 index 0000000..b2ea257 --- /dev/null +++ b/src/SoftwarePipelining/SPDebug.ml @@ -0,0 +1,25 @@ +(***********************************************************************) +(* *) +(* 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 = "../tmp/" ^ (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);; + + + + |