LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_gcunroot
int janet_gcunroot(Janet root) {
    Janet *vtop = janet_vm.roots + janet_vm.root_count;
    /* Search from top to bottom as access is most likely LIFO */
    for (Janet *v = janet_vm.roots; v < vtop; v++) {
        if (janet_gc_idequals(root, *v)) {
            *v = janet_vm.roots[--janet_vm.root_count];
            return 1;
        }
    }
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movq %rdi, -0x10(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xc0(%rax), %rax
movq %rax, -0x28(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq %rax, %rcx
movq -0x28(%rbp), %rax
movq 0xc8(%rcx), %rcx
shlq $0x3, %rcx
addq %rcx, %rax
movq %rax, -0x18(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xc0(%rax), %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
cmpq -0x18(%rbp), %rax
jae 0x3a3c5
movq -0x20(%rbp), %rax
movq -0x10(%rbp), %rdi
movq (%rax), %rsi
callq 0x3a3e0
cmpl $0x0, %eax
je 0x3a3b2
movq -0x20(%rbp), %rax
movq %rax, -0x30(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xc0(%rax), %rax
movq %rax, -0x38(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x38(%rbp), %rcx
movq %rax, %rsi
movq -0x30(%rbp), %rax
movq 0xc8(%rsi), %rdx
movq %rdx, %rdi
addq $-0x1, %rdi
movq %rdi, 0xc8(%rsi)
movq -0x8(%rcx,%rdx,8), %rcx
movq %rcx, (%rax)
movl $0x1, -0x4(%rbp)
jmp 0x3a3cc
jmp 0x3a3b4
movq -0x20(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x20(%rbp)
jmp 0x3a32b
movl $0x0, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x40, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_gc_idequals
static int janet_gc_idequals(Janet lhs, Janet rhs) {
    if (janet_type(lhs) != janet_type(rhs))
        return 0;
    switch (janet_type(lhs)) {
        case JANET_BOOLEAN:
        case JANET_NIL:
        case JANET_NUMBER:
            /* These values don't really matter to the gc so returning 1 all the time is fine. */
            return 1;
        default:
            return janet_unwrap_pointer(lhs) == janet_unwrap_pointer(rhs);
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3a402
jmp 0x3a413
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
movl %eax, -0x1c(%rbp)
jmp 0x3a41a
xorl %eax, %eax
movl %eax, -0x1c(%rbp)
jmp 0x3a41a
movl -0x1c(%rbp), %eax
movl %eax, -0x20(%rbp)
movsd -0x18(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3a432
jmp 0x3a443
movq -0x18(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
movl %eax, -0x24(%rbp)
jmp 0x3a44a
xorl %eax, %eax
movl %eax, -0x24(%rbp)
jmp 0x3a44a
movl -0x20(%rbp), %eax
movl -0x24(%rbp), %ecx
cmpl %ecx, %eax
je 0x3a45d
movl $0x0, -0x4(%rbp)
jmp 0x3a4c5
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3a46f
jmp 0x3a480
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
movl %eax, -0x28(%rbp)
jmp 0x3a487
xorl %eax, %eax
movl %eax, -0x28(%rbp)
jmp 0x3a487
movl -0x28(%rbp), %eax
subl $0x2, %eax
ja 0x3a49a
jmp 0x3a491
movl $0x1, -0x4(%rbp)
jmp 0x3a4c5
movq -0x10(%rbp), %rdi
callq 0x7b260
movq %rax, -0x30(%rbp)
movq -0x18(%rbp), %rdi
callq 0x7b260
movq %rax, %rcx
movq -0x30(%rbp), %rax
cmpq %rcx, %rax
sete %al
andb $0x1, %al
movzbl %al, %eax
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x30, %rsp
popq %rbp
retq
nop
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_gcunrootall
int janet_gcunrootall(Janet root) {
    Janet *vtop = janet_vm.roots + janet_vm.root_count;
    int ret = 0;
    /* Search from top to bottom as access is most likely LIFO */
    for (Janet *v = janet_vm.roots; v < vtop; v++) {
        if (janet_gc_idequals(root, *v)) {
            *v = janet_vm.roots[--janet_vm.root_count];
            vtop--;
            ret = 1;
        }
    }
    return ret;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movq %rdi, -0x8(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xc0(%rax), %rax
movq %rax, -0x28(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq %rax, %rcx
movq -0x28(%rbp), %rax
movq 0xc8(%rcx), %rcx
shlq $0x3, %rcx
addq %rcx, %rax
movq %rax, -0x10(%rbp)
movl $0x0, -0x14(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xc0(%rax), %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
cmpq -0x10(%rbp), %rax
jae 0x3a5e6
movq -0x20(%rbp), %rax
movq -0x8(%rbp), %rdi
movq (%rax), %rsi
callq 0x3a3e0
cmpl $0x0, %eax
je 0x3a5d3
movq -0x20(%rbp), %rax
movq %rax, -0x30(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xc0(%rax), %rax
movq %rax, -0x38(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x38(%rbp), %rcx
movq %rax, %rsi
movq -0x30(%rbp), %rax
movq 0xc8(%rsi), %rdx
movq %rdx, %rdi
addq $-0x1, %rdi
movq %rdi, 0xc8(%rsi)
movq -0x8(%rcx,%rdx,8), %rcx
movq %rcx, (%rax)
movq -0x10(%rbp), %rax
addq $-0x8, %rax
movq %rax, -0x10(%rbp)
movl $0x1, -0x14(%rbp)
jmp 0x3a5d5
movq -0x20(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x20(%rbp)
jmp 0x3a542
movl -0x14(%rbp), %eax
addq $0x40, %rsp
popq %rbp
retq
nop
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_smalloc
void *janet_smalloc(size_t size) {
    JanetScratch *s = janet_malloc(sizeof(JanetScratch) + size);
    if (NULL == s) {
        JANET_OUT_OF_MEMORY;
    }
    s->finalize = NULL;
    if (janet_vm.scratch_len == janet_vm.scratch_cap) {
        size_t newcap = 2 * janet_vm.scratch_cap + 2;
        JanetScratch **newmem = (JanetScratch **) janet_realloc(janet_vm.scratch_mem, newcap * sizeof(JanetScratch));
        if (NULL == newmem) {
            JANET_OUT_OF_MEMORY;
        }
        janet_vm.scratch_cap = newcap;
        janet_vm.scratch_mem = newmem;
    }
    janet_vm.scratch_mem[janet_vm.scratch_len++] = s;
    return (char *)(s->mem);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x50, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rdi
addq $0x8, %rdi
callq 0x12770
movq %rax, -0x10(%rbp)
xorl %eax, %eax
cmpq -0x10(%rbp), %rax
jne 0x3a8c5
jmp 0x3a897
movq 0x75752(%rip), %rax     # 0xafff0
movq (%rax), %rdi
leaq 0x4375c(%rip), %rsi     # 0x7e004
leaq 0x504a1(%rip), %rdx     # 0x8ad50
movl $0x2c8, %ecx            # imm = 0x2C8
movb $0x0, %al
callq 0x125f0
movl $0x1, %edi
callq 0x12a70
movq -0x10(%rbp), %rax
movq $0x0, (%rax)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xe8(%rax), %rax
movq %rax, -0x28(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq %rax, %rcx
movq -0x28(%rbp), %rax
cmpq 0xe0(%rcx), %rax
jne 0x3a9d7
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xe0(%rax), %rax
shlq %rax
addq $0x2, %rax
movq %rax, -0x18(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xd8(%rax), %rdi
movq -0x18(%rbp), %rsi
shlq $0x3, %rsi
callq 0x12840
movq %rax, -0x20(%rbp)
xorl %eax, %eax
cmpq -0x20(%rbp), %rax
jne 0x3a991
jmp 0x3a963
movq 0x75686(%rip), %rax     # 0xafff0
movq (%rax), %rdi
leaq 0x43690(%rip), %rsi     # 0x7e004
leaq 0x503d5(%rip), %rdx     # 0x8ad50
movl $0x2cf, %ecx            # imm = 0x2CF
movb $0x0, %al
callq 0x125f0
movl $0x1, %edi
callq 0x12a70
movq -0x18(%rbp), %rax
movq %rax, -0x38(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x38(%rbp), %rcx
movq %rcx, 0xe0(%rax)
movq -0x20(%rbp), %rax
movq %rax, -0x30(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x30(%rbp), %rcx
movq %rcx, 0xd8(%rax)
movq -0x10(%rbp), %rax
movq %rax, -0x48(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xd8(%rax), %rax
movq %rax, -0x40(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x48(%rbp), %rdx
movq %rax, %rsi
movq -0x40(%rbp), %rax
movq 0xe8(%rsi), %rcx
movq %rcx, %rdi
addq $0x1, %rdi
movq %rdi, 0xe8(%rsi)
movq %rdx, (%rax,%rcx,8)
movq -0x10(%rbp), %rax
addq $0x8, %rax
addq $0x50, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_scalloc
void *janet_scalloc(size_t nmemb, size_t size) {
    if (nmemb && size > SIZE_MAX / nmemb) {
        JANET_OUT_OF_MEMORY;
    }
    size_t n = nmemb * size;
    void *p = janet_smalloc(n);
    memset(p, 0, n);
    return p;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
cmpq $0x0, -0x8(%rbp)
je 0x3aaaa
movq -0x10(%rbp), %rax
movq %rax, -0x28(%rbp)
movq $-0x1, %rax
xorl %ecx, %ecx
movl %ecx, %edx
divq -0x8(%rbp)
movq %rax, %rcx
movq -0x28(%rbp), %rax
cmpq %rcx, %rax
jbe 0x3aaaa
jmp 0x3aa7c
movq 0x7556d(%rip), %rax     # 0xafff0
movq (%rax), %rdi
leaq 0x43577(%rip), %rsi     # 0x7e004
leaq 0x502bc(%rip), %rdx     # 0x8ad50
movl $0x2da, %ecx            # imm = 0x2DA
movb $0x0, %al
callq 0x125f0
movl $0x1, %edi
callq 0x12a70
movq -0x8(%rbp), %rax
imulq -0x10(%rbp), %rax
movq %rax, -0x18(%rbp)
movq -0x18(%rbp), %rdi
callq 0x3a870
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rdi
movq -0x18(%rbp), %rdx
xorl %esi, %esi
callq 0x12420
movq -0x20(%rbp), %rax
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_srealloc
void *janet_srealloc(void *mem, size_t size) {
    if (NULL == mem) return janet_smalloc(size);
    JanetScratch *s = janet_mem2scratch(mem);
    if (janet_vm.scratch_len) {
        for (size_t i = janet_vm.scratch_len - 1; ; i--) {
            if (janet_vm.scratch_mem[i] == s) {
                JanetScratch *news = janet_realloc(s, size + sizeof(JanetScratch));
                if (NULL == news) {
                    JANET_OUT_OF_MEMORY;
                }
                janet_vm.scratch_mem[i] = news;
                return (char *)(news->mem);
            }
            if (i == 0) break;
        }
    }
    JANET_EXIT("invalid janet_srealloc");
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
xorl %eax, %eax
cmpq -0x10(%rbp), %rax
jne 0x3ab0a
movq -0x18(%rbp), %rdi
callq 0x3a870
movq %rax, -0x8(%rbp)
jmp 0x3ac53
movq -0x10(%rbp), %rdi
callq 0x3ac60
movq %rax, -0x20(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
cmpq $0x0, 0xe8(%rax)
je 0x3ac21
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xe8(%rax), %rax
subq $0x1, %rax
movq %rax, -0x28(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xd8(%rax), %rax
movq -0x28(%rbp), %rcx
movq (%rax,%rcx,8), %rax
cmpq -0x20(%rbp), %rax
jne 0x3ac03
movq -0x20(%rbp), %rdi
movq -0x18(%rbp), %rsi
addq $0x8, %rsi
callq 0x12840
movq %rax, -0x30(%rbp)
xorl %eax, %eax
cmpq -0x30(%rbp), %rax
jne 0x3abca
jmp 0x3ab9c
movq 0x7544d(%rip), %rax     # 0xafff0
movq (%rax), %rdi
leaq 0x43457(%rip), %rsi     # 0x7e004
leaq 0x5019c(%rip), %rdx     # 0x8ad50
movl $0x2ea, %ecx            # imm = 0x2EA
movb $0x0, %al
callq 0x125f0
movl $0x1, %edi
callq 0x12a70
movq -0x30(%rbp), %rax
movq %rax, -0x38(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x38(%rbp), %rdx
movq 0xd8(%rax), %rax
movq -0x28(%rbp), %rcx
movq %rdx, (%rax,%rcx,8)
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x8(%rbp)
jmp 0x3ac53
cmpq $0x0, -0x28(%rbp)
jne 0x3ac0c
jmp 0x3ac1f
jmp 0x3ac0e
movq -0x28(%rbp), %rax
addq $-0x1, %rax
movq %rax, -0x28(%rbp)
jmp 0x3ab54
jmp 0x3ac21
jmp 0x3ac23
movq 0x753c6(%rip), %rax     # 0xafff0
movq (%rax), %rdi
leaq 0x463e0(%rip), %rsi     # 0x81014
movl $0x2f2, %edx            # imm = 0x2F2
leaq 0x50110(%rip), %rcx     # 0x8ad50
leaq 0x5014b(%rip), %r8      # 0x8ad92
movb $0x0, %al
callq 0x125f0
callq 0x12100
movq -0x8(%rbp), %rax
addq $0x40, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_sfree
void janet_sfree(void *mem) {
    if (NULL == mem) return;
    JanetScratch *s = janet_mem2scratch(mem);
    if (janet_vm.scratch_len) {
        for (size_t i = janet_vm.scratch_len - 1; ; i--) {
            if (janet_vm.scratch_mem[i] == s) {
                janet_vm.scratch_mem[i] = janet_vm.scratch_mem[--janet_vm.scratch_len];
                free_one_scratch(s);
                return;
            }
            if (i == 0) break;
        }
    }
    JANET_EXIT("invalid janet_sfree");
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
xorl %eax, %eax
cmpq -0x8(%rbp), %rax
jne 0x3acc9
jmp 0x3ae06
movq -0x8(%rbp), %rdi
callq 0x3ac60
movq %rax, -0x10(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
cmpq $0x0, 0xe8(%rax)
je 0x3add4
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xe8(%rax), %rax
subq $0x1, %rax
movq %rax, -0x18(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xd8(%rax), %rax
movq -0x18(%rbp), %rcx
movq (%rax,%rcx,8), %rax
cmpq -0x10(%rbp), %rax
jne 0x3adb6
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq 0xd8(%rax), %rax
movq %rax, -0x28(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq %rax, %rdx
movq -0x28(%rbp), %rax
movq 0xe8(%rdx), %rcx
movq %rcx, %rsi
addq $-0x1, %rsi
movq %rsi, 0xe8(%rdx)
movq -0x8(%rax,%rcx,8), %rax
movq %rax, -0x20(%rbp)
movq %fs:0x0, %rax
leaq -0x348(%rax), %rax
movq -0x20(%rbp), %rdx
movq 0xd8(%rax), %rax
movq -0x18(%rbp), %rcx
movq %rdx, (%rax,%rcx,8)
movq -0x10(%rbp), %rdi
callq 0x3ae10
jmp 0x3ae06
cmpq $0x0, -0x18(%rbp)
jne 0x3adbf
jmp 0x3add2
jmp 0x3adc1
movq -0x18(%rbp), %rax
addq $-0x1, %rax
movq %rax, -0x18(%rbp)
jmp 0x3ad13
jmp 0x3add4
jmp 0x3add6
movq 0x75213(%rip), %rax     # 0xafff0
movq (%rax), %rdi
leaq 0x4622d(%rip), %rsi     # 0x81014
movl $0x307, %edx            # imm = 0x307
leaq 0x4ff5d(%rip), %rcx     # 0x8ad50
leaq 0x4ffaf(%rip), %r8      # 0x8ada9
movb $0x0, %al
callq 0x125f0
callq 0x12100
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_mark_many
static void janet_mark_many(const Janet *values, int32_t n) {
    if (values == NULL)
        return;
    const Janet *end = values + n;
    while (values < end) {
        janet_mark(*values);
        values += 1;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movl %esi, -0xc(%rbp)
cmpq $0x0, -0x8(%rbp)
jne 0x3ae68
jmp 0x3ae9f
movq -0x8(%rbp), %rax
movslq -0xc(%rbp), %rcx
shlq $0x3, %rcx
addq %rcx, %rax
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rax
cmpq -0x18(%rbp), %rax
jae 0x3ae9f
movq -0x8(%rbp), %rax
movq (%rax), %rdi
callq 0x38b90
movq -0x8(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x8(%rbp)
jmp 0x3ae7b
addq $0x20, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_mark_values
static void janet_mark_values(const JanetKV *kvs, int32_t n) {
    const JanetKV *end = kvs + n;
    while (kvs < end) {
        janet_mark(kvs->value);
        kvs++;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movl %esi, -0xc(%rbp)
movq -0x8(%rbp), %rax
movslq -0xc(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rax
cmpq -0x18(%rbp), %rax
jae 0x3aef7
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rdi
callq 0x38b90
movq -0x8(%rbp), %rax
addq $0x10, %rax
movq %rax, -0x8(%rbp)
jmp 0x3aed2
addq $0x20, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_mark_keys
static void janet_mark_keys(const JanetKV *kvs, int32_t n) {
    const JanetKV *end = kvs + n;
    while (kvs < end) {
        janet_mark(kvs->key);
        kvs++;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movl %esi, -0xc(%rbp)
movq -0x8(%rbp), %rax
movslq -0xc(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rax
cmpq -0x18(%rbp), %rax
jae 0x3af46
movq -0x8(%rbp), %rax
movq (%rax), %rdi
callq 0x38b90
movq -0x8(%rbp), %rax
addq $0x10, %rax
movq %rax, -0x8(%rbp)
jmp 0x3af22
addq $0x20, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_mark_kvs
static void janet_mark_kvs(const JanetKV *kvs, int32_t n) {
    const JanetKV *end = kvs + n;
    while (kvs < end) {
        janet_mark(kvs->key);
        janet_mark(kvs->value);
        kvs++;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movl %esi, -0xc(%rbp)
movq -0x8(%rbp), %rax
movslq -0xc(%rbp), %rcx
shlq $0x4, %rcx
addq %rcx, %rax
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rax
cmpq -0x18(%rbp), %rax
jae 0x3afa3
movq -0x8(%rbp), %rax
movq (%rax), %rdi
callq 0x38b90
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rdi
callq 0x38b90
movq -0x8(%rbp), %rax
addq $0x10, %rax
movq %rax, -0x8(%rbp)
jmp 0x3af72
addq $0x20, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_mark_funcenv
static void janet_mark_funcenv(JanetFuncEnv *env) {
    if (janet_gc_reachable(env))
        return;
    janet_gc_mark(env);
    /* If closure env references a dead fiber, we can just copy out the stack frame we need so
     * we don't need to keep around the whole dead fiber. */
    janet_env_maybe_detach(env);
    if (env->offset > 0) {
        /* On stack */
        janet_mark_fiber(env->as.fiber);
    } else {
        /* Not on stack */
        janet_mark_many(env->as.values, env->length);
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movl (%rax), %eax
andl $0x100, %eax            # imm = 0x100
cmpl $0x0, %eax
je 0x3afce
jmp 0x3b012
movq -0x8(%rbp), %rax
movl (%rax), %ecx
orl $0x100, %ecx            # imm = 0x100
movl %ecx, (%rax)
movq -0x8(%rbp), %rdi
callq 0x369a0
movq -0x8(%rbp), %rax
cmpl $0x0, 0x1c(%rax)
jle 0x3affe
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rdi
callq 0x38fa0
jmp 0x3b012
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rdi
movq -0x8(%rbp), %rax
movl 0x18(%rax), %esi
callq 0x3ae50
addq $0x10, %rsp
popq %rbp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/gc.c
// Function: janet_mark_funcdef
static void janet_mark_funcdef(JanetFuncDef *def) {
    int32_t i;
    if (janet_gc_reachable(def))
        return;
    janet_gc_mark(def);
    janet_mark_many(def->constants, def->constants_length);
    for (i = 0; i < def->defs_length; ++i) {
        janet_mark_funcdef(def->defs[i]);
    }
    if (def->source)
        janet_mark_string(def->source);
    if (def->name)
        janet_mark_string(def->name);
    if (def->symbolmap) {
        for (int i = 0; i < def->symbolmap_length; i++) {
            janet_mark_string(def->symbolmap[i].symbol);
        }
    }

}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movl (%rax), %eax
andl $0x100, %eax            # imm = 0x100
cmpl $0x0, %eax
je 0x3b041
jmp 0x3b10d
movq -0x8(%rbp), %rax
movl (%rax), %ecx
orl $0x100, %ecx            # imm = 0x100
movl %ecx, (%rax)
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rdi
movq -0x8(%rbp), %rax
movl 0x6c(%rax), %esi
callq 0x3ae50
movl $0x0, -0xc(%rbp)
movl -0xc(%rbp), %eax
movq -0x8(%rbp), %rcx
cmpl 0x78(%rcx), %eax
jge 0x3b096
movq -0x8(%rbp), %rax
movq 0x20(%rax), %rax
movslq -0xc(%rbp), %rcx
movq (%rax,%rcx,8), %rdi
callq 0x3b020
movl -0xc(%rbp), %eax
addl $0x1, %eax
movl %eax, -0xc(%rbp)
jmp 0x3b06a
movq -0x8(%rbp), %rax
cmpq $0x0, 0x40(%rax)
je 0x3b0ae
movq -0x8(%rbp), %rax
movq 0x40(%rax), %rdi
callq 0x38d00
movq -0x8(%rbp), %rax
cmpq $0x0, 0x48(%rax)
je 0x3b0c6
movq -0x8(%rbp), %rax
movq 0x48(%rax), %rdi
callq 0x38d00
movq -0x8(%rbp), %rax
cmpq $0x0, 0x50(%rax)
je 0x3b10d
movl $0x0, -0x10(%rbp)
movl -0x10(%rbp), %eax
movq -0x8(%rbp), %rcx
cmpl 0x7c(%rcx), %eax
jge 0x3b10b
movq -0x8(%rbp), %rax
movq 0x50(%rax), %rax
movslq -0x10(%rbp), %rcx
imulq $0x18, %rcx, %rcx
addq %rcx, %rax
movq 0x10(%rax), %rdi
callq 0x38d00
movl -0x10(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x10(%rbp)
jmp 0x3b0d8
jmp 0x3b10d
addq $0x10, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: it_s64_get
static int it_s64_get(void *p, Janet key, Janet *out) {
    (void) p;
    if (!janet_checktype(key, JANET_KEYWORD))
        return 0;
    return janet_getmethod(janet_unwrap_keyword(key), it_s64_methods, out);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rsi, -0x10(%rbp)
movq %rdi, -0x18(%rbp)
movq %rdx, -0x20(%rbp)
xorl %eax, %eax
testb $0x1, %al
jne 0x3b13c
jmp 0x3b162
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3b14e
jmp 0x3b188
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
cmpq $0x0, %rax
je 0x3b188
jmp 0x3b17f
movabsq $-0x800000000000, %rax  # imm = 0xFFFF800000000000
andq -0x10(%rbp), %rax
movabsq $-0x5000000000000, %rcx # imm = 0xFFFB000000000000
cmpq %rcx, %rax
je 0x3b188
movl $0x0, -0x4(%rbp)
jmp 0x3b1a7
movq -0x10(%rbp), %rdi
callq 0x7b260
movq %rax, %rdi
movq -0x20(%rbp), %rdx
leaq 0x75611(%rip), %rsi     # 0xb07b0
callq 0x1ae90
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x20, %rsp
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: it_u64_get
static int it_u64_get(void *p, Janet key, Janet *out) {
    (void) p;
    if (!janet_checktype(key, JANET_KEYWORD))
        return 0;
    return janet_getmethod(janet_unwrap_keyword(key), it_u64_methods, out);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rsi, -0x10(%rbp)
movq %rdi, -0x18(%rbp)
movq %rdx, -0x20(%rbp)
xorl %eax, %eax
testb $0x1, %al
jne 0x3b35c
jmp 0x3b382
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3b36e
jmp 0x3b3a8
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
cmpq $0x0, %rax
je 0x3b3a8
jmp 0x3b39f
movabsq $-0x800000000000, %rax  # imm = 0xFFFF800000000000
andq -0x10(%rbp), %rax
movabsq $-0x5000000000000, %rcx # imm = 0xFFFB000000000000
cmpq %rcx, %rax
je 0x3b3a8
movl $0x0, -0x4(%rbp)
jmp 0x3b3c7
movq -0x10(%rbp), %rdi
callq 0x7b260
movq %rax, %rdi
movq -0x20(%rbp), %rdx
leaq 0x75581(%rip), %rsi     # 0xb0940
callq 0x1ae90
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x20, %rsp
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: janet_unwrap_s64
int64_t janet_unwrap_s64(Janet x) {
    switch (janet_type(x)) {
        default:
            break;
        case JANET_NUMBER : {
            double d = janet_unwrap_number(x);
            if (!janet_checkint64range(d)) break;
            return (int64_t) d;
        }
        case JANET_STRING: {
            int64_t value;
            const uint8_t *str = janet_unwrap_string(x);
            if (janet_scan_int64(str, janet_string_length(str), &value))
                return value;
            break;
        }
        case JANET_ABSTRACT: {
            void *abst = janet_unwrap_abstract(x);
            if (janet_abstract_type(abst) == &janet_s64_type ||
                    (janet_abstract_type(abst) == &janet_u64_type))
                return *(int64_t *)abst;
            break;
        }
    }
    janet_panicf("can not convert %t %q to 64 bit signed integer", x, x);
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movq %rdi, -0x10(%rbp)
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3b4ce
jmp 0x3b4df
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
movl %eax, -0x34(%rbp)
jmp 0x3b4e6
xorl %eax, %eax
movl %eax, -0x34(%rbp)
jmp 0x3b4e6
movl -0x34(%rbp), %eax
movl %eax, -0x38(%rbp)
testl %eax, %eax
je 0x3b50f
jmp 0x3b4f2
movl -0x38(%rbp), %eax
subl $0x4, %eax
je 0x3b566
jmp 0x3b4fc
movl -0x38(%rbp), %eax
subl $0xe, %eax
je 0x3b598
jmp 0x3b50a
jmp 0x3b5d6
movsd -0x10(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movsd -0x18(%rbp), %xmm0
movsd 0x4f89a(%rip), %xmm1    # 0x8adc0
ucomisd %xmm1, %xmm0
jb 0x3b555
movsd 0x4f894(%rip), %xmm0    # 0x8adc8
ucomisd -0x18(%rbp), %xmm0
jb 0x3b555
movsd -0x18(%rbp), %xmm0
cvttsd2si -0x18(%rbp), %rax
cvtsi2sd %rax, %xmm1
ucomisd %xmm1, %xmm0
jne 0x3b555
jp 0x3b555
jmp 0x3b557
jmp 0x3b5d6
cvttsd2si -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x3b5ec
movq -0x10(%rbp), %rdi
callq 0x7b260
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rdi
movq -0x28(%rbp), %rax
movl -0x8(%rax), %esi
leaq -0x20(%rbp), %rdx
callq 0x66c00
cmpl $0x0, %eax
je 0x3b596
movq -0x20(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x3b5ec
jmp 0x3b5d6
movq -0x10(%rbp), %rdi
callq 0x7b260
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rax
leaq 0x716b0(%rip), %rcx     # 0xacc60
cmpq %rcx, -0x10(%rax)
je 0x3b5c7
movq -0x30(%rbp), %rax
leaq 0x7170f(%rip), %rcx     # 0xaccd0
cmpq %rcx, -0x10(%rax)
jne 0x3b5d4
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x8(%rbp)
jmp 0x3b5ec
jmp 0x3b5d6
movq -0x10(%rbp), %rsi
movq -0x10(%rbp), %rdx
leaq 0x4f80d(%rip), %rdi     # 0x8adf2
movb $0x0, %al
callq 0x1ac40
movq -0x8(%rbp), %rax
addq $0x40, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: janet_is_int
JanetIntType janet_is_int(Janet x) {
    if (!janet_checktype(x, JANET_ABSTRACT)) return JANET_INT_NONE;
    const JanetAbstractType *at = janet_abstract_type(janet_unwrap_abstract(x));
    return (at == &janet_s64_type) ? JANET_INT_S64 :
           ((at == &janet_u64_type) ? JANET_INT_U64 :
            JANET_INT_NONE);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x10(%rbp)
xorl %eax, %eax
testb $0x1, %al
jne 0x3b7d4
jmp 0x3b7fa
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3b7e6
jmp 0x3b820
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
cmpq $0x0, %rax
je 0x3b820
jmp 0x3b817
movabsq $-0x800000000000, %rax  # imm = 0xFFFF800000000000
andq -0x10(%rbp), %rax
movabsq $-0x1000000000000, %rcx # imm = 0xFFFF000000000000
cmpq %rcx, %rax
je 0x3b820
movl $0x0, -0x4(%rbp)
jmp 0x3b869
movq -0x10(%rbp), %rdi
callq 0x7b260
movq -0x10(%rax), %rax
movq %rax, -0x18(%rbp)
leaq 0x71428(%rip), %rax     # 0xacc60
cmpq %rax, -0x18(%rbp)
jne 0x3b848
movl $0x1, %eax
movl %eax, -0x1c(%rbp)
jmp 0x3b863
movq -0x18(%rbp), %rdx
leaq 0x7147d(%rip), %rsi     # 0xaccd0
xorl %eax, %eax
movl $0x2, %ecx
cmpq %rsi, %rdx
cmovel %ecx, %eax
movl %eax, -0x1c(%rbp)
movl -0x1c(%rbp), %eax
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x20, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: janet_lib_inttypes
void janet_lib_inttypes(JanetTable *env) {
    JanetRegExt it_cfuns[] = {
        JANET_CORE_REG("int/s64", cfun_it_s64_new),
        JANET_CORE_REG("int/u64", cfun_it_u64_new),
        JANET_CORE_REG("int/to-number", cfun_to_number),
        JANET_CORE_REG("int/to-bytes", cfun_to_bytes),
        JANET_REG_END
    };
    janet_core_cfuns_ext(env, NULL, it_cfuns);
    janet_register_abstract_type(&janet_s64_type);
    janet_register_abstract_type(&janet_u64_type);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xd0, %rsp
movq %rdi, -0x8(%rbp)
leaq -0xd0(%rbp), %rdi
leaq 0x70e83(%rip), %rsi     # 0xacd40
movl $0xc8, %edx
callq 0x12680
movq -0x8(%rbp), %rdi
leaq -0xd0(%rbp), %rdx
xorl %eax, %eax
movl %eax, %esi
callq 0x6bd40
leaq 0x70d7e(%rip), %rdi     # 0xacc60
callq 0x6c180
leaq 0x70de2(%rip), %rdi     # 0xaccd0
callq 0x6c180
addq $0xd0, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: cfun_it_s64_divf
static Janet cfun_it_s64_divf(int32_t argc, Janet *argv) {
    janet_fixarity(argc, 2);
    int64_t *box = janet_abstract(&janet_s64_type, sizeof(int64_t));
    int64_t op1 = janet_unwrap_s64(argv[0]);
    int64_t op2 = janet_unwrap_s64(argv[1]);
    if (op2 == 0) janet_panic("division by zero");
    int64_t x = op1 / op2;
    *box = x - (((op1 ^ op2) < 0) && (x * op2 != op1));
    return janet_wrap_abstract(box);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x50, %rsp
movl %edi, -0xc(%rbp)
movq %rsi, -0x18(%rbp)
movl -0xc(%rbp), %edi
movl $0x2, %esi
callq 0x1ae00
leaq 0x7089d(%rip), %rdi     # 0xacc60
movl $0x8, %esi
callq 0x12de0
movq %rax, -0x20(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rdi
callq 0x3b4b0
movq %rax, -0x28(%rbp)
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rdi
callq 0x3b4b0
movq %rax, -0x30(%rbp)
cmpq $0x0, -0x30(%rbp)
jne 0x3c405
leaq 0x4ebc4(%rip), %rdi     # 0x8afc4
callq 0x1ad60
movq -0x28(%rbp), %rax
cqto
idivq -0x30(%rbp)
movq %rax, -0x38(%rbp)
movq -0x38(%rbp), %rax
movq %rax, -0x48(%rbp)
movq -0x28(%rbp), %rcx
xorq -0x30(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, %rcx
movb %al, -0x39(%rbp)
jge 0x3c441
movq -0x38(%rbp), %rax
imulq -0x30(%rbp), %rax
cmpq -0x28(%rbp), %rax
setne %al
movb %al, -0x39(%rbp)
movq -0x48(%rbp), %rcx
movb -0x39(%rbp), %al
andb $0x1, %al
movzbl %al, %eax
cltq
subq %rax, %rcx
movq -0x20(%rbp), %rax
movq %rcx, (%rax)
movq -0x20(%rbp), %rdi
movabsq $-0x1000000000000, %rsi # imm = 0xFFFF000000000000
callq 0x7b610
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x50, %rsp
popq %rbp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: cfun_it_s64_mod
static Janet cfun_it_s64_mod(int32_t argc, Janet *argv) {
    janet_fixarity(argc, 2);
    int64_t *box = janet_abstract(&janet_s64_type, sizeof(int64_t));
    int64_t op1 = janet_unwrap_s64(argv[0]);
    int64_t op2 = janet_unwrap_s64(argv[1]);
    if (op2 == 0) {
        *box = op1;
    } else {
        int64_t x = op1 % op2;
        *box = (((op1 ^ op2) < 0) && (x != 0)) ? x + op2 : x;
    }
    return janet_wrap_abstract(box);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movl %edi, -0xc(%rbp)
movq %rsi, -0x18(%rbp)
movl -0xc(%rbp), %edi
movl $0x2, %esi
callq 0x1ae00
leaq 0x706dd(%rip), %rdi     # 0xacc60
movl $0x8, %esi
callq 0x12de0
movq %rax, -0x20(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rdi
callq 0x3b4b0
movq %rax, -0x28(%rbp)
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rdi
callq 0x3b4b0
movq %rax, -0x30(%rbp)
cmpq $0x0, -0x30(%rbp)
jne 0x3c5c6
movq -0x28(%rbp), %rcx
movq -0x20(%rbp), %rax
movq %rcx, (%rax)
jmp 0x3c60a
movq -0x28(%rbp), %rax
cqto
idivq -0x30(%rbp)
movq %rdx, -0x38(%rbp)
movq -0x28(%rbp), %rax
xorq -0x30(%rbp), %rax
cmpq $0x0, %rax
jge 0x3c5f7
cmpq $0x0, -0x38(%rbp)
je 0x3c5f7
movq -0x38(%rbp), %rax
addq -0x30(%rbp), %rax
movq %rax, -0x40(%rbp)
jmp 0x3c5ff
movq -0x38(%rbp), %rax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rcx
movq -0x20(%rbp), %rax
movq %rcx, (%rax)
movq -0x20(%rbp), %rdi
movabsq $-0x1000000000000, %rsi # imm = 0xFFFF000000000000
callq 0x7b610
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x40, %rsp
popq %rbp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: compare_int64_double
static int compare_int64_double(int64_t x, double y) {
    if (isnan(y)) {
        return 0;
    } else if ((y > JANET_INTMIN_DOUBLE) && (y < JANET_INTMAX_DOUBLE)) {
        double dx = (double) x;
        return compare_double_double(dx, y);
    } else if (y > ((double) INT64_MAX)) {
        return -1;
    } else if (y < ((double) INT64_MIN)) {
        return 1;
    } else {
        int64_t yi = (int64_t) y;
        return (x < yi) ? -1 : ((x > yi) ? 1 : 0);
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x10(%rbp)
movsd %xmm0, -0x18(%rbp)
movsd -0x18(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3cf13
jmp 0x3cf1f
movl $0x0, -0x4(%rbp)
jmp 0x3cfd0
movsd -0x18(%rbp), %xmm0
movsd 0x4de94(%rip), %xmm1    # 0x8adc0
ucomisd %xmm1, %xmm0
jbe 0x3cf60
movsd 0x4de8e(%rip), %xmm0    # 0x8adc8
ucomisd -0x18(%rbp), %xmm0
jbe 0x3cf60
cvtsi2sdq -0x10(%rbp), %xmm0
movsd %xmm0, -0x20(%rbp)
movsd -0x20(%rbp), %xmm0
movsd -0x18(%rbp), %xmm1
callq 0x3cfe0
movl %eax, -0x4(%rbp)
jmp 0x3cfd0
movsd -0x18(%rbp), %xmm0
movsd 0x4412b(%rip), %xmm1    # 0x81098
ucomisd %xmm1, %xmm0
jbe 0x3cf7c
movl $0xffffffff, -0x4(%rbp) # imm = 0xFFFFFFFF
jmp 0x3cfd0
movsd 0x4de4c(%rip), %xmm0    # 0x8add0
ucomisd -0x18(%rbp), %xmm0
jbe 0x3cf94
movl $0x1, -0x4(%rbp)
jmp 0x3cfd0
cvttsd2si -0x18(%rbp), %rax
movq %rax, -0x28(%rbp)
movq -0x10(%rbp), %rax
cmpq -0x28(%rbp), %rax
jge 0x3cfb2
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movl %eax, -0x2c(%rbp)
jmp 0x3cfca
movq -0x10(%rbp), %rdx
movq -0x28(%rbp), %rsi
xorl %eax, %eax
movl $0x1, %ecx
cmpq %rsi, %rdx
cmovgl %ecx, %eax
movl %eax, -0x2c(%rbp)
movl -0x2c(%rbp), %eax
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/inttypes.c
// Function: compare_uint64_double
static int compare_uint64_double(uint64_t x, double y) {
    if (isnan(y)) {
        return 0;
    } else if (y < 0) {
        return 1;
    } else if ((y >= 0) && (y < JANET_INTMAX_DOUBLE)) {
        double dx = (double) x;
        return compare_double_double(dx, y);
    } else if (y > ((double) UINT64_MAX)) {
        return -1;
    } else {
        uint64_t yi = (uint64_t) y;
        return (x < yi) ? -1 : ((x > yi) ? 1 : 0);
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x10(%rbp)
movsd %xmm0, -0x18(%rbp)
movsd -0x18(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3ddf3
jmp 0x3ddff
movl $0x0, -0x4(%rbp)
jmp 0x3deef
xorps %xmm0, %xmm0
ucomisd -0x18(%rbp), %xmm0
jbe 0x3de15
movl $0x1, -0x4(%rbp)
jmp 0x3deef
movsd -0x18(%rbp), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jb 0x3de72
movsd 0x4cf9d(%rip), %xmm0    # 0x8adc8
ucomisd -0x18(%rbp), %xmm0
jbe 0x3de72
movaps 0x43a47(%rip), %xmm1    # 0x81880
movq -0x10(%rbp), %xmm0
punpckldq %xmm1, %xmm0    # xmm0 = xmm0[0],xmm1[0],xmm0[1],xmm1[1]
movapd 0x43a46(%rip), %xmm1    # 0x81890
subpd %xmm1, %xmm0
movaps %xmm0, %xmm1
unpckhpd %xmm0, %xmm0            # xmm0 = xmm0[1,1]
addsd %xmm1, %xmm0
movsd %xmm0, -0x20(%rbp)
movsd -0x20(%rbp), %xmm0
movsd -0x18(%rbp), %xmm1
callq 0x3cfe0
movl %eax, -0x4(%rbp)
jmp 0x3deef
movsd -0x18(%rbp), %xmm0
movsd 0x4cf59(%rip), %xmm1    # 0x8add8
ucomisd %xmm1, %xmm0
jbe 0x3de8e
movl $0xffffffff, -0x4(%rbp) # imm = 0xFFFFFFFF
jmp 0x3deef
movsd -0x18(%rbp), %xmm0
movsd 0x431fd(%rip), %xmm2    # 0x81098
movaps %xmm0, %xmm1
subsd %xmm2, %xmm1
cvttsd2si %xmm1, %rcx
cvttsd2si %xmm0, %rax
movq %rax, %rdx
sarq $0x3f, %rdx
andq %rdx, %rcx
orq %rcx, %rax
movq %rax, -0x28(%rbp)
movq -0x10(%rbp), %rax
cmpq -0x28(%rbp), %rax
jae 0x3ded1
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movl %eax, -0x2c(%rbp)
jmp 0x3dee9
movq -0x10(%rbp), %rdx
movq -0x28(%rbp), %rsi
xorl %eax, %eax
movl $0x1, %ecx
cmpq %rsi, %rdx
cmoval %ecx, %eax
movl %eax, -0x2c(%rbp)
movl -0x2c(%rbp), %eax
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: cfun_io_gc
static int cfun_io_gc(void *p, size_t len) {
    (void) len;
    JanetFile *iof = (JanetFile *)p;
    janet_file_close(iof);
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x18(%rbp)
movq -0x18(%rbp), %rdi
callq 0x3ea40
xorl %eax, %eax
addq $0x20, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: io_file_get
static int io_file_get(void *p, Janet key, Janet *out) {
    (void) p;
    if (!janet_checktype(key, JANET_KEYWORD))
        return 0;
    return janet_getmethod(janet_unwrap_keyword(key), io_file_methods, out);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rsi, -0x10(%rbp)
movq %rdi, -0x18(%rbp)
movq %rdx, -0x20(%rbp)
xorl %eax, %eax
testb $0x1, %al
jne 0x3df4c
jmp 0x3df72
movsd -0x10(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3df5e
jmp 0x3df98
movq -0x10(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
cmpq $0x0, %rax
je 0x3df98
jmp 0x3df8f
movabsq $-0x800000000000, %rax  # imm = 0xFFFF800000000000
andq -0x10(%rbp), %rax
movabsq $-0x5000000000000, %rcx # imm = 0xFFFB000000000000
cmpq %rcx, %rax
je 0x3df98
movl $0x0, -0x4(%rbp)
jmp 0x3dfb7
movq -0x10(%rbp), %rdi
callq 0x7b260
movq %rax, %rdi
movq -0x20(%rbp), %rdx
leaq 0x72b21(%rip), %rsi     # 0xb0ad0
callq 0x1ae90
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x20, %rsp
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: io_file_marshal
static void io_file_marshal(void *p, JanetMarshalContext *ctx) {
    JanetFile *iof = (JanetFile *)p;
    if (ctx->flags & JANET_MARSHAL_UNSAFE) {
        janet_marshal_abstract(ctx, p);
#ifdef JANET_WINDOWS
        janet_marshal_int(ctx, _fileno(iof->file));
#else
        janet_marshal_int(ctx, fileno(iof->file));
#endif
        janet_marshal_int(ctx, iof->flags);
    } else {
        janet_panic("cannot marshal file in safe mode");
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x18(%rbp)
movq -0x10(%rbp), %rax
movl 0x10(%rax), %eax
andl $0x20000, %eax          # imm = 0x20000
cmpl $0x0, %eax
je 0x3e027
movq -0x10(%rbp), %rdi
movq -0x8(%rbp), %rsi
callq 0x41700
movq -0x10(%rbp), %rax
movq %rax, -0x20(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rdi
callq 0x12700
movq -0x20(%rbp), %rdi
movl %eax, %esi
callq 0x405a0
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rax
movl 0x8(%rax), %esi
callq 0x405a0
jmp 0x3e033
leaq 0x4e6bc(%rip), %rdi     # 0x8c6ea
callq 0x1ad60
addq $0x20, %rsp
popq %rbp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: io_file_unmarshal
static void *io_file_unmarshal(JanetMarshalContext *ctx) {
    if (ctx->flags & JANET_MARSHAL_UNSAFE) {
        JanetFile *iof = janet_unmarshal_abstract(ctx, sizeof(JanetFile));
        int32_t fd = janet_unmarshal_int(ctx);
        int32_t flags = janet_unmarshal_int(ctx);
        char fmt[4] = {0};
        int index = 0;
        if (flags & JANET_FILE_READ) fmt[index++] = 'r';
        if (flags & JANET_FILE_APPEND) {
            fmt[index++] = 'a';
        } else if (flags & JANET_FILE_WRITE) {
            fmt[index++] = 'w';
        }
#ifdef JANET_WINDOWS
        iof->file = _fdopen(fd, fmt);
#else
        iof->file = fdopen(fd, fmt);
#endif
        if (iof->file == NULL) {
            iof->flags = JANET_FILE_CLOSED;
        } else {
            iof->flags = flags;
        }
        return iof;
    } else {
        janet_panic("cannot unmarshal file in safe mode");
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movl 0x10(%rax), %eax
andl $0x20000, %eax          # imm = 0x20000
cmpl $0x0, %eax
je 0x3e13e
movq -0x8(%rbp), %rdi
movl $0x10, %esi
callq 0x43690
movq %rax, -0x10(%rbp)
movq -0x8(%rbp), %rdi
callq 0x41890
movl %eax, -0x14(%rbp)
movq -0x8(%rbp), %rdi
callq 0x41890
movl %eax, -0x18(%rbp)
leaq -0x1c(%rbp), %rdi
xorl %esi, %esi
movl $0x4, %edx
callq 0x12420
movl $0x0, -0x20(%rbp)
movl -0x18(%rbp), %eax
andl $0x2, %eax
cmpl $0x0, %eax
je 0x3e0bf
movl -0x20(%rbp), %eax
movl %eax, %ecx
addl $0x1, %ecx
movl %ecx, -0x20(%rbp)
cltq
movb $0x72, -0x1c(%rbp,%rax)
movl -0x18(%rbp), %eax
andl $0x4, %eax
cmpl $0x0, %eax
je 0x3e0de
movl -0x20(%rbp), %eax
movl %eax, %ecx
addl $0x1, %ecx
movl %ecx, -0x20(%rbp)
cltq
movb $0x61, -0x1c(%rbp,%rax)
jmp 0x3e0fd
movl -0x18(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x3e0fb
movl -0x20(%rbp), %eax
movl %eax, %ecx
addl $0x1, %ecx
movl %ecx, -0x20(%rbp)
cltq
movb $0x77, -0x1c(%rbp,%rax)
jmp 0x3e0fd
movl -0x14(%rbp), %edi
leaq -0x1c(%rbp), %rsi
callq 0x12850
movq %rax, %rcx
movq -0x10(%rbp), %rax
movq %rcx, (%rax)
movq -0x10(%rbp), %rax
cmpq $0x0, (%rax)
jne 0x3e12a
movq -0x10(%rbp), %rax
movl $0x20, 0x8(%rax)
jmp 0x3e134
movl -0x18(%rbp), %ecx
movq -0x10(%rbp), %rax
movl %ecx, 0x8(%rax)
movq -0x10(%rbp), %rax
addq $0x20, %rsp
popq %rbp
retq
leaq 0x4e5c6(%rip), %rdi     # 0x8c70b
callq 0x1ad60
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: read_chunk
static void read_chunk(JanetFile *iof, JanetBuffer *buffer, int32_t nBytesMax) {
    if (!(iof->flags & (JANET_FILE_READ | JANET_FILE_UPDATE)))
        janet_panic("file is not readable");
    janet_buffer_extra(buffer, nBytesMax);
    size_t ntoread = nBytesMax;
    size_t nread = fread((char *)(buffer->data + buffer->count), 1, ntoread, iof->file);
    if (nread != ntoread && ferror(iof->file))
        janet_panic("could not read file");
    buffer->count += (int32_t) nread;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movl %edx, -0x14(%rbp)
movq -0x8(%rbp), %rax
movl 0x8(%rax), %eax
andl $0xa, %eax
cmpl $0x0, %eax
jne 0x3e7de
leaq 0x4dee8(%rip), %rdi     # 0x8c6c1
callq 0x1ad60
movq -0x10(%rbp), %rdi
movl -0x14(%rbp), %esi
callq 0x18650
movslq -0x14(%rbp), %rax
movq %rax, -0x20(%rbp)
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rdi
movq -0x10(%rbp), %rax
movslq 0x10(%rax), %rax
addq %rax, %rdi
movq -0x20(%rbp), %rdx
movq -0x8(%rbp), %rax
movq (%rax), %rcx
movl $0x1, %esi
callq 0x121d0
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
cmpq -0x20(%rbp), %rax
je 0x3e845
movq -0x8(%rbp), %rax
movq (%rax), %rdi
callq 0x121a0
cmpl $0x0, %eax
je 0x3e845
leaq 0x4de96(%rip), %rdi     # 0x8c6d6
callq 0x1ad60
movq -0x28(%rbp), %rax
movl %eax, %ecx
movq -0x10(%rbp), %rax
addl 0x10(%rax), %ecx
movl %ecx, 0x10(%rax)
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: io_assert_writeable
static void io_assert_writeable(JanetFile *iof) {
    if (iof->flags & JANET_FILE_CLOSED)
        janet_panic("file is closed");
    if (!(iof->flags & (JANET_FILE_WRITE | JANET_FILE_APPEND | JANET_FILE_UPDATE)))
        janet_panic("file is not writeable");
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movl 0x8(%rax), %eax
andl $0x20, %eax
cmpl $0x0, %eax
je 0x3ea17
leaq 0x4da3d(%rip), %rdi     # 0x8c44f
callq 0x1ad60
movq -0x8(%rbp), %rax
movl 0x8(%rax), %eax
andl $0xd, %eax
cmpl $0x0, %eax
jne 0x3ea32
leaq 0x4da55(%rip), %rdi     # 0x8c482
callq 0x1ad60
addq $0x10, %rsp
popq %rbp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: janet_file_close
int janet_file_close(JanetFile *file) {
    int ret = 0;
    if (!(file->flags & (JANET_FILE_NOT_CLOSEABLE | JANET_FILE_CLOSED))) {
        ret = fclose(file->file);
        file->flags |= JANET_FILE_CLOSED;
        file->file = NULL; /* NULL dereference is easier to debug then other problems */
        return ret;
    }
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x10(%rbp)
movl $0x0, -0x14(%rbp)
movq -0x10(%rbp), %rax
movl 0x8(%rax), %eax
andl $0x30, %eax
cmpl $0x0, %eax
jne 0x3ea91
movq -0x10(%rbp), %rax
movq (%rax), %rdi
callq 0x122b0
movl %eax, -0x14(%rbp)
movq -0x10(%rbp), %rax
movl 0x8(%rax), %ecx
orl $0x20, %ecx
movl %ecx, 0x8(%rax)
movq -0x10(%rbp), %rax
movq $0x0, (%rax)
movl -0x14(%rbp), %eax
movl %eax, -0x4(%rbp)
jmp 0x3ea98
movl $0x0, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x20, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: janet_dynfile
FILE *janet_dynfile(const char *name, FILE *def) {
    Janet x = janet_dyn(name);
    if (!janet_checktype(x, JANET_ABSTRACT)) return def;
    void *abstract = janet_unwrap_abstract(x);
    if (janet_abstract_type(abstract) != &janet_file_type) return def;
    JanetFile *iofile = abstract;
    return iofile->file;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq -0x10(%rbp), %rdi
callq 0x1ce50
movq %rax, -0x20(%rbp)
xorl %eax, %eax
testb $0x1, %al
jne 0x3ed85
jmp 0x3edab
movsd -0x20(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3ed97
jmp 0x3edd2
movq -0x20(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
cmpq $0x0, %rax
je 0x3edd2
jmp 0x3edc8
movabsq $-0x800000000000, %rax  # imm = 0xFFFF800000000000
andq -0x20(%rbp), %rax
movabsq $-0x1000000000000, %rcx # imm = 0xFFFF000000000000
cmpq %rcx, %rax
je 0x3edd2
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x3ee0d
movq -0x20(%rbp), %rdi
callq 0x7b260
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
leaq 0x6e026(%rip), %rcx     # 0xace10
cmpq %rcx, -0x10(%rax)
je 0x3edfa
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x3ee0d
movq -0x28(%rbp), %rax
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x30, %rsp
popq %rbp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: janet_flusher
static void janet_flusher(const char *name, FILE *dflt_file) {
    Janet x = janet_dyn(name);
    switch (janet_type(x)) {
        default:
            break;
        case JANET_NIL:
            fflush(dflt_file);
            break;
        case JANET_ABSTRACT: {
            void *abstract = janet_unwrap_abstract(x);
            if (janet_abstract_type(abstract) != &janet_file_type) break;
            JanetFile *iofile = abstract;
            fflush(iofile->file);
            break;
        }
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq -0x8(%rbp), %rdi
callq 0x1ce50
movq %rax, -0x18(%rbp)
movsd -0x18(%rbp), %xmm0
ucomisd %xmm0, %xmm0
setp %al
testb $0x1, %al
jne 0x3f94f
jmp 0x3f960
movq -0x18(%rbp), %rax
shrq $0x2f, %rax
andq $0xf, %rax
movl %eax, -0x2c(%rbp)
jmp 0x3f967
xorl %eax, %eax
movl %eax, -0x2c(%rbp)
jmp 0x3f967
movl -0x2c(%rbp), %eax
movl %eax, -0x30(%rbp)
subl $0x1, %eax
je 0x3f980
jmp 0x3f974
movl -0x30(%rbp), %eax
subl $0xe, %eax
je 0x3f98b
jmp 0x3f97e
jmp 0x3f9bf
movq -0x10(%rbp), %rdi
callq 0x12780
jmp 0x3f9bf
movq -0x18(%rbp), %rdi
callq 0x7b260
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
leaq 0x6d46d(%rip), %rcx     # 0xace10
cmpq %rcx, -0x10(%rax)
je 0x3f9ab
jmp 0x3f9bf
movq -0x20(%rbp), %rax
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
movq (%rax), %rdi
callq 0x12780
addq $0x30, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/io.c
// Function: makef
static void *makef(FILE *f, int32_t flags) {
    JanetFile *iof = (JanetFile *) janet_abstract(&janet_file_type, sizeof(JanetFile));
    iof->file = f;
    iof->flags = flags;
#ifndef JANET_WINDOWS
    /* While we would like fopen to set cloexec by default (like O_CLOEXEC) with the e flag, that is
     * not standard. */
    if (!(flags & JANET_FILE_NOT_CLOSEABLE))
        fcntl(fileno(f), F_SETFD, FD_CLOEXEC);
#endif
    return iof;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movl %esi, -0xc(%rbp)
leaq 0x6d0aa(%rip), %rdi     # 0xace10
movl $0x10, %esi
callq 0x12de0
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, (%rax)
movl -0xc(%rbp), %ecx
movq -0x18(%rbp), %rax
movl %ecx, 0x8(%rax)
movl -0xc(%rbp), %eax
andl $0x10, %eax
cmpl $0x0, %eax
jne 0x3fdb0
movq -0x8(%rbp), %rdi
callq 0x12700
movl %eax, %edi
movl $0x2, %esi
movl $0x1, %edx
movb $0x0, %al
callq 0x12920
movq -0x18(%rbp), %rax
addq $0x20, %rsp
popq %rbp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/janet-lang[P]janet/src/core/marsh.c
// Function: push64
static void push64(MarshalState *st, uint64_t x) {
    if (x <= 0xF0) {
        /* Single byte */
        pushbyte(st, (uint8_t) x);
    } else {
        /* Multibyte, little endian */
        uint8_t bytes[9];
        int nbytes = 0;
        while (x) {
            bytes[++nbytes] = x & 0xFF;
            x >>= 8;
        }
        bytes[0] = 0xF0 + nbytes;
        pushbytes(st, bytes, nbytes + 1);
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
cmpq $0xf0, -0x10(%rbp)
ja 0x4053c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movzbl %al, %esi
callq 0x40750
jmp 0x40591
movl $0x0, -0x20(%rbp)
cmpq $0x0, -0x10(%rbp)
je 0x40573
movq -0x10(%rbp), %rax
andq $0xff, %rax
movb %al, %cl
movl -0x20(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x20(%rbp)
cltq
movb %cl, -0x19(%rbp,%rax)
movq -0x10(%rbp), %rax
shrq $0x8, %rax
movq %rax, -0x10(%rbp)
jmp 0x40543
movl -0x20(%rbp), %eax
addl $0xf0, %eax
movb %al, -0x19(%rbp)
movq -0x8(%rbp), %rdi
leaq -0x19(%rbp), %rsi
movl -0x20(%rbp), %edx
addl $0x1, %edx
callq 0x407d0
addq $0x20, %rsp
popq %rbp
retq
nopw (%rax,%rax)