LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_consume
void janet_parser_consume(JanetParser *parser, uint8_t c) {
    int consumed = 0;
    janet_parser_checkdead(parser);
    if (c == '\r') {
        parser->line++;
        parser->column = 0;
    } else if (c == '\n') {
        parser->column = 0;
        if (parser->lookback != '\r')
            parser->line++;
    } else {
        parser->column++;
    }
    while (!consumed && !parser->error) {
        JanetParseState *state = parser->states + parser->statecount - 1;
        consumed = state->consumer(parser, state, c);
    }
    parser->lookback = c;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movl %esi, %r14d
movq %rdi, %rbx
callq 0x35ba6
cmpl $0xa, %r14d
je 0x35b5b
cmpl $0xd, %r14d
jne 0x35b6c
incq 0x50(%rbx)
andq $0x0, 0x58(%rbx)
jmp 0x35b70
andq $0x0, 0x58(%rbx)
cmpl $0xd, 0x68(%rbx)
je 0x35b70
incq 0x50(%rbx)
jmp 0x35b70
incq 0x58(%rbx)
xorl %eax, %eax
movzbl %r14b, %r14d
testl %eax, %eax
jne 0x35b9d
cmpq $0x0, 0x8(%rbx)
jne 0x35b9d
movq 0x10(%rbx), %rax
imulq $0x28, 0x30(%rbx), %rcx
leaq (%rax,%rcx), %rsi
addq $-0x28, %rsi
movq %rbx, %rdi
movl %r14d, %edx
callq *0x20(%rsi)
jmp 0x35b76
movl %r14d, 0x68(%rbx)
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_eof
void janet_parser_eof(JanetParser *parser) {
    janet_parser_checkdead(parser);
    size_t oldcolumn = parser->column;
    size_t oldline = parser->line;
    janet_parser_consume(parser, '\n');
    if (parser->statecount > 1) {
        delim_error(parser, parser->statecount - 1, 0, "unexpected end of source");
    }
    parser->line = oldline;
    parser->column = oldcolumn;
    parser->flag |= JANET_PARSER_DEAD;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x35ba6
movq 0x50(%rbx), %r15
movq 0x58(%rbx), %r14
pushq $0xa
popq %rsi
movq %rbx, %rdi
callq 0x35b32
movq 0x30(%rbx), %rsi
cmpq $0x2, %rsi
jb 0x35c14
decq %rsi
leaq 0x25f82(%rip), %rcx     # 0x5bb8c
movq %rbx, %rdi
xorl %edx, %edx
callq 0x35c2b
movq %r15, 0x50(%rbx)
movq %r14, 0x58(%rbx)
orb $0x1, 0x6c(%rbx)
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/parse.c
// Function: delim_error
static void delim_error(JanetParser *parser, size_t stack_index, char c, const char *msg) {
    JanetParseState *s = parser->states + stack_index;
    JanetBuffer *buffer = janet_buffer(40);
    if (msg) {
        janet_buffer_push_cstring(buffer, msg);
    }
    if (c) {
        janet_buffer_push_u8(buffer, c);
    }
    if (stack_index > 0) {
        janet_buffer_push_cstring(buffer, ", ");
        if (s->flags & PFLAG_PARENS) {
            janet_buffer_push_u8(buffer, '(');
        } else if (s->flags & PFLAG_SQRBRACKETS) {
            janet_buffer_push_u8(buffer, '[');
        } else if (s->flags & PFLAG_CURLYBRACKETS) {
            janet_buffer_push_u8(buffer, '{');
        } else if (s->flags & PFLAG_STRING) {
            janet_buffer_push_u8(buffer, '"');
        } else if (s->flags & PFLAG_LONGSTRING) {
            int32_t i;
            for (i = 0; i < s->argn; i++) {
                janet_buffer_push_u8(buffer, '`');
            }
        }
        janet_formatb(buffer, " opened at line %d, column %d", (int32_t) s->line, (int32_t) s->column);
    }
    parser->error = (const char *) janet_string(buffer->data, buffer->count);
    parser->flag |= JANET_PARSER_GENERATED_ERROR;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rcx, %r13
movl %edx, %r12d
movq %rsi, %r15
imulq $0x28, %rsi, %rbx
movq %rdi, -0x30(%rbp)
addq 0x10(%rdi), %rbx
pushq $0x28
popq %rdi
callq 0x15f78
movq %rax, %r14
testq %r13, %r13
je 0x35c69
movq %r14, %rdi
movq %r13, %rsi
callq 0x1614c
testb %r12b, %r12b
je 0x35c7a
movzbl %r12b, %esi
movq %r14, %rdi
callq 0x161be
testq %r15, %r15
je 0x35cf6
leaq 0x2d951(%rip), %rsi     # 0x635d7
movq %r14, %rdi
callq 0x1614c
movl 0x8(%rbx), %eax
movb $0x28, %cl
btl $0xa, %eax
jb 0x35cd4
movb $0x5b, %cl
btl $0xb, %eax
jb 0x35cd4
movb $0x7b, %cl
btl $0xc, %eax
jb 0x35cd4
movb $0x22, %cl
btl $0xd, %eax
jb 0x35cd4
btl $0xe, %eax
jae 0x35cdf
xorl %r12d, %r12d
pushq $0x60
popq %r15
cmpl 0x4(%rbx), %r12d
jge 0x35cdf
movq %r14, %rdi
movl %r15d, %esi
callq 0x161be
incl %r12d
jmp 0x35cbe
movzbl %cl, %esi
movq %r14, %rdi
callq 0x161be
movl 0x10(%rbx), %edx
movl 0x18(%rbx), %ecx
leaq 0x2d8ee(%rip), %rsi     # 0x635da
movq %r14, %rdi
xorl %eax, %eax
callq 0x3c1c1
movq 0x18(%r14), %rdi
movl 0x10(%r14), %esi
callq 0x41116
movq -0x30(%rbp), %rcx
movq %rax, 0x8(%rcx)
orb $0x2, 0x6c(%rcx)
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/parse.c
// Function: janet_parser_status
enum JanetParserStatus janet_parser_status(JanetParser *parser) {
    if (parser->error) return JANET_PARSE_ERROR;
    if (parser->flag) return JANET_PARSE_DEAD;
    if (parser->statecount > 1) return JANET_PARSE_PENDING;
    return JANET_PARSE_ROOT;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpq $0x0, 0x8(%rdi)
je 0x35d30
movl $0x1, %eax
jmp 0x35d49
cmpl $0x0, 0x6c(%rdi)
je 0x35d3d
movl $0x3, %eax
jmp 0x35d49
xorl %eax, %eax
cmpq $0x2, 0x30(%rdi)
setae %al
addl %eax, %eax
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_flush
void janet_parser_flush(JanetParser *parser) {
    parser->argcount = 0;
    parser->statecount = 1;
    parser->bufcount = 0;
    parser->pending = 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
andq $0x0, 0x20(%rdi)
movq $0x1, 0x30(%rdi)
andq $0x0, 0x40(%rdi)
andq $0x0, 0x60(%rdi)
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_error
const char *janet_parser_error(JanetParser *parser) {
    enum JanetParserStatus status = janet_parser_status(parser);
    if (status == JANET_PARSE_ERROR) {
        const char *e = parser->error;
        parser->error = NULL;
        parser->flag &= ~JANET_PARSER_GENERATED_ERROR;
        janet_parser_flush(parser);
        return e;
    }
    return NULL;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x35d1e
cmpl $0x1, %eax
jne 0x35da1
movq 0x8(%rbx), %rax
andq $0x0, 0x8(%rbx)
andb $-0x3, 0x6c(%rbx)
andq $0x0, 0x20(%rbx)
movq $0x1, 0x30(%rbx)
andq $0x0, 0x40(%rbx)
andq $0x0, 0x60(%rbx)
jmp 0x35da3
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_produce
Janet janet_parser_produce(JanetParser *parser) {
    Janet ret;
    size_t i;
    if (parser->pending == 0) return janet_wrap_nil();
    ret = janet_unwrap_tuple(parser->args[0])[0];
    for (i = 1; i < parser->argcount; i++) {
        parser->args[i - 1] = parser->args[i];
    }
    parser->pending--;
    parser->argcount--;
    parser->states[0].argn--;
    return ret;
}

// Assembly:
cmpq $0x0, 0x60(%rdi)
je 0x35dfe
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq (%rdi), %rax
movq (%rax), %rdi
callq 0x4b1f1
movq (%rax), %rax
pushq $0x1
popq %rcx
movq 0x20(%rbx), %rdx
cmpq %rdx, %rcx
jae 0x35de5
movq (%rbx), %rdx
movq (%rdx,%rcx,8), %rsi
movq %rsi, -0x8(%rdx,%rcx,8)
incq %rcx
jmp 0x35dcb
decq 0x60(%rbx)
decq %rdx
movq %rdx, 0x20(%rbx)
movq 0x10(%rbx), %rcx
decl 0x4(%rcx)
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
jmp 0x4b313
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_produce_wrapped
Janet janet_parser_produce_wrapped(JanetParser *parser) {
    Janet ret;
    size_t i;
    if (parser->pending == 0) return janet_wrap_nil();
    ret = parser->args[0];
    for (i = 1; i < parser->argcount; i++) {
        parser->args[i - 1] = parser->args[i];
    }
    parser->pending--;
    parser->argcount--;
    parser->states[0].argn--;
    return ret;
}

// Assembly:
cmpq $0x0, 0x60(%rdi)
je 0x35e56
pushq %rbp
movq %rsp, %rbp
movq (%rdi), %rax
movq (%rax), %rax
movabsq $0x1, %rcx
movq 0x20(%rdi), %rdx
cmpq %rdx, %rcx
jae 0x35e42
movq (%rdi), %rdx
movq (%rdx,%rcx,8), %rsi
movq %rsi, -0x8(%rdx,%rcx,8)
incq %rcx
jmp 0x35e28
decq 0x60(%rdi)
decq %rdx
movq %rdx, 0x20(%rdi)
movq 0x10(%rdi), %rcx
decl 0x4(%rcx)
popq %rbp
retq
movabsq $-0x77fffffffffff, %rdi # imm = 0xFFF8800000000001
jmp 0x4b313
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: pushstate
static void pushstate(JanetParser *p, Consumer consumer, int flags) {
    JanetParseState s;
    s.counter = 0;
    s.argn = 0;
    s.flags = flags;
    s.consumer = consumer;
    s.line = p->line;
    s.column = p->column;
    _pushstate(p, s);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %rbx
movq 0x50(%rdi), %r12
movq 0x58(%rdi), %r13
movq 0x10(%rdi), %rax
movq 0x30(%rdi), %r15
leaq 0x1(%r15), %r14
cmpq 0x38(%rdi), %r14
jbe 0x35efc
movl %edx, -0x2c(%rbp)
movq %rsi, -0x38(%rbp)
imulq $0x50, %r14, %rsi
movq %rax, %rdi
callq 0x12840
testq %rax, %rax
je 0x35f2b
leaq (%r14,%r14), %rcx
movq %rax, 0x10(%rbx)
movq %rcx, 0x38(%rbx)
movq -0x38(%rbp), %rsi
movl -0x2c(%rbp), %edx
imulq $0x28, %r15, %rcx
andq $0x0, (%rax,%rcx)
movl %edx, 0x8(%rax,%rcx)
movq %r12, 0x10(%rax,%rcx)
movq %r13, 0x18(%rax,%rcx)
movq %rsi, 0x20(%rax,%rcx)
movq %r14, 0x30(%rbx)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x4a0be(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0x170c8(%rip), %rsi     # 0x4d004
leaq 0x2d4fd(%rip), %rdx     # 0x63440
movl $0x8b, %ecx
xorl %eax, %eax
callq 0x125e0
pushq $0x1
popq %rdi
callq 0x12a60
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: janet_parser_clone
void janet_parser_clone(const JanetParser *src, JanetParser *dest) {
    /* Misc fields */
    dest->flag = src->flag;
    dest->pending = src->pending;
    dest->lookback = src->lookback;
    dest->line = src->line;
    dest->column = src->column;
    dest->error = src->error;

    /* Keep counts */
    dest->argcount = src->argcount;
    dest->bufcount = src->bufcount;
    dest->statecount = src->statecount;

    /* Capacities are equal to counts */
    dest->bufcap = dest->bufcount;
    dest->statecap = dest->statecount;
    dest->argcap = dest->argcount;

    /* Deep cloned fields */
    dest->args = NULL;
    dest->states = NULL;
    dest->buf = NULL;
    if (dest->bufcap) {
        dest->buf = janet_malloc(dest->bufcap);
        if (!dest->buf) goto nomem;
        memcpy(dest->buf, src->buf, dest->bufcap);
    }
    if (dest->argcap) {
        dest->args = janet_malloc(sizeof(Janet) * dest->argcap);
        if (!dest->args) goto nomem;
        memcpy(dest->args, src->args, dest->argcap * sizeof(Janet));
    }
    if (dest->statecap) {
        dest->states = janet_malloc(sizeof(JanetParseState) * dest->statecap);
        if (!dest->states) goto nomem;
        memcpy(dest->states, src->states, dest->statecap * sizeof(JanetParseState));
    }

    return;

nomem:
    JANET_OUT_OF_MEMORY;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %rbx
movl 0x6c(%rdi), %eax
movl %eax, 0x6c(%rsi)
movq 0x60(%rdi), %rax
movq %rax, 0x60(%rsi)
movl 0x68(%rdi), %eax
movl %eax, 0x68(%rsi)
movq 0x50(%rdi), %rax
movq %rax, 0x50(%rsi)
movq 0x58(%rdi), %rax
movq %rax, 0x58(%rsi)
movq 0x8(%rdi), %rax
movq %rax, 0x8(%rsi)
movq 0x20(%rdi), %r15
movq %r15, 0x20(%rsi)
movq 0x40(%rdi), %r12
movq %r12, 0x40(%rsi)
movq 0x30(%rdi), %r13
movq %r13, 0x30(%rsi)
movq %r12, 0x48(%rsi)
movq %r13, 0x38(%rsi)
movq %r15, 0x28(%rsi)
andq $0x0, (%rsi)
xorps %xmm0, %xmm0
movups %xmm0, 0x10(%rsi)
testq %r12, %r12
je 0x36394
movq %r12, %rdi
callq 0x12760
movq %rax, 0x18(%r14)
testq %rax, %rax
je 0x36404
movq 0x18(%rbx), %rsi
movq %rax, %rdi
movq %r12, %rdx
callq 0x12670
testq %r15, %r15
je 0x363bb
shlq $0x3, %r15
movq %r15, %rdi
callq 0x12760
movq %rax, (%r14)
testq %rax, %rax
je 0x36404
movq (%rbx), %rsi
movq %rax, %rdi
movq %r15, %rdx
callq 0x12670
testq %r13, %r13
je 0x363f5
addq $0x10, %r14
imulq $0x28, %r13, %r15
movq %r15, %rdi
callq 0x12760
movq %rax, (%r14)
testq %rax, %rax
je 0x36404
movq 0x10(%rbx), %rsi
movq %rax, %rdi
movq %r15, %rdx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x12670
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x49be5(%rip), %rax     # 0x7fff0
movq (%rax), %rdi
leaq 0x16bef(%rip), %rsi     # 0x4d004
leaq 0x2d024(%rip), %rdx     # 0x63440
movl $0x35d, %ecx            # imm = 0x35D
xorl %eax, %eax
callq 0x125e0
pushq $0x1
popq %rdi
callq 0x12a60
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: parsermark
static int parsermark(void *p, size_t size) {
    size_t i;
    JanetParser *parser = (JanetParser *)p;
    (void) size;
    for (i = 0; i < parser->argcount; i++) {
        janet_mark(parser->args[i]);
    }
    if (parser->flag & JANET_PARSER_GENERATED_ERROR) {
        janet_mark(janet_wrap_string((const uint8_t *) parser->error));
    }
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rdi, %rbx
xorl %r14d, %r14d
cmpq 0x20(%rbx), %r14
jae 0x36471
movq (%rbx), %rax
movq (%rax,%r14,8), %rdi
callq 0x28843
incq %r14
jmp 0x3645a
testb $0x2, 0x6c(%rbx)
je 0x36492
movq 0x8(%rbx), %rdi
movabsq $-0x6000000000000, %rsi # imm = 0xFFFA000000000000
callq 0x4b366
movq %rax, %rdi
callq 0x28843
xorl %eax, %eax
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: stringchar
static int stringchar(JanetParser *p, JanetParseState *state, uint8_t c) {
    /* Enter escape */
    if (c == '\\') {
        state->consumer = escape1;
        return 1;
    }
    /* String end */
    if (c == '"') {
        return stringend(p, state);
    }
    /* normal char */
    if (c != '\n' && c != '\r')
        push_buf(p, c);
    return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpl $0xa, %edx
je 0x36eab
cmpl $0xd, %edx
je 0x36eab
cmpl $0x22, %edx
je 0x36e9c
cmpl $0x5c, %edx
jne 0x36ea3
leaq 0x387(%rip), %rax       # 0x3721d
movq %rax, 0x20(%rsi)
jmp 0x36eab
callq 0x372d6
jmp 0x36eab
movzbl %dl, %esi
callq 0x374c3
pushq $0x1
popq %rax
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: comment
static int comment(JanetParser *p, JanetParseState *state, uint8_t c) {
    (void) state;
    if (c == '\n') {
        p->statecount--;
        p->bufcount = 0;
    } else {
        push_buf(p, c);
    }
    return 1;
}

// Assembly:
cmpl $0xa, %edx
jne 0x36ec0
decq 0x30(%rdi)
andq $0x0, 0x40(%rdi)
jmp 0x36ecd
pushq %rbp
movq %rsp, %rbp
movzbl %dl, %esi
callq 0x374c3
popq %rbp
pushq $0x1
popq %rax
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: atsign
static int atsign(JanetParser *p, JanetParseState *state, uint8_t c) {
    (void) state;
    p->statecount--;
    switch (c) {
        case '{':
            pushstate(p, root, PFLAG_CONTAINER | PFLAG_CURLYBRACKETS | PFLAG_ATSYM);
            return 1;
        case '"':
            pushstate(p, stringchar, PFLAG_BUFFER | PFLAG_STRING);
            return 1;
        case '`':
            pushstate(p, longstring, PFLAG_BUFFER | PFLAG_LONGSTRING);
            return 1;
        case '[':
            pushstate(p, root, PFLAG_CONTAINER | PFLAG_SQRBRACKETS | PFLAG_ATSYM);
            return 1;
        case '(':
            pushstate(p, root, PFLAG_CONTAINER | PFLAG_PARENS | PFLAG_ATSYM);
            return 1;
        default:
            break;
    }
    pushstate(p, tokenchar, PFLAG_TOKEN);
    push_buf(p, '@'); /* Push the leading at-sign that was dropped */
    return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
decq 0x30(%rdi)
cmpl $0x22, %edx
je 0x36f5e
cmpl $0x28, %edx
je 0x36f08
cmpl $0x5b, %edx
je 0x36f2a
cmpl $0x60, %edx
je 0x36f19
cmpl $0x7b, %edx
jne 0x36f3b
leaq -0xfa7(%rip), %rsi      # 0x35f57
movq %rbx, %rdi
movl $0x11100, %edx          # imm = 0x11100
jmp 0x36f6d
leaq -0xfb8(%rip), %rsi      # 0x35f57
movq %rbx, %rdi
movl $0x10500, %edx          # imm = 0x10500
jmp 0x36f6d
leaq 0x5c(%rip), %rsi        # 0x36f7c
movq %rbx, %rdi
movl $0x4200, %edx           # imm = 0x4200
jmp 0x36f6d
leaq -0xfda(%rip), %rsi      # 0x35f57
movq %rbx, %rdi
movl $0x10900, %edx          # imm = 0x10900
jmp 0x36f6d
leaq -0x7a3(%rip), %rsi      # 0x3679f
movq %rbx, %rdi
movl $0x40000, %edx          # imm = 0x40000
callq 0x35ea3
pushq $0x40
popq %rsi
movq %rbx, %rdi
callq 0x374c3
xorl %eax, %eax
jmp 0x36f75
leaq -0xee(%rip), %rsi       # 0x36e77
movq %rbx, %rdi
movl $0x2200, %edx           # imm = 0x2200
callq 0x35ea3
pushq $0x1
popq %rax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: longstring
static int longstring(JanetParser *p, JanetParseState *state, uint8_t c) {
    if (state->flags & PFLAG_INSTRING) {
        /* We are inside the long string */
        if (c == '`') {
            state->flags |= PFLAG_END_CANDIDATE;
            state->flags &= ~PFLAG_INSTRING;
            state->counter = 1; /* Use counter to keep track of number of '=' seen */
            return 1;
        }
        push_buf(p, c);
        return 1;
    } else if (state->flags & PFLAG_END_CANDIDATE) {
        int i;
        /* We are checking a potential end of the string */
        if (state->counter == state->argn) {
            stringend(p, state);
            return 0;
        }
        if (c == '`' && state->counter < state->argn) {
            state->counter++;
            return 1;
        }
        /* Failed end candidate */
        for (i = 0; i < state->counter; i++) {
            push_buf(p, '`');
        }
        push_buf(p, c);
        state->counter = 0;
        state->flags &= ~PFLAG_END_CANDIDATE;
        state->flags |= PFLAG_INSTRING;
        return 1;
    } else {
        /* We are at beginning of string */
        state->argn++;
        if (c != '`') {
            state->flags |= PFLAG_INSTRING;
            push_buf(p, c);
        }
        return 1;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %r15d
movq %rsi, %rbx
movq %rdi, %r14
movl 0x8(%rsi), %eax
btl $0x14, %eax
jb 0x36fc5
btl $0x15, %eax
jb 0x36fe0
incl 0x4(%rbx)
pushq $0x1
popq %r12
cmpb $0x60, %r15b
je 0x37009
orl $0x100000, %eax         # imm = 0x100000
movl %eax, 0x8(%rbx)
movzbl %r15b, %esi
movq %r14, %rdi
callq 0x374c3
jmp 0x37009
cmpb $0x60, %r15b
jne 0x36ff9
andl $0xffcfffff, %eax       # imm = 0xFFCFFFFF
orl $0x200000, %eax         # imm = 0x200000
movl %eax, 0x8(%rbx)
movl $0x1, (%rbx)
jmp 0x37005
movl (%rbx), %eax
movl 0x4(%rbx), %ecx
cmpl %ecx, %eax
jne 0x3701b
movq %r14, %rdi
movq %rbx, %rsi
callq 0x372d6
xorl %r12d, %r12d
jmp 0x37009
movzbl %r15b, %esi
movq %r14, %rdi
callq 0x374c3
pushq $0x1
popq %r12
movl %r12d, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
cmpb $0x60, %r15b
sete %dl
cmpl %ecx, %eax
setl %cl
testb %cl, %dl
je 0x37031
incl %eax
movl %eax, (%rbx)
jmp 0x37005
xorl %r13d, %r13d
pushq $0x60
popq %r12
cmpl %eax, %r13d
jge 0x3704f
movq %r14, %rdi
movl %r12d, %esi
callq 0x374c3
incl %r13d
movl (%rbx), %eax
jmp 0x37038
movzbl %r15b, %esi
movq %r14, %rdi
callq 0x374c3
andl $0x0, (%rbx)
movl $0xffcfffff, %eax       # imm = 0xFFCFFFFF
andl 0x8(%rbx), %eax
orl $0x100000, %eax         # imm = 0x100000
movl %eax, 0x8(%rbx)
jmp 0x37005
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: escape1
static int escape1(JanetParser *p, JanetParseState *state, uint8_t c) {
    int e = checkescape(c);
    if (e < 0) {
        p->error = "invalid string escape sequence";
        return 1;
    }
    if (c == 'x') {
        state->counter = 2;
        state->argn = 0;
        state->consumer = escapeh;
    } else if (c == 'u' || c == 'U') {
        state->counter = c == 'u' ? 4 : 6;
        state->argn = 0;
        state->consumer = escapeu;
    } else {
        push_buf(p, (uint8_t) e);
        state->consumer = stringchar;
    }
    return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rsi, %rbx
leal -0x61(%rdx), %eax
cmpl $0x19, %eax
ja 0x37242
leaq 0x2b4cf(%rip), %rcx     # 0x62704
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movb $0x7, %dl
jmp 0x372a9
cmpl $0x22, %edx
je 0x372a9
cmpl $0x27, %edx
je 0x372a9
cmpl $0x30, %edx
je 0x3726d
cmpl $0x3f, %edx
je 0x372a9
cmpl $0x55, %edx
je 0x37271
cmpl $0x5c, %edx
je 0x372a9
leaq 0x2c414(%rip), %rax     # 0x6367b
movq %rax, 0x8(%rdi)
jmp 0x372bc
xorl %edx, %edx
jmp 0x372a9
xorl %eax, %eax
cmpb $0x75, %dl
setne %al
leal 0x4(,%rax,2), %eax
movl %eax, (%rbx)
andl $0x0, 0x4(%rbx)
leaq 0x319(%rip), %rax       # 0x375a6
jmp 0x372b8
movb $0xc, %dl
jmp 0x372a9
movb $0x9, %dl
jmp 0x372a9
movb $0xd, %dl
jmp 0x372a9
movb $0x8, %dl
jmp 0x372a9
movb $0x1b, %dl
jmp 0x372a9
movb $0xb, %dl
jmp 0x372a9
movb $0xa, %dl
movzbl %dl, %esi
callq 0x374c3
leaq -0x441(%rip), %rax      # 0x36e77
movq %rax, 0x20(%rbx)
pushq $0x1
popq %rax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
movq $0x2, (%rbx)
leaq 0x27c(%rip), %rax       # 0x37550
jmp 0x372b8
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: escapeh
static int escapeh(JanetParser *p, JanetParseState *state, uint8_t c) {
    int digit = to_hex(c);
    if (digit < 0) {
        p->error = "invalid hex digit in hex escape";
        return 1;
    }
    state->argn = (state->argn << 4) + digit;
    state->counter--;
    if (!state->counter) {
        push_buf(p, (uint8_t)(state->argn & 0xFF));
        state->argn = 0;
        state->consumer = stringchar;
    }
    return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rsi, %rbx
movq %rdi, %r14
movl %edx, %edi
callq 0x3768a
testl %eax, %eax
js 0x37593
movl 0x4(%rbx), %ecx
shll $0x4, %ecx
addl %eax, %ecx
movl %ecx, 0x4(%rbx)
decl (%rbx)
jne 0x3759e
movzbl %cl, %esi
movq %r14, %rdi
callq 0x374c3
andl $0x0, 0x4(%rbx)
leaq -0x716(%rip), %rax      # 0x36e77
movq %rax, 0x20(%rbx)
jmp 0x3759e
leaq 0x2c100(%rip), %rax     # 0x6369a
movq %rax, 0x8(%r14)
pushq $0x1
popq %rax
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: escapeu
static int escapeu(JanetParser *p, JanetParseState *state, uint8_t c) {
    int digit = to_hex(c);
    if (digit < 0) {
        p->error = "invalid hex digit in unicode escape";
        return 1;
    }
    state->argn = (state->argn << 4) + digit;
    state->counter--;
    if (!state->counter) {
        if (state->argn > 0x10FFFF) {
            p->error = "invalid unicode codepoint";
            return 1;
        }
        write_codepoint(p, state->argn);
        state->argn = 0;
        state->consumer = stringchar;
    }
    return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
movl %edx, %edi
callq 0x3768a
testl %eax, %eax
js 0x375e6
movl 0x4(%rbx), %r15d
shll $0x4, %r15d
addl %eax, %r15d
movl %r15d, 0x4(%rbx)
decl (%rbx)
jne 0x375f1
cmpl $0x110000, %r15d        # imm = 0x110000
jl 0x375ff
leaq 0x2c0fa(%rip), %rax     # 0x636de
jmp 0x375ed
leaq 0x2c0cd(%rip), %rax     # 0x636ba
movq %rax, 0x8(%r14)
pushq $0x1
popq %rax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
cmpl $0x7f, %r15d
jle 0x3766a
movl %r15d, %eax
cmpl $0x7ff, %r15d           # imm = 0x7FF
ja 0x37618
shrl $0x6, %eax
orb $-0x40, %al
jmp 0x37657
cmpl $0xffff, %r15d          # imm = 0xFFFF
ja 0x37628
shrl $0xc, %eax
orb $-0x20, %al
jmp 0x37642
shrl $0x12, %eax
orb $-0x10, %al
movzbl %al, %esi
movq %r14, %rdi
callq 0x374c3
movl %r15d, %eax
shrl $0xc, %eax
andb $0x3f, %al
orb $-0x80, %al
movzbl %al, %esi
movq %r14, %rdi
callq 0x374c3
movl %r15d, %eax
shrl $0x6, %eax
andb $0x3f, %al
orb $-0x80, %al
movzbl %al, %esi
movq %r14, %rdi
callq 0x374c3
andb $0x3f, %r15b
orb $-0x80, %r15b
movzbl %r15b, %esi
movq %r14, %rdi
callq 0x374c3
andl $0x0, 0x4(%rbx)
leaq -0x80a(%rip), %rax      # 0x36e77
movq %rax, 0x20(%rbx)
jmp 0x375f1
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: to_hex
static int to_hex(uint8_t c) {
    if (c >= '0' && c <= '9') {
        return c - '0';
    } else if (c >= 'A' && c <= 'F') {
        return 10 + c - 'A';
    } else if (c >= 'a' && c <= 'f') {
        return 10 + c - 'a';
    } else {
        return -1;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
movl %edi, %eax
leal -0x30(%rax), %ecx
cmpb $0x9, %cl
ja 0x3769d
addl $-0x30, %eax
jmp 0x376bd
leal -0x41(%rax), %ecx
cmpb $0x5, %cl
ja 0x376aa
addl $-0x37, %eax
jmp 0x376bd
leal -0x61(%rax), %ecx
addl $-0x57, %eax
cmpb $0x6, %cl
movl $0xffffffff, %ecx       # imm = 0xFFFFFFFF
cmovbl %eax, %ecx
movl %ecx, %eax
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: check_str_const
static int check_str_const(const char *cstr, const uint8_t *str, int32_t len) {
    int32_t index;
    for (index = 0; index < len; index++) {
        uint8_t c = str[index];
        uint8_t k = ((const uint8_t *)cstr)[index];
        if (c < k) return -1;
        if (c > k) return 1;
        if (k == '\0') break;
    }
    return (cstr[index] == '\0') ? 0 : -1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
xorl %ecx, %ecx
testl %edx, %edx
cmovlel %ecx, %edx
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movl $0x1, %r8d
cmpq %rcx, %rdx
je 0x376f8
movb (%rdi,%rcx), %r9b
cmpb %r9b, (%rsi,%rcx)
jb 0x376ff
ja 0x376f0
testb %r9b, %r9b
je 0x376f5
incq %rcx
jmp 0x376d5
movl %r8d, %eax
jmp 0x376ff
movq %rcx, %rdx
xorl %eax, %eax
cmpb (%rdi,%rdx), %al
sbbl %eax, %eax
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/parse.c
// Function: parser_state_delimiters
static Janet parser_state_delimiters(const JanetParser *_p) {
    JanetParser *p = (JanetParser *)_p;
    size_t i;
    const uint8_t *str;
    size_t oldcount;
    oldcount = p->bufcount;
    for (i = 0; i < p->statecount; i++) {
        JanetParseState *s = p->states + i;
        if (s->flags & PFLAG_PARENS) {
            push_buf(p, '(');
        } else if (s->flags & PFLAG_SQRBRACKETS) {
            push_buf(p, '[');
        } else if (s->flags & PFLAG_CURLYBRACKETS) {
            push_buf(p, '{');
        } else if (s->flags & PFLAG_STRING) {
            push_buf(p, '"');
        } else if (s->flags & PFLAG_LONGSTRING) {
            int32_t i;
            for (i = 0; i < s->argn; i++) {
                push_buf(p, '`');
            }
        }
    }
    /* avoid ptr arithmetic on NULL */
    str = janet_string(oldcount ? p->buf + oldcount : p->buf, (int32_t)(p->bufcount - oldcount));
    p->bufcount = oldcount;
    return janet_wrap_string(str);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x40(%rdi), %rax
movq %rax, -0x30(%rbp)
xorl %r12d, %r12d
pushq $0x60
popq %r14
cmpq 0x30(%rbx), %r12
jae 0x37b07
movq 0x10(%rbx), %r13
imulq $0x28, %r12, %rax
movl 0x8(%r13,%rax), %ecx
movb $0x28, %dl
btl $0xa, %ecx
jb 0x37af7
movb $0x5b, %dl
btl $0xb, %ecx
jb 0x37af7
movb $0x7b, %dl
btl $0xc, %ecx
jb 0x37af7
movb $0x22, %dl
btl $0xd, %ecx
jb 0x37af7
btl $0xe, %ecx
jae 0x37b02
addq %rax, %r13
xorl %r15d, %r15d
cmpl 0x4(%r13), %r15d
jge 0x37b02
movq %rbx, %rdi
movl %r14d, %esi
callq 0x374c3
incl %r15d
jmp 0x37ae1
movzbl %dl, %esi
movq %rbx, %rdi
callq 0x374c3
incq %r12
jmp 0x37aa2
movq 0x18(%rbx), %rdi
movq -0x30(%rbp), %r14
addq %r14, %rdi
movl 0x40(%rbx), %esi
subl %r14d, %esi
callq 0x41116
movq %r14, 0x40(%rbx)
movabsq $-0x6000000000000, %rsi # imm = 0xFFFA000000000000
movq %rax, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x4b366
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: peg_mark
static int peg_mark(void *p, size_t size) {
    (void) size;
    JanetPeg *peg = (JanetPeg *)p;
    if (NULL != peg->constants)
        for (uint32_t i = 0; i < peg->num_constants; i++)
            janet_mark(peg->constants[i]);
    return 0;
}

// Assembly:
cmpq $0x0, 0x8(%rdi)
je 0x37b76
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rdi, %rbx
xorl %r14d, %r14d
movl 0x18(%rbx), %eax
cmpq %rax, %r14
jae 0x37b72
movq 0x8(%rbx), %rax
movq (%rax,%r14,8), %rdi
callq 0x28843
incq %r14
jmp 0x37b58
popq %rbx
popq %r14
popq %rbp
xorl %eax, %eax
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: peg_marshal
static void peg_marshal(void *p, JanetMarshalContext *ctx) {
    JanetPeg *peg = (JanetPeg *)p;
    janet_marshal_size(ctx, peg->bytecode_len);
    janet_marshal_int(ctx, (int32_t)peg->num_constants);
    janet_marshal_abstract(ctx, p);
    for (size_t i = 0; i < peg->bytecode_len; i++)
        janet_marshal_int(ctx, (int32_t) peg->bytecode[i]);
    for (uint32_t j = 0; j < peg->num_constants; j++)
        janet_marshal_janet(ctx, peg->constants[j]);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
movq 0x10(%rdi), %rsi
movq %rbx, %rdi
callq 0x2cc7c
movl 0x18(%r14), %esi
movq %rbx, %rdi
callq 0x2ccce
movq %rbx, %rdi
movq %r14, %rsi
callq 0x2d938
xorl %r15d, %r15d
cmpq 0x10(%r14), %r15
jae 0x37c03
movq (%r14), %rax
movl (%rax,%r15,4), %esi
movq %rbx, %rdi
callq 0x2ccce
incq %r15
jmp 0x37be9
xorl %r15d, %r15d
movl 0x18(%r14), %eax
cmpq %rax, %r15
jae 0x37c24
movq 0x8(%r14), %rax
movq (%rax,%r15,8), %rsi
movq %rbx, %rdi
callq 0x2cdc9
incq %r15
jmp 0x37c06
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/peg.c
// Function: compile_peg
static JanetPeg *compile_peg(Janet x) {
    Builder builder;
    builder.grammar = janet_table(0);
    builder.default_grammar = NULL;
    {
        Janet default_grammarv = janet_dyn("peg-grammar");
        if (janet_checktype(default_grammarv, JANET_TABLE)) {
            builder.default_grammar = janet_unwrap_table(default_grammarv);
        }
    }
    builder.tags = janet_table(0);
    builder.constants = NULL;
    builder.bytecode = NULL;
    builder.nexttag = 1;
    builder.form = x;
    builder.depth = JANET_RECURSION_GUARD;
    builder.has_backref = 0;
    peg_compile1(&builder, x);
    JanetPeg *peg = make_peg(&builder);
    builder_cleanup(&builder);
    return peg;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x48, %rsp
movq %rdi, %r14
xorl %edi, %edi
callq 0x43b8a
movq %rax, -0x68(%rbp)
andq $0x0, -0x60(%rbp)
leaq 0x2bfc7(%rip), %rdi     # 0x63f0d
callq 0x1839c
movq %rax, %rcx
shrq $0x2f, %rcx
cmpl $0x1fff9, %ecx          # imm = 0x1FFF9
jne 0x37f66
movq %rax, %rdi
callq 0x4b1f1
movq %rax, -0x60(%rbp)
xorl %ebx, %ebx
xorl %edi, %edi
callq 0x43b8a
leaq -0x68(%rbp), %r15
movq %rax, 0x10(%r15)
xorps %xmm0, %xmm0
movups %xmm0, 0x18(%r15)
movq %r14, 0x28(%r15)
movabsq $0x100000400, %rax      # imm = 0x100000400
movq %rax, 0x30(%r15)
andl $0x0, 0x38(%r15)
movq %r15, %rdi
movq %r14, %rsi
callq 0x39872
movq 0x20(%r15), %rax
testq %rax, %rax
je 0x37fb2
movslq -0x4(%rax), %rbx
shlq $0x2, %rbx
leaq 0x27(%rbx), %r13
andq $-0x8, %r13
movq -0x50(%rbp), %rax
xorl %r12d, %r12d
testq %rax, %rax
je 0x37fd0
movslq -0x4(%rax), %r15
shlq $0x3, %r15
jmp 0x37fd3
xorl %r15d, %r15d
leaq (%r15,%r13), %rsi
leaq 0x46662(%rip), %rdi     # 0x7e640
callq 0x12d92
movq %rax, %r14
leaq 0x20(%rax), %rdi
movq %rdi, (%rax)
addq %rax, %r13
movq %r13, 0x8(%rax)
movq -0x50(%rbp), %rax
testq %rax, %rax
je 0x38001
movl -0x4(%rax), %r12d
movl %r12d, 0x18(%r14)
movq -0x48(%rbp), %rsi
movq %rbx, %rdx
callq 0x44ae2
movq 0x8(%r14), %rdi
movq -0x50(%rbp), %rsi
movq %r15, %rdx
callq 0x44ae2
movq -0x48(%rbp), %rax
testq %rax, %rax
je 0x38030
movslq -0x4(%rax), %rax
jmp 0x38032
xorl %eax, %eax
movq %rax, 0x10(%r14)
leaq -0x68(%rbp), %rdi
movl 0x38(%rdi), %eax
movl %eax, 0x1c(%r14)
callq 0x39d0d
movq %r14, %rax
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/peg.c
// Function: cfun_peg_replace_generic
static Janet cfun_peg_replace_generic(int32_t argc, Janet *argv, int only_one) {
    PegCall c = peg_cfun_init(argc, argv, 1);
    JanetBuffer *ret = janet_buffer(0);
    int32_t trail = 0;
    for (int32_t i = c.start; i < c.bytes.len;) {
        peg_call_reset(&c);
        const uint8_t *result = peg_rule(&c.s, c.s.bytecode, c.bytes.bytes + i);
        if (NULL != result) {
            if (trail < i) {
                janet_buffer_push_bytes(ret, c.bytes.bytes + trail, (i - trail));
                trail = i;
            }
            int32_t nexti = (int32_t)(result - c.bytes.bytes);
            JanetByteView subst = janet_text_substitution(&c.subst, c.bytes.bytes + i, nexti - i, c.s.captures);
            janet_buffer_push_bytes(ret, subst.bytes, subst.len);
            trail = nexti;
            if (nexti == i) nexti++;
            i = nexti;
            if (only_one) break;
        } else {
            i++;
        }
    }
    if (trail < c.bytes.len) {
        janet_buffer_push_bytes(ret, c.bytes.bytes + trail, (c.bytes.len - trail));
    }
    return janet_wrap_buffer(ret);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xa8, %rsp
movl %edx, -0x2c(%rbp)
movq %rsi, %rdx
movl %edi, %esi
leaq -0xc8(%rbp), %r15
pushq $0x1
popq %rcx
movq %r15, %rdi
callq 0x380c3
xorl %r12d, %r12d
xorl %edi, %edi
callq 0x15f78
movq %rax, %rbx
movl 0x90(%r15), %r13d
leaq -0xc0(%rbp), %r15
movslq %r13d, %r14
movl -0x48(%rbp), %edx
cmpl %edx, %r14d
jge 0x397da
movl $0x400, -0x64(%rbp)     # imm = 0x400
movq -0x98(%rbp), %rax
andl $0x0, 0x10(%rax)
movq -0x80(%rbp), %rax
andl $0x0, 0x10(%rax)
movq -0x90(%rbp), %rax
andl $0x0, 0x10(%rax)
movq -0x88(%rbp), %rax
andl $0x0, 0x10(%rax)
movq -0xa8(%rbp), %rsi
movq -0x50(%rbp), %rdx
addq %r14, %rdx
movq %r15, %rdi
callq 0x38243
testq %rax, %rax
jne 0x39778
incq %r14
jmp 0x3971c
movq %rax, %r13
cmpl %r14d, %r12d
jge 0x39795
movslq %r12d, %rsi
addq -0x50(%rbp), %rsi
movl %r14d, %edx
subl %r12d, %edx
movq %rbx, %rdi
callq 0x16172
movq -0x98(%rbp), %rcx
movq -0x50(%rbp), %rsi
movl %r13d, %r12d
subl %esi, %r12d
addq %r14, %rsi
xorl %r13d, %r13d
movl %r12d, %edx
subl %r14d, %edx
sete %r13b
leaq -0x40(%rbp), %rdi
callq 0x459ec
movq %rbx, %rdi
movq %rax, %rsi
callq 0x16172
addl %r12d, %r13d
cmpl $0x0, -0x2c(%rbp)
je 0x39719
movl -0x48(%rbp), %edx
subl %r12d, %edx
jle 0x397ee
movslq %r12d, %rsi
addq -0x50(%rbp), %rsi
movq %rbx, %rdi
callq 0x16172
movabsq $-0x2800000000000, %rsi # imm = 0xFFFD800000000000
movq %rbx, %rdi
callq 0x4b3ab
addq $0xa8, %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/peg.c
// Function: janet_lib_peg
void janet_lib_peg(JanetTable *env) {
    JanetRegExt cfuns[] = {
        JANET_CORE_REG("peg/compile", cfun_peg_compile),
        JANET_CORE_REG("peg/match", cfun_peg_match),
        JANET_CORE_REG("peg/find", cfun_peg_find),
        JANET_CORE_REG("peg/find-all", cfun_peg_find_all),
        JANET_CORE_REG("peg/replace", cfun_peg_replace),
        JANET_CORE_REG("peg/replace-all", cfun_peg_replace_all),
        JANET_REG_END
    };
    janet_core_cfuns_ext(env, NULL, cfuns);
    janet_register_abstract_type(&janet_peg_type);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
subq $0x120, %rsp            # imm = 0x120
movq %rdi, %rbx
leaq 0x44e77(%rip), %rsi     # 0x7e6b0
leaq -0x130(%rbp), %r14
movl $0x118, %edx            # imm = 0x118
movq %r14, %rdi
callq 0x12670
movq %rbx, %rdi
xorl %esi, %esi
movq %r14, %rdx
callq 0x452db
leaq 0x44ddf(%rip), %rdi     # 0x7e640
callq 0x455ed
addq $0x120, %rsp            # imm = 0x120
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: reserve
static Reserve reserve(Builder *b, int32_t size) {
    Reserve r;
    r.index = janet_v_count(b->bytecode);
    r.builder = b;
    r.size = size;
    for (int32_t i = 0; i < size; i++)
        janet_v_push(b->bytecode, 0);
    return r;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %esi, %r14d
movq %rdi, %rbx
movq 0x20(%rdi), %rax
xorl %r15d, %r15d
testq %rax, %rax
je 0x39d97
movl -0x4(%rax), %ecx
movq %rcx, -0x30(%rbp)
jmp 0x39d9f
movq $0x0, -0x30(%rbp)
testl %r14d, %r14d
cmovgl %r14d, %r15d
pushq $0x1
popq %r12
pushq $0x4
popq %r13
subl $0x1, %r15d
jb 0x39de8
testq %rax, %rax
je 0x39dc4
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
cmpl -0x8(%rax), %edx
jl 0x39ddc
movq %rax, %rdi
movl %r12d, %esi
movl %r13d, %edx
callq 0x4799c
movq %rax, 0x20(%rbx)
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
movl %edx, -0x4(%rax)
movslq %ecx, %rcx
andl $0x0, (%rax,%rcx,4)
jmp 0x39dae
shlq $0x20, %r14
movq -0x30(%rbp), %rdx
orq %r14, %rdx
movq %rbx, %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/peg.c
// Function: emit_bytes
static void emit_bytes(Builder *b, uint32_t op, int32_t len, const uint8_t *bytes) {
    uint32_t next_rule = janet_v_count(b->bytecode);
    janet_v_push(b->bytecode, op);
    janet_v_push(b->bytecode, len);
    int32_t words = ((len + 3) >> 2);
    for (int32_t i = 0; i < words; i++)
        janet_v_push(b->bytecode, 0);
    memcpy(b->bytecode + next_rule + 2, bytes, len);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdx, -0x38(%rbp)
movl %esi, %r14d
movq %rdi, %r15
movq 0x20(%rdi), %rax
testq %rax, %rax
je 0x39e9a
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
cmpl -0x8(%rax), %edx
jge 0x39e9c
movq %rcx, -0x30(%rbp)
jmp 0x39eb8
xorl %ecx, %ecx
movq %rcx, -0x30(%rbp)
pushq $0x1
popq %rsi
pushq $0x4
popq %rdx
movq %rax, %rdi
callq 0x4799c
movq %rax, 0x20(%r15)
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
movl %edx, -0x4(%rax)
movslq %ecx, %rcx
andl $0x0, (%rax,%rcx,4)
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
cmpl -0x8(%rax), %edx
jl 0x39ee5
pushq $0x1
popq %rsi
pushq $0x4
popq %rdx
movq %rax, %rdi
callq 0x4799c
movq %rax, 0x20(%r15)
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
movl %edx, -0x4(%rax)
movslq %ecx, %rcx
movl %r14d, (%rax,%rcx,4)
leal 0x3(%r14), %ecx
sarl $0x2, %ecx
xorl %ebx, %ebx
testl %ecx, %ecx
cmovgl %ecx, %ebx
pushq $0x1
popq %r12
pushq $0x4
popq %r13
subl $0x1, %ebx
jb 0x39f39
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
cmpl -0x8(%rax), %edx
jl 0x39f2d
movq %rax, %rdi
movl %r12d, %esi
movl %r13d, %edx
callq 0x4799c
movq %rax, 0x20(%r15)
movl -0x4(%rax), %ecx
leal 0x1(%rcx), %edx
movl %edx, -0x4(%rax)
movslq %ecx, %rcx
andl $0x0, (%rax,%rcx,4)
jmp 0x39f05
movq -0x30(%rbp), %rcx
leaq (%rax,%rcx,4), %rdi
addq $0x8, %rdi
movslq %r14d, %rdx
movq -0x38(%rbp), %rsi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x12670
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_repeat
static void spec_repeat(Builder *b, int32_t argc, const Janet *argv) {
    peg_fixarity(b, argc, 2);
    Reserve r = reserve(b, 4);
    int32_t n = peg_getnat(b, argv[0]);
    uint32_t subrule = peg_compile1(b, argv[1]);
    emit_3(r, RULE_BETWEEN, n, n, subrule);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %rbx
movq %rdi, %r14
pushq $0x2
popq %rdx
callq 0x3a02e
pushq $0x4
popq %rsi
movq %r14, %rdi
callq 0x39d6e
movq %rax, %r15
movq %rdx, %r12
movq (%rbx), %rsi
movq %r14, %rdi
callq 0x3a071
movl %eax, %r13d
movq 0x8(%rbx), %rsi
movq %r14, %rdi
callq 0x39872
pushq $0xb
popq %rdx
movq %r15, %rdi
movq %r12, %rsi
movl %r13d, %ecx
movl %r13d, %r8d
movl %eax, %r9d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3a0a8
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: peg_getnat
static int32_t peg_getnat(Builder *b, Janet x) {
    int32_t i = peg_getinteger(b, x);
    if (i < 0)
        peg_panicf(b, "expected non-negative integer, got %v", x);
    return i;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rsi, %r14
movq %rdi, %rbx
callq 0x39e22
testl %eax, %eax
js 0x3a08c
popq %rbx
popq %r14
popq %rbp
retq
leaq 0x29fe6(%rip), %rdi     # 0x64079
movq %r14, %rsi
xorl %eax, %eax
callq 0x3c0ed
movq %rbx, %rdi
movq %rax, %rsi
callq 0x39d47
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_reference
static void spec_reference(Builder *b, int32_t argc, const Janet *argv) {
    peg_arity(b, argc, 1, 2);
    Reserve r = reserve(b, 3);
    uint32_t search = emit_tag(b, argv[0]);
    uint32_t tag = (argc == 2) ? emit_tag(b, argv[1]) : 0;
    b->has_backref = 1;
    emit_2(r, RULE_GETTAG, search, tag);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %r14
movl %esi, %r13d
movq %rdi, %rbx
pushq $0x1
popq %rdx
pushq $0x2
popq %rcx
callq 0x3acb8
pushq $0x3
popq %rsi
movq %rbx, %rdi
callq 0x39d6e
movq %rax, -0x30(%rbp)
movq %rdx, %r12
movq (%r14), %rsi
movq %rbx, %rdi
callq 0x3ad06
movl %eax, %r15d
xorl %r8d, %r8d
cmpl $0x2, %r13d
jne 0x3a174
movq 0x8(%r14), %rsi
movq %rbx, %rdi
callq 0x3ad06
movl %eax, %r8d
movl $0x1, 0x38(%rbx)
pushq $0xc
popq %rdx
movq -0x30(%rbp), %rdi
movq %r12, %rsi
movl %r15d, %ecx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3ae38
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_replace
static void spec_replace(Builder *b, int32_t argc, const Janet *argv) {
    peg_arity(b, argc, 2, 3);
    Reserve r = reserve(b, 4);
    uint32_t subrule = peg_compile1(b, argv[0]);
    uint32_t constant = emit_constant(b, argv[1]);
    uint32_t tag = (argc == 3) ? emit_tag(b, argv[2]) : 0;
    emit_3(r, RULE_REPLACE, subrule, constant, tag);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdx, %r14
movl %esi, %r13d
movq %rdi, %rbx
pushq $0x2
popq %rdx
pushq $0x3
popq %rcx
callq 0x3acb8
pushq $0x4
popq %rsi
movq %rbx, %rdi
callq 0x39d6e
movq %rax, -0x38(%rbp)
movq %rdx, -0x30(%rbp)
movq (%r14), %rsi
movq %rbx, %rdi
callq 0x39872
movl %eax, %r15d
movq 0x8(%r14), %rsi
movq %rbx, %rdi
callq 0x3af6c
movl %eax, %r12d
xorl %r9d, %r9d
cmpl $0x3, %r13d
jne 0x3a208
movq 0x10(%r14), %rsi
movq %rbx, %rdi
callq 0x3ad06
movl %eax, %r9d
pushq $0x13
popq %rdx
movq -0x38(%rbp), %rdi
movq -0x30(%rbp), %rsi
movl %r15d, %ecx
movl %r12d, %r8d
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3a0a8
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_look
static void spec_look(Builder *b, int32_t argc, const Janet *argv) {
    peg_arity(b, argc, 1, 2);
    Reserve r = reserve(b, 3);
    int32_t rulearg = argc == 2 ? 1 : 0;
    int32_t offset = argc == 2 ? peg_getinteger(b, argv[0]) : 0;
    uint32_t subrule = peg_compile1(b, argv[rulearg]);
    emit_2(r, RULE_LOOK, (uint32_t) offset, subrule);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %r14
movl %esi, %r15d
movq %rdi, %rbx
pushq $0x1
popq %rdx
pushq $0x2
popq %rcx
callq 0x3acb8
pushq $0x3
popq %rsi
movq %rbx, %rdi
callq 0x39d6e
movq %rax, -0x30(%rbp)
movq %rdx, %r13
xorl %r12d, %r12d
cmpl $0x2, %r15d
jne 0x3a286
movq (%r14), %rsi
movq %rbx, %rdi
callq 0x39e22
movl %eax, %r12d
xorl %eax, %eax
cmpl $0x2, %r15d
sete %al
movq (%r14,%rax,8), %rsi
movq %rbx, %rdi
callq 0x39872
pushq $0x5
popq %rdx
movq -0x30(%rbp), %rdi
movq %r13, %rsi
movl %r12d, %ecx
movl %eax, %r8d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3ae38
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_opt
static void spec_opt(Builder *b, int32_t argc, const Janet *argv) {
    peg_fixarity(b, argc, 1);
    Reserve r = reserve(b, 4);
    uint32_t subrule = peg_compile1(b, argv[0]);
    emit_3(r, RULE_BETWEEN, 0, 1, subrule);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %rbx
movq %rdi, %r14
pushq $0x1
popq %r15
movl %r15d, %edx
callq 0x3a02e
pushq $0x4
popq %rsi
movq %r14, %rdi
callq 0x39d6e
movq %rax, %r12
movq %rdx, %r13
movq (%rbx), %rsi
movq %r14, %rdi
callq 0x39872
pushq $0xb
popq %rdx
movq %r12, %rdi
movq %r13, %rsi
xorl %ecx, %ecx
movl %r15d, %r8d
movl %eax, %r9d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3a0a8
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_argument
static void spec_argument(Builder *b, int32_t argc, const Janet *argv) {
    peg_arity(b, argc, 1, 2);
    Reserve r = reserve(b, 3);
    uint32_t tag = (argc == 2) ? emit_tag(b, argv[1]) : 0;
    int32_t index = peg_getnat(b, argv[0]);
    emit_2(r, RULE_ARGUMENT, index, tag);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %r14
movl %esi, %r15d
movq %rdi, %rbx
pushq $0x1
popq %rdx
pushq $0x2
popq %rcx
callq 0x3acb8
pushq $0x3
popq %rsi
movq %rbx, %rdi
callq 0x39d6e
movq %rax, -0x30(%rbp)
movq %rdx, %r12
xorl %r13d, %r13d
cmpl $0x2, %r15d
jne 0x3a376
movq 0x8(%r14), %rsi
movq %rbx, %rdi
callq 0x3ad06
movl %eax, %r13d
movq (%r14), %rsi
movq %rbx, %rdi
callq 0x3a071
pushq $0xf
popq %rdx
movq -0x30(%rbp), %rdi
movq %r12, %rsi
movl %eax, %ecx
movl %r13d, %r8d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3ae38
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_atleast
static void spec_atleast(Builder *b, int32_t argc, const Janet *argv) {
    peg_fixarity(b, argc, 2);
    Reserve r = reserve(b, 4);
    int32_t n = peg_getnat(b, argv[0]);
    uint32_t subrule = peg_compile1(b, argv[1]);
    emit_3(r, RULE_BETWEEN, n, UINT32_MAX, subrule);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %rbx
movq %rdi, %r14
pushq $0x2
popq %rdx
callq 0x3a02e
pushq $0x4
popq %rsi
movq %r14, %rdi
callq 0x39d6e
movq %rax, %r15
movq %rdx, %r12
movq (%rbx), %rsi
movq %r14, %rdi
callq 0x3a071
movl %eax, %r13d
movq 0x8(%rbx), %rsi
movq %r14, %rdi
callq 0x39872
pushq $0xb
popq %rdx
pushq $-0x1
popq %r8
movq %r15, %rdi
movq %r12, %rsi
movl %r13d, %ecx
movl %eax, %r9d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3a0a8
// File: /workspace/github_c_makefile_star2_O2/janet-lang[P]janet/src/core/peg.c
// Function: spec_between
static void spec_between(Builder *b, int32_t argc, const Janet *argv) {
    peg_fixarity(b, argc, 3);
    Reserve r = reserve(b, 4);
    int32_t lo = peg_getnat(b, argv[0]);
    int32_t hi = peg_getnat(b, argv[1]);
    uint32_t subrule = peg_compile1(b, argv[2]);
    emit_3(r, RULE_BETWEEN, lo, hi, subrule);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %r14
movq %rdi, %rbx
pushq $0x3
popq %rdx
callq 0x3a02e
pushq $0x4
popq %rsi
movq %rbx, %rdi
callq 0x39d6e
movq %rax, -0x30(%rbp)
movq %rdx, %r12
movq (%r14), %rsi
movq %rbx, %rdi
callq 0x3a071
movl %eax, %r13d
movq 0x8(%r14), %rsi
movq %rbx, %rdi
callq 0x3a071
movl %eax, %r15d
movq 0x10(%r14), %rsi
movq %rbx, %rdi
callq 0x39872
pushq $0xb
popq %rdx
movq -0x30(%rbp), %rdi
movq %r12, %rsi
movl %r13d, %ecx
movl %r15d, %r8d
movl %eax, %r9d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3a0a8