https://github.com/charguer/ocaml
Raw File
Tip revision: 5eb4d9b3e473ba626b073444660683da73dd7c40 authored by charguer on 11 May 2016, 12:08:44 UTC
Missing check in Array.sub which allows to read arbitrary data and segfault
Tip revision: 5eb4d9b
test.ml
(*let f x y = 
   if x > y then [x]  (* missing "else [y]" *)
*)

let f =
   print_string (Printf.sprintf "%d" 4) 4
back to top