diff options
author | Yann Herklotz <git@yannherklotz.com> | 2022-09-26 13:13:51 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2022-09-26 13:13:51 +0100 |
commit | d3abe2547c8921d2b324da67370822b7fb89b6c0 (patch) | |
tree | 081f017f6c6ce801306d8a7bd70b1c100db88cab /src/hls/HTLgen.v | |
parent | 20aae726fa959272ed1568b39b78a0ff501b4882 (diff) | |
download | vericert-d3abe2547c8921d2b324da67370822b7fb89b6c0.tar.gz vericert-d3abe2547c8921d2b324da67370822b7fb89b6c0.zip |
Add global monad notation using Instances
This was mostly inspired by the std++ library.
Diffstat (limited to 'src/hls/HTLgen.v')
-rw-r--r-- | src/hls/HTLgen.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/hls/HTLgen.v b/src/hls/HTLgen.v index bff68a2..6e632b8 100644 --- a/src/hls/HTLgen.v +++ b/src/hls/HTLgen.v @@ -385,7 +385,7 @@ Definition translate_instr (op : Op.operation) (args : list reg) : mon expr := | Op.Ocmp c, _ => translate_condition c args | Op.Osel c AST.Tint, r1::r2::rl => do tc <- translate_condition c rl; - ret (Vternary tc (Vvar r1) (Vvar r2)) + mret (Vternary tc (Vvar r1) (Vvar r2)) | Op.Olea a, _ => translate_eff_addressing a args | _, _ => error (Errors.msg "Htlgen: Instruction not implemented: other") end. |