35 lines
1.4 KiB
Diff
35 lines
1.4 KiB
Diff
|
Remove SSL2 key material support.
|
||
|
|
|
||
|
|
--- packages/ssl/ssl4pl.c.orig 2014-09-22 22:06:43.891493659 +0200
|
||
|
|
+++ packages/ssl/ssl4pl.c 2014-09-22 22:07:17.743494074 +0200
|
||
|
|
@@ -67,7 +67,6 @@
|
||
|
|
static functor_t FUNCTOR_crl1;
|
||
|
|
static functor_t FUNCTOR_revocations1;
|
||
|
|
static functor_t FUNCTOR_revoked2;
|
||
|
|
-static functor_t FUNCTOR_session_key1;
|
||
|
|
static functor_t FUNCTOR_master_key1;
|
||
|
|
static functor_t FUNCTOR_session_id1;
|
||
|
|
static functor_t FUNCTOR_client_random1;
|
||
|
|
@@ -1537,13 +1536,6 @@
|
||
|
|
PL_INTEGER, (int)session->ssl_version))
|
||
|
|
return FALSE;
|
||
|
|
|
||
|
|
- if ( !PL_unify_list_ex(list_t, node_t, list_t) )
|
||
|
|
- return FALSE;
|
||
|
|
- if ( !PL_unify_term(node_t,
|
||
|
|
- PL_FUNCTOR, FUNCTOR_session_key1,
|
||
|
|
- PL_NCHARS, session->key_arg_length, session->key_arg))
|
||
|
|
- return FALSE;
|
||
|
|
-
|
||
|
|
if ( !PL_unify_list_ex(list_t, node_t, list_t))
|
||
|
|
return FALSE;
|
||
|
|
if ( !PL_unify_term(node_t,
|
||
|
|
@@ -1624,7 +1616,6 @@
|
||
|
|
FUNCTOR_crl1 = PL_new_functor(PL_new_atom("crl"), 1);
|
||
|
|
FUNCTOR_revoked2 = PL_new_functor(PL_new_atom("revoked"), 2);
|
||
|
|
FUNCTOR_revocations1 = PL_new_functor(PL_new_atom("revocations"), 1);
|
||
|
|
- FUNCTOR_session_key1 = PL_new_functor(PL_new_atom("session_key"), 1);
|
||
|
|
FUNCTOR_master_key1 = PL_new_functor(PL_new_atom("master_key"), 1);
|
||
|
|
FUNCTOR_session_id1 = PL_new_functor(PL_new_atom("session_id"), 1);
|
||
|
|
FUNCTOR_client_random1 = PL_new_functor(PL_new_atom("client_random"), 1);
|