Skip to content

Commit

Permalink
Fix compilation with 4.06, release.
Browse files Browse the repository at this point in the history
  • Loading branch information
toots committed Oct 7, 2017
1 parent 6ef92de commit cc6e348
Show file tree
Hide file tree
Showing 4 changed files with 7 additions and 3 deletions.
4 changes: 4 additions & 0 deletions CHANGES
Original file line number Diff line number Diff line change
@@ -1,3 +1,7 @@
0.5.2 (07-10-2017)
=====
* Fix compilation with OCaml 4.06

0.5.1 (11-04-2017)
=====
* Install .cmx files
Expand Down
2 changes: 1 addition & 1 deletion configure.ac
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
AC_INIT([ocaml-ogg],[0.5.1],[savonet-users@lists.sourceforge.net])
AC_INIT([ocaml-ogg],[0.5.2],[savonet-users@lists.sourceforge.net])

VERSION=$PACKAGE_VERSION
AC_MSG_RESULT([configuring $PACKAGE_STRING])
Expand Down
2 changes: 1 addition & 1 deletion src/ogg.ml
Original file line number Diff line number Diff line change
Expand Up @@ -133,7 +133,7 @@ struct
create (fun n ->
let s = Bytes.create n in
let r = Unix.read fd s 0 n in
s,r),fd
Bytes.to_string s,r),fd
with
| e -> Unix.close fd; raise e

Expand Down
2 changes: 1 addition & 1 deletion src/ogg_demuxer.ml
Original file line number Diff line number Diff line change
Expand Up @@ -309,7 +309,7 @@ let unix_callbacks fd =
(fun len ->
let buf = Bytes.create len in
let ret = Unix.read fd buf 0 len in
buf,ret);
Bytes.to_string buf,ret);
tell = Some (fun () -> Unix.lseek fd 0 Unix.SEEK_CUR);
seek = Some (fun len -> Unix.lseek fd len Unix.SEEK_SET) }

Expand Down

0 comments on commit cc6e348

Please sign in to comment.