mirror of
https://git.freebsd.org/ports.git
synced 2025-05-02 11:36:40 -04:00
26 lines
627 B
OCaml
26 lines
627 B
OCaml
--- xstr_match.ml.orig 2002-07-07 11:27:16 UTC
|
|
+++ xstr_match.ml
|
|
@@ -137,12 +137,12 @@ let noword_set() =
|
|
|
|
|
|
let set_as_string set =
|
|
- let s = String.make 32 ' ' in
|
|
+ let s = Bytes.make 32 ' ' in
|
|
for i = 0 to 15 do
|
|
s.[i+i] <- Char.chr (set.(i) land 0xff);
|
|
s.[i+i+1] <- Char.chr (set.(i) lsr 8);
|
|
done;
|
|
- s
|
|
+ Bytes.to_string s
|
|
;;
|
|
|
|
|
|
@@ -592,7 +592,7 @@ let replace_matched_substrings ml rl fl s =
|
|
let length = total_length 0 transformer in
|
|
let target = String.create length in
|
|
form_replacement_ltor target transformer length;
|
|
- target, !n_repl
|
|
+ Bytes.to_string target, !n_repl
|
|
;;
|
|
|
|
|