diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-12-17 10:03:30 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-12-17 10:03:30 +0000 |
| commit | 82b3cfa677c21e7d1fab907f1824bb101f819291 (patch) | |
| tree | 3be6d494b1da4562f36ac98ed43b5a016cb3f345 /src/SoftwarePipelining/SPDebug.ml | |
| parent | 51e3a17d2e65b095861c243807f4e8d76c60ea0e (diff) | |
| download | vericert-82b3cfa677c21e7d1fab907f1824bb101f819291.tar.gz vericert-82b3cfa677c21e7d1fab907f1824bb101f819291.zip | |
Modify software pipelining for build
Diffstat (limited to 'src/SoftwarePipelining/SPDebug.ml')
| -rw-r--r-- | src/SoftwarePipelining/SPDebug.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/SoftwarePipelining/SPDebug.ml b/src/SoftwarePipelining/SPDebug.ml index b2ea257..34d1c0c 100644 --- a/src/SoftwarePipelining/SPDebug.ml +++ b/src/SoftwarePipelining/SPDebug.ml @@ -13,13 +13,9 @@ 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) ^ +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);; - - - - |