Merge pull request #75 from madroach/asn1_time_to_tm

ASN1_TIME_to_tm not implemented in LibreSSL
savonet · Jan 6, 2022 · b711cd4 · b711cd4
2 parents cdf9fe6 + 4960600
commit b711cd4
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/ssl_stubs.c b/src/ssl_stubs.c
@@ -1175,6 +1175,7 @@ static value alloc_tm(struct tm *tm)
   return res;
 }
 
+#ifdef ASN1_TIME_to_tm
 CAMLprim value ocaml_ssl_get_start_date(value certificate)
 {
   CAMLparam1(certificate);
@@ -1200,6 +1201,18 @@ CAMLprim value ocaml_ssl_get_expiration_date(value certificate)
 
   CAMLreturn(alloc_tm(&t));
 }
+#else
+CAMLprim value ocaml_ssl_get_start_date(value ignored)
+{
+  caml_invalid_argument ("SSL.get_start_date not implemented");
+}
+
+CAMLprim value ocaml_ssl_get_expiration_date(value ignored)
+{
+  caml_invalid_argument ("SSL.get_expiration_date not implemented");
+}
+#endif
+
 
 CAMLprim value ocaml_ssl_ctx_load_verify_locations(value context, value ca_file, value ca_path)
 {