diff options
| author | Christopher Pulte | 2016-10-06 17:23:28 +0100 |
|---|---|---|
| committer | Christopher Pulte | 2016-10-06 17:23:28 +0100 |
| commit | 99fdb2e003b7433dc06372d2ffebd6d5111ce46d (patch) | |
| tree | f48c22ae3529fccd854877fa1b5490fea70d3ecb /src/lem_interp/instruction_extractor.lem | |
| parent | 1d105202240057e8a1c5c835a2655cf8112167fe (diff) | |
move type definitions that both interpreter and shallow embedding use to sail_impl_base, add sail_impl_base.outcome, add interp_inter_imp auxiliary functions, make prompt use sail_impl_base.outcome
Diffstat (limited to 'src/lem_interp/instruction_extractor.lem')
| -rw-r--r-- | src/lem_interp/instruction_extractor.lem | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lem_interp/instruction_extractor.lem b/src/lem_interp/instruction_extractor.lem index 73845fee..074f3bc4 100644 --- a/src/lem_interp/instruction_extractor.lem +++ b/src/lem_interp/instruction_extractor.lem @@ -2,7 +2,7 @@ open import Interp_ast open import Interp_utilities open import Pervasives -type instr_parm_typ = +type instr_param_typ = | IBit | IBitvector of maybe nat | IRange of maybe nat @@ -10,7 +10,7 @@ type instr_parm_typ = | IOther type instruction_form = -| Instr_form of string * list (string * instr_parm_typ) * list base_effect +| Instr_form of string * list (string * instr_param_typ) * list base_effect | Skipped val extract_instructions : string -> defs tannot -> list instruction_form |