220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
LAPPEND_INT(interp, resultObj, "aad_length", aad_len);
}
Tcl_SetObjResult(interp, resultObj);
done:
#if OPENSSL_VERSION_NUMBER >= 0x30000000L
EVP_CIPHER_free(cipher);
#endif
return res;
}
/*
*-------------------------------------------------------------------
*
|
|
|
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
LAPPEND_INT(interp, resultObj, "aad_length", aad_len);
}
Tcl_SetObjResult(interp, resultObj);
done:
#if OPENSSL_VERSION_NUMBER >= 0x30000000L
EVP_CIPHER_free((EVP_CIPHER *) cipher);
#endif
return res;
}
/*
*-------------------------------------------------------------------
*
|
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
|
LAPPEND_BOOL(interp, listObj, "FIPS", flags & EVP_MD_FLAG_FIPS);
LAPPEND_OBJ(interp, resultObj, "flags", listObj);
Tcl_SetObjResult(interp, resultObj);
done:
#if OPENSSL_VERSION_NUMBER >= 0x30000000L
EVP_MD_free(md);
#endif
return res;
}
/*
*-------------------------------------------------------------------
*
|
|
|
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
|
LAPPEND_BOOL(interp, listObj, "FIPS", flags & EVP_MD_FLAG_FIPS);
LAPPEND_OBJ(interp, resultObj, "flags", listObj);
Tcl_SetObjResult(interp, resultObj);
done:
#if OPENSSL_VERSION_NUMBER >= 0x30000000L
EVP_MD_free((EVP_MD *) md);
#endif
return res;
}
/*
*-------------------------------------------------------------------
*
|