// File: sighingnow[P]compile-pascal/pl0_parser.cpp
// Function: pl0_param_group_fn(input_t*)
pair<int, pl0_ast_param_group *> pl0_param_group_fn(input_t *text) {
    // var declaration in parameter group indicates call-by-ref, else call-by-value.
    int vardecl = std::get<0>((spaces >> pl0_string_literal("var") << spaces)(text));
    auto parser = (pl0_identify % pl0_character(',')) + (pl0_character(':') >> pl0_primitive_type);
    auto res = (spaces >> parser << spaces)(text->drop(vardecl == -1 ? 0: vardecl));
    if (verbose) {
        cout << "parsing: Parameter Group" << endl;
    }
    return make_pair(
        (vardecl == -1 ? 0 : vardecl) + std::get<0>(res),
        new pl0_ast_param_group(
            text->locate(),
            std::get<1>(res).first,
            std::get<1>(res).second,
            vardecl != -1
        )
    );
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x9f0, %rsp            # imm = 0x9F0
movq %rdi, -0x18(%rbp)
leaq -0x299(%rbp), %rdi
movq %rdi, -0x970(%rbp)
callq 0x55d0
movq -0x970(%rbp), %rdx
leaq 0xdff93(%rip), %rsi     # 0xef243
leaq -0x298(%rbp), %rdi
callq 0x19840
jmp 0xf2be
leaq -0x278(%rbp), %rdi
leaq -0x298(%rbp), %rsi
callq 0xa6a0
jmp 0xf2d3
leaq 0x1504f6(%rip), %rsi    # 0x15f7d0
leaq -0x230(%rbp), %rdi
leaq -0x278(%rbp), %rdx
callq 0x20710
jmp 0xf2ef
leaq 0x1504da(%rip), %rdx    # 0x15f7d0
leaq -0x180(%rbp), %rdi
leaq -0x230(%rbp), %rsi
callq 0x206d0
jmp 0xf30b
movq -0x18(%rbp), %rdx
leaq -0x68(%rbp), %rdi
leaq -0x180(%rbp), %rsi
callq 0x20750
jmp 0xf321
leaq -0x68(%rbp), %rdi
movq %rdi, -0x988(%rbp)
callq 0x206b0
movq -0x988(%rbp), %rdi
movl (%rax), %eax
movl %eax, -0x97c(%rbp)
callq 0x1c190
leaq -0x180(%rbp), %rdi
callq 0x20ad0
leaq -0x230(%rbp), %rdi
callq 0x20b00
leaq -0x278(%rbp), %rdi
callq 0x1d950
leaq -0x298(%rbp), %rdi
callq 0x5200
leaq -0x299(%rbp), %rdi
callq 0x53c0
movl -0x97c(%rbp), %eax
movl %eax, -0x1c(%rbp)
movb $0x2c, -0x4a9(%rbp)
leaq -0x4a8(%rbp), %rdi
movq %rdi, -0x978(%rbp)
leaq -0x4a9(%rbp), %rsi
callq 0xa240
movq -0x978(%rbp), %rdx
leaq 0x1508f7(%rip), %rsi    # 0x15fcb0
leaq -0x460(%rbp), %rdi
callq 0x1ecd0
jmp 0xf3c7
movb $0x3a, -0x589(%rbp)
leaq -0x588(%rbp), %rdi
leaq -0x589(%rbp), %rsi
callq 0xa240
jmp 0xf3e3
leaq 0x1509e6(%rip), %rdx    # 0x15fdd0
leaq -0x540(%rbp), %rdi
leaq -0x588(%rbp), %rsi
callq 0x20b70
jmp 0xf3ff
leaq -0x3d0(%rbp), %rdi
leaq -0x460(%rbp), %rsi
leaq -0x540(%rbp), %rdx
callq 0x20b30
jmp 0xf41b
leaq -0x540(%rbp), %rdi
callq 0x20bb0
leaq -0x588(%rbp), %rdi
callq 0x19a20
leaq -0x460(%rbp), %rdi
callq 0x1ed80
leaq -0x4a8(%rbp), %rdi
callq 0x19a20
leaq 0x15037e(%rip), %rsi    # 0x15f7d0
leaq -0x950(%rbp), %rdi
leaq -0x3d0(%rbp), %rdx
callq 0x20c20
jmp 0xf467
leaq 0x150362(%rip), %rdx    # 0x15f7d0
leaq -0x7c8(%rbp), %rdi
leaq -0x950(%rbp), %rsi
callq 0x20be0
jmp 0xf483
movq -0x18(%rbp), %rax
movq %rax, -0x990(%rbp)
cmpl $-0x1, -0x1c(%rbp)
jne 0xf49e
xorl %eax, %eax
movl %eax, -0x994(%rbp)
jmp 0xf4a7
movl -0x1c(%rbp), %eax
movl %eax, -0x994(%rbp)
movq -0x990(%rbp), %rdi
movl -0x994(%rbp), %eax
movl %eax, -0x954(%rbp)
leaq -0x954(%rbp), %rsi
callq 0x1cb50
movq %rax, -0x9a0(%rbp)
jmp 0xf4cf
movq -0x9a0(%rbp), %rdx
leaq -0x5d8(%rbp), %rdi
leaq -0x7c8(%rbp), %rsi
callq 0x20c60
jmp 0xf4eb
leaq -0x7c8(%rbp), %rdi
callq 0x21030
leaq -0x950(%rbp), %rdi
callq 0x21060
testb $0x1, 0x15032e(%rip)    # 0x15f838
je 0xf6dd
movq 0x14fac1(%rip), %rdi    # 0x15efd8
leaq 0xdfdfe(%rip), %rsi     # 0xef31c
callq 0x5330
movq %rax, -0x9a8(%rbp)
jmp 0xf52c
movq -0x9a8(%rbp), %rdi
movq 0x14fa86(%rip), %rsi    # 0x15efc0
callq 0x53a0
jmp 0xf541
jmp 0xf6dd
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf5d8
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf5cc
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf5c0
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf5b4
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
leaq -0x180(%rbp), %rdi
callq 0x20ad0
leaq -0x230(%rbp), %rdi
callq 0x20b00
leaq -0x278(%rbp), %rdi
callq 0x1d950
leaq -0x298(%rbp), %rdi
callq 0x5200
leaq -0x299(%rbp), %rdi
callq 0x53c0
jmp 0xf84e
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf65b
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf64f
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf643
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
leaq -0x540(%rbp), %rdi
callq 0x20bb0
leaq -0x588(%rbp), %rdi
callq 0x19a20
leaq -0x460(%rbp), %rdi
callq 0x1ed80
leaq -0x4a8(%rbp), %rdi
callq 0x19a20
jmp 0xf84e
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf842
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf6b5
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
leaq -0x7c8(%rbp), %rdi
callq 0x21030
leaq -0x950(%rbp), %rdi
callq 0x21060
jmp 0xf842
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
jmp 0xf836
cmpl $-0x1, -0x1c(%rbp)
jne 0xf6ed
xorl %eax, %eax
movl %eax, -0x9ac(%rbp)
jmp 0xf6f6
movl -0x1c(%rbp), %eax
movl %eax, -0x9ac(%rbp)
movl -0x9ac(%rbp), %eax
movl %eax, -0x9bc(%rbp)
leaq -0x5d8(%rbp), %rdi
callq 0x210c0
movq %rax, %rcx
movl -0x9bc(%rbp), %eax
movl (%rcx), %ecx
addl %ecx, %eax
movl %eax, -0x958(%rbp)
movl $0x30, %edi
callq 0x5340
movq %rax, -0x9b8(%rbp)
jmp 0xf734
movq -0x18(%rbp), %rdi
callq 0x1a350
movq %rax, -0x9c8(%rbp)
jmp 0xf746
movq -0x9c8(%rbp), %rax
movq %rax, -0x968(%rbp)
leaq -0x5d8(%rbp), %rdi
movq %rdi, -0x9d8(%rbp)
callq 0x210e0
movq -0x9d8(%rbp), %rdi
movq %rax, -0x9d0(%rbp)
callq 0x210e0
movq -0x9b8(%rbp), %rdi
movq -0x9d0(%rbp), %rdx
movq 0x18(%rax), %rcx
movl -0x1c(%rbp), %eax
subl $-0x1, %eax
setne %al
movq -0x968(%rbp), %rsi
movzbl %al, %r8d
callq 0x21100
jmp 0xf7a7
movq -0x9b8(%rbp), %rax
movq %rax, -0x960(%rbp)
leaq -0x958(%rbp), %rdi
leaq -0x960(%rbp), %rsi
callq 0x21090
movq %rdx, -0x9e8(%rbp)
movl %eax, -0x9dc(%rbp)
jmp 0xf7d7
movq -0x9e8(%rbp), %rax
movl -0x9dc(%rbp), %ecx
movl %ecx, -0x10(%rbp)
movq %rax, -0x8(%rbp)
leaq -0x5d8(%rbp), %rdi
callq 0x21160
leaq -0x3d0(%rbp), %rdi
callq 0x21180
movl -0x10(%rbp), %eax
movq -0x8(%rbp), %rdx
addq $0x9f0, %rsp            # imm = 0x9F0
popq %rbp
retq
movq -0x9b8(%rbp), %rdi
movq %rax, %rcx
movl %edx, %eax
movq %rcx, -0x2a8(%rbp)
movl %eax, -0x2ac(%rbp)
movl $0x30, %esi
callq 0x5350
leaq -0x5d8(%rbp), %rdi
callq 0x21160
leaq -0x3d0(%rbp), %rdi
callq 0x21180
movq -0x2a8(%rbp), %rdi
callq 0x55b0
nopw (%rax,%rax)