diff options
author | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-01 21:00:37 +0100 |
---|---|---|
committer | Michalis Pardalos <m.pardalos@gmail.com> | 2021-05-01 21:00:37 +0100 |
commit | 90d02fd791e419ea9aab33f82d922e2ec94a9470 (patch) | |
tree | ad5e1f77f47ce6f009d5a9e66fc6bbf72bd7222f /src/hls/PrintHTL.ml | |
parent | 70faa0575cc14636c5fe2b3f2ee420b61f3d1347 (diff) | |
download | vericert-90d02fd791e419ea9aab33f82d922e2ec94a9470.tar.gz vericert-90d02fd791e419ea9aab33f82d922e2ec94a9470.zip |
Print externctrl in HTL debug output
Diffstat (limited to 'src/hls/PrintHTL.ml')
-rw-r--r-- | src/hls/PrintHTL.ml | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/src/hls/PrintHTL.ml b/src/hls/PrintHTL.ml index 65fe1f3..8608784 100644 --- a/src/hls/PrintHTL.ml +++ b/src/hls/PrintHTL.ml @@ -43,6 +43,17 @@ let registers a = String.concat "" (intersperse ", " (List.map register a)) let print_instruction pp (pc, i) = fprintf pp "%5d:\t%s" pc (pprint_stmnt 0 i) +let string_controlsignal = function + | Coq_ctrl_finish -> "finish" + | Coq_ctrl_return -> "return" + | Coq_ctrl_start -> "start" + | Coq_ctrl_reset -> "rst" + | Coq_ctrl_clk -> "clk" + | Coq_ctrl_param idx -> sprintf "param_%d" (Nat.to_int idx) + +let print_externctrl pp ((local_reg : reg), ((target_mod: ident), (target_reg: controlsignal))) = + fprintf pp "%s -> %s.%s\n" (register local_reg) (extern_atom target_mod) (string_controlsignal target_reg) + let ptree_to_list ptree = List.sort (fun (pc1, _) (pc2, _) -> compare pc2 pc1) @@ -52,11 +63,20 @@ let ptree_to_list ptree = let print_module pp id f = fprintf pp "%s(%s) {\n" (extern_atom id) (registers f.mod_params); + + let externctrl = PTree.elements f.mod_externctrl in let datapath = ptree_to_list f.mod_datapath in let controllogic = ptree_to_list f.mod_controllogic in + + fprintf pp "externctrl {\n"; + List.iter (print_externctrl pp) externctrl; + fprintf pp " }\n\n"; + fprintf pp "datapath {\n"; List.iter (print_instruction pp) datapath; - fprintf pp " }\n\n controllogic {\n"; + fprintf pp " }\n\n"; + + fprintf pp "controllogic {\n"; List.iter (print_instruction pp) controllogic; fprintf pp " }\n}\n\n" |