Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:24
erlang
2582-crypto-Remove-debugging-help.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 2582-crypto-Remove-debugging-help.patch of Package erlang
From 73be588a9a7a0f0384e818e2aa0b8924373cc203 Mon Sep 17 00:00:00 2001 From: Hans Nilsson <hans@erlang.org> Date: Wed, 23 Mar 2022 09:30:33 +0100 Subject: [PATCH 2/2] crypto: Remove debugging help --- lib/crypto/c_src/dh.c | 39 --------------------------------------- 1 file changed, 39 deletions(-) diff --git a/lib/crypto/c_src/dh.c b/lib/crypto/c_src/dh.c index 43b5c6c2aa..ebf47cae3c 100644 --- a/lib/crypto/c_src/dh.c +++ b/lib/crypto/c_src/dh.c @@ -38,45 +38,6 @@ ERL_NIF_TERM dh_compute_key_nif(ErlNifEnv* env, int argc, const ERL_NIF_TERM arg # ifdef HAS_3_0_API -/**** Begin debug-help functions ****/ -# if 0 -ERL_NIF_TERM debug_put_pkey(ErlNifEnv* env, EVP_PKEY *pkey); - -# define PUT1(env,bn,t) \ - if (bn) {if ((t = bin_from_bn(env, bn)) == atom_error) goto err;} \ - else t = atom_undefined - -ERL_NIF_TERM debug_put_pkey(ErlNifEnv* env, EVP_PKEY *pkey) -{ - const BIGNUM *p1 = NULL, *q1 = NULL, *g1 = NULL, *pub1 = NULL, *priv1 = NULL; - DH *dh = NULL; - ERL_NIF_TERM result[8]; - int i = 0; - - if (pkey) { - dh = EVP_PKEY_get1_DH(pkey); - DH_get0_pqg(dh, &p1, &q1, &g1); - - pub1 = DH_get0_pub_key(dh); - priv1= DH_get0_priv_key(dh); - - PUT1(env, p1, result[i++]); - PUT1(env, g1, result[i++]); - PUT1(env, q1, result[i++]); - PUT1(env, pub1, result[i++]); - PUT1(env, priv1, result[i++]); - - return enif_make_list_from_array(env,result,i); - } else - return atom_false; - - err: - return atom_error; -} -# endif -/**** End debug-help functions ****/ - - /* Has 3_0 */ ERL_NIF_TERM dh_generate_key_nif(ErlNifEnv* env, int argc, const ERL_NIF_TERM argv[]) {/* (PrivKey|undefined, DHParams=[P,G], 0, Len|0) */ -- 2.34.1
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor