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

Exec: comment out uncompilable code

parent dd040652
...@@ -37,6 +37,8 @@ let create dr thkm mokm = ...@@ -37,6 +37,8 @@ let create dr thkm mokm =
let has_syntax {driver = drv} id = let has_syntax {driver = drv} id =
Mid.mem id (drv.drv_syntax) || Mid.mem id (drv.drv_converter) 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 = let rec is_exec_expr cxt e =
match e.e_node with match e.e_node with
| Evar _ | Evar _
...@@ -69,3 +71,4 @@ let is_exec_pdecl cxt pd = ...@@ -69,3 +71,4 @@ let is_exec_pdecl cxt pd =
| PDlet (LDsym ({rs_name = rs}, {c_node = Cfun e})) -> | PDlet (LDsym ({rs_name = rs}, {c_node = Cfun e})) ->
is_exec_expr cxt e is_exec_expr cxt e
| _ -> assert false | _ -> 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