LAPPEND_INT(interp, resultObj, "aad_length", aad_len);
    }

    Tcl_SetObjResult(interp, resultObj);

done:
#if OPENSSL_VERSION_NUMBER >= 0x30000000L
    EVP_CIPHER_free(cipher);
    EVP_CIPHER_free((EVP_CIPHER *) cipher);
#endif
    return res;
}

/*
 *-------------------------------------------------------------------
 *

    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);
    EVP_MD_free((EVP_MD *) md);
#endif
    return res;
}

/*
 *-------------------------------------------------------------------
 *