summaryrefslogtreecommitdiffstats
path: root/byterun/compare.c
diff options
context:
space:
mode:
Diffstat (limited to 'byterun/compare.c')
-rw-r--r--byterun/compare.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/compare.c b/byterun/compare.c
index 220682316..bf5b6e4dd 100644
--- a/byterun/compare.c
+++ b/byterun/compare.c
@@ -137,8 +137,8 @@ static long compare_val(value v1, value v2, int total)
mlsize_t len1, len2, len;
unsigned char * p1, * p2;
if (v1 == v2) break;
- len1 = string_length(v1);
- len2 = string_length(v2);
+ len1 = caml_string_length(v1);
+ len2 = caml_string_length(v2);
for (len = (len1 <= len2 ? len1 : len2),
p1 = (unsigned char *) String_val(v1),
p2 = (unsigned char *) String_val(v2);