diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2020-03-31 10:45:13 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2020-03-31 10:45:13 +0100 |
| commit | 0695114f5f1b758177d2e43989be5432710db6a5 (patch) | |
| tree | c9a752e1340c08df32735b349ac507ed131ae682 /src/translation/Veriloggen.v | |
| parent | 436daa0e4b0d7929a02715fe8acc9a0fa9dcaf9e (diff) | |
| download | vericert-0695114f5f1b758177d2e43989be5432710db6a5.tar.gz vericert-0695114f5f1b758177d2e43989be5432710db6a5.zip | |
Improve Verilog error messages
Diffstat (limited to 'src/translation/Veriloggen.v')
| -rw-r--r-- | src/translation/Veriloggen.v | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/translation/Veriloggen.v b/src/translation/Veriloggen.v index 41e7359..426a7e6 100644 --- a/src/translation/Veriloggen.v +++ b/src/translation/Veriloggen.v @@ -167,7 +167,13 @@ Definition transf_instr (n : node) (i : instruction) (s : state) : mon node := | Some instr => add_instr n n' s instr | _ => Error (Errors.msg "Instruction is not implemented.") end - | _ => Error (Errors.msg "The other things were also not implemented") + | Hload _ _ _ _ _ => Error (Errors.msg "Load not implemented.") + | Hstore _ _ _ _ _ => Error (Errors.msg "Store not implemented.") + | Hinst _ _ _ _ => Error (Errors.msg "Call not implemented.") + | Htailcall _ _ _ => Error (Errors.msg "Tailcall not implemented.") + | Hcond _ _ _ _ => Error (Errors.msg "Cond not implemented.") + | Hjumptable _ _ => Error (Errors.msg "Jumptable not implemented.") + | Hfinish _ => OK n s end. Definition make_stm_cases (s : positive * stmnt) : expr * stmnt := |