Advertisement
Guest User

Untitled

a guest
Apr 6th, 2015
256
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.21 KB | None | 0 0
  1. let split_instr stmt g =
  2.     let instrs =
  3.     match stmt.skind with
  4.     | Instr(ins_list) when (Caml.List.length ins_list) > 1 ->
  5.                     Format.printf "List length is greater than 1\n"; stmt
  6.     | _ -> stmt
  7.     in
  8.     instrs
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement