Codebase list libcryptx-perl / cc26bd4
rsa|dsa|ecc|dh_free Karel Miko 10 years ago
4 changed file(s) with 10 addition(s) and 11 deletion(s). Raw diff Collapse all Expand all
+2
-2
lib/CryptX_PK_DH.xs.inc less more
3636 STRLEN data_len=0;
3737
3838 data = (unsigned char *)SvPVbyte(key_data, data_len);
39 dh_free(&self->key);
39 if (self->key.type != -1) { dh_free(&self->key); self->key.type = -1; }
4040 rv = dh_import(data, (unsigned long)data_len, &self->key);
4141 if (rv != CRYPT_OK) croak("FATAL: dh_import failed: %s", error_to_string(rv));
4242 RETVAL = 1; /* xxx */
231231 void
232232 DESTROY(Crypt::PK::DH self)
233233 CODE:
234 dh_free(&self->key);
234 if (self->key.type != -1) { dh_free(&self->key); self->key.type = -1; }
235235 Safefree(self);
236236
+2
-2
lib/CryptX_PK_DSA.xs.inc less more
3636 STRLEN data_len=0;
3737
3838 data = (unsigned char *)SvPVbyte(key_data, data_len);
39 dsa_free(&self->key);
39 if (self->key.type != -1) { dsa_free(&self->key); self->key.type = -1; }
4040 rv = dsa_import(data, (unsigned long)data_len, &self->key);
4141 if (rv != CRYPT_OK) croak("FATAL: dsa_import failed: %s", error_to_string(rv));
4242 RETVAL = 1; /* xxx */
257257 void
258258 DESTROY(Crypt::PK::DSA self)
259259 CODE:
260 /* dsa_free(&self->key); */ /* XXX-HACK segfaults */
260 if (self->key.type != -1) { dsa_free(&self->key); self->key.type = -1; }
261261 Safefree(self);
262262
+3
-3
lib/CryptX_PK_ECC.xs.inc less more
3636 STRLEN data_len=0;
3737
3838 data = (unsigned char *)SvPVbyte(key_data, data_len);
39 ecc_free(&self->key);
39 if (self->key.type != -1) { ecc_free(&self->key); self->key.type = -1; }
4040 rv = ecc_import(data, (unsigned long)data_len, &self->key);
4141 if (rv != CRYPT_OK) croak("FATAL: ecc_import failed: %s", error_to_string(rv));
4242 RETVAL = 1; /* xxx */
5353 STRLEN data_len=0;
5454
5555 data = (unsigned char *)SvPVbyte(key_data, data_len);
56 ecc_free(&self->key);
56 if (self->key.type != -1) { ecc_free(&self->key); self->key.type = -1; }
5757 rv = ecc_ansi_x963_import(data, (unsigned long)data_len, &self->key);
5858 if (rv != CRYPT_OK) croak("FATAL: ecc_ansi_x963_import failed: %s", error_to_string(rv));
5959 RETVAL = 1; /* xxx */
294294 void
295295 DESTROY(Crypt::PK::ECC self)
296296 CODE:
297 ecc_free(&self->key);
297 if (self->key.type != -1) { ecc_free(&self->key); self->key.type = -1; }
298298 Safefree(self);
299299
+3
-4
lib/CryptX_PK_RSA.xs.inc less more
3737 STRLEN data_len=0;
3838
3939 data = (unsigned char *)SvPVbyte(key_data, data_len);
40 rsa_free(&self->key);
40 if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; }
4141 rv = rsa_import(data, (unsigned long)data_len, &self->key);
42 //if (rv != CRYPT_OK) { warn("x\n"); rsa_free(&self->key); croak("FATAL: rsa_import failed: %s", error_to_string(rv)); }
43 if (rv != CRYPT_OK) { warn("x\n"); croak("FATAL: rsa_import failed: %s", error_to_string(rv)); }
42 if (rv != CRYPT_OK) croak("FATAL: rsa_import failed: %s", error_to_string(rv));
4443 RETVAL = 1; /* xxx */
4544 }
4645 OUTPUT:
363362 void
364363 DESTROY(Crypt::PK::RSA self)
365364 CODE:
366 /* rsa_free(&self->key); */ /* XXX-HACK segfaults */
365 if (self->key.type != -1) { rsa_free(&self->key); self->key.type = -1; }
367366 Safefree(self);
368367