int BN_abs_is_word(const BIGNUM *a, const BN_ULONG w)
{
    return ((a->top == 1) && (a->d[0] == w)) || ((w == 0) && (a->top == 0));
}
['static int group_field_tests(const EC_GROUP *group, BN_CTX *ctx)\n{\n    BIGNUM *a = NULL, *b = NULL, *c = NULL;\n    int ret = 0;\n    if (group->meth->field_inv == NULL || group->meth->field_mul == NULL)\n        return 1;\n    BN_CTX_start(ctx);\n    a = BN_CTX_get(ctx);\n    b = BN_CTX_get(ctx);\n    if (!TEST_ptr(c = BN_CTX_get(ctx))\n        || !TEST_true(group->meth->field_inv(group, b, BN_value_one(), ctx))\n        || !TEST_true(BN_is_one(b))\n        || !TEST_true(BN_pseudo_rand(a, BN_num_bits(group->field) - 1,\n                                     BN_RAND_TOP_ONE, BN_RAND_BOTTOM_ANY))\n        || !TEST_true(group->meth->field_inv(group, b, a, ctx))\n        || (group->meth->field_encode &&\n            !TEST_true(group->meth->field_encode(group, a, a, ctx)))\n        || (group->meth->field_encode &&\n            !TEST_true(group->meth->field_encode(group, b, b, ctx)))\n        || !TEST_true(group->meth->field_mul(group, c, a, b, ctx))\n        || (group->meth->field_decode &&\n            !TEST_true(group->meth->field_decode(group, c, c, ctx)))\n        || !TEST_true(BN_is_one(c)))\n        goto err;\n    BN_zero(a);\n    if (!TEST_false(group->meth->field_inv(group, b, a, ctx))\n        || !TEST_true(ERR_GET_LIB(ERR_peek_last_error()) == ERR_LIB_EC)\n        || !TEST_true(ERR_GET_REASON(ERR_peek_last_error()) ==\n                      EC_R_CANNOT_INVERT)\n        || !TEST_false(group->meth->field_inv(group, b, group->field, ctx))\n        || !TEST_true(ERR_GET_LIB(ERR_peek_last_error()) == ERR_LIB_EC)\n        || !TEST_true(ERR_GET_REASON(ERR_peek_last_error()) ==\n                      EC_R_CANNOT_INVERT))\n        goto err;\n    ERR_clear_error();\n    ret = 1;\n err:\n    BN_CTX_end(ctx);\n    return ret;\n}', 'BIGNUM *BN_CTX_get(BN_CTX *ctx)\n{\n    BIGNUM *ret;\n    CTXDBG_ENTRY("BN_CTX_get", ctx);\n    if (ctx->err_stack || ctx->too_many)\n        return NULL;\n    if ((ret = BN_POOL_get(&ctx->pool, ctx->flags)) == NULL) {\n        ctx->too_many = 1;\n        BNerr(BN_F_BN_CTX_GET, BN_R_TOO_MANY_TEMPORARY_VARIABLES);\n        return NULL;\n    }\n    BN_zero(ret);\n    ctx->used++;\n    CTXDBG_RET(ctx, ret);\n    return ret;\n}', 'int BN_set_word(BIGNUM *a, BN_ULONG w)\n{\n    bn_check_top(a);\n    if (bn_expand(a, (int)sizeof(BN_ULONG) * 8) == NULL)\n        return 0;\n    a->neg = 0;\n    a->d[0] = w;\n    a->top = (w ? 1 : 0);\n    a->flags &= ~BN_FLG_FIXED_TOP;\n    bn_check_top(a);\n    return 1;\n}', 'static ossl_inline BIGNUM *bn_expand(BIGNUM *a, int bits)\n{\n    if (bits > (INT_MAX - BN_BITS2 + 1))\n        return NULL;\n    if (((bits+BN_BITS2-1)/BN_BITS2) <= (a)->dmax)\n        return a;\n    return bn_expand2((a),(bits+BN_BITS2-1)/BN_BITS2);\n}', 'int BN_is_one(const BIGNUM *a)\n{\n    return BN_abs_is_word(a, 1) && !a->neg;\n}', 'int BN_abs_is_word(const BIGNUM *a, const BN_ULONG w)\n{\n    return ((a->top == 1) && (a->d[0] == w)) || ((w == 0) && (a->top == 0));\n}']