fix in twine

Author: c-cube

src/twine/decode.ml

@@ -398,7 +398,7 @@ let ref_ (self : t) offset : offset =
   let high = get_high c in
   if high <> 14 then fail_decode_type_ ~what:"ref" offset;
   let low = get_low c in
-  let p, _ = get_int_truncate_ self (offset + 1) ~low in
+  let p, _ = get_int_truncate_ self offset ~low in
   offset - p - 1
 
 let[@inline] ref_for (self : t) offset : _ offset_for =

src/twine/imandrakit_twine.ml

@@ -70,8 +70,6 @@ module Util = Util
 type immediate = Immediate.t
 type offset = Types.offset [@@deriving eq, show, ord]
 
-let[@inline] offset_to_twine _enc (o : offset) = Immediate.ref_ o
-let offset_of_twine : offset Decode.decoder = Decode.ref_
 let[@inline] offset_for_to_twine' _enc (o : _ offset_for) = Immediate.ref_for o
 let[@inline] offset_for_to_twine _ _enc (o : _ offset_for) = Immediate.ref_for o
 let offset_for_of_twine : _ offset_for Decode.decoder = Decode.ref_for