Merge pull request #47 from olafhering/const

handle safe-string
djs55 · Mar 13, 2021 · ac1d5c0 · ac1d5c0
2 parents 3eb0091 + e5af4b2
commit ac1d5c0
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/sha1_stubs.c b/sha1_stubs.c
@@ -154,7 +154,7 @@ CAMLprim value stub_sha1_to_bin(value digest)
 	CAMLlocal1(result);
 
 	result = caml_alloc_string(20);
-	sha1_to_bin((sha1_digest *) digest, String_val(result));
+	sha1_to_bin((sha1_digest *) digest, &Byte(result, 0));
 
 	CAMLreturn(result);
 }
@@ -165,7 +165,7 @@ CAMLprim value stub_sha1_to_hex(value digest)
 	CAMLlocal1(result);
 
 	result = caml_alloc_string(40);
-	sha1_to_hex((sha1_digest *) digest, String_val(result));
+	sha1_to_hex((sha1_digest *) digest, &Byte(result, 0));
 
 	CAMLreturn(result);
 }
diff --git a/sha256_stubs.c b/sha256_stubs.c
@@ -152,7 +152,7 @@ CAMLprim value stub_sha256_to_bin(value digest)
 	CAMLlocal1(result);
 
 	result = caml_alloc_string(32);
-	sha256_to_bin((sha256_digest *) digest, String_val(result));
+	sha256_to_bin((sha256_digest *) digest, &Byte(result, 0));
 
 	CAMLreturn(result);
 }
@@ -163,7 +163,7 @@ CAMLprim value stub_sha256_to_hex(value digest)
 	CAMLlocal1(result);
 
 	result = caml_alloc_string(64);
-	sha256_to_hex((sha256_digest *) digest, String_val(result));
+	sha256_to_hex((sha256_digest *) digest, &Byte(result, 0));
 
 	CAMLreturn(result);
 }
diff --git a/sha512_stubs.c b/sha512_stubs.c
@@ -152,7 +152,7 @@ CAMLprim value stub_sha512_to_bin(value digest)
 	CAMLlocal1(result);
 
 	result = caml_alloc_string(64);
-	sha512_to_bin((sha512_digest *) digest, String_val(result));
+	sha512_to_bin((sha512_digest *) digest, &Byte(result, 0));
 
 	CAMLreturn(result);
 }
@@ -163,7 +163,7 @@ CAMLprim value stub_sha512_to_hex(value digest)
 	CAMLlocal1(result);
 
 	result = caml_alloc_string(128);
-	sha512_to_hex((sha512_digest *) digest, String_val(result));
+	sha512_to_hex((sha512_digest *) digest, &Byte(result, 0));
 
 	CAMLreturn(result);
 }