Blob Blame History Raw
diff --git a/config/ssl/ssl-thin__gnutls.ads b/config/ssl/ssl-thin__gnutls.ads
index e1bbf62..c6a8f9c 100644
--- a/config/ssl/ssl-thin__gnutls.ads
+++ b/config/ssl/ssl-thin__gnutls.ads
@@ -973,11 +973,6 @@ package SSL.Thin is
       p2  : gnutls_dh_params_t)
      with Import, Convention => C;
 
-   procedure gnutls_certificate_set_rsa_export_params
-     (res        : gnutls_certificate_credentials_t;
-      rsa_params : gnutls_rsa_params_t)
-     with Import, Convention => C;
-
    procedure gnutls_certificate_set_verify_flags
      (res   : gnutls_certificate_credentials_t;
       flags : C.unsigned)
@@ -1270,50 +1265,6 @@ package SSL.Thin is
       src : gnutls_dh_params_t) return C.int
      with Import, Convention => C;
 
-   function gnutls_rsa_params_init
-     (rsa_params : access gnutls_rsa_params_t) return C.int
-     with Import, Convention => C;
-
-   procedure gnutls_rsa_params_deinit (rsa_params : gnutls_rsa_params_t)
-     with Import, Convention => C;
-
-   function gnutls_rsa_params_cpy
-     (dst : gnutls_rsa_params_t;
-      src : gnutls_rsa_params_t) return C.int
-     with Import, Convention => C;
-
-   function gnutls_rsa_params_import_raw
-     (rsa_params : gnutls_rsa_params_t;
-      m          : a_gnutls_datum_t;
-      e          : a_gnutls_datum_t;
-      d          : a_gnutls_datum_t;
-      p          : a_gnutls_datum_t;
-      q          : a_gnutls_datum_t;
-      u          : a_gnutls_datum_t) return C.int
-     with Import, Convention => C;
-
-   function gnutls_rsa_params_generate2
-     (params : gnutls_rsa_params_t;
-      bits   : C.unsigned) return C.int
-     with Import, Convention => C;
-
-   function gnutls_rsa_params_export_raw
-     (params : gnutls_rsa_params_t;
-      m      : a_gnutls_datum_t;
-      e      : a_gnutls_datum_t;
-      d      : a_gnutls_datum_t;
-      p      : a_gnutls_datum_t;
-      q      : a_gnutls_datum_t;
-      u      : a_gnutls_datum_t;
-      bits   : access C.unsigned) return C.int
-     with Import, Convention => C;
-
-   function gnutls_rsa_params_import_pkcs1
-     (params       : gnutls_rsa_params_t;
-      pkcs1_params : a_gnutls_datum_t;
-      format       : gnutls_x509_crt_fmt_t) return C.int
-     with Import, Convention => C;
-
    function gnutls_transport_get_ptr
      (session : gnutls_session_t) return gnutls_transport_ptr_t
      with Import, Convention => C;
@@ -1446,15 +1397,6 @@ package SSL.Thin is
      (p1 : gnutls_session_t; pub : a_gnutls_datum_t) return C.int
      with Import, Convention => C;
 
-   function gnutls_rsa_export_get_pubkey
-     (session : gnutls_session_t;
-      exp     : a_gnutls_datum_t;
-      c_mod   : a_gnutls_datum_t) return C.int
-     with Import, Convention => C;
-
-   function gnutls_rsa_export_get_modulus_bits
-     (session : gnutls_session_t) return C.int
-     with Import, Convention => C;
 
    procedure gnutls_certificate_set_retrieve_function2
      (cred : gnutls_certificate_credentials_t;
diff --git a/config/ssl/aws-net-ssl__gnutls.adb b/config/ssl/aws-net-ssl__gnutls.adb
index d4b9e7f..e0d21bc 100644
--- a/config/ssl/aws-net-ssl__gnutls.adb
+++ b/config/ssl/aws-net-ssl__gnutls.adb
@@ -898,14 +898,6 @@ package body AWS.Net.SSL is
          return;
       end if;
 
-      Check_Error_Code (TSSL.gnutls_rsa_params_init (New_One'Access));
-      Check_Error_Code
-        (TSSL.gnutls_rsa_params_generate2
-           (New_One,
-            TSSL.gnutls_sec_param_to_pk_bits
-              (TSSL.GNUTLS_PK_RSA, TSSL.GNUTLS_SEC_PARAM_NORMAL)));
-
-      TSSL.gnutls_rsa_params_deinit (RSA_Params (1));
 
       RSA_Params (1) := RSA_Params (0);
       RSA_Params (0) := New_One;