Commit 4de25321 authored by Andrei Paskevich's avatar Andrei Paskevich

Exec: comment out uncompilable code

parent dd040652
......@@ -37,6 +37,8 @@ let create dr thkm mokm =
let has_syntax {driver = drv} id =
Mid.mem id (drv.drv_syntax) || Mid.mem id (drv.drv_converter)
let is_exec_pdecl _ _ = assert false (* TODO *)
(*
let rec is_exec_expr cxt e =
match e.e_node with
| Evar _
......@@ -69,3 +71,4 @@ let is_exec_pdecl cxt pd =
| PDlet (LDsym ({rs_name = rs}, {c_node = Cfun e})) ->
is_exec_expr cxt e
| _ -> assert false
*)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment