Commit 69b1d8e1 authored by Wilke Pierre's avatar Wilke Pierre
Browse files

Add jump to entry node

parent 5bca2a0d
......@@ -38,6 +38,7 @@ let linear_of_rtl_fun
({ rtlfunargs; rtlfunbody; rtlfunentry; rtlfuninfo }: rtl_fun) =
let block_order = sort_blocks rtlfunbody rtlfunentry in
let linearinstrs =
Rjmp rtlfunentry ::
List.fold_left (fun l n ->
match Hashtbl.find_option rtlfunbody n with
| None -> l
Supports Markdown
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