summaryrefslogtreecommitdiff
path: root/src/isail.ml
diff options
context:
space:
mode:
authorAlasdair Armstrong2018-02-07 18:18:06 +0000
committerAlasdair Armstrong2018-02-07 18:54:30 +0000
commit66eb6adffbb392cf78a78ff41eefd0fa52e7983a (patch)
treee7118d752ae19dd8648bc2c4cd1d46773dc19cff /src/isail.ml
parentb7c7675e78738f356716ba27d212225e60d5a856 (diff)
Have exceptions working in C backend
Diffstat (limited to 'src/isail.ml')
-rw-r--r--src/isail.ml4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/isail.ml b/src/isail.ml
index ffeb1442..ce17561d 100644
--- a/src/isail.ml
+++ b/src/isail.ml
@@ -294,10 +294,6 @@ let handle_input' input =
interactive_state := initial_state !interactive_ast;
interactive_env := env;
vs_ids := Initial_check.val_spec_ids !interactive_ast
- | ":compile" ->
- let exp = Type_check.infer_exp !interactive_env (Initial_check.exp_of_string Ast_util.dec_ord arg) in
- let anf = C_backend.compile_exp (C_backend.initial_ctx !interactive_env) exp in
- print_endline (Pretty_print_sail.to_string (C_backend.pp_aexp anf))
| ":u" | ":unload" ->
interactive_ast := Ast.Defs [];
interactive_env := Type_check.initial_env;