bug/0000755000175000017500000000000012444570663011772 5ustar  chambartchambartbug/test_endian_string.ml0000644000175000017500000000017312444570474016210 0ustar  chambartchambartopen ExtUnix.All

let test_endian_string x =
  let module B = BigEndian in
  B.get_uint8 x 0

let v = test_endian_string 1
bug/extUnix.ml0000644000175000017500000000003112444570474013762 0ustar  chambartchambartmodule All = ExtUnixAll

bug/extUnixAll.ml0000644000175000017500000000016712444570474014425 0ustar  chambartchambart
external unused : unit -> unit = "caml_blit_string"

module BigEndian = struct

  let get_uint8 str off =
    33

end
bug/build.sh0000755000175000017500000000022612444570474013430 0ustar  chambartchambartocamlc -c extUnixAll.ml
ocamlc -c extUnix.ml
ocamlc -c -no-alias-deps test_endian_string.ml
ocamlc -o test.byte extUnixAll.cmo test_endian_string.cmo