LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_do
static JanetSlot janetc_do(JanetFopts opts, int32_t argn, const Janet *argv) {
    int32_t i;
    JanetSlot ret = janetc_cslot(janet_wrap_nil());
    JanetCompiler *c = opts.compiler;
    JanetFopts subopts = janetc_fopts_default(c);
    JanetScope tempscope;
    janetc_scope(&tempscope, c, 0, "do");
    for (i = 0; i < argn; i++) {
        if (i != argn - 1) {
            subopts.flags = JANET_FOPTS_DROP;
        } else {
            subopts = opts;
            subopts.flags &= ~JANET_FOPTS_ACCEPT_SPLICE;
        }
        ret = janetc_value(subopts, argv[i]);
        if (i != argn - 1) {
            janetc_freeslot(c, ret);
        }
    }
    janetc_popscope_keepslot(c, ret);
    return ret;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xe8, %rsp
movq %rdx, %r14
movl %esi, %r15d
movq %rdi, %rbx
leaq 0x10(%rbp), %r12
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %rbx, %rdi
movq %rax, %rsi
callq 0x19f5c
movq (%r12), %r12
leaq -0x60(%rbp), %rdi
movq %r12, %rsi
callq 0x19f04
leaq 0x268bb(%rip), %rcx     # 0x64818
leaq -0xe8(%rbp), %rdi
xorl %r13d, %r13d
movq %r12, -0x30(%rbp)
movq %r12, %rsi
xorl %edx, %edx
callq 0x1a294
leal -0x1(%r15), %r12d
testl %r15d, %r15d
cmovlel %r13d, %r15d
cmpq %r13, %r15
je 0x3e043
cmpq %r13, %r12
jne 0x3dfe5
leaq 0x10(%rbp), %rcx
movq 0x20(%rcx), %rax
movq %rax, -0x40(%rbp)
movups (%rcx), %xmm0
movups 0x10(%rcx), %xmm1
movaps %xmm1, -0x50(%rbp)
movaps %xmm0, -0x60(%rbp)
andb $-0x9, -0x3e(%rbp)
movq (%r14,%r13,8), %rsi
movq -0x40(%rbp), %rax
movq %rax, 0x20(%rsp)
movaps -0x60(%rbp), %xmm0
movaps -0x50(%rbp), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
leaq -0x78(%rbp), %rdi
callq 0x1abbf
movq -0x68(%rbp), %rax
movq %rax, 0x10(%rbx)
movups -0x78(%rbp), %xmm0
movups %xmm0, (%rbx)
jmp 0x3e03b
movl $0x40000, -0x40(%rbp)   # imm = 0x40000
movq (%r14,%r13,8), %rsi
movq -0x40(%rbp), %rax
movq %rax, 0x20(%rsp)
movups -0x60(%rbp), %xmm0
movups -0x50(%rbp), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
leaq -0x78(%rbp), %rdi
callq 0x1abbf
movq -0x68(%rbp), %rax
movq %rax, 0x10(%rbx)
movups -0x78(%rbp), %xmm0
movups %xmm0, (%rbx)
movq 0x10(%rbx), %rax
movq %rax, 0x10(%rsp)
movups (%rbx), %xmm0
movups %xmm0, (%rsp)
movq -0x30(%rbp), %rdi
callq 0x1a177
incq %r13
jmp 0x3df80
movq 0x10(%rbx), %rax
movq %rax, 0x10(%rsp)
movups (%rbx), %xmm0
movups %xmm0, (%rsp)
movq -0x30(%rbp), %rdi
callq 0x1a54c
movq %rbx, %rax
addq $0xe8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_quasiquote
static JanetSlot janetc_quasiquote(JanetFopts opts, int32_t argn, const Janet *argv) {
    if (argn != 1) {
        janetc_cerror(opts.compiler, "expected 1 argument to quasiquote");
        return janetc_cslot(janet_wrap_nil());
    }
    return quasiquote(opts, argv[0], JANET_RECURSION_GUARD, 0);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
subq $0x28, %rsp
movq %rdi, %rbx
leaq 0x10(%rbp), %rax
cmpl $0x1, %esi
jne 0x3eece
movq (%rdx), %rsi
movq 0x20(%rax), %rcx
movq %rcx, 0x20(%rsp)
movups (%rax), %xmm0
movups 0x10(%rax), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
movq %rbx, %rdi
movl $0x400, %edx            # imm = 0x400
xorl %ecx, %ecx
callq 0x4080f
jmp 0x3eef7
movq (%rax), %rdi
leaq 0x25c9a(%rip), %rsi     # 0x64b72
callq 0x19fa9
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %rbx, %rdi
movq %rax, %rsi
callq 0x19f5c
movq %rbx, %rax
addq $0x28, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_quote
static JanetSlot janetc_quote(JanetFopts opts, int32_t argn, const Janet *argv) {
    if (argn != 1) {
        janetc_cerror(opts.compiler, "expected 1 argument to quote");
        return janetc_cslot(janet_wrap_nil());
    }
    return janetc_cslot(argv[0]);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
cmpl $0x1, %esi
jne 0x3ef14
movq (%rdx), %rsi
jmp 0x3ef39
leaq 0x10(%rbp), %rax
movq (%rax), %rdi
leaq 0x25c8f(%rip), %rsi     # 0x64bb1
callq 0x19fa9
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %rax, %rsi
movq %rbx, %rdi
callq 0x19f5c
movq %rbx, %rax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_splice
static JanetSlot janetc_splice(JanetFopts opts, int32_t argn, const Janet *argv) {
    JanetSlot ret;
    if (!(opts.flags & JANET_FOPTS_ACCEPT_SPLICE)) {
        janetc_cerror(opts.compiler, "splice can only be used in function parameters and data constructors, it has no effect here");
        return janetc_cslot(janet_wrap_nil());
    }
    if (argn != 1) {
        janetc_cerror(opts.compiler, "expected 1 argument to splice");
        return janetc_cslot(janet_wrap_nil());
    }
    ret = janetc_value(opts, argv[0]);
    ret.flags |= JANET_SLOT_SPLICED;
    return ret;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
subq $0x40, %rsp
movq %rdi, %rbx
leaq 0x10(%rbp), %rax
testb $0x8, 0x22(%rax)
jne 0x3f19f
movq (%rax), %rdi
leaq 0x25ab9(%rip), %rsi     # 0x64c56
jmp 0x3f1f2
cmpl $0x1, %esi
jne 0x3f1e8
movq (%rdx), %rsi
movq 0x20(%rax), %rcx
movq %rcx, 0x20(%rsp)
movups (%rax), %xmm0
movups 0x10(%rax), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
leaq -0x28(%rbp), %r14
movq %r14, %rdi
callq 0x1abbf
movups (%r14), %xmm0
movups %xmm0, (%rbx)
movl $0x1000000, %eax        # imm = 0x1000000
orl 0x10(%r14), %eax
movl 0x14(%r14), %ecx
movl %eax, 0x10(%rbx)
movl %ecx, 0x14(%rbx)
jmp 0x3f211
movq (%rax), %rdi
leaq 0x25ac0(%rip), %rsi     # 0x64cb2
callq 0x19fa9
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %rbx, %rdi
movq %rax, %rsi
callq 0x19f5c
movq %rbx, %rax
addq $0x40, %rsp
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_upscope
static JanetSlot janetc_upscope(JanetFopts opts, int32_t argn, const Janet *argv) {
    int32_t i;
    JanetSlot ret = janetc_cslot(janet_wrap_nil());
    JanetCompiler *c = opts.compiler;
    JanetFopts subopts = janetc_fopts_default(c);
    for (i = 0; i < argn; i++) {
        if (i != argn - 1) {
            subopts.flags = JANET_FOPTS_DROP;
        } else {
            subopts = opts;
            subopts.flags &= ~JANET_FOPTS_ACCEPT_SPLICE;
        }
        ret = janetc_value(subopts, argv[i]);
        if (i != argn - 1) {
            janetc_freeslot(c, ret);
        }
    }
    return ret;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x78, %rsp
movq %rdx, %rbx
movl %esi, %r15d
movq %rdi, %r14
leaq 0x10(%rbp), %r12
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %r14, %rdi
movq %rax, %rsi
callq 0x19f5c
movq (%r12), %rsi
leaq -0x50(%rbp), %rdi
movq %rsi, -0x58(%rbp)
callq 0x19f04
leal -0x1(%r15), %r13d
xorl %r12d, %r12d
testl %r15d, %r15d
cmovlel %r12d, %r15d
cmpq %r12, %r15
je 0x3f377
cmpq %r12, %r13
jne 0x3f317
leaq 0x10(%rbp), %rcx
movq 0x20(%rcx), %rax
movq %rax, -0x30(%rbp)
movups (%rcx), %xmm0
movups 0x10(%rcx), %xmm1
movaps %xmm1, -0x40(%rbp)
movaps %xmm0, -0x50(%rbp)
andb $-0x9, -0x2e(%rbp)
movq (%rbx,%r12,8), %rsi
movq -0x30(%rbp), %rax
movq %rax, 0x20(%rsp)
movaps -0x50(%rbp), %xmm0
movaps -0x40(%rbp), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
leaq -0x70(%rbp), %rdi
callq 0x1abbf
movq -0x60(%rbp), %rax
movq %rax, 0x10(%r14)
movups -0x70(%rbp), %xmm0
movups %xmm0, (%r14)
jmp 0x3f36f
movl $0x40000, -0x30(%rbp)   # imm = 0x40000
movq (%rbx,%r12,8), %rsi
movq -0x30(%rbp), %rax
movq %rax, 0x20(%rsp)
movups -0x50(%rbp), %xmm0
movups -0x40(%rbp), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
leaq -0x70(%rbp), %rdi
callq 0x1abbf
movq -0x60(%rbp), %rax
movq %rax, 0x10(%r14)
movups -0x70(%rbp), %xmm0
movups %xmm0, (%r14)
movq 0x10(%r14), %rax
movq %rax, 0x10(%rsp)
movups (%r14), %xmm0
movups %xmm0, (%rsp)
movq -0x58(%rbp), %rdi
callq 0x1a177
incq %r12
jmp 0x3f2b1
movq %r14, %rax
addq $0x78, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_var
static JanetSlot janetc_var(JanetFopts opts, int32_t argn, const Janet *argv) {
    JanetCompiler *c = opts.compiler;
    JanetTable *attr_table = handleattr(c, "var", argn, argv);
    if (c->result.status == JANET_COMPILE_ERROR) {
        return janetc_cslot(janet_wrap_nil());
    }
    SlotHeadPair *into = NULL;
    into = dohead_destructure(c, into, opts, argv[0], argv[argn - 1]);
    if (c->result.status == JANET_COMPILE_ERROR) {
        janet_v_free(into);
        return janetc_cslot(janet_wrap_nil());
    }
    JanetSlot ret;
    janet_assert(janet_v_count(into) > 0, "bad destructure");
    for (int32_t i = 0; i < janet_v_count(into); i++) {
        destructure(c, into[i].lhs, into[i].rhs, varleaf, attr_table);
        ret = into[i].rhs;
    }
    janet_v_free(into);
    return ret;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x38, %rsp
movq %rdx, %r12
movl %esi, %r13d
movq %rdi, %rbx
movq 0x10(%rbp), %r14
leaq 0x25475(%rip), %rsi     # 0x64823
movq %r14, %rdi
movl %r13d, %edx
movq %r12, %rcx
callq 0x3fa06
movq %rax, -0x30(%rbp)
cmpl $0x1, 0x48(%r14)
je 0x3f415
leaq 0x10(%rbp), %rax
movslq %r13d, %rcx
movq (%r12), %rdx
movq -0x8(%r12,%rcx,8), %rcx
movq 0x20(%rax), %rsi
movq %rsi, 0x20(%rsp)
movups (%rax), %xmm0
movups 0x10(%rax), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
movq %r14, %rdi
xorl %esi, %esi
callq 0x3d9c8
movq %rax, %r12
cmpl $0x1, 0x48(%r14)
jne 0x3f431
testq %r12, %r12
je 0x3f415
addq $-0x8, %r12
movq %r12, %rdi
callq 0x298c1
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %rbx, %rdi
movq %rax, %rsi
callq 0x19f5c
jmp 0x3f4a1
testq %r12, %r12
je 0x3f4b3
movl -0x4(%r12), %eax
testl %eax, %eax
jle 0x3f4b3
leaq 0x8(%r12), %r13
xorl %r15d, %r15d
cltq
cmpq %rax, %r15
jge 0x3f495
movq -0x8(%r13), %rsi
movq 0x10(%r13), %rax
movq %rax, 0x10(%rsp)
movups (%r13), %xmm0
movups %xmm0, (%rsp)
movq %r14, %rdi
leaq 0x1901(%rip), %rdx      # 0x40d6f
movq -0x30(%rbp), %rcx
callq 0x3fb99
movq 0x10(%r13), %rax
movq %rax, 0x10(%rbx)
movups (%r13), %xmm0
movups %xmm0, (%rbx)
incq %r15
movl -0x4(%r12), %eax
addq $0x20, %r13
jmp 0x3f447
addq $-0x8, %r12
movq %r12, %rdi
callq 0x298c1
movq %rbx, %rax
addq $0x38, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x40b36(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0x10b4c(%rip), %rsi     # 0x50010
leaq 0x253a2(%rip), %rcx     # 0x6486d
leaq 0x253af(%rip), %r8      # 0x64881
movl $0x1cf, %edx            # imm = 0x1CF
xorl %eax, %eax
callq 0x125e0
callq 0x12100
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_make_sourcemap
static const Janet *janetc_make_sourcemap(JanetCompiler *c) {
    Janet *tup = janet_tuple_begin(3);
    tup[0] = c->source ? janet_wrap_string(c->source) : janet_wrap_nil();
    tup[1] = janet_wrap_integer(c->current_mapping.line);
    tup[2] = janet_wrap_integer(c->current_mapping.column);
    return janet_tuple_end(tup);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rdi, %r14
pushq $0x3
popq %rdi
callq 0x44648
movq %rax, %rbx
movq 0x20(%r14), %rdi
testq %rdi, %rdi
je 0x40587
movabsq $-0x6000000000000, %rsi # imm = 0xFFFA000000000000
callq 0x4b366
jmp 0x40596
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
callq 0x4b313
movq %rax, (%rbx)
cvtsi2sdl 0x50(%r14), %xmm0
callq 0x4b471
movq %rax, 0x8(%rbx)
cvtsi2sdl 0x54(%r14), %xmm0
callq 0x4b471
movq %rax, 0x10(%rbx)
movq %rbx, %rdi
popq %rbx
popq %r14
popq %rbp
jmp 0x44674
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: namelocal
static int namelocal(JanetCompiler *c, const uint8_t *head, int32_t flags, JanetSlot ret) {
    int isUnnamedRegister = !(ret.flags & JANET_SLOT_NAMED) &&
                            ret.index > 0 &&
                            ret.envindex >= 0;
    /* optimization for `(def x my-def)` - don't emit a movn/movf instruction, we can just alias my-def */
    /* TODO - implement optimization for `(def x my-var)` correctly as well w/ de-aliasing */
    int canAlias = !(flags & JANET_SLOT_MUTABLE) &&
                   !(ret.flags & JANET_SLOT_MUTABLE) &&
                   (ret.flags & JANET_SLOT_NAMED) &&
                   (ret.index >= 0) &&
                   (ret.envindex == -1);
    if (canAlias) {
        ret.flags &= ~JANET_SLOT_MUTABLE;
        isUnnamedRegister = 1; /* don't free slot after use - is an alias for another slot */
    } else if (!isUnnamedRegister) {
        /* Slot is not able to be named */
        JanetSlot localslot = janetc_farslot(c);
        janetc_copy(c, localslot, ret);
        ret = localslot;
    }
    ret.flags |= flags;
    janetc_nameslot(c, head, ret);
    return !isUnnamedRegister;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x48, %rsp
movl %edx, %r15d
movq %rsi, %rbx
movq %rdi, %r14
leaq 0x10(%rbp), %r13
movl 0x8(%r13), %ecx
movl 0x10(%r13), %eax
btl $0x11, %eax
setae %dl
testl %ecx, %ecx
setg %sil
andb %dl, %sil
cmpb $0x1, %sil
jne 0x40609
cmpl $0x0, 0xc(%r13)
setns %dl
jmp 0x4060b
xorl %edx, %edx
movl %eax, %esi
orl %r15d, %esi
btl $0x12, %esi
jb 0x40631
btl $0x11, %eax
jae 0x40631
testl %ecx, %ecx
js 0x40631
cmpl $-0x1, 0xc(%r13)
jne 0x40631
andl $0xfffbffff, %eax       # imm = 0xFFFBFFFF
xorl %r12d, %r12d
jmp 0x40690
xorl %r12d, %r12d
testb %dl, %dl
jne 0x40690
leaq -0x40(%rbp), %r12
movq %r12, %rdi
movq %r14, %rsi
callq 0x1a259
movq 0x10(%r13), %rax
movq %rax, 0x28(%rsp)
movups (%r13), %xmm0
movups %xmm0, 0x18(%rsp)
movq 0x10(%r12), %rax
movq %rax, 0x10(%rsp)
movups (%r12), %xmm0
movups %xmm0, (%rsp)
movq %r14, %rdi
callq 0x1f88f
movq 0x10(%r12), %rax
movq %rax, 0x10(%r13)
movups (%r12), %xmm0
movups %xmm0, (%r13)
movl 0x10(%r13), %eax
pushq $0x1
popq %r12
orl %r15d, %eax
movl %eax, 0x10(%r13)
movq 0x10(%r13), %rax
movq %rax, 0x10(%rsp)
movups (%r13), %xmm0
movups %xmm0, (%rsp)
movq %r14, %rdi
movq %rbx, %rsi
callq 0x1a19d
movl %r12d, %eax
addq $0x48, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_addfuncdef
static int32_t janetc_addfuncdef(JanetCompiler *c, JanetFuncDef *def) {
    JanetScope *scope = c->scope;
    while (scope) {
        if (scope->flags & JANET_SCOPE_FUNCTION)
            break;
        scope = scope->parent;
    }
    janet_assert(scope, "could not add funcdef");
    janet_v_push(scope->defs, def);
    return janet_v_count(scope->defs) - 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rsi, %rbx
movq %rdi, %r14
movq (%r14), %r14
testq %r14, %r14
je 0x40736
testb $0x1, 0x6c(%r14)
jne 0x406e8
addq $0x8, %r14
jmp 0x406d3
movq 0x28(%r14), %rax
testq %rax, %rax
je 0x406fc
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
cmpl -0x8(%rax), %edx
jl 0x40714
pushq $0x1
popq %rsi
pushq $0x8
popq %rdx
movq %rax, %rdi
callq 0x4799c
movq %rax, 0x28(%r14)
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
movl %edx, -0x4(%rax)
movslq %ecx, %rcx
movq %rbx, (%rax,%rcx,8)
movq 0x28(%r14), %rax
testq %rax, %rax
je 0x4072e
movl -0x4(%rax), %eax
decl %eax
jmp 0x40731
pushq $-0x1
popq %rax
popq %rbx
popq %r14
popq %rbp
retq
movq 0x3f8b3(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0xf8c9(%rip), %rsi      # 0x50010
leaq 0x2411f(%rip), %rcx     # 0x6486d
leaq 0x243d6(%rip), %r8      # 0x64b2b
movl $0x2cd, %edx            # imm = 0x2CD
xorl %eax, %eax
callq 0x125e0
callq 0x12100
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: janetc_check_nil_form
static int janetc_check_nil_form(Janet x, Janet *capture, uint32_t fun_tag) {
    if (!janet_checktype(x, JANET_TUPLE)) return 0;
    JanetTuple tup = janet_unwrap_tuple(x);
    if (3 != janet_tuple_length(tup)) return 0;
    Janet op1 = tup[0];
    if (!janet_checktype(op1, JANET_FUNCTION)) return 0;
    JanetFunction *fun = janet_unwrap_function(op1);
    uint32_t tag = fun->def->flags & JANET_FUNCDEF_FLAG_TAG;
    if (tag != fun_tag) return 0;
    if (janet_checktype(tup[1], JANET_NIL)) {
        *capture = tup[2];
        return 1;
    } else if (janet_checktype(tup[2], JANET_NIL)) {
        *capture = tup[1];
        return 1;
    }
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rax
shrq $0x2f, %rax
xorl %ebx, %ebx
cmpl $0x1fff8, %eax          # imm = 0x1FFF8
jne 0x407fe
movl %edx, %r15d
movq %rsi, %r14
callq 0x4b1f1
cmpl $0x3, -0x10(%rax)
jne 0x407fe
movq %rax, %r12
movabsq $-0x800000000000, %r13  # imm = 0xFFFF800000000000
movq (%rax), %rdi
movq %rdi, %rax
andq %r13, %rax
movabsq $-0x2000000000000, %rcx # imm = 0xFFFE000000000000
cmpq %rcx, %rax
jne 0x407fe
callq 0x4b1f1
movq 0x10(%rax), %rax
movzwl 0x58(%rax), %eax
cmpl %r15d, %eax
jne 0x407fe
movabsq $-0x7800000000000, %rcx # imm = 0xFFF8800000000000
movq 0x8(%r12), %rax
movq 0x10(%r12), %rdx
movq %rax, %rsi
andq %r13, %rsi
cmpq %rcx, %rsi
jne 0x407f0
movq %rdx, %rax
jmp 0x407f8
andq %r13, %rdx
cmpq %rcx, %rdx
jne 0x407fe
movq %rax, (%r14)
pushq $0x1
popq %rbx
movl %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/specials.c
// Function: qq_slots
static JanetSlot qq_slots(JanetFopts opts, JanetSlot *slots, int makeop) {
    JanetSlot target = janetc_gettarget(opts);
    janetc_pushslots(opts.compiler, slots);
    janetc_freeslots(opts.compiler, slots);
    janetc_emit_s(opts.compiler, makeop, target, 1);
    return target;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
subq $0x28, %rsp
movl %edx, %r14d
movq %rsi, %r15
movq %rdi, %rbx
movq 0x30(%rbp), %rax
movq %rax, 0x20(%rsp)
movaps 0x10(%rbp), %xmm0
movaps 0x20(%rbp), %xmm1
movups %xmm1, 0x10(%rsp)
movups %xmm0, (%rsp)
callq 0x1aa9e
movq 0x10(%rbp), %rdi
movq %r15, %rsi
callq 0x1b8a8
movq 0x10(%rbp), %rdi
movq %r15, %rsi
callq 0x1baef
movq 0x10(%rbp), %rdi
movq 0x10(%rbx), %rax
movq %rax, 0x10(%rsp)
movups (%rbx), %xmm0
movups %xmm0, (%rsp)
movzbl %r14b, %esi
pushq $0x1
popq %rdx
callq 0x1fbb3
movq %rbx, %rax
addq $0x28, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/state.c
// Function: janet_vm_alloc
JanetVM *janet_vm_alloc(void) {
    JanetVM *mem = janet_malloc(sizeof(JanetVM));
    if (NULL == mem) {
        JANET_OUT_OF_MEMORY;
    }
    return mem;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
movl $0x348, %edi            # imm = 0x348
callq 0x12760
testq %rax, %rax
je 0x40fda
popq %rbp
retq
movq 0x3f00f(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0xc019(%rip), %rsi      # 0x4d004
leaq 0x23d2e(%rip), %rdx     # 0x64d20
pushq $0x2b
popq %rcx
xorl %eax, %eax
callq 0x125e0
pushq $0x1
popq %rdi
callq 0x12a60
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: janet_string_begin
uint8_t *janet_string_begin(int32_t length) {
    JanetStringHead *head = janet_gcalloc(JANET_MEMORY_STRING, sizeof(JanetStringHead) + (size_t) length + 1);
    head->length = length;
    uint8_t *data = (uint8_t *)head->data;
    data[length] = 0;
    return data;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movslq %edi, %rbx
leaq 0x19(%rbx), %rsi
pushq $0x1
popq %rdi
callq 0x291a0
movl %ebx, 0x10(%rax)
movb $0x0, 0x18(%rax,%rbx)
addq $0x18, %rax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: janet_string
const uint8_t *janet_string(const uint8_t *buf, int32_t len) {
    JanetStringHead *head = janet_gcalloc(JANET_MEMORY_STRING, sizeof(JanetStringHead) + (size_t) len + 1);
    head->length = len;
    head->hash = janet_string_calchash(buf, len);
    uint8_t *data = (uint8_t *)head->data;
    safe_memcpy(data, buf, len);
    data[len] = 0;
    return data;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %rbx
movslq %esi, %r14
leaq 0x19(%r14), %rsi
pushq $0x1
popq %rdi
callq 0x291a0
movq %rax, %r15
movl %r14d, 0x10(%rax)
movq %rbx, %rdi
movl %r14d, %esi
callq 0x449cd
movl %eax, 0x14(%r15)
leaq 0x18(%r15), %r12
movq %r12, %rdi
movq %rbx, %rsi
movq %r14, %rdx
callq 0x44ae2
movb $0x0, 0x18(%r15,%r14)
movq %r12, %rax
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: janet_string_compare
int janet_string_compare(const uint8_t *lhs, const uint8_t *rhs) {
    int32_t xlen = janet_string_length(lhs);
    int32_t ylen = janet_string_length(rhs);
    int32_t len = xlen > ylen ? ylen : xlen;
    int res = memcmp(lhs, rhs, len);
    if (res) return res > 0 ? 1 : -1;
    if (xlen == ylen) return 0;
    return xlen < ylen ? -1 : 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movl -0x8(%rdi), %ebx
movl -0x8(%rsi), %r14d
cmpl %r14d, %ebx
movl %r14d, %eax
cmovll %ebx, %eax
movslq %eax, %rdx
callq 0x12530
testl %eax, %eax
je 0x41195
setg %al
jmp 0x4119f
xorl %eax, %eax
cmpl %r14d, %ebx
je 0x411a9
setge %al
movzbl %al, %eax
leal -0x1(,%rax,2), %eax
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: janet_string_equalconst
int janet_string_equalconst(const uint8_t *lhs, const uint8_t *rhs, int32_t rlen, int32_t rhash) {
    int32_t lhash = janet_string_hash(lhs);
    int32_t llen = janet_string_length(lhs);
    if (lhash != rhash || llen != rlen)
        return 0;
    if (lhs == rhs)
        return 1;
    return !memcmp(lhs, rhs, rlen);
}

// Assembly:
xorl %eax, %eax
cmpl %ecx, -0x4(%rdi)
jne 0x411d5
cmpl %edx, -0x8(%rdi)
jne 0x411d5
cmpq %rsi, %rdi
je 0x411d6
pushq %rbp
movq %rsp, %rbp
movslq %edx, %rdx
callq 0x127c0
movl %eax, %ecx
xorl %eax, %eax
testl %ecx, %ecx
sete %al
popq %rbp
retq
pushq $0x1
popq %rax
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: findsetup
static void findsetup(int32_t argc, Janet *argv, struct kmp_state *s, int32_t extra) {
    janet_arity(argc, 2, 3 + extra);
    JanetByteView pat = janet_getbytes(argv, 0);
    JanetByteView text = janet_getbytes(argv, 1);
    int32_t start = 0;
    if (argc >= 3) {
        start = janet_getinteger(argv, 2);
        if (start < 0) janet_panic("expected non-negative start index");
    }
    kmp_init(s, text.bytes, text.len, pat.bytes, pat.len);
    s->i = start;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdx, -0x40(%rbp)
movq %rsi, %r13
movl %edi, %ebx
leal 0x3(%rcx), %edx
pushq $0x2
popq %rsi
callq 0x1781a
xorl %r14d, %r14d
movq %r13, %rdi
xorl %esi, %esi
callq 0x17ea2
movq %rax, -0x38(%rbp)
movl %edx, -0x2c(%rbp)
pushq $0x1
popq %rsi
movq %r13, %rdi
callq 0x17ea2
movq %rax, %r15
movl %edx, %r12d
cmpl $0x3, %ebx
jl 0x416ec
pushq $0x2
popq %rsi
movq %r13, %rdi
callq 0x17ff0
movl %eax, %r14d
testl %eax, %eax
js 0x41718
movq -0x40(%rbp), %rbx
movq %rbx, %rdi
movq %r15, %rsi
movl %r12d, %edx
movq -0x38(%rbp), %rcx
movl -0x2c(%rbp), %r8d
callq 0x421ad
movl %r14d, (%rbx)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x237fd(%rip), %rdi     # 0x64f1c
callq 0x177b1
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: kmp_next
static int32_t kmp_next(struct kmp_state *state) {
    int32_t i = state->i;
    int32_t j = state->j;
    int32_t textlen = state->textlen;
    int32_t patlen = state->patlen;
    const uint8_t *text = state->text;
    const uint8_t *pat = state->pat;
    int32_t *lookup = state->lookup;
    while (i < textlen) {
        if (text[i] == pat[j]) {
            if (j == patlen - 1) {
                state->i = i + 1;
                state->j = lookup[j];
                return i - j;
            } else {
                i++;
                j++;
            }
        } else {
            if (j > 0) {
                j = lookup[j - 1];
            } else {
                i++;
            }
        }
    }
    return -1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
movl (%rdi), %ecx
movl 0x4(%rdi), %r9d
movl 0x8(%rdi), %r8d
movl 0xc(%rdi), %edx
movq 0x18(%rdi), %r10
movq 0x20(%rdi), %r11
movq 0x10(%rdi), %rsi
leal -0x1(%rdx), %ebx
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movslq %r9d, %r14
movslq %ecx, %rcx
cmpl %r8d, %ecx
jge 0x41793
movb (%r10,%rcx), %r15b
cmpb (%r11,%r14), %r15b
je 0x4176d
testl %r9d, %r9d
jg 0x4177a
incq %rcx
jmp 0x41754
cmpl %ebx, %r9d
je 0x41781
incq %rcx
incl %r9d
jmp 0x4174e
movl -0x4(%rsi,%r14,4), %r9d
jmp 0x4174e
leal 0x1(%rcx), %eax
movl %eax, (%rdi)
movl (%rsi,%r14,4), %eax
movl %eax, 0x4(%rdi)
subl %edx, %ecx
incl %ecx
movl %ecx, %eax
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: replacesetup
static void replacesetup(int32_t argc, Janet *argv, struct replace_state *s) {
    janet_arity(argc, 3, 4);
    JanetByteView pat = janet_getbytes(argv, 0);
    Janet subst = argv[1];
    JanetByteView text = janet_getbytes(argv, 2);
    int32_t start = 0;
    if (argc == 4) {
        start = janet_getinteger(argv, 3);
        if (start < 0) janet_panic("expected non-negative start index");
    }
    kmp_init(&s->kmp, text.bytes, text.len, pat.bytes, pat.len);
    s->kmp.i = start;
    s->subst = subst;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdx, %rbx
movq %rsi, %r13
movl %edi, %r15d
pushq $0x3
popq %rsi
pushq $0x4
popq %rdx
callq 0x1781a
xorl %r14d, %r14d
movq %r13, %rdi
xorl %esi, %esi
callq 0x17ea2
movq %rax, -0x38(%rbp)
movl %edx, -0x2c(%rbp)
movq 0x8(%r13), %rax
movq %rax, -0x40(%rbp)
pushq $0x2
popq %rsi
movq %r13, %rdi
callq 0x17ea2
movl %edx, %r12d
cmpl $0x4, %r15d
jne 0x41a68
pushq $0x3
popq %rsi
movq %r13, %rdi
movq %rax, %r15
callq 0x17ff0
movl %eax, %r14d
movq %r15, %rax
testl %r14d, %r14d
js 0x41a98
movq %rbx, %rdi
movq %rax, %rsi
movl %r12d, %edx
movq -0x38(%rbp), %rcx
movl -0x2c(%rbp), %r8d
callq 0x421ad
movl %r14d, (%rbx)
movq -0x40(%rbp), %rax
movq %rax, 0x28(%rbx)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x2347d(%rip), %rdi     # 0x64f1c
callq 0x177b1
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: trim_help_args
static void trim_help_args(int32_t argc, Janet *argv, JanetByteView *str, JanetByteView *set) {
    janet_arity(argc, 1, 2);
    *str = janet_getbytes(argv, 0);
    if (argc >= 2) {
        *set = janet_getbytes(argv, 1);
    } else {
        set->bytes = (const uint8_t *)(" \t\r\n\v\f");
        set->len = 6;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rcx, %rbx
movq %rdx, %r15
movq %rsi, %r14
movl %edi, %r12d
pushq $0x1
popq %rsi
pushq $0x2
popq %rdx
callq 0x1781a
movq %r14, %rdi
xorl %esi, %esi
callq 0x17ea2
movq %rax, (%r15)
movl %edx, 0x8(%r15)
cmpl $0x2, %r12d
jl 0x41fe7
pushq $0x1
popq %rsi
movq %r14, %rdi
callq 0x17ea2
jmp 0x41ff1
pushq $0x6
popq %rdx
leaq 0x22f68(%rip), %rax     # 0x64f59
movq %rax, (%rbx)
movl %edx, 0x8(%rbx)
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: trim_help_leftedge
static int32_t trim_help_leftedge(JanetByteView str, JanetByteView set) {
    for (int32_t i = 0; i < str.len; i++)
        if (!trim_help_checkset(set, str.bytes[i]))
            return i;
    return str.len;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %ecx, %r14d
movq %rdx, %r15
movq %rdi, %r12
xorl %r13d, %r13d
testl %esi, %esi
movl $0x0, %ebx
movl %esi, -0x2c(%rbp)
cmovgl %esi, %ebx
cmpq %r13, %rbx
je 0x42048
movzbl (%r12,%r13), %edx
movq %r15, %rdi
movl %r14d, %esi
callq 0x42287
testl %eax, %eax
je 0x42045
incq %r13
jmp 0x42027
movl %r13d, %ebx
movl -0x2c(%rbp), %eax
cmpl %eax, %ebx
cmovll %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: kmp_init
static void kmp_init(
    struct kmp_state *s,
    const uint8_t *text, int32_t textlen,
    const uint8_t *pat, int32_t patlen) {
    if (patlen == 0) {
        janet_panic("expected non-empty pattern");
    }
    int32_t *lookup = janet_calloc(patlen, sizeof(int32_t));
    if (!lookup) {
        JANET_OUT_OF_MEMORY;
    }
    s->lookup = lookup;
    s->i = 0;
    s->j = 0;
    s->text = text;
    s->pat = pat;
    s->textlen = textlen;
    s->patlen = patlen;
    /* Init state machine */
    {
        int32_t i, j;
        for (i = 1, j = 0; i < patlen; i++) {
            while (j && pat[j] != pat[i]) j = lookup[j - 1];
            if (pat[j] == pat[i]) j++;
            lookup[i] = j;
        }
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, -0x2c(%rbp)
testl %r8d, %r8d
je 0x42251
movl %r8d, %r15d
movq %rcx, %rbx
movq %rsi, %r12
movq %rdi, %r13
movslq %r8d, %r14
pushq $0x4
popq %rsi
movq %r14, %rdi
callq 0x125a0
testq %rax, %rax
je 0x4225d
movq %rax, 0x10(%r13)
andq $0x0, (%r13)
movq %r12, 0x18(%r13)
movq %rbx, 0x20(%r13)
movl -0x2c(%rbp), %ecx
movl %ecx, 0x8(%r13)
movl %r15d, 0xc(%r13)
xorl %edx, %edx
pushq $0x1
popq %rcx
cmpq %r14, %rcx
jge 0x42242
testl %edx, %edx
je 0x42226
movslq %edx, %r8
movb (%rbx,%r8), %sil
movl %esi, %edi
cmpb (%rbx,%rcx), %sil
je 0x4222d
movl -0x4(%rax,%r8,4), %edx
jmp 0x4220c
movb (%rbx), %dil
movb (%rbx,%rcx), %sil
xorl %r8d, %r8d
cmpb %sil, %dil
sete %r8b
addl %r8d, %edx
movl %edx, (%rax,%rcx,4)
incq %rcx
jmp 0x42207
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x22ce6(%rip), %rdi     # 0x64f3e
callq 0x177b1
movq 0x3dd8c(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0xad96(%rip), %rsi      # 0x4d004
leaq 0x22b56(%rip), %rdx     # 0x64dcb
pushq $0x71
popq %rcx
xorl %eax, %eax
callq 0x125e0
pushq $0x1
popq %rdi
callq 0x12a60
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/string.c
// Function: trim_help_checkset
static int trim_help_checkset(JanetByteView set, uint8_t x) {
    for (int32_t j = 0; j < set.len; j++)
        if (set.bytes[j] == x)
            return 1;
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
xorl %r8d, %r8d
testl %esi, %esi
movl $0x0, %eax
cmovgl %esi, %eax
movq %r8, %rcx
cmpq %r8, %rax
je 0x422a9
leaq 0x1(%rcx), %r8
cmpb %dl, (%rdi,%rcx)
jne 0x42298
movslq %esi, %rdx
xorl %eax, %eax
cmpq %rdx, %rcx
setl %al
popq %rbp
retq
nop
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/strtod.c
// Function: bignat_muladd
static void bignat_muladd(struct BigNat *mant, uint32_t factor, uint32_t term) {
    int32_t i;
    uint64_t carry = ((uint64_t) mant->first_digit) * factor + term;
    mant->first_digit = carry % BIGNAT_BASE;
    carry /= BIGNAT_BASE;
    for (i = 0; i < mant->n; i++) {
        carry += ((uint64_t) mant->digits[i]) * factor;
        mant->digits[i] = carry % BIGNAT_BASE;
        carry /= BIGNAT_BASE;
    }
    if (carry) bignat_append(mant, (uint32_t) carry);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movl (%rdi), %ecx
movl %esi, %eax
imulq %rax, %rcx
movl %edx, %ebx
addq %rcx, %rbx
movl %ebx, %ecx
andl $0x7fffffff, %ecx       # imm = 0x7FFFFFFF
movl %ecx, (%rdi)
xorl %ecx, %ecx
shrq $0x1f, %rbx
movslq 0x4(%rdi), %rdx
cmpq %rdx, %rcx
jge 0x42881
movq 0x10(%rdi), %rdx
movl (%rdx,%rcx,4), %esi
imulq %rax, %rsi
addq %rsi, %rbx
movl %ebx, %esi
andl $0x7fffffff, %esi       # imm = 0x7FFFFFFF
movl %esi, (%rdx,%rcx,4)
incq %rcx
jmp 0x42856
testq %rbx, %rbx
je 0x42890
pushq $0x1
popq %rsi
callq 0x42bc2
movl %ebx, (%rax)
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/strtod.c
// Function: janet_scan_int64
int janet_scan_int64(const uint8_t *str, int32_t len, int64_t *out) {
    int neg;
    uint64_t bi;
    if (scan_uint64(str, len, &bi, &neg)) {
        if (neg && bi <= ((UINT64_MAX / 2) + 1)) {
            if (bi > INT64_MAX) {
                *out = INT64_MIN;
            } else {
                *out = -((int64_t) bi);
            }
            return 1;
        }
        if (!neg && bi <= INT64_MAX) {
            *out = (int64_t) bi;
            return 1;
        }
    }
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
subq $0x18, %rsp
movq %rdx, %rbx
leaq -0x18(%rbp), %rdx
leaq -0xc(%rbp), %rcx
callq 0x42926
movl %eax, %ecx
xorl %eax, %eax
testl %ecx, %ecx
je 0x4291f
movabsq $-0x8000000000000000, %rdx # imm = 0x8000000000000000
movl -0xc(%rbp), %esi
testl %esi, %esi
setne %dil
movq -0x18(%rbp), %rcx
leaq 0x1(%rdx), %r8
cmpq %r8, %rcx
setb %r8b
andb %dil, %r8b
cmpb $0x1, %r8b
jne 0x42904
movq %rcx, %rax
negq %rax
testq %rcx, %rcx
cmovsq %rdx, %rax
movq %rax, %rcx
jmp 0x42919
testl %esi, %esi
sete %dl
testq %rcx, %rcx
setns %sil
andb %dl, %sil
cmpb $0x1, %sil
jne 0x4291f
movq %rcx, (%rbx)
pushq $0x1
popq %rax
addq $0x18, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/strtod.c
// Function: janet_scan_numeric
int janet_scan_numeric(
    const uint8_t *str,
    int32_t len,
    Janet *out) {
    int result;
    double num;
    int64_t i64 = 0;
    uint64_t u64 = 0;
    if (len < 2 || str[len - 2] != ':') {
        result = janet_scan_number_base(str, len, 0, &num);
        *out = janet_wrap_number(num);
        return result;
    }
    switch (str[len - 1]) {
        default:
            return 1;
        case 'n':
            result = janet_scan_number_base(str, len - 2, 0, &num);
            *out = janet_wrap_number(num);
            return result;
        /* Condition is inverted janet_scan_int64 and janet_scan_uint64 */
        case 's':
            result = !janet_scan_int64(str, len - 2, &i64);
            *out = janet_wrap_s64(i64);
            return result;
        case 'u':
            result = !janet_scan_uint64(str, len - 2, &u64);
            *out = janet_wrap_u64(u64);
            return result;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
subq $0x18, %rsp
movq %rdx, %rbx
movl %esi, %eax
andq $0x0, -0x28(%rbp)
andq $0x0, -0x20(%rbp)
cmpl $0x2, %esi
jl 0x42af2
leal -0x2(%rax), %esi
cmpb $0x3a, (%rdi,%rsi)
jne 0x42af2
movl %eax, %eax
movzbl -0x1(%rdi,%rax), %eax
cmpl $0x75, %eax
je 0x42b3d
cmpl $0x73, %eax
je 0x42b20
cmpl $0x6e, %eax
jne 0x42b5a
leaq -0x30(%rbp), %r15
jmp 0x42af8
leaq -0x30(%rbp), %r15
movl %eax, %esi
xorl %edx, %edx
movq %r15, %rcx
callq 0x422b8
movl %eax, %r14d
movsd (%r15), %xmm0
callq 0x4b471
movq %rax, (%rbx)
movl %r14d, %eax
addq $0x18, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq -0x28(%rbp), %r15
movq %r15, %rdx
callq 0x428a6
movl %eax, %r14d
xorl $0x1, %r14d
movq (%r15), %rdi
callq 0x29e70
jmp 0x42b0f
leaq -0x20(%rbp), %r15
movq %r15, %rdx
callq 0x42a74
movl %eax, %r14d
xorl $0x1, %r14d
movq (%r15), %rdi
callq 0x29ea3
jmp 0x42b0f
pushq $0x1
popq %r14
jmp 0x42b12
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/strtod.c
// Function: janet_buffer_dtostr
void janet_buffer_dtostr(JanetBuffer *buffer, double x) {
#define BUFSIZE 32
    janet_buffer_extra(buffer, BUFSIZE);
    int count = snprintf((char *) buffer->data + buffer->count, BUFSIZE, "%.17g", x);
#undef BUFSIZE
    /* fix locale issues with commas */
    for (int i = 0; i < count; i++) {
        char c = buffer->data[buffer->count + i];
        if (c == ',') {
            buffer->data[buffer->count + i] = '.';
        }
    }
    buffer->count += count;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movsd %xmm0, -0x10(%rbp)
movq %rdi, %rbx
pushq $0x20
popq %rsi
callq 0x16095
movslq 0x10(%rbx), %rdi
addq 0x18(%rbx), %rdi
leaq 0x2399b(%rip), %rdx     # 0x66520
pushq $0x20
popq %rsi
movsd -0x10(%rbp), %xmm0
movb $0x1, %al
callq 0x12390
xorl %ecx, %ecx
testl %eax, %eax
movl %eax, %edx
cmovlel %ecx, %edx
cmpl %ecx, %edx
je 0x42bb8
movslq 0x10(%rbx), %rsi
addq 0x18(%rbx), %rsi
cmpb $0x2c, (%rcx,%rsi)
jne 0x42bb3
movb $0x2e, (%rsi,%rcx)
incq %rcx
jmp 0x42b9d
addl %eax, 0x10(%rbx)
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/strtod.c
// Function: bignat_extra
static uint32_t *bignat_extra(struct BigNat *mant, int32_t n) {
    int32_t oldn = mant->n;
    int32_t newn = oldn + n;
    if (mant->cap < newn) {
        int32_t newcap = 2 * newn;
        uint32_t *mem = janet_realloc(mant->digits, (size_t) newcap * sizeof(uint32_t));
        if (NULL == mem) {
            JANET_OUT_OF_MEMORY;
        }
        mant->cap = newcap;
        mant->digits = mem;
    }
    mant->n = newn;
    return mant->digits + oldn;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
movslq 0x4(%rdi), %r14
movslq %esi, %r15
addq %r14, %r15
cmpl %r15d, 0x8(%rdi)
jge 0x42c04
movq 0x10(%rbx), %rdi
leaq (,%r15,8), %rsi
callq 0x12840
testq %rax, %rax
je 0x42c1b
movl %r15d, %ecx
addl %r15d, %ecx
movl %ecx, 0x8(%rbx)
movq %rax, 0x10(%rbx)
jmp 0x42c08
movq 0x10(%rbx), %rax
movl %r15d, 0x4(%rbx)
leaq (%rax,%r14,4), %rax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
movq 0x3d3ce(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0xa3d8(%rip), %rsi      # 0x4d004
leaq 0x238f3(%rip), %rdx     # 0x66526
pushq $0x5c
popq %rcx
xorl %eax, %eax
callq 0x125e0
pushq $0x1
popq %rdi
callq 0x12a60
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/strtod.c
// Function: bignat_div
static void bignat_div(struct BigNat *mant, uint32_t divisor) {
    int32_t i;
    uint32_t quotient, remainder;
    uint64_t dividend;
    remainder = 0, quotient = 0;
    for (i = mant->n - 1; i >= 0; i--) {
        dividend = ((uint64_t)remainder * BIGNAT_BASE) + mant->digits[i];
        if (i < mant->n - 1) mant->digits[i + 1] = quotient;
        quotient = (uint32_t)(dividend / divisor);
        remainder = (uint32_t)(dividend % divisor);
        mant->digits[i] = remainder;
    }
    dividend = ((uint64_t)remainder * BIGNAT_BASE) + mant->first_digit;
    if (mant->n && mant->digits[mant->n - 1] == 0) mant->n--;
    mant->first_digit = (uint32_t)(dividend / divisor);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
movl 0x4(%rdi), %r8d
movl %esi, %esi
xorl %ecx, %ecx
xorl %edx, %edx
movl %edx, %eax
testl %r8d, %r8d
jle 0x42c89
movq 0x10(%rdi), %r9
cmpl %r8d, 0x4(%rdi)
jle 0x42c68
movl %ecx, (%r9,%r8,4)
shlq $0x1f, %rax
movl -0x4(%r9,%r8,4), %ecx
addq %rax, %rcx
movq %rcx, %rax
xorl %edx, %edx
divq %rsi
movq %rax, %rcx
movl %edx, -0x4(%r9,%r8,4)
decq %r8
jmp 0x42c53
movl (%rdi), %ecx
movslq 0x4(%rdi), %rdx
testq %rdx, %rdx
je 0x42ca5
movq 0x10(%rdi), %r8
cmpl $0x0, -0x4(%r8,%rdx,4)
jne 0x42ca5
decl %edx
movl %edx, 0x4(%rdi)
shlq $0x1f, %rax
addq %rcx, %rax
xorl %edx, %edx
divq %rsi
movl %eax, (%rdi)
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/struct.c
// Function: janet_struct_begin
JanetKV *janet_struct_begin(int32_t count) {
    /* Calculate capacity as power of 2 after 2 * count. */
    int32_t capacity = janet_tablen(2 * count);
    if (capacity < 0) capacity = janet_tablen(count + 1);

    size_t size = sizeof(JanetStructHead) + (size_t) capacity * sizeof(JanetKV);
    JanetStructHead *head = janet_gcalloc(JANET_MEMORY_STRUCT, size);
    head->length = count;
    head->capacity = capacity;
    head->hash = 0;
    head->proto = NULL;

    JanetKV *st = (JanetKV *)(head->data);
    janet_memempty(st, capacity);
    return st;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movl %edi, %ebx
leal (%rbx,%rbx), %edi
callq 0x44ab0
testl %eax, %eax
jns 0x42cd8
leal 0x1(%rbx), %edi
callq 0x44ab0
movslq %eax, %r14
movq %r14, %rsi
shlq $0x4, %rsi
addq $0x28, %rsi
pushq $0x6
popq %rdi
callq 0x291a0
movq %rax, %r15
movl %ebx, 0x10(%rax)
movl %r14d, 0x18(%rax)
andl $0x0, 0x14(%rax)
andq $0x0, 0x20(%rax)
addq $0x28, %r15
movq %r15, %rdi
movl %r14d, %esi
callq 0x4b52f
movq %r15, %rax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/struct.c
// Function: janet_struct_find
const JanetKV *janet_struct_find(const JanetKV *st, Janet key) {
    int32_t cap = janet_struct_capacity(st);
    int32_t index = janet_maphash(cap, janet_hash(key));
    int32_t i;
    for (i = index; i < cap; i++)
        if (janet_checktype(st[i].key, JANET_NIL) || janet_equals(st[i].key, key))
            return st + i;
    for (i = 0; i < index; i++)
        if (janet_checktype(st[i].key, JANET_NIL) || janet_equals(st[i].key, key))
            return st + i;
    return NULL;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rsi, %r14
movq %rdi, %r12
movslq -0x10(%rdi), %rbx
movq %rsi, %rdi
callq 0x46ba4
leaq -0x1(%rbx), %rcx
cltq
andq %rcx, %rax
movq %rax, %r15
shlq $0x4, %r15
movq %r12, -0x30(%rbp)
addq %r12, %r15
movq %rax, -0x38(%rbp)
movq %rax, %r12
decq %r12
incq %r12
cmpq %rbx, %r12
jge 0x42da1
movq %r15, %r13
movq (%r15), %rdi
movq %rdi, %rax
movabsq $-0x800000000000, %rcx  # imm = 0xFFFF800000000000
andq %rcx, %rax
movabsq $-0x7800000000000, %rcx # imm = 0xFFF8800000000000
cmpq %rcx, %rax
je 0x42e08
leaq 0x10(%r13), %r15
movq %r14, %rsi
callq 0x466c8
testl %eax, %eax
je 0x42d62
jmp 0x42e08
movq -0x38(%rbp), %rax
testl %eax, %eax
movl $0x0, %ebx
cmovgl %eax, %ebx
incq %rbx
movq -0x30(%rbp), %r15
xorl %r12d, %r12d
decq %rbx
je 0x42df8
movq %r15, %r13
movq (%r15), %rdi
movq %rdi, %rax
movabsq $-0x800000000000, %rcx  # imm = 0xFFFF800000000000
andq %rcx, %rax
movabsq $-0x7800000000000, %rcx # imm = 0xFFF8800000000000
cmpq %rcx, %rax
je 0x42dfd
leaq 0x10(%r13), %r15
incq %r12
movq %r14, %rsi
callq 0x466c8
testl %eax, %eax
je 0x42db9
jmp 0x42e08
xorl %r13d, %r13d
jmp 0x42e08
shlq $0x4, %r12
movq -0x30(%rbp), %r13
addq %r12, %r13
movq %r13, %rax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/struct.c
// Function: janet_struct_end
const JanetKV *janet_struct_end(JanetKV *st) {
    if (janet_struct_hash(st) != janet_struct_length(st)) {
        /* Error building struct, probably duplicate values. We need to rebuild
         * the struct using only the values that went in. The second creation should always
         * succeed. */
        JanetKV *newst = janet_struct_begin(janet_struct_hash(st));
        for (int32_t i = 0; i < janet_struct_capacity(st); i++) {
            JanetKV *kv = st + i;
            if (!janet_checktype(kv->key, JANET_NIL)) {
                janet_struct_put(newst, kv->key, kv->value);
            }
        }
        janet_struct_proto(newst) = janet_struct_proto(st);
        st = newst;
    }
    janet_struct_hash(st) = janet_kv_calchash(st, janet_struct_capacity(st));
    if (janet_struct_proto(st)) {
        janet_struct_hash(st) += 2654435761u * janet_struct_hash(janet_struct_proto(st));
    }
    return (const JanetKV *)st;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %r14
movl -0x14(%rdi), %edi
cmpl -0x18(%r14), %edi
jne 0x4303a
movq %r14, %rbx
jmp 0x43080
callq 0x42cb8
movq %rax, %rbx
leaq 0x8(%r14), %r15
xorl %r12d, %r12d
movslq -0x10(%r14), %rax
cmpq %rax, %r12
jge 0x43078
movq -0x8(%r15), %rsi
movq %rsi, %rax
shrq $0x2f, %rax
cmpl $0x1fff1, %eax          # imm = 0x1FFF1
je 0x4306f
movq (%r15), %rdx
movq %rbx, %rdi
callq 0x4300f
incq %r12
addq $0x10, %r15
jmp 0x43049
movq -0x8(%r14), %rax
movq %rax, -0x8(%rbx)
movl -0x10(%rbx), %esi
movq %rbx, %rdi
callq 0x44a51
movl %eax, -0x14(%rbx)
movq -0x8(%rbx), %rcx
testq %rcx, %rcx
je 0x430a3
imull $0x9e3779b1, -0x14(%rcx), %ecx # imm = 0x9E3779B1
addl %eax, %ecx
movl %ecx, -0x14(%rbx)
movq %rbx, %rax
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/struct.c
// Function: janet_struct_get
Janet janet_struct_get(const JanetKV *st, Janet key) {
    for (int i = JANET_MAX_PROTO_DEPTH; st && i; --i, st = janet_struct_proto(st)) {
        const JanetKV *kv = janet_struct_find(st, key);
        if (NULL != kv && !janet_checktype(kv->key, JANET_NIL)) {
            return kv->value;
        }
    }
    return janet_wrap_nil();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %r15
movl $0xffffff38, %r12d      # imm = 0xFFFFFF38
movabsq $-0x7800000000000, %rbx # imm = 0xFFF8800000000000
movabsq $-0x800000000000, %r13  # imm = 0xFFFF800000000000
testq %r15, %r15
je 0x4312f
testl %r12d, %r12d
je 0x4312f
movq %r15, %rdi
movq %r14, %rsi
callq 0x42d1e
testq %rax, %rax
je 0x43126
movq (%rax), %rcx
andq %r13, %rcx
cmpq %rbx, %rcx
jne 0x43148
movq -0x8(%r15), %r15
incl %r12d
jmp 0x43101
incq %rbx
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x4b313
movq 0x8(%rax), %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/struct.c
// Function: janet_struct_get_ex
Janet janet_struct_get_ex(const JanetKV *st, Janet key, JanetStruct *which) {
    for (int i = JANET_MAX_PROTO_DEPTH; st && i; --i, st = janet_struct_proto(st)) {
        const JanetKV *kv = janet_struct_find(st, key);
        if (NULL != kv && !janet_checktype(kv->key, JANET_NIL)) {
            *which = st;
            return kv->value;
        }
    }
    return janet_wrap_nil();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, -0x30(%rbp)
movq %rsi, %r12
movq %rdi, %r15
movl $0xffffff38, %r13d      # imm = 0xFFFFFF38
movabsq $-0x7800000000000, %r14 # imm = 0xFFF8800000000000
movabsq $-0x800000000000, %rbx  # imm = 0xFFFF800000000000
testq %r15, %r15
je 0x431bb
testl %r13d, %r13d
je 0x431bb
movq %r15, %rdi
movq %r12, %rsi
callq 0x42d1e
testq %rax, %rax
je 0x431b2
movq (%rax), %rcx
andq %rbx, %rcx
cmpq %r14, %rcx
jne 0x431d4
movq -0x8(%r15), %r15
incl %r13d
jmp 0x4318d
incq %r14
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x4b313
movq -0x30(%rbp), %rcx
movq %r15, (%rcx)
movq 0x8(%rax), %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/struct.c
// Function: janet_struct_to_table
JanetTable *janet_struct_to_table(const JanetKV *st) {
    JanetTable *table = janet_table(janet_struct_capacity(st));
    int32_t i;
    for (i = 0; i < janet_struct_capacity(st); i++) {
        const JanetKV *kv = st + i;
        if (!janet_checktype(kv->key, JANET_NIL)) {
            janet_table_put(table, kv->key, kv->value);
        }
    }
    return table;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %rbx
movl -0x10(%rdi), %edi
callq 0x43b8a
movq %rax, %r14
leaq 0x8(%rbx), %r15
xorl %r12d, %r12d
movslq -0x10(%rbx), %rax
cmpq %rax, %r12
jge 0x4323d
movq -0x8(%r15), %rsi
movq %rsi, %rax
shrq $0x2f, %rax
cmpl $0x1fff1, %eax          # imm = 0x1FFF1
je 0x43234
movq (%r15), %rdx
movq %r14, %rdi
callq 0x43e19
incq %r12
addq $0x10, %r15
jmp 0x4320e
movq %r14, %rax
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq