diff options
Diffstat (limited to 'mips/mips_extras_embed.lem')
| -rw-r--r-- | mips/mips_extras_embed.lem | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/mips/mips_extras_embed.lem b/mips/mips_extras_embed.lem index 12f2ca5a..31be4db0 100644 --- a/mips/mips_extras_embed.lem +++ b/mips/mips_extras_embed.lem @@ -1,4 +1,5 @@ open import Pervasives +open import Pervasives_extra open import Sail_impl_base open import Sail_values open import Prompt @@ -35,6 +36,9 @@ let MEMval_conditional (_,_,v) = write_mem_val v >>= fun b -> return (if b t let MEMval_tag (_,_,v) = write_mem_val v >>= fun _ -> return () let MEMval_tag_conditional (_,_,v) = write_mem_val v >>= fun b -> return (if b then B1 else B0) +(* TODO *) +val TAGw : (vector bitU * vector bitU) -> M unit +let TAGw (addr, tag) = failwith "TAGw not implemented" val MEM_sync : unit -> M unit |